$ds_banco["monnetres"][1] = $ldec_monto;
}
if ($ls_codproben!=$ls_probentemp)
{
$ls_numdoc=$io_carord->uf_generar_num_documento($ls_codemp,$ls_mov_operacion);
$arr_movbco["mov_document"] = $ls_numdoc;
$arr_movbco["objret"] = $ldec_monobjret;
$lb_valido=$io_carord->uf_procesar_movbanco($ls_codban,$ls_cuenta_banco,$ls_numdoc,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_desproben,$ldec_monto,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,0,0,'T','SCBCOR','',$ls_tipo,$ls_numcarord,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon);
}
else
{
$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)
