BankCore记账流程以及记账核心调用方法

一、系统中的帐务组织如下所述：
1、分户帐类（即各种主文件，包括储蓄活期主文件、储蓄定期主文件、对公活期主文件、对公定期主文件、贷款主文件、内部长主文件等）
2、登记簿类（如现金登记簿、同城票交登记簿、开销户登记簿等）
3、明细帐类（对应每一种主文件有相应的明细帐、明细帐历史）
4、总帐类文件
5、传票类（传票、历史）
6、参数表、系统控制类（包括柜员表、机构表、会计分录表、交易日期表、假日表等）
其中前三类为明细核算使用，总帐类为综合核算使用，其余为计算机帐务处理所使用。二、系统中的帐务处理按照时间分为两大类，一类是日间的帐务处理，另一类是日终的帐务批处理。
从帐务的角度来说，日间的帐务处理完成以下工作：
1、根据系统的输入信息系统和参数表（如会计分录表）自动产生该笔业务的传票，登记传票流水文件和日志文件；
2、根据帐号自动更新相应分户帐主文件的余额、积数（系统中采用动户累积数的方式计算积数）、上次交易日期等；
3、根据具体的业务登记相应的登记簿（如果是开户/销户交易则登记开销户登记簿、如果是同城票据交换交易则登记同城票交登记簿、如果是现金交易则登记现金登记簿、如果是无折交易则更改未登折文件等）；
4、登记相应的分户帐主文件的明细文件；
5、上述各步骤都可能会用到参数表、系统控制类表；
日终批处理完成如下工作：
1、各类核算报表的生成，包括余额表、科目日结单、会计日报等；
2、各种自动业务的处理,包括贷款自动转逾期，定期存款的自动续存，协定户的转存，冻结到期自动解冻，挂失到期自动解挂，按揭自动扣帐等；
3、批量入帐，包括各种批量代理业务的自动入帐；
4、更新总帐，根据当天的传票文件生成科目日结单，根据科目日结单更新当日的总帐；
5、批量结息，包括季末的对公结息，每年度的储蓄结息，及外币结息等；
6、初始化相关数据库表，将相应的数据库表中的内容移入历史表中，每天将传票文件的内容转入传票历史文件等；
7、损益结转、利润分配、不动户处理，即年终决算的帐务处理；
8、总分核对，根据各种分户帐主文件计算科目余额，与总帐文件中对应的科目进行核对，并生成相应的总分核对报告单；
9、计提，各种利息、费用的计提等；
对于对帐单的打印、当日抹帐的处理，系统采用如下方式：
1、各种明细帐分为两部分，即当日明细帐和历史明细帐，他们的表结构相同；
2、日间处理时，系统自动记录相应的当日明细帐，在日终处理时，将当日抹帐交易有关的明细文件的余额进行整理后记入历史明细帐，同时清空当日明细帐。
3、历史查询交易和对帐单的打印要对当日明细的余额进行整理，并把当日明细和历史明细拼接。
4、抹帐在传票文件中反映。在历史明细帐中不再反映。
5、生成的对帐单不反映相应的抹帐交易。
三、帐号参数化
一般来说帐号由机构号、币别代号、业务代号、帐号序号、校验位等组成。系统通过截取帐号的内容来得到这些信息。在系统中，帐号被视为无意义的字符串，可以由任何可视的字符组成。帐号仅作为帐户的索引存在。在系统中，帐号成为一个对象，系统设置帐号解析表，储存帐号对象的各种属性。所有针对帐户的处理皆通过帐号核心获得帐号的各种属性。通过帐号核心，系统实现了账号无关性。即在新系统中，仍可沿用原旧系统的帐号而无任何隐患。
记帐核心是系统进行帐务核算的核心。通过设立记账核心的大大方便了交易的编写。编程人员基本不需要了解系统帐务文件的设置，不需要因为交易可能会产生的多组会计分录而编写大量代码，减少对交易编写人员在会计知识方面的要求，减少了程序出错的机会。同时也大大减少维护的工作量，交易可能会产生的会计分录清晰明了，交易程序更易读懂，能简单的通过修改会计分录表来改变系统的记帐形式和记帐方法。
记帐核心提供两种方式的记帐功能：手工方式和智能方式。手工方式指传统的记帐方式。记帐核心按照交易传入的参数读取会计分录表，按照指定的方式记录会计分录。智能方式指记帐核心在处理组合交易时，能按照一定的逻辑自动组织一部分分录。记帐核心能保证会计分录的正确性。确保现转相符、借贷相等，避免出现多借多贷，科目虚发生等情况发生。

以下为记账核心借口：

typedef struct {
char sbno[SBNO_LEN+1]; //机构号
char utno[UTNO_LEN+1]; //
char cyno[CYNO_LEN+1]; //货币代码
char itcd[ITCD_LEN+1];//业务代码
char acsq[ACSQ_LEN+1 ];//
} STRU_ACST;
typedef struct {
char acno[ACNO_LEN+1];//账号
STRU_ACST acst;
} STRU_ACIF;
typedef struct
{
/*=============================
= 输入接口 =
=============================*/
STRU_ACIF acif;
STRU_ACIF taif;
STRU_ACST acs1;
STRU_ACST acs2;
char mnsc[MNSC_LEN+1]; //资金来源
char mndn[MNDN_LEN+1]; //资金去向
char trkd[TRKD_LEN+1]; //交易种类
char smcd[SMCD_LEN+1]; //摘要代码
char acoc[ACOC_LEN+1];
char cuac[CUAC_LEN+1];
char caty[CATY_LEN+1];
char sbsq[SBSQ_LEN+1];
char ccno[CCNO_LEN+1];
char acoc1[ACOC_LEN+1];
char cuac1[CUAC_LEN+1];
char caty1[CATY_LEN+1];
char sbsq1[SBSQ_LEN+1]; //
char ccno1[CCNO_LEN+1];
char evno[EVNO_LEN+1];//借据号
char cicd[CICD_LEN+1];//
double dpcs;
double wdcs;
double exrt[10];
double tram[10];
/*=============================
= 输出接口 =
=============================*/
char acno[30][ACNO_LEN+1];//账号
char acnm[30][ACNM_LEN+1];//
char catr[30][CATR_LEN+1]; //现转标志
char item[30][ITEM_LEN+1];
char blde[30][BLDE_LEN+1];
char sbno[30][SBNO_LEN+1];//机构号
char utno[30][UTNO_LEN+1];
char cyno[30][CYNO_LEN+1];//货币代码
char itcd[30][ITCD_LEN+1];//业务代码
char acsq[30][ACSQ_LEN+1];//
double tram_o[30];
double acbl[30];
/*=============================
= 输入/输出接口 =
=============================*/
char dasq[DASQ_LEN+1];
} STRU_SCHMAIN;

三、会计分录的编写

一、编写人员确定自己的交易所要实现的会计记帐核算办法；
二、编写会计分录表GDACA
会计分录表是记帐核心的调度参数表，它直接控制了记帐核心如何从记帐程序接口中得到所需的记帐帐号、此帐号的借贷方向、记帐金额等信息。每一条会计分录都相应的对应了一条将被产生的传票。
在会计分录表中有三个关键字段：交易类型TRKD、资金来源MNSC、资金去向MNDN。这三个字段的填写完全取决于交易的记帐方式和交易类型。他们的关系如下：
记帐方式 　　　　　应填写字段
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
手工记帐方式 　 交易类型
智能方式交易　　 资金去向/资金来源
交易类型TRKD、资金来源MNSC、资金去向MNDN三个字段为非空字段，无需填写时填上” ”。交易类型TRKD填写时，均为手工记帐处理，不会进行自动记帐方式所进行的特殊处理，比如自动清算等等。
资金来源MNSC一般在存款类交易使用；
资金去向MNDN一般在取款类交易使用；
资金来源MNSC/资金去向MNDN一般在下面取值时有意义，否则作为确定一笔智能分录用：
０ 现金
其它帐号
待销帐帐
9 组合交易
在每一条会计分录中都需要通过某种方式告诉记帐核心当前这笔会计分录应该如何得一个帐号。为此，我们在会计分录表中设立了几个字段：帐号来源、机构号来源、币种来源、业务代号来源、帐号序号来源。通过这些字段我们就可以指定如何得到一个帐号。
帐号来源ACSC参数值含义列表如下： (p acsc)
参数值 帐号来源
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
‘A’ ACIF(可以只填写其中的ACNO)
‘B’ TAIF(可一只填写其中的ACNO)
‘C’ ##DASQ(待销帐对应的帐号无需填写)
‘D’ 拼帐号
当帐号来源为’D’时，机构号来源SBSC、币种来源CYSC、业务代号IFSC来源、帐号序号SQSC来源才有效，而且必须填值。
机构号来源SBSC参数值含义列表如下： (p sbsc)
参数值 机构号来源
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
‘A’ SAACIF
‘B’ SATAIF
‘C’ SAACS1
‘D’ SAACS2
‘E’ ##SBNO , ##UTNO

币种来源CYSC参数值含义列表如下： (p cysc)
参数值 币种来源
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
‘A’ SAACIF
‘B’ SATAIF
‘C’ SAACS1
‘D’ SAACS2
业务代号IFSC来源含义列表如下： （p ifsc）
参数值 业务代号来源
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
‘A’ SAACIF
‘B’ SATAIF
‘C’ SAACS1
‘D’ SAACS2
‘E’ SAACS1 中的业务代号对应的收入业务代号
‘F’ SAACS1 中的业务代号对应的支出业务代号
帐号序号SQSC来源参数值含义列表如下： (p sqsc)
参数值 帐号序号来源
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
‘A’ SAACIF
‘B’ SATAIF
‘C’ SAACS1
‘D’ SAACS2
‘E’ SAACS1 中的业务代号对应的收入帐号序号
‘F’ SAACS1 中的业务代号对应的支出帐号序号
‘G’ ##USID 对应的柜员尾箱号作帐号序号后四位
‘H’ SACCNO 的前两位 + ##USID 对应的尾箱号
‘I’ ##UTNO 作为帐号序号的后三位，前三位为零 　　 ‘J’ SAACS1 中的帐务机构号作为帐号序号的后三位，其余零
————————————————————————————————————
GDACA TABLENAME 会计分录表
TRCD 交易码 N
TRKD 交易种类 N
MNSC 资金来源 N
MNDN 资金去向 N
VINO 传票组内序号 N
ACSC 帐号来源 N
SBSC 机构号来源
CYSC 币种来源
IFSC 业务代号来源
SQSC 序号来源
AISC 帐号相关信息来源
AMCD 借贷标记
AMFO 金额公式
FCFG 结售汇标志
EXSC 牌价来源
WKRD 工作权重
BKFG 登记簿标志
BPFG 入总帐标志
CATR 现转标志
SMCD 摘要代码
PMTX 参数
TMSP 时间戳 D 0
STCD 记录状态 N
四、填写使用记帐核心程序接口
SAACIF,SATAIF,SAACS1,SAACS2：
在填写记帐程序接口字段的过程中需要参照会计分录表。尤其是字段：SAACIF, SATAIF, SAACS1, SAACS2这几个帐号信息字段。比如说，我们在会计分录中指定了某一帐号来自于SAACIF,那么我们就一定要将所需的帐号赋给SAACNO；又比如说，我们在会计分录表中指定了帐号的业务代号来自于SAACS1，那么我们就一定要将所需的业务代号赋值给SAACS1种的业务代号。以此类推。
SAACOC,SATAOC：
当SAACIF,SATAIF中填写的帐号涉及到开销户时，我们应该在相应的开销户字段(SAACOC, SATAOC)中告诉记帐核心有关开销户信息，否则可以不填写开销户字段。SAACIF对应SAACOC，SATAIF对应SATAOC。’1’开户，’2’销户。
SATRKD：
当使用记帐核心的手工方式时，应该在SATRKD中填写交易类型值，值的含义完全取决于交易编写者。比如当你在会计分录表中规定某一组会计分录的交易种类为’2’，并且你在交易程序中决定使用此组会计分录，那么就应该在SATRKD中填写’2’，切忌：此时资金来源和资金去向字段应该为空。
SAMNSC,SAMNDN：
当使用记帐核心的智能方式时，交易编写人员应该将交易接口中的资金来源和资金去向毫无改变地赋值给记帐核心接口中的资金来源和资金去向，并且保证SATRKD为空。
SAWDCS：
在取款交易中，如果交易发生部分现金支取的情况，交易编写人员应该将部分现金支取的金额赋值给SAWDCS字段。其它交易不需要填写此字段。
SAEXRT：
在外汇买卖交易中，交易程序应该将当前的外汇牌价填写到SAEXRT中。其它交易不需要填写此字段。
SACCNO,SASMCD：
当交易中涉及到凭证号码、摘要代码时，交易程序应该填写字段SACCNO、 SASMCD。其它交易不需要填写。
SACUAC：
当交易使用到一本通或卡时，应在本字段中填写相应卡号。
金额接口：
根据会计分录中的金额公式填写。例如，金额公式中填写了：01+02+05-06,那么应该TRAM(0),TRAM(1),TRAM(4),TRAM(5)中填写相应的金额。

//填写记账核心接口
FKNInitMst(&stSchMain);
strcpy(stSchMain.mnsc,stIn.sMNSC);
strcpy(stSchMain.acif.acno,PSACA_MSAC);
stSchMain.tram[0] = stIn.dTRAM;
strcpy(stSchMain.caty,stIn.sCATY);
strcpy(stSchMain.cuac,stIn.sCUAC);
if(strncmp(stIn.sCATY,CATY_DDAC,CATY_LEN) == 0)
strcpy(stSchMain.ccno,stIn.sCCNO);
strcpy(stSchMain.sbsq,myord);
if (strncmp(stIn.sMNSC,"9",MNSC_LEN) == 0)
stSchMain.dpcs = stIn.dTCAM;
strcpy(stSchMain.smcd,stIn.sSMCD);
strcpy(stSchMain.cicd,"121150000");
if (BKNSchMain(&stSchMain) == FAIL)
return FAIL;