TDVCSUpd ZY 2013-3-15 11:15:15
Version 50 TradeDesign®
Encoding UTF-8
LV 6
Frame T0000000 0 0 0 0 0 0
Datafield CREHQSELBUT C 3 1 6 1 0 {} {?}
Datafield CREHQCODE T 3 1 0 0 0 {} {债权人总部所在国家（地区）代码} 1
Datafield OPERCODE T 3 1 0 0 0 {} {债权人经营地所在国家（地区）代码} 1
Datafield OPERSELBUT C 3 1 6 1 0 {} {?}
Datafield OPERCODEFLG T 1 1 0 1 0 {} {OPERCODEFLG} 1
Datafield CREHQCODEFLG T 1 1 0 1 0 {} {CREHQCODEFLG} 1
Rule -1
20120808174132 ZY SourceLine event CREHQSELBUT
20120808174212 ZY SourceLine SQLSetDirtyRead
20120808174521 ZY SourceLine DBRead( BOPCTY, CREHQCODE, "COD" )
20120808174212 ZY SourceLine if ErrorCode <> 0 then
20120907161203 ZY SourceLine GridEtySelect( BOPCTY, "", "WHERE UPPER(COD) LIKE UPPER('%" + CREHQCODE + "%\') OR UPPER(NUMCOD) LIKE UPPER(\'%" + CREHQCODE + "%\')", "" )
20120808174212 ZY SourceLine if ErrorCode = 0 then
20120808174526 ZY SourceLine CREHQCODE = BOPCTY\COD
20120808174212 ZY SourceLine else
20120808174212 ZY SourceLine if ErrorCode = tdOdbcNotSelected then
20120808174212 ZY SourceLine Error( 'L0000002' )
20120808174212 ZY SourceLine else
20120808174212 ZY SourceLine if ErrorCode = TdOdbcSelectGridEmpty then
20120808174527 ZY SourceLine Error( 'L0000003', CREHQCODE )
20120808174212 ZY SourceLine endif
20120808174212 ZY SourceLine endif
20120808174212 ZY SourceLine endif
20120808174212 ZY SourceLine Clear( BOPCTY )
20120808174212 ZY SourceLine else
20120808174529 ZY SourceLine CREHQCODE = BOPCTY\COD
20120808174212 ZY SourceLine endif
20120808174212 ZY SourceLine SQLSetCommittedRead
20130315111435 ZY SourceLine
20130315111455 ZY SourceLine #点击“？”获取国别代码，CREHQCODE栏位也视为修改过
20130315111508 ZY SourceLine CREHQCODEFLG = "M"
Rule -1
20120808174423 ZY SourceLine event CREHQCODE eventtype tdEventSelChange
20120808174429 ZY SourceLine
20120808174500 ZY SourceLine if not IsEmpty( CREHQCODE ) then
20120808174423 ZY SourceLine SQLSetDirtyRead
20120808174501 ZY SourceLine DBRead( BOPCTY, CREHQCODE, "COD" )
20120808174423 ZY SourceLine if ErrorCode <> 0 then
20120808174502 ZY SourceLine DBRead( BOPCTY, CREHQCODE, "NUMCOD" )
20120808174423 ZY SourceLine if ErrorCode <> 0 then
20120907161228 ZY SourceLine GridEtySelect( BOPCTY, "", "WHERE UPPER(COD) LIKE UPPER('%" + CREHQCODE + "%\') OR UPPER(NUMCOD) LIKE UPPER(\'%" + CREHQCODE + "%\')", "" )
20120808174423 ZY SourceLine if ErrorCode = 0 then
20120907162209 ZY SourceLine CREHQCODE = BOPCTY\COD
20120808174423 ZY SourceLine else
20120808174423 ZY SourceLine if ErrorCode = tdOdbcNotSelected then
20120808174423 ZY SourceLine Error( 'L0000004' )
20120808174423 ZY SourceLine else
20120808174444 ZY SourceLine
20120808174423 ZY SourceLine endif
20120808174423 ZY SourceLine endif
20120808174423 ZY SourceLine Clear( BOPCTY )
20120808174423 ZY SourceLine else
20120808174510 ZY SourceLine CREHQCODE = BOPCTY\COD
20120808174423 ZY SourceLine endif
20120808174423 ZY SourceLine else
20120907162214 ZY SourceLine CREHQCODE = BOPCTY\COD
20120808174423 ZY SourceLine endif
20120808174423 ZY SourceLine SQLSetCommittedRead
20120808174423 ZY SourceLine endif
Rule -1
20120814085242 ZY SourceLine event OPERCODE eventtype tdEventSelChange
20120814085242 ZY SourceLine
20120814085252 ZY SourceLine if not IsEmpty( OPERCODE ) then
20120814085242 ZY SourceLine SQLSetDirtyRead
20120814085254 ZY SourceLine DBRead( BOPCTY, OPERCODE, "COD" )
20120814085242 ZY SourceLine if ErrorCode <> 0 then
20120814085255 ZY SourceLine DBRead( BOPCTY, OPERCODE, "NUMCOD" )
20120814085242 ZY SourceLine if ErrorCode <> 0 then
20120907161450 ZY SourceLine GridEtySelect( BOPCTY, "", "WHERE UPPER(COD) LIKE UPPER('%" + OPERCODE + "%\') OR UPPER(NUMCOD) LIKE UPPER(\'%" + OPERCODE + "%\')", "" )
20120814085242 ZY SourceLine if ErrorCode = 0 then
20120814085301 ZY SourceLine OPERCODE = BOPCTY\COD
20120814085242 ZY SourceLine else
20120814085242 ZY SourceLine if ErrorCode = tdOdbcNotSelected then
20120814085242 ZY SourceLine Error( 'L0000005' )
20120814085242 ZY SourceLine else
20120814085242 ZY SourceLine
20120814085242 ZY SourceLine endif
20120814085242 ZY SourceLine endif
20120814085242 ZY SourceLine Clear( BOPCTY )
20120814085242 ZY SourceLine else
20120814085302 ZY SourceLine OPERCODE = BOPCTY\COD
20120814085242 ZY SourceLine endif
20120814085242 ZY SourceLine else
20120814085305 ZY SourceLine OPERCODE = BOPCTY\COD
20120814085242 ZY SourceLine endif
20120814085242 ZY SourceLine SQLSetCommittedRead
20120814085242 ZY SourceLine endif
Rule -1
20120814085323 ZY SourceLine event OPERSELBUT
20120814085324 ZY SourceLine SQLSetDirtyRead
20120814085355 ZY SourceLine DBRead( BOPCTY, OPERCODE, "COD" )
20120814085324 ZY SourceLine if ErrorCode <> 0 then
20120907161616 ZY SourceLine GridEtySelect( BOPCTY, "", "WHERE UPPER(COD) LIKE UPPER('%" + OPERCODE + "%\') OR UPPER(NUMCOD) LIKE UPPER(\'%" + OPERCODE + "%\')", "" )
20120814085324 ZY SourceLine if ErrorCode = 0 then
20120814085351 ZY SourceLine OPERCODE = BOPCTY\COD
20120814085324 ZY SourceLine else
20120814085324 ZY SourceLine if ErrorCode = tdOdbcNotSelected then
20120814085324 ZY SourceLine Error( 'L0000006' )
20120814085324 ZY SourceLine else
20120814085324 ZY SourceLine if ErrorCode = TdOdbcSelectGridEmpty then
20120814085359 ZY SourceLine Error( 'L0000007', OPERCODE )
20120814085324 ZY SourceLine endif
20120814085324 ZY SourceLine endif
20120814085324 ZY SourceLine endif
20120814085324 ZY SourceLine Clear( BOPCTY )
20120814085324 ZY SourceLine else
20120814085402 ZY SourceLine OPERCODE = BOPCTY\COD
20120814085324 ZY SourceLine endif
20120814085324 ZY SourceLine SQLSetCommittedRead
20130314154255 ZY SourceLine
20130314154350 ZY SourceLine #点击“？”获取国别代码，OPERCODE栏位也视为修改过
20130314154255 ZY SourceLine OPERCODEFLG = "M"
Rule -1
20120814085651 ZY SourceLine check CREHQCODE
20120814085702 ZY SourceLine if not IsEmpty( CREHQCODE ) then
20120814085703 ZY SourceLine DBReadNoData( BOPCTY, CREHQCODE, "COD" )
20120814085652 ZY SourceLine if ErrorCode = tdOdbcNotFound then
20120814085652 ZY SourceLine Error( 'L0000010' )
20120814085652 ZY SourceLine else
20120814085652 ZY SourceLine reraise
20120814085652 ZY SourceLine endif
20120814085652 ZY SourceLine endif
Rule -1
20120814085811 ZY SourceLine check OPERCODE
20120814085818 ZY SourceLine if not IsEmpty( OPERCODE ) then
20120814085819 ZY SourceLine DBReadNoData( BOPCTY, OPERCODE, "COD" )
20120814085813 ZY SourceLine if ErrorCode = tdOdbcNotFound then
20120814085813 ZY SourceLine Error( 'L0000011' )
20120814085813 ZY SourceLine else
20120814085813 ZY SourceLine reraise
20120814085813 ZY SourceLine endif
20120814085813 ZY SourceLine endif
Rule -1
20130201091339 CGL SourceLine default CREHQCODE
20130201091350 CGL SourceLine = ToUpper( CREHQCODE )
Rule -1
20130201091357 CGL SourceLine default OPERCODE
20130201091408 CGL SourceLine = ToUpper( OPERCODE )
PanelCount 2
FramePanel CTY1 P0000001 70 25 0 0 1 1 0 0 1 0
FrameField CREHQCODE 0 0 0 1 0 0 0 0 0 0 0 {-}
FrameField CREHQSELBUT 6 44 1 1 0 0 0 1 0 0 0 {-}
FieldDesc C0000003
FramePanel CTY2 P0000004 70 25 0 0 0 1 0 0 1 0
FrameField OPERCODE 0 0 0 1 0 0 0 0 0 0 0 {-}
FrameField OPERSELBUT 6 44 1 1 0 0 0 1 0 0 0 {-}
FieldDesc C0000006
Module BOPCTY BOPCTY 0
Literals_START
20120808174245 ZY L0000002EN No Code selected.
20120808174245 ZY L0000003EN For $1 no fitting Code found.
20120808174512 ZY L0000004EN No Code selected.
20120814085244 ZY L0000005EN No Code selected.
20120814085327 ZY L0000006EN No Code selected.
20120814085327 ZY L0000007EN For $1 no fitting Code found.
20120814085706 ZY L0000010EN Code Input Error
20120814085820 ZY L0000011EN Code Input Error
20120808140121 ZY C0000003EN ?
20120808141651 ZY C0000006EN ?
20120808140045 ZY P0000001EN CREHQ COUNTRY
20120808141619 ZY P0000004EN OPER COUNTRY
20120808114729 ZY T0000000EN
Literals_END
77AFA974