BETACC.TR6 14.9 KB
TDVCSUpd ZHL181 2019-2-13 11:29:41
Version 50 TradeDesign®
                        Encoding UTF-8
                        Datafield RMBCLMNOW T 1 1 3 1 0 {} {RMBCLMNOW} 1
                        Datafield SNADAT D 12 0 7 1 0 {} {send reimbursement date}
                        Rule 6
20080215174343 WCX      SourceLine sub Diasav method
20090617155117 WCX      SourceLine 
20080225132411 WCX      SourceLine #>>>WCX:出口信用证远期催收提示
20090617160035 WCX      SourceLine ##########刘文青需求
20090617160157 WCX      SourceLine #1、不分新索和电索,只出一条--远期信用证索汇提示
20090617160159 WCX      SourceLine #2、有发送索偿电日期,以该日期为准,否则以承兑到期日为准
20090617160343 WCX      SourceLine #3、有偿付行的时候,指出给偿付行的diary,否则只出给开证行
20090617160035 WCX      SourceLine ##########
20090617172658 WCX      SourceLine $rmb = GetContent( "\\LEDGRP\\RMB\\PTS\\EXTKEY" )
20090617172658 WCX      SourceLine $err = ErrorCode
20090617172548 WCX      SourceLine if SNADAT <> NULLDATE then
20090617172548 WCX      SourceLine   if not IsEmpty( $rmb ) then
20090617173557 WCX      SourceLine     TrnDiaSet( BEDGRP, "BERTCM", DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000030', BEDGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617172548 WCX      SourceLine   else
20090617173612 WCX      SourceLine     TrnDiaSet( BEDGRP, "BERTCM", DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000041', BEDGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617172548 WCX      SourceLine   endif
20090617172629 WCX      SourceLine else
20090617172606 WCX      SourceLine 
20081027180248 WCX      SourceLine   for $i = 1 to GridCount( LIAALL\LIAALLG )
20081027181250 WCX      SourceLine     if ( ( LIAALL\LIAALLG( $i )\CBTPFX = "DPU" ) or ( LIAALL\LIAALLG( $i )\CBTPFX = "AKZ" ) or ( LIAALL\LIAALLG( $i )\CBTPFX = "DPZ" ) ) and ( LIAALL\LIAALLG( $i )\AMT > 0 ) and IsEmpty( LIAALL\LIAALLG( $i )\OLDFLG ) then
20081027180335 WCX      SourceLine       if LIAALL\LIAALLG( $i )\BUSSEC = "BE" then
20090617173809 WCX      SourceLine {
20090518103153 WCX      SourceLine         TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BERT" + Str( $i, -2 ), DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000042', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090518103156 WCX      SourceLine         TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BERL" + Str( $i, -2 ), DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000031', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617173756 WCX      SourceLine 
20081031155359 WCX      SourceLine         break
20081027180114 WCX      SourceLine       endif
20090617173724 WCX      SourceLine       }
20081027180423 WCX      SourceLine         if SNADAT = NULLDATE and not IsEmpty( LIAALL\LIAALLG( $i )\MATDAT ) then
20090617160944 WCX      SourceLine           if not IsEmpty( $rmb ) then
20090617161104 WCX      SourceLine             TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BETR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000039', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617160956 WCX      SourceLine           else
20090617161120 WCX      SourceLine             TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BETR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000044', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617160959 WCX      SourceLine           endif
20090617160952 WCX      SourceLine 
20090617161028 WCX      SourceLine {
20090518104632 WCX      SourceLine         TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BETR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000043', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20081031154735 WCX      SourceLine         TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BELR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000040', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617161036 WCX      SourceLine         }
20081027175901 WCX      SourceLine         endif
20081027180544 WCX      SourceLine       endif
20081027175901 WCX      SourceLine     endif
20081027175900 WCX      SourceLine   next
20090617172633 WCX      SourceLine endif
                        Rule 6
20080318093715 WCX      SourceLine default BEDGRP\REC\ACPNOWFLG
20080318093713 WCX      SourceLine = "X"
                        Rule 6
20080908105612 NIL      SourceLine check LIAALL\LIAALLG
                        SourceLine 
20080908150336 NIL      SourceLine if not IsEmpty( BPDGRP\REC\INR ) then
20080908105700 NIL      SourceLine   $Count = 0
20080908105649 NIL      SourceLine   for $i = 1 to GridCount( LIAALL\LIAALLG )
20080908105824 NIL      SourceLine     if LIAALL\LIAALLG( $i )\BusSec = "BE" and Pos( "AKZDPZDPU", LIAALL\LIAALLG( $i )\CbtPfx ) > 0 and LIAALL\LIAALLG( $i )\Amt > 0 then
20080908105830 NIL      SourceLine       $Count = $Count + 1
20080908105916 NIL      SourceLine     endif
20080908105612 NIL      SourceLine   next $i
20080908105837 NIL      SourceLine   if $Count > 1 then
20080908105905 NIL      SourceLine     Error( 'LG000029' )
20080908105839 NIL      SourceLine   endif
20080908105637 NIL      SourceLine endif
                        Rule 6
20080908113728 NIL      SourceLine init order 5000
                        SourceLine 
20080908145402 NIL      SourceLine $LiaExtId = ""
20080908150139 NIL      SourceLine $Sql = "SELECT PTE.INR FROM PTE, PTS WHERE PTS.OBJTYP='BED' AND PTS.OBJINR='" + BEDGRP\REC\INR + "' AND PTE.OBJTYP='PTS' AND PTE.OBJINR=PTS.INR AND PTE.CBTPFX='INT'"
20080908145353 NIL      SourceLine DBExecuteSQL( $Sql )
20080908145415 NIL      SourceLine DBFetchFields( "", $LiaExtId )
20080908145420 NIL      SourceLine $Ignore = ErrorCode
20080908145529 NIL      SourceLine DBCloseCursor
20080908145819 NIL      SourceLine if not IsEmpty( $LiaExtId ) then
20080908150328 NIL      SourceLine   DBRead( BPDGRP\REC, $LiaExtId, "LIAEXTID" )
20080908145447 NIL      SourceLine   $Ignore = ErrorCode
20080908150329 NIL      SourceLine   if not IsEmpty( BPDGRP\REC\INR ) then
20080908150332 NIL      SourceLine     TRNMOD.TroLockExistingContract ( BPDGRP )
20080908145450 NIL      SourceLine   endif
20080908145822 NIL      SourceLine endif
                        Rule 6
20111026172122 YL       SourceLine default SETMOD\REDAMT
20111026172123 YL       SourceLine Enable
                        Rule 6
20181210102233 ZHL      SourceLine textfunction ERSMSGF2 static
20181210102233 ZHL      SourceLine #!单证通出口信用证项下单据承兑通知报文
20181210102233 ZHL      SourceLine #!	20	我行业务编号	BEDGRP\REC\OWNREF	
20181210102233 ZHL      SourceLine #!	25	我行通知编号	LEDGRP\REC\OWNREF	
20181210102233 ZHL      SourceLine #!	21	信用证号	LEDGRP\REC\ISSREF	
20181210102233 ZHL      SourceLine #!	26A	发票号	BEDGRP\REC\INVNBR	
20181210102233 ZHL      SourceLine #!	32A-CUR	承兑币别	SETMOD\DOCCUR	
20181210102233 ZHL      SourceLine #!	32A-AMT	承兑金额	SETMOD\DOCAMT
20181210102233 ZHL      SourceLine #!	32B-CUR	单据币别	BEDGRP\CBS\MAX\CUR	
20181210102233 ZHL      SourceLine #!	32B-AMT	单据总额	BEDGRP\CBS\MAX\AMT
20181210102233 ZHL      SourceLine #!	32A	承兑日期	BEDGRP\REC\ACCDAT
20181210102233 ZHL      SourceLine #!	31S	到期日	BEDGRP\REC\MATDAT
20181210102233 ZHL      SourceLine #!	M8	客户代号	LEDGRP\BEN\PTA\PTYEXTKEY	
20181210102233 ZHL      SourceLine #!	59	受益人名称和地址	BEDGRP\BEN\PTS\ADRBLK	
20181210102233 ZHL      SourceLine #!	50	申请人名称和地址	BEDGRP\APL\PTS\ADRBLK	
20181210102233 ZHL      SourceLine #!	57A-BIC	开证行BIC	LEDGRP\ISS\ADR\BIC	
20181210102233 ZHL      SourceLine #!	57A-ADR	开证行名称和地址	LEDGRP\ISS\PTS\ADRBLK	
20181210102233 ZHL      SourceLine ##!	58A-BIC	转让行BIC	LEDGRP\APB\ADR\BIC	
20181210102233 ZHL      SourceLine ##!	58A-ADR	转让行名称和地址	LEDGRP\APB\PTS\ADRBLK
20181210102233 ZHL      SourceLine TRNMOD\TRNDOC\DOCCUR\MSGTOO = "Z00238"
20181210102233 ZHL      SourceLine TRNMOD\TRNDOC\DOCCUR\MT = "T12"
20181210102233 ZHL      SourceLine if IsEmpty( TRNMOD\SWIADD\TCOM1REF ) and not IsEmpty( TRNMOD\SMH\INR ) then
20181210102233 ZHL      SourceLine   TRNMOD\SWIADD\TCOM1REF = TRNMOD\TRNDOC\ERSMOD.GetErsBillidBySMH ( TRNMOD\SMH\INR )
20181210102233 ZHL      SourceLine endif
20181210102233 ZHL      SourceLine 
20181210102233 ZHL      SourceLine print ERSPrintXmlTitle_GBK
20181210102243 ZHL      SourceLine #print ERSCreateHead_DZT( TRNMOD\TRN\INR, "T12", "BE", "EAB", TRNMOD\SWIADD\TCOM1REF, BEDGRP\REC\OWNREF, BEDGRP\REC\OWNEXTKEY, BEDGRP\BEN\PTS\EXTKEY, MTABUT\IMMMOD\CURIMGREF )
20190213112939 ZHL      SourceLine print ERSCreateHead_DZT( TRNMOD\TRN\INR, "T12", "BE", "EAB", TRNMOD\SWIADD\TCOM1REF, BEDGRP\REC\OWNREF, SYSMOD\WRKBCH\BRANCH, BEDGRP\BEN\PTS\EXTKEY, MTABUT\IMGMOD\scawrk\IMGINR )
20181210102233 ZHL      SourceLine print ERSPrtTag_EF( ERSGetOwnERSCOD, "MsgBody" ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "20", "", BEDGRP\REC\OWNREF, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "25", "", LEDGRP\REC\OWNREF, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "21", "", LEDGRP\REC\ISSREF, TRUE ) ;
20181210102538 ZHL      SourceLine #print ERSPrtTagText( "26A", "", BEDGRP\REC\INVNBR, TRUE ) ;
20181210102925 ZHL      SourceLine print ERSPrtTagText( "26A", "", LEDGRP\REC\BENREF, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "32A-CUR", "", SETMOD\DOCCUR, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagAmount( "32A-AMT", "", SETMOD\DOCCUR, SETMOD\DOCAMT ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "32B-CUR", "", BEDGRP\CBS\MAX\CUR, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagAmount( "32B-AMT", "", BEDGRP\CBS\MAX\CUR, BEDGRP\CBS\MAX\AMT ) ;
20181210102348 ZHL      SourceLine #print ERSPrtTagFmtDate( "32A", "", BEDGRP\REC\ACCDAT, "YYYY-MM-DD" ) ;
20181210102528 ZHL      SourceLine print ERSPrtTagFmtDate( "32A", "", Today, "YYYY-MM-DD" ) ;
20181210102233 ZHL      SourceLine $matdat = NULLDATE
20181210102233 ZHL      SourceLine 
20181210102233 ZHL      SourceLine $cnt = GridCount( LIAALL\LIAALLG )
20181210102233 ZHL      SourceLine if $cnt > 0 then
20181210102233 ZHL      SourceLine   for $i = 1 to $cnt
20181210102233 ZHL      SourceLine     if not IsEmpty( LIAALL\LIAALLG( $i )\MATDAT ) and Pos( "AKZ", ToUpper( LIAALL\LIAALLG( $i )\cbtpfx ) ) > 0 then
20181210102233 ZHL      SourceLine       $matdat = LIAALL\LIAALLG( $i )\MATDAT
20181210102233 ZHL      SourceLine       break
20181210102233 ZHL      SourceLine     endif
20181210102233 ZHL      SourceLine   next $i
20181210102233 ZHL      SourceLine endif
20181210102233 ZHL      SourceLine if IsEmpty( $matdat ) then
20181210102233 ZHL      SourceLine   $matdat = BEDGRP\REC\MATDAT
20181210102233 ZHL      SourceLine endif
20181210102233 ZHL      SourceLine print ERSPrtTagFmtDate( "31S", "", $matdat, "YYYY-MM-DD" ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "M8", "", LEDGRP\BEN\PTA\PTYEXTKEY, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "59", "", BEDGRP\BEN\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "50", "", BEDGRP\APL\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "57A-BIC", "", LEDGRP\ISS\ADR\BIC, TRUE ) ;
20181210102233 ZHL      SourceLine print ERSPrtTagText( "57A-ADR", "", LEDGRP\ISS\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL      SourceLine #print ERSPrtTagText( "58A-BIC", "", LEDGRP\APB\ADR\BIC, TRUE ) ;
20181210102233 ZHL      SourceLine #print ERSPrtTagText( "58A-ADR", "", LEDGRP\APB\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL      SourceLine 
20181210102233 ZHL      SourceLine print ERSEndTail ;

                        PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVACT\CONFIG
                        PPRelPos 5 \TRNMOD\PTSMOD\DETP
                        PPRelPos 2 \TRNMOD\DOCIMM\DOCBOL\PRTP
                        PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVBCG\CONFIG
                        PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVLON\CONFIG
                        PanelPage \TRNMOD\TRNDOC\DOCATT
                        PanelPage \BETP\BEBP\ADRDETP
                        PanelPage \BETP\OTHP\ADRDETP
                        PanelPage \BETP\APLP\ADRDETP
                        PanelPage \BETP\BENP\ADRDETP
                        PanelPage \BETP\ISSP\ADRDETP
                        PanelPage \BETP\RMBP\ADRDETP
                        PanelPage \BETP\ACBP\ADRDETP
                        PanelPage \BETP\PRBP\ADRDETP
                        PanelPage \BETP\TP9P\ADRDETP
                        PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVQIN\CONFIG
                        PanelPage \TRNMOD\TRNDOC\DOCCUR\RCVP\ADRDETP
                        PanelPage \BETP\DOCP\ADRDETP
                        PanelPage \BETP\PUBP\ADRDETP
                        PanelPage \TRNMOD\CMT100PEL
                        PanelPage \LIAALL\LIMMOD\Shisuan
                        PanelPage \LIAALL\LIMMOD\WRKP\ADRDETP
                        PanelPage \LIAALL\LIMMOD\OTHP\ADRDETP
                        PanelPage \TRNMOD\TRNDOC\ERSMOD\ERSIMM\DOCEDIP
                        PanelPage \TRNMOD\HVPMOD\SECPAN
                        PanelPage \TRNMOD\CIPMOD\P112COV
                        PanelPage \TRNMOD\CIPMOD\CIPS
                        PanelPage \TRNMOD\CIPMOD\CIPS2
                        PanelPage \TRNMOD\CIPMOD\CIPS3

                        PanelRef ACCP
                        FrameField SNADAT 7 132 436 1 0 0 0 0 0 0 0 {-}
                        FFRelPos 5 SETMOD\DOCAMT 1
                        Label SG000044 8 436 0 {-}
                        ModuleRef BETMOD
                        Argument BCH SYSMOD\WRKBCH
                        ModuleRef LETMOD
                        Argument BCH SYSMOD\WRKBCH
                        Module AAMSET AAMSET 0
                        Argument AAMMOD BETP\AAMMOD
                        Module BPDGRP BPDGRP 0
                        Module BPDLOD BPDLOD 0

                        Literals_START
20080908105905 NIL      LG000029EN 存在押汇情况下,只能全额承兑成一张汇票。                        
20090617160710 WCX      LG000030EN 远期信用证索汇提示(偿付行):$1
20081031154832 WCX      LG000031EN 远期信索提示(偿付行):$1
20090617161120 WCX      LG000039EN 远期信用证索汇提示(偿付行):$1
20081031154832 WCX      LG000040EN 远期信索提示(偿付行):$1
20090617160710 WCX      LG000041EN 远期信用证索汇提示(开证行):$1
20090617160710 WCX      LG000042EN 远期电索提示(偿付行):$1
20090617161036 WCX      LG000043EN 远期电索提示(偿付行):$1
20090617161120 WCX      LG000044EN 远期信用证索汇提示(开证行):$1
20081027170522 WCX      SG000044EN 发送索偿电日期
                        Literals_END

F5D4EE41