$ds_banco["apeper"][$li_cont]= $rs_datosbene["apebene"];
$ds_banco["nacper"][$li_cont]= $rs_datosbene["nacper"];
$ds_banco["codcueban"][$li_cont]=$rs_datosbene["ctabene"];
$ds_banco["tipcuebanper"][$li_cont]=$ls_tipocta;
$ds_banco["monnetres"][$li_cont]=$ldec_monto;
}
}
if($li_aux==1)
{
$arr_movbco["mov_document"] = $ls_numcarord;
$arr_movbco["objret"] = $ldec_monobjret;
$lb_valido=$in_class_carta->uf_procesar_movbanco($ls_codban,$ls_cuenta_banco,$ls_numcarord,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_codbene,$ls_nombene,$ldec_montomov,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,0,0,'T','SCBCOR','',$ls_tipo,$ls_numcarord);
}
$lb_valido=$in_class_carta->uf_insert_fuentefinancimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numcarord,'ND',$ls_estmov,$ls_codfuefin);
///////////////// Guardo el detalle de las solicitudes de pago cancelades en esta carta orden ///////////////////
$lb_valido=$in_class_carta->uf_procesar_dtmov($ls_codemp, $ls_codban, $ls_cuenta_banco, $ls_numcarord, $ls_mov_operacion,'N', $ls_codpro, $ls_cedbene, $ls_numsol, $ldec_monto,$rs_datosbene["ctabene"]);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if($ldec_montopendiente==$ldec_monto)
{
$ls_estsol='C'; //Cancelado
}
else
{
$ls_estsol='P';//Programado
}
$lb_valido=$in_class_carta->uf_procesar_carta_orden($ls_codban,$ls_cuenta_banco,$ls_numcarord,$ls_mov_operacion,$ls_numsol,$ls_estmov,$ldec_monto,$ls_estsol);
if($lb_valido)//Segundo
{
$ldec_montotot=$ldec_montomov-$ldec_montoret;
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,'SCBCOR',$ls_desmov,$ls_numcarord,'H',$ldec_monto,$ldec_monobjret,false,'00000');
