Quote:

引用第3楼月夜狼歌于2009-03-24 16:51发表的  :
老子设计的入gate级CPU

Quote:

引用第3楼月夜狼歌于2009-03-24 16:51发表的 :
老子设计的入gate级CPU

Quote:

引用第7楼funny_cn于2009-03-24 16:54发表的  :

现什么宝，边上凉快去。

Quote:

引用第8楼西北狼于2009-03-24 16:54发表的  :

大哥发话，狼歌你快闪

Quote:

引用第3楼月夜狼歌于2009-03-24 16:51发表的  :
老子设计的入gate级CPU

Copy code

int counter = 0
long ll_vchno, li_pos
integer li_FileNum
decimal{2} ld_amount
string ls_output, ls_filename
string ls_acct, ls_curr, ls_cd, ls_remark, ls_tran_dt, ls_vchno, ls_instid
datetime ld_tran_dt
string ls_tran_code, ls_ref_first, ls_ref_second, ls_v_flag, ls_cust_no, ls_ledger_code 
string ls_gl_trans_no, ls_branch_id, ls_currency, ls_user_id, ls_reverse_flag
string ls_bank_nm, ls_payer, ls_payer_account, ls_brach_nm, ls_cust_nm

date as_date
date as_date1 = date('2006-08-10')
date as_date2 = date('2007-07-16')


ls_filename = "c:\fbs\ftp\FBS_15289_20060810-20070716.txt"  //卸载文件
li_FileNum = FileOpen(ls_filename, StreamMode!, Write!, LockWrite!, Replace!)
if li_FileNum= -1 then
    messagebox('提示','打开输出文件失败！')
    return
end if

DECLARE lcs_voitems CURSOR FOR 
    SELECT     "TRAN_DT",
                "VOUCH_NO", 
                "ACCOUNT_NO", 
                "AMOUNT", 
                "CR_DR", 
                "BRANCH_ID",
                "CURR",
                "LEDGER_CODE"
    FROM     "FBS_VOITEMS"
    WHERE "FBS_VOITEMS"."TRAN_DT" >= :as_date1 AND
            "FBS_VOITEMS"."TRAN_DT" <= :as_date2 AND
            ("FBS_VOITEMS"."ACCOUNT_NO" like '11%' )
            and "FBS_VOITEMS"."CUST_NO" = '15289';
   

OPEN lcs_voitems;
    FETCH lcs_voitems INTO     :ld_tran_dt, :ll_vchno, :ls_acct, :ld_amount, :ls_cd,
                                    :ls_branch_id, :ls_currency, :ls_ledger_code ;
   
    DO WHILE SQLCA.sqlcode = 0
       
        ls_tran_dt = string( ld_tran_dt , 'YYYYMMDD')
        as_date = date(ls_tran_dt)
        ls_vchno = trim( string( ll_vchno ) )
        ls_branch_id = left( trim( ls_branch_id ) , 9 )

           
        SELECT    "REF_FIRST", 
                    "REF_SECOND", 
                    "VOUCHER_FLAG", 
                    "TRAN_CODE"
        INTO    :ls_ref_first, 
                :ls_ref_second, 
                :ls_v_flag, 
                :ls_tran_code
        FROM "FBS_VOHEAD" 
        WHERE     ( "TRAN_DT" = :ld_tran_dt ) AND 
                 ( "VOUCH_NO" = :ll_vchno )  ;

        SELECT    "BRANCH_NM"
        INTO     :ls_brach_nm
        FROM     "FBS_BRANCH" 
        WHERE     "BRANCH_ID" = :ls_branch_id ;
        ls_brach_nm = wf_formatstr(ls_brach_nm,120)
       

        string ls_acct_2, ls_cd_2, ls_remark_2,  ls_branch_id_2, ls_currency_2
        string ls_instid_2, ls_ledger_code_2, ls_brach_nm_2
        decimal{2} ld_amount_2
       
        SELECT     "ACCOUNT_NO", 
                    "AMOUNT", 
                    "CR_DR", 
                    "BRANCH_ID",
                    "CURR",
                    "LEDGER_CODE"
        INTO     :ls_acct_2, :ld_amount_2, :ls_cd_2,
                :ls_branch_id_2, :ls_currency_2, :ls_ledger_code_2
        FROM     "FBS_VOITEMS"
        WHERE "FBS_VOITEMS"."TRAN_DT" = :ld_tran_dt AND
                ( ("FBS_VOITEMS"."LEDGER_CODE" LIKE '511%' ) OR ("FBS_VOITEMS"."LEDGER_CODE" like '512%' ) ) AND
                ("FBS_VOITEMS"."VOUCH_NO" = :ll_vchno);
   

        if SQLCA.sqlcode <> 100 then
           
            SELECT    "BRANCH_NM"
            INTO     :ls_brach_nm_2
            FROM     "FBS_BRANCH" 
            WHERE     "BRANCH_ID" = :ls_branch_id_2 ;

            ls_branch_id = wf_formatstr(ls_branch_id, 20)
            ls_brach_nm = wf_formatstr(ls_brach_nm, 180)
            ls_acct = wf_formatstr(ls_acct, 56)
            ls_cust_nm = wf_formatstr(ls_cust_nm, 180)
            ls_brach_nm_2 = wf_formatstr(ls_brach_nm_2, 180)
            ls_acct_2 = wf_formatstr(ls_acct_2, 56)
            ls_currency = wf_formatstr(ls_currency, 3)
            ls_currency_2 = wf_formatstr(ls_currency_2, 3)
   
            FileWrite(li_FileNum, ls_tran_dt +'|$|')
            FileWrite(li_FileNum, ls_brach_nm + '|$|' )
            FileWrite(li_FileNum, ls_acct + '|$|' )
            FileWrite(li_FileNum, ls_cust_nm + '|$|')
            FileWrite(li_FileNum, ls_brach_nm_2 + '|$|' )
            FileWrite(li_FileNum, ls_acct_2 + '|$|' )
            FileWrite(li_FileNum, '收费帐户' + '|$|')
            FileWrite(li_FileNum, string(ld_amount_2) + '|$|' + ls_currency_2 + '|$|' + ls_cd_2 + '~r~n')

        else             
            SELECT    "BANK_NM",
                        "PAYER",
                        "CUST_NM"
            INTO        :ls_bank_nm,
                        :ls_payer,
                        :ls_cust_nm
            FROM "FBS_APPLY"
            WHERE     ( "REF_FIRST" = :ls_ref_first ) ;


                if left( trim(ls_bank_nm), 1) = '"' then  //去除非法字符
                    ls_bank_nm = trim( right( ls_bank_nm, len(ls_bank_nm) - 1) )
                    if right(ls_bank_nm, 1) = '"' then
                        ls_bank_nm = trim( left( ls_bank_nm, len(ls_bank_nm) - 1) )
                    end if
                else
                    ls_bank_nm = trim( ls_bank_nm )
                end if
                if left(ls_bank_nm, 1) = "/" then
                    li_pos = pos( ls_bank_nm, "~r~n", 1)
                    ls_bank_nm = trim( right(ls_bank_nm, len(ls_bank_nm) - li_pos) )
                end if

                if left( trim(ls_payer), 1) = '"' then  //截取帐号 - -#   
                    ls_payer_account = trim( right( ls_payer, len(ls_payer) - 1) )
                    if right(ls_payer_account, 1) = '"' then
                        ls_payer_account = trim( left( ls_payer_account, len(ls_payer_account) - 1) )
                    end if
                else
                    ls_payer_account = trim( ls_payer )
                end if
                if left(ls_payer_account, 1) = "/" then
                    li_pos = pos( ls_payer_account, "~r~n", 1)
                    if li_pos <> 0 then
                        ls_payer_account = left(ls_payer_account, li_pos)
                        ls_payer_account = right(ls_payer_account, len(ls_payer_account) - 1)
                    end if
                else
                    li_pos = pos( ls_payer_account, "ADD:", 1)
                    if li_pos <> 0 then
                        ls_payer_account = left(ls_payer_account, li_pos - 1)
                    else
                        ls_payer_account = ""
                    end if
                end if

                if left( trim(ls_payer), 1) = '"' then  //截取帐户名 －－#
                    ls_payer = trim( right( ls_payer, len(ls_payer) - 1) )
                    if right(ls_payer, 1) = '"' then
                        ls_payer = trim( left( ls_payer, len(ls_payer) - 1) )
                    end if
                else
                    ls_payer = trim( ls_payer )
                end if
                if left(ls_payer, 1) = "/" then
                    li_pos = pos( ls_payer, "~r~n", 1)
                    ls_payer = trim( right(ls_payer, len(ls_payer) - li_pos) )
                end if


                ls_branch_id = wf_formatstr(ls_branch_id, 20)
                ls_user_id = wf_formatstr(ls_user_id, 20)
                ls_brach_nm = wf_formatstr(ls_brach_nm, 180)
                ls_bank_nm = wf_formatstr(ls_bank_nm, 180)
                ls_payer_account = wf_formatstr(ls_payer_account, 56)
                ls_acct = wf_formatstr(ls_acct, 56)
                ls_cust_nm = wf_formatstr(ls_cust_nm, 180)
                ls_payer = wf_formatstr(ls_payer, 180)
                ls_brach_nm_2 = wf_formatstr(ls_brach_nm_2, 180)
                ls_acct_2 = wf_formatstr(ls_acct_2, 56)
                ls_currency = wf_formatstr(ls_currency, 3)
                ls_currency_2 = wf_formatstr(ls_currency_2, 3)
               
                        
                IF ls_cd="C" THEN         
               
                    FileWrite(li_FileNum, ls_tran_dt + '|$|')               
                    FileWrite(li_FileNum, ls_bank_nm + '|$|'  )           
                    FileWrite(li_FileNum, ls_payer_account + '|$|' )   
                    FileWrite(li_FileNum, ls_payer + '|$|')               
                    FileWrite(li_FileNum, ls_brach_nm + '|$|'  )           
                    FileWrite(li_FileNum, ls_acct + '|$|' )               
                    FileWrite(li_FileNum, ls_cust_nm + '|$|')               
                    FileWrite(li_FileNum, string(ld_amount) + '|$|' + ls_currency + '|$|' + ls_cd + '~r~n') 
                               
                ELSE

                    if left(ls_tran_code, 2) = "0F" then
                        SELECT "REMITTEE_ACCT"
                        INTO :ls_payer_account
                        FROM "OR_HANDLE"
                        WHERE "OR_NO" = :ls_ref_first;
                        ls_payer_account = wf_formatstr(ls_payer_account, 32)
                    end if

                    FileWrite(li_FileNum, ls_tran_dt + '|$|' )
                    FileWrite(li_FileNum, ls_brach_nm + '|$|' )
                    FileWrite(li_FileNum, ls_acct + '|$|' )
                    FileWrite(li_FileNum, ls_cust_nm + '|$|')
                    FileWrite(li_FileNum, ls_bank_nm + '|$|' )
                    FileWrite(li_FileNum, ls_payer_account + '|$|' )
                    FileWrite(li_FileNum, ls_payer + '|$|')
                    FileWrite(li_FileNum, string(ld_amount) + '|$|' + ls_currency + '|$|' + ls_cd + '~r~n')

                END IF
               
        END IF
       
       
    setnull(ll_vchno)
    setnull(ld_amount)
    setnull(ls_acct)
    setnull(ls_curr)
    setnull(ls_cd)
    setnull(ls_remark)
    setnull(ls_tran_dt)
    setnull(ls_vchno)
    setnull(ld_tran_dt)
    setnull(ls_tran_code)
    setnull(ls_ref_first)
    setnull(ls_ref_second)
    setnull(ls_v_flag)
    setnull(ls_cust_no)
    setnull(ls_ledger_code)
    setnull(ls_gl_trans_no)
    setnull(ls_branch_id)
    setnull(ls_currency)
    setnull(ls_user_id)
    setnull(ls_reverse_flag)
    setnull(ls_bank_nm)
    setnull(ls_payer)
    setnull(ls_payer_account)
    setnull(ls_brach_nm)
    setnull(ls_cust_nm)
    setnull(ls_acct_2)
    setnull(ls_cd_2)
    setnull(ls_remark_2)
    setnull(ls_branch_id_2)
    setnull(ls_currency_2)
    setnull(ls_ledger_code_2)
    setnull(ls_brach_nm_2)
    setnull(ld_amount_2)


    counter = counter + 1

//if counter > 15 then exit
   
   
FETCH lcs_voitems INTO     :ld_tran_dt, :ll_vchno, :ls_acct, :ld_amount, :ls_cd,
                                :ls_branch_id, :ls_currency, :ls_ledger_code ;
                                   

LOOP

FileClose(li_FileNum)

CLOSE lcs_voitems;

messagebox('提示','输出结束！')