$io_carord->uf_select_monto_actual($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ld_fecha,&$ldec_montoactual,&$ldec_monobjret_actual,&$ldec_monret_actual);
$ldec_montomov = ($ldec_montoactual+$ldec_monto);
$ldec_monobjretmov = ($ldec_monobjret_actual+$ldec_monobjret);
$ldec_monretmov = $ldec_monret_actual;
$lb_valido = $io_carord->uf_update_monto_movimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ld_fecha,$ldec_montomov,$ldec_monobjretmov,$ldec_monretmov);
}
$lb_valido=$io_carord->uf_insert_fuentefinancimiento($ls_codemp,$ls_codban,$ls_cuenta_banco,$ls_numdoc,'ND',$ls_estmov,$ls_codfuefin);
if ($ldec_montopendiente==$ldec_monto)
{
$ls_estsol='C'; //Cancelado
}
else
{
$ls_estsol='P';//Programado
}
$lb_valido=$io_carord->uf_procesar_carta_orden($ls_codban,$ls_cuenta_banco,$ls_numdoc,$ls_mov_operacion,$ls_numsol,$ls_estmov,$ldec_monto,$ls_estsol);
if ($lb_valido)
{
//--------------------------------PARA EL CASO QUE LAS RETENCIONES SE APLIQUE DESDE CXP Y SE REFLEJAN EN BANCO------------
if ($lb_valido)
{
require_once("sigesp_scb_c_emision_chq.php");
$io_emiche = new sigesp_scb_c_emision_chq();
$ls_estretiva = $_SESSION["la_empresa"]["estretiva"];
$ls_ctaprovbene=$io_carord->uf_select_ctaprovbene($ls_tipo,$ls_codproben,&$as_codban,&$as_ctaban);
if ($ls_estretiva=='B')//Retenciones aplicadas desde el Módulo de Cuentas Por Pagar y reflejadas en el Módulo Banco.
{
$ls_procede_doc = "CXPSOP";
$la_deducciones = $io_emiche->uf_load_retenciones_iva_cxp($ls_codemp,$ls_numsol);
}
elseif($ls_estretiva=='C')//Retenciones aplicadas desde el Módulo de Cuentas Por Pagar.
