$ls_codestpro5 = substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+$li_loncodestpro4+4,$li_loncodestpro5);
$ls_codestpro4 = trim(str_pad($ls_codestpro4,25,0,0));
$ls_codestpro5 = trim(str_pad($ls_codestpro5,25,0,0));
}
else
{
$ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0);
}
$ls_programatica = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_numdoc = $_POST["txtdocumento".$li_row_delete];
$ls_operacion = $_POST["txtoperacion".$li_row_delete];
$ldec_montospg = $_POST["txtmonto".$li_row_delete];
$ldec_montospg = str_replace(".","",$ldec_montospg);
$ldec_montospg = str_replace(",",".",$ldec_montospg);
$in_classmovbco->io_sql->begin_transaction();
$lb_valido=$in_classmovbco->uf_delete_dt_spg($ls_docmov,$ls_codban,$ls_cuenta_banco,$ls_mov_operacion,$ls_estmov,$ls_numdoc,$ls_cuenta_spg,$ls_operacion,$ls_programatica,$ldec_montospg,$ls_estcla);
$io_msg->message($in_classmovbco->is_msg_error);
if($lb_valido)
{
$in_classmovbco->io_sql->commit();
}
else
{
$in_classmovbco->io_sql->rollback();
}
uf_cargar_dt();
}
if($ls_operacion=="DELETERET")
{
$li_row_delete=$_POST["delete_ret"];
$ls_codded=$_POST["txtdeduccion".$li_row_delete];
