📄 s11010.ec.c
字号:
if (sqlca.sqlcode != SQLNOTFOUND) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
sprintf ( s_snd1101.errmsg , "检索开销户登记簿错[%d]!" , sqlca.sqlcode );
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
sprintf(MY,"000%13s",s_rec1101.rfhz.zh);
killblank(s_rec1101.rfhz.zhmm);
intkl=atol(s_rec1101.rfhz.zhmm);
compmm(MY,intkl,s_rec1101.rfhz.zhmm);
if (fhz_dac(s_rec1101.rfhz,s_rec1101.rfhz.dac,1) !=0) {
errout("开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
strcpy ( s_snd1101.errmsg , g_errmsg );
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
$insert into ffhz3 values($s_rec1101.rfhz);
if (sqlca.sqlcode) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
sprintf ( s_snd1101.errmsg , "插入分户帐失败[%d]!" , sqlca.sqlcode );
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
sprintf(note,"%02d-%-5d",s_rec1101.rfhz.hbh,s_rec1101.rfhz.kmh);
$insert into dkxhdjb values($s_rec1101.rfhz.jgm,$s_rec1101.rfhz.zh,
$s_rec1101.rfhz.hm,$s_rec1101.rfhz.khrq,$note,$g_jzgy,0, "0");
if (sqlca.sqlcode) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
sprintf ( s_snd1101.errmsg , "插入客户票据登记簿错[%d]!" , sqlca.sqlcode );
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
break;
case '1':
case '2':
case '3':
case '4':
/* 定期一本通处理 */
if(s_rec1101.rfhz.kbz==1 && s_rec1101.rfhz.zl[0]=='3'){
$select dycdzh into $dycdzh from skmzd where kmh=$s_rec1101.rfhz.kmh;
if(sqlca.sqlcode){
errout("开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
sprintf ( s_snd1101.errmsg ,"中心科目字典错![%d]",sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
if(dycdzh!=1){
errout("开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
strcpy ( s_snd1101.errmsg ,"该科目不允许开一本通户");
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
if(s_rec1101.rfhz.dyzh[0]=='\0' || s_rec1101.rfhz.dyzh[0]==' ') {
if(ybt_cl(0,argv[2])){
strcpy ( s_snd1101.errmsg , g_errmsg );
printf("null=[%s]\n",sqlca.sqlerrm);fflush(stdout);
errout("开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
}
else if(ybt_cl(1,argv[2])){
strcpy ( s_snd1101.errmsg , g_errmsg );
errout("开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
}
if((zhxh=get_zhxh())<=0){
strcpy ( s_snd1101.errmsg , g_errmsg );
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
checkbit=get_jyw(zhxh,s_rec1101.rfhz.hbh);
sprintf(s_rec1101.rfhz.zh,"%09d%c%02d%c",zhxh,checkbit,s_rec1101.rfhz.hbh,zl);
$select * from dkxhdjb where zh=$s_rec1101.rfhz.zh;
if (!sqlca.sqlcode) {
s_snd1101.flag = 1;
strcpy ( s_snd1101.errmsg , "开户登记簿中已存在该帐号!");
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
$rollback work;
goto return_back;
}
if (sqlca.sqlcode != SQLNOTFOUND) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
sprintf ( s_snd1101.errmsg , "检索开销户登记簿错[%d]!" , sqlca.sqlcode );
$rollback work;
goto return_back;
}
if(zl=='1')
$select * from ffhz1 where zh=$s_rec1101.rfhz.zh;
else if(zl=='2')
$select * from ffhz2 where zh=$s_rec1101.rfhz.zh;
else
$select * from ffhz3 where zh=$s_rec1101.rfhz.zh;
if (!sqlca.sqlcode) {
s_snd1101.flag = 1;
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
strcpy ( s_snd1101.errmsg , "分户帐中已存在该帐号!");
$rollback work;
goto return_back;
}
if (sqlca.sqlcode != SQLNOTFOUND) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
sprintf ( s_snd1101.errmsg , "检索分户帐错[%d]!" , sqlca.sqlcode );
$rollback work;
goto return_back;
}
/****** mod 99.8.12 ****/
if (strncmp(s_rec1101.rfhz.nsbh,"000000",6) && s_rec1101.rfhz.nsbh[0]!=0 && s_rec1101.rfhz.nsbh[0]!=' ') {
s_rec1101.rfhz.zhzt[0]='1';
s_rec1101.rfhz.zhzt[2]='2';
s_rec1101.rfhz.djje = 999999999999.99;
djye=fabs(s_rec1101.rfhz.ye);
$insert into ddjdjb values ($s_rec1101.rfhz.jgm,$s_rec1101.rfhz.zh,'1',$s_rec1101.gyh,0,$rcxtzt.yyrq,"2",$djye," ");
if (sqlca.sqlcode) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
sprintf ( s_snd1101.errmsg , "插入冻结登记簿失败[%d]!" , sqlca.sqlcode );
$rollback work;
goto return_back;
}
}
/* 对公非存折户定为凭印鉴户 */
if(s_rec1101.rfhz.zl[0]=='2' && s_rec1101.rfhz.czh!=DGCZH)
s_rec1101.rfhz.zhkz[4]='2';
if (fhz_dac(s_rec1101.rfhz,s_rec1101.rfhz.dac,1) !=0) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
strcpy ( s_snd1101.errmsg , g_errmsg );
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
strcpy(zdsx," ");
/* modify by tl 2001/01/15
if(zl=='1' || zl=='4' || (zl=='3' && s_rec1101.rfhz.kbz!=1)
||(zl=='2' && s_rec1101.rfhz.czh==DGCZH)){
*/
if(zl=='1' || zl=='4' || (zl=='3' && s_rec1101.rfhz.kbz!=1)
||(zl=='2' && (s_rec1101.rfhz.czh==DGCZH || s_rec1101.rfhz.czh==71))){
$select sx into $zdsx from sxxbm where zlbz="5" and
bh=$s_rec1101.rfhz.czcdlx;
if (sqlca.sqlcode) {
printf("czcdlx=[%d]\n",s_rec1101.rfhz.czcdlx);fflush(stdout);
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
if(sqlca.sqlcode==100)
strcpy ( s_snd1101.errmsg , "折单类型不在后台信息编码表中!");
else
sprintf ( s_snd1101.errmsg , "检索信息编码表错[%d]!" , sqlca.sqlcode );
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
/*更改票箱登记簿*/
if (zdsx[1]!='1'){
sprintf(s_snd1101.errmsg,"折单属性错[%d][%c]!",
s_rec1101.rfhz.czcdlx,zdsx[1]);
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
if((i=px_del1(atol(s_rec1101.rfhz.czcdh),atol(s_rec1101.rfhz.czcdh),s_rec1101.rfhz.jgm,g_jzgy,s_rec1101.rfhz.czcdlx,rcxtzt.yyrq,s_rec1101.jym))!=0){
strcpy ( s_snd1101.errmsg , g_errmsg );
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
}
if(s_rec1101.rfhz.czcdlx!=DQYBTCZ){
sprintf(MY,"000%13s",s_rec1101.rfhz.zh);
killblank(s_rec1101.rfhz.zhmm);
intkl=atol(s_rec1101.rfhz.zhmm);
compmm(MY,intkl,s_rec1101.rfhz.zhmm);
}
switch(s_rec1101.rfhz.czh)
{
case 60: /* 零整教育 */
case 3: /* 零存整取 */
s_rec1101.rfhz.lfzje=(-1)*s_rec1101.rfhz.ye;
s_rec1101.rfhz.zqzq = 1;
break;
case 4: /* 存本取息 */
s_rec1101.rfhz.lfzje=s_rec1101.rfhz.ye*s_rec1101.rfhz.ll/1200*s_rec1101.rfhz.zqzq*(-1);
break;
case 5: /* 整存零取 */
tmpint=(get_period(s_rec1101.rfhz.cq))/s_rec1101.rfhz.zqzq;
if(tmpint==0)
s_rec1101.rfhz.lfzje=(-1)*s_rec1101.rfhz.ye;
else
s_rec1101.rfhz.lfzje=(-1)*s_rec1101.rfhz.ye/tmpint;
break;
default:
s_rec1101.rfhz.lfzje=0.00;
break;
}
$select * into $rscdzb from scdzb
where cdzh=$s_rec1101.rfhz.czh and hbh=$s_rec1101.rfhz.hbh;
if(sqlca.sqlcode && sqlca.sqlcode !=100){
sprintf(s_snd1101.errmsg,"检索储贷种表错[%d]!",sqlca.sqlcode);
s_snd1101.flag = 1;
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
$rollback work;
goto return_back;
}
if(sqlca.sqlcode == 100){
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
strcpy(s_snd1101.errmsg,"无此储贷种类");
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
printf("s_rec1101.rfhz.ye=[%.2f]\n",s_rec1101.rfhz.ye);fflush(stdout);
if( ( fabs(s_rec1101.rfhz.ye) - rscdzb.zdkhje)< 0.000){
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
sprintf(s_snd1101.errmsg,"开户金额低于最低规定金额!");
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
if ((zl=='3' || zl=='4') && (s_rec1101.rfhz.cq > 60))
s_rec1101.rfhz.dqrq=cal_dqrq(s_rec1101.rfhz.khrq,s_rec1101.rfhz.cq);
/***** Add for xh ****/
if( (s_rec1101.rfhz.kmh == 21511 && s_rec1101.rfhz.hbh != 1) ||
(s_rec1101.rfhz.kmh == 81100 && s_rec1101.rfhz.hbh != 13) ||
(s_rec1101.rfhz.kmh == 81110 && s_rec1101.rfhz.hbh != 13) ||
(s_rec1101.rfhz.kmh == 81120 && s_rec1101.rfhz.hbh != 13) ||
(s_rec1101.rfhz.kmh == 81140 && s_rec1101.rfhz.hbh != 13) ||
(s_rec1101.rfhz.kmh == 81150 && s_rec1101.rfhz.hbh != 13) ) {
sprintf(s_snd1101.errmsg,"币种与科目不符!");
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
if( s_rec1101.rfhz.hbh == 13){
if( (s_rec1101.rfhz.kmh != 81100 && s_rec1101.rfhz.cq == 61) ||
(s_rec1101.rfhz.kmh != 81110 && s_rec1101.rfhz.cq == 63) ||
(s_rec1101.rfhz.kmh != 81120 && s_rec1101.rfhz.cq == 66) ||
(s_rec1101.rfhz.kmh != 81140 && s_rec1101.rfhz.cq == 81) ||
(s_rec1101.rfhz.kmh != 81150 && s_rec1101.rfhz.cq == 82) ) {
sprintf(s_snd1101.errmsg,"港币存期与科目不符!");
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
}
if( (s_rec1101.rfhz.kmh == 81100 && s_rec1101.rfhz.cq != 61) ||
(s_rec1101.rfhz.kmh == 81110 && s_rec1101.rfhz.cq != 63) ||
(s_rec1101.rfhz.kmh == 81120 && s_rec1101.rfhz.cq != 66) ||
(s_rec1101.rfhz.kmh == 81140 && s_rec1101.rfhz.cq != 81) ||
(s_rec1101.rfhz.kmh == 81150 && s_rec1101.rfhz.cq != 82) ) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
sprintf(s_snd1101.errmsg,"港币存期与科目不符!");
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
/****** End of add *******/
s_rec1101.rfhz.bsxj = get_czye(s_rec1101.rfhz.czh,s_rec1101.rfhz.wdzxs,s_rec1101.rfhz.ye,s_rec1101.rfhz.bsxj);
if(zl=='1'){
trace("jgm=%s kmh=%d hbh=%d ye=%f cwdh=%s zrr=%d \n",s_rec1101.rfhz.jgm,s_rec1101.rfhz.kmh,s_rec1101.rfhz.hbh,s_rec1101.rfhz.ye,s_rec1101.rfhz.cwdh,s_rec1101.rfhz.zrr);
$insert into ffhz1 values($s_rec1101.rfhz);
}
else if(zl=='2'){
$insert into ffhz2 values($s_rec1101.rfhz);
}
else
$insert into ffhz3 values($s_rec1101.rfhz);
if (sqlca.sqlcode) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
printf("sqlca.errm=[%s]\n",sqlca.sqlerrm);
s_snd1101.flag = 1;
sprintf ( s_snd1101.errmsg , "插入分户帐失败[%d]!" , sqlca.sqlcode );
$rollback work;
goto return_back;
}
sprintf(note,"%02d-%-5d",s_rec1101.rfhz.hbh,s_rec1101.rfhz.kmh);
$insert into dkxhdjb values($s_rec1101.rfhz.jgm,$s_rec1101.rfhz.zh,
$s_rec1101.rfhz.hm,$s_rec1101.rfhz.khrq,$note,$g_jzgy,0,"0");
if (sqlca.sqlcode) {
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
sprintf ( s_snd1101.errmsg , " 插入开销户登记簿错[%d]!" , sqlca.sqlcode );
$rollback work;
goto return_back;
}
break;
}
/* insert fdrmx */
if((s_rec1101.rfhz.ye>0.005)||(s_rec1101.rfhz.ye<-0.005)){
rfdrmx.kmh=s_rec1101.rfhz.kmh;
rfdrmx.hbh=s_rec1101.rfhz.hbh;
strcpy(rfdrmx.zh,s_rec1101.rfhz.zh);
/***********
strcpy(rfdrmx.dljg,s_rec1101.rfhz.jgm);
************/
strcpy(rfdrmx.dljg,kh_jgm);
strcpy(rfdrmx.jgm,s_rec1101.rfhz.jgm);
rtoday(&rfdrmx.xtrq);
rfdrmx.jyrq=s_rec1101.rfhz.khrq;
if((rfdrmx.zxlsh=get_zxlsh())<0){
strcpy ( s_snd1101.errmsg , g_errmsg );
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
s_snd1101.flag = 1;
$rollback work;
goto return_back;
}
if((rfdrmx.gylsh=get_gylsh(g_jzgy))<=0){
strcpy ( s_snd1101.errmsg , g_errmsg );
errout("现金开户",argv[2],__FILE__,__LINE__,sqlca.sqlcode);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -