cs.cpre

商业银行前置系统

    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRANSCODE, AP_TRANSCODE_CS_REFUND))
    
    tscanf(ptiastru->szDataA, FMT_CSI14_A, VAR_CSI14_A);
    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNO, pcsi14stru->szAccNo))  
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_EXPDATE, pcsi14stru->szExpDate))
    
    sprintf(szData, "%19.2lf", pcsi14stru->dAmt);
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_AMT, szData)) 
    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGREQID, pcsi14stru->szOrgReqId)) 
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_MERCHNO, pcsi14stru->szMerchNo))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGVOUCHNO, pcsi14stru->szVouchNo))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGBATCHNO, pcsi14stru->szBatchNo))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "N"))
    
    /*
     * 提交交易
     */

    ASSURE_NORMAL(ApCaSubmit(pxmlstruReq, pxmlstruResp)) 

    /*
     * 根据应答XML填写TOA必填项
     */

    AP_DEMAND_EXT(AP_PATH_RESPCODE, szRespCode);
    
    if (strcmp(szRespCode, AP_RESPCODE_ACCEPT) == 0 ||
        strcmp(szRespCode, AP_RESPCODE_INCONSISTENT) == 0)
    {
        if (!VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp)) ||
            !VERIFY_NORMAL(SetVchInfo(pxmlstruResp, ptoastru,
                                      szVchNum, szVchArea)))
            RETURN_DELETE

        AP_DEMAND_EXT(AP_PATH_ACCNAME, pcso14stru->szAccName);
        
        AP_DEMAND_EXT(AP_PATH_BAL, szData);
        pcso14stru->dBal = atof(szData);
        
        AP_DEMAND_EXT(AP_PATH_AVAILBAL, szData);
        pcso14stru->dAvailBal = atof(szData);
        
        AP_DEMAND_EXT(AP_PATH_AUTHCODE, pcso14stru->szAuthCode);  
        AP_DEMAND_EXT(AP_PATH_RESPSEQNO, pcso14stru->szRespSeqNo);
        
        tprintf(ptoastru->szData, FMT_CSO14, VAR_CSO14);
        ptoastru->nLen = strlen(ptoastru->szData);
    }
    else if (ApIsRespCode(&xmlstruResp, AP_RESPCODE_EXCEPTION))
        RETURN_DELETE

    else
        VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp));
    
    RETURN_DELETE
}

RESULT HandleCsQueryBal(PCTIASTRU ptiastru, PTOASTRU ptoastru)
{
    char szData[AP_LEN_AMT + 1];
    
    CSI15STRU csi15stru;
    CSO15STRU cso15stru;

    PCSI15STRU pcsi15stru;
    PCSO15STRU pcso15stru;
    
    XMLSTRU xmlstruReq;
    XMLSTRU xmlstruResp;
    
    PXMLSTRU pxmlstruReq, pxmlstruResp;
    
    pxmlstruReq = &xmlstruReq;
    pxmlstruResp = &xmlstruResp;
    
    memset(&xmlstruReq, 0, sizeof(xmlstruReq));
    memset(&xmlstruResp, 0, sizeof(xmlstruResp));
    
    memset(&csi15stru, 0, sizeof(csi15stru));
    memset(&cso15stru, 0, sizeof(cso15stru));
    
    pcsi15stru = &csi15stru;
    pcso15stru = &cso15stru;
    
    /*
     * 创建XML请求报文结构
     */
    
    ASSURE_NORMAL(CreateXml(pxmlstruReq, FALSE, AP_PATH_ROOT, NULL))    

    /* 
     * 根据TIA填写请求XML的公共域
     */
    
    ASSURE_NORMAL(FillReqXmlWithTia(ptiastru, pxmlstruReq))    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRANSCODE, AP_TRANSCODE_CS_QUERYBAL))
        
    tscanf(ptiastru->szDataA, FMT_CSI15_A, VAR_CSI15_A);
                
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNO, pcsi15stru->szAccNo)) 
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCPWD, pcsi15stru->szAccPwd))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_EXPDATE, pcsi15stru->szExpDate))
        
    if (strcmp(pcsi15stru->szTrack2, "") != 0)
    {
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "Y"))
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACK2, pcsi15stru->szTrack2))                  
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACK3, pcsi15stru->szTrack3))    
    }
    else
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "N"))
        
    /*
     * 提交交易
     */
    
    ASSURE_NORMAL(ApCaSubmit(pxmlstruReq, pxmlstruResp)) 

    /*
     * 根据应答XML填写TOA必填项
     */
        
    ASSURE_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp))

    if (ptoastru->cRespType == 'N')
    {
        AP_DEMAND_EXT(AP_PATH_ACCNAME, pcso15stru->szAccName); 
        
        AP_DEMAND_EXT(AP_PATH_BAL, szData); 
        pcso15stru->dBal = atof(szData);
        
        AP_DEMAND_EXT(AP_PATH_AVAILBAL, szData); 
        pcso15stru->dAvailBal = atof(szData);
        
        AP_DEMAND_EXT(AP_PATH_RESPSEQNO, pcso15stru->szRespSeqNo);
        
        tprintf(ptoastru->szData, FMT_CSO15, VAR_CSO15);
        ptoastru->nLen = strlen(ptoastru->szData);
    }

    RETURN_DELETE          
}

RESULT HandleCsChangePin(PCTIASTRU ptiastru, PTOASTRU ptoastru)
{
    CSI16STRU csi16stru;
    PCSI16STRU pcsi16stru;
    
    XMLSTRU xmlstruReq;
    XMLSTRU xmlstruResp;
    
    PXMLSTRU pxmlstruReq, pxmlstruResp;
    
    pxmlstruReq = &xmlstruReq;
    pxmlstruResp = &xmlstruResp;
    
    memset(&xmlstruReq, 0, sizeof(xmlstruReq));
    memset(&xmlstruResp, 0, sizeof(xmlstruResp));    
    
    memset(&csi16stru, 0, sizeof(csi16stru));
        
    pcsi16stru = &csi16stru;
        
    /*
     * 创建XML请求报文结构
     */
    
    ASSURE_NORMAL(CreateXml(pxmlstruReq, FALSE, AP_PATH_ROOT, NULL))
    
    /* 
     * 根据TIA填写请求XML的公共域
     */

    ASSURE_NORMAL(FillReqXmlWithTia(ptiastru, pxmlstruReq))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRANSCODE, AP_TRANSCODE_CS_CHANGEPIN))

    tscanf(ptiastru->szDataA, FMT_CSI16_A, VAR_CSI16_A);
    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNO, pcsi16stru->szAccNo)) 
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCPWD, pcsi16stru->szAccPwd))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNEWPWD, pcsi16stru->szAccNewPwd))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_EXPDATE, pcsi16stru->szExpDate))
    
    if (strcmp(pcsi16stru->szTrack2, "") != 0)
    {
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "Y"))
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACK2, pcsi16stru->szTrack2))                 
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACK3, pcsi16stru->szTrack3))     
    }
    else
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "N"))
    
    /*
     * 提交交易
     */
     
    ASSURE_NORMAL(ApCaSubmit(pxmlstruReq, pxmlstruResp)) 
        
    /*
     * 根据应答XML填写TOA必填项
     */

    ASSURE_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp))
    RETURN_DELETE
}

RESULT HandleCsLost(PCTIASTRU ptiastru, PTOASTRU ptoastru)
{
    char szData[AP_LEN_AMT + 1];
    char szRespCode[AP_LEN_RESPCODE + 1];

    CSI17STRU csi17stru;
    CSO17STRU cso17stru;

    PCSI17STRU pcsi17stru;
    PCSO17STRU pcso17stru;
    
    XMLSTRU xmlstruReq;
    XMLSTRU xmlstruResp;
    
    PXMLSTRU pxmlstruReq, pxmlstruResp;   
   
    pxmlstruReq = &xmlstruReq;
    pxmlstruResp = &xmlstruResp;
    
    memset(&xmlstruReq, 0, sizeof(xmlstruReq));
    memset(&xmlstruResp, 0, sizeof(xmlstruResp));
    
    memset(&csi17stru, 0, sizeof(csi17stru));
    memset(&cso17stru, 0, sizeof(cso17stru));
    
    pcsi17stru = &csi17stru;
    pcso17stru = &cso17stru;
    
    /*
     * 创建XML请求报文结构
     */
    
    ASSURE_NORMAL(CreateXml(pxmlstruReq, FALSE, AP_PATH_ROOT, NULL))    

    /* 
     * 根据TIA填写请求XML的公共域
     */

    ASSURE_NORMAL(FillReqXmlWithTia(ptiastru, pxmlstruReq))    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRANSCODE, AP_TRANSCODE_CS_LOST))

    tscanf(ptiastru->szDataA, FMT_CSI17_A, VAR_CSI17_A);
    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNO, pcsi17stru->szAccNo))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCPWD, pcsi17stru->szAccPwd))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_EXPDATE, pcsi17stru->szExpDate))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_CERTTYPE, pcsi17stru->szCertType))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_CERTNO, pcsi17stru->szCertNo))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "N"))
    
    /*
     * 提交交易
     */

    ASSURE_NORMAL(ApCaSubmit(pxmlstruReq, pxmlstruResp)) 
    
    /*
     * 根据应答XML填写TOA必填项
     */

    AP_DEMAND_EXT(AP_PATH_RESPCODE, szRespCode);
    
    if (strcmp(szRespCode, AP_RESPCODE_ACCEPT) == 0)
    {
        if (!VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp)))
            RETURN_DELETE

        AP_DEMAND_EXT(AP_PATH_ACCNAME, pcso17stru->szAccName); 
        
        AP_DEMAND_EXT(AP_PATH_BAL, szData); 
        pcso17stru->dBal = atof(szData);
        
        AP_DEMAND_EXT(AP_PATH_RESPSEQNO, pcso17stru->szRespSeqNo);
        
        tprintf(ptoastru->szData, FMT_CSO17, VAR_CSO17);
        ptoastru->nLen = strlen(ptoastru->szData);
    }
    else if (ApIsRespCode(&xmlstruResp, AP_RESPCODE_EXCEPTION))
        RETURN_DELETE

    else
        VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp));

    RETURN_DELETE
}

RESULT HandleCsAuth(PCTIASTRU ptiastru, PTOASTRU ptoastru)
{
    char szData[AP_LEN_AMT + 1];
    char szRespCode[AP_LEN_RESPCODE + 1];

    CSI18STRU csi18stru;
    CSO18STRU cso18stru;

    PCSI18STRU pcsi18stru;
    PCSO18STRU pcso18stru;

    XMLSTRU xmlstruReq;
    XMLSTRU xmlstruResp;
    
    PXMLSTRU pxmlstruReq, pxmlstruResp;
    
    pxmlstruReq = &xmlstruReq;
    pxmlstruResp = &xmlstruResp;
    
    memset(&xmlstruReq, 0, sizeof(xmlstruReq));
    memset(&xmlstruResp, 0, sizeof(xmlstruResp));
    
    memset(&csi18stru, 0, sizeof(csi18stru));
    memset(&cso18stru, 0, sizeof(cso18stru));
    
    pcsi18stru = &csi18stru;
    pcso18stru = &cso18stru;
    
    /*
     * 创建XML请求报文结构
     */
    
    ASSURE_NORMAL(CreateXml(pxmlstruReq, FALSE, AP_PATH_ROOT, NULL))    

    /* 
     * 根据TIA填写请求XML的公共域
     */

    ASSURE_NORMAL(FillReqXmlWithTia(ptiastru, pxmlstruReq))
    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRANSCODE, AP_TRANSCODE_CS_AUTH)) 
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_MANUALAUTH, "Y"))                 

    tscanf(ptiastru->szDataA, FMT_CSI18_A, VAR_CSI18_A);

    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNO, pcsi18stru->szAccNo))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_EXPDATE, pcsi18stru->szExpDate))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "N"))   

    sprintf(szData, "%19.2lf", pcsi18stru->dAmt);
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_AMT, szData))

    if (strcmp(pcsi18stru->szAuthType, AUTHTYPE_CONSUME) == 0)
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                    AP_TRANSCODE_CS_CONSUME))

    else if (strcmp(pcsi18stru->szAuthType, AUTHTYPE_WITHDRAW) == 0)
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                    AP_TRANSCODE_CS_WITHDRAW))

    else if (strcmp(pcsi18stru->szAuthType, AUTHTYPE_TRANSFEROUT) == 0)
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                    AP_TRANSCODE_CS_TRANSFEROUT))    
    else
        ASSURE_NORMAL(INVALID)
        
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_MERCHNO, pcsi18stru->szMerchNo)) 
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_CERTTYPE, pcsi18stru->szCertType))
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_CERTNO, pcsi18stru->szCertNo))

    /*
     * 提交交易
     */
     
    ASSURE_NORMAL(ApCaSubmit(pxmlstruReq, pxmlstruResp)) 
    
    /*
     * 根据应答XML填写TOA必填项
     */

    AP_DEMAND_EXT(AP_PATH_RESPCODE, szRespCode);
    
    if (strcmp(szRespCode, AP_RESPCODE_ACCEPT) == 0)
    {
        if (!VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp)))
            RETURN_DELETE

        AP_DEMAND_EXT(AP_PATH_AUTHCODE, pcso18stru->szAuthCode);

        AP_DEMAND_EXT(AP_PATH_BAL, szData);
        pcso18stru->dBal = atof(szData);

        AP_DEMAND_EXT(AP_PATH_AVAILBAL, szData);
        pcso18stru->dAvailBal = atof(szData);
        
        AP_DEMAND_EXT(AP_PATH_AREA, pcso18stru->szCityCode);
        AP_DEMAND_EXT(AP_PATH_RESPSEQNO, pcso18stru->szRespSeqNo); 

        tprintf(ptoastru->szData, FMT_CSO18, VAR_CSO18);
        ptoastru->nLen = strlen(ptoastru->szData);
    }
    else if (ApIsRespCode(&xmlstruResp, AP_RESPCODE_EXCEPTION))
        RETURN_DELETE

    else
        VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp));
    
    RETURN_DELETE
}

RESULT HandleCsCancel(PCTIASTRU ptiastru, PTOASTRU ptoastru)
{
    char szData[AP_LEN_AMT + 1];
    char szJrnNo[AP_LEN_JRNNO + 1];
    char szRespCode[AP_LEN_RESPCODE + 1];
    
    CSI19STRU csi19stru;
    PCSI19STRU pcsi19stru;
            
    XMLSTRU xmlstruReq;
    XMLSTRU xmlstruResp;
    
    PXMLSTRU pxmlstruReq, pxmlstruResp;
    
    pxmlstruReq = &xmlstruReq;
    pxmlstruResp = &xmlstruResp;
    
    memset(&xmlstruReq, 0, sizeof(xmlstruReq));
    memset(&xmlstruResp, 0, sizeof(xmlstruResp));
    
    memset(&csi19stru, 0, sizeof(csi19stru));
        
    pcsi19stru = &csi19stru;
                
    /*
     * 创建XML请求报文结构
     */

    ASSURE_NORMAL(CreateXml(pxmlstruReq, FALSE, AP_PATH_ROOT, NULL))
    
    /* 
     * 根据TIA填写请求XML的公共域
     */

    ASSURE_NORMAL(FillReqXmlWithTia(ptiastru, pxmlstruReq))    
    ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRANSCODE, AP_TRANSCODE_CS_CANCEL))
    
    tscanf(ptiastru->szDataA, FMT_CSI19_A, VAR_CSI19_A);

    if (strcmp(pcsi19stru->szCancelLast, "") == 0)    
    {
        if (pcsi19stru->nOrgTransCode == TRANSCODE_CS_TRANSFERIN)
            ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                        AP_TRANSCODE_CS_TRANSFERIN))
                                        
        else if (pcsi19stru->nOrgTransCode == TRANSCODE_CS_TRANSFEROUT)
            ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                        AP_TRANSCODE_CS_TRANSFEROUT))
                                        
        else if (pcsi19stru->nOrgTransCode == TRANSCODE_CS_DEPOSIT)
            ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                        AP_TRANSCODE_CS_DEPOSIT))
                                        
        else if (pcsi19stru->nOrgTransCode == TRANSCODE_CS_WITHDRAW)
            ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                        AP_TRANSCODE_CS_WITHDRAW))
                                        
        else if (pcsi19stru->nOrgTransCode == TRANSCODE_CS_AUTH)
            ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGTRANSCODE, 
                                        AP_TRANSCODE_CS_AUTH))
        else
            ASSURE_NORMAL(INVALID) 
        
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ACCNO, pcsi19stru->szAccNo)) 
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_EXPDATE, pcsi19stru->szExpDate))
            
        sprintf(szData, "%19.2lf", pcsi19stru->dAmt);
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_AMT, szData))    
        
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGVCHNO, pcsi19stru->szOrgVchNo))
                                    
        sprintf(szJrnNo, "%09d", pcsi19stru->nOrgJrnNo);
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_ORGJRNNO, szJrnNo)) 
        
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_TRACKVERIFY, "N"))
    }
    else
        ASSURE_NORMAL(AP_INSERT_EXT(AP_PATH_CANCELLAST, 
                                    pcsi19stru->szCancelLast))

    /*
     * 提交交易
     */

    ASSURE_NORMAL(ApCaSubmit(pxmlstruReq, pxmlstruResp)) 
    
    /*
     * 根据应答XML填写TOA必填项
     */

    AP_DEMAND_EXT(AP_PATH_RESPCODE, szRespCode);
    
    if (strcmp(szRespCode, AP_RESPCODE_ACCEPT) == 0)
    {
        if (!VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp)) ||
            !VERIFY_NORMAL(SetVchNo(pxmlstruResp, ptoastru)))
            RETURN_DELETE
    }
    else if (ApIsRespCode(&xmlstruResp, AP_RESPCODE_EXCEPTION))
        RETURN_DELETE

    else
        VERIFY_NORMAL(FillToaWithRespXml(ptoastru, pxmlstruResp));
    
    RETURN_DELETE
}

/* End of this file */