$ls_estpromov = "0";
$ls_codpro = "----------";
$ls_cedbene = "----------";
$ls_codtipdoc = "";
$ld_feccmpbd = $io_fun->uf_convertirdatetobd($ld_feccmp);
$ldt_fecent = $io_fun->uf_convertirdatetobd($ldt_fecent);
$lb_existe = $io_saf->uf_saf_select_movimiento($ls_codemp, $ls_cmpmov, $ls_codcau, $ld_feccmpbd);
if ($lb_existe) {
uf_pintardetalle($lo_object, $li_totrows, $li_montot);
$io_msg->message("El numero de comprobante ya existe");
$lb_valido = false;
} else {
$io_sql->begin_transaction();
$lb_valido = $io_saf->uf_saf_insert_movimento($ls_codemp, $ls_cmpmov, $ls_codcau, $ld_feccmpbd, $ls_descmp, $ls_codpro, $ls_cedbene, $ls_codtipdoc, $ls_codusureg, $ls_estpromov, $la_seguridad, $ls_codrespri, $ls_codresuso, $ls_coduniadm, $ls_ubigeo, $ls_tiprespri, $ls_tipresuso, $ldt_fecent, "RE", $ls_numcmp);
if ($lb_valido) {
$lb_valido = $io_saf->uf_saf_insert_traslado($ls_codemp, $ls_cmpmov, $ld_feccmpbd, $ls_descmp, $ls_codusureg, $la_seguridad);
if ($lb_valido) {
for ($li_i = 1; $li_i < $li_totrows; $li_i++) {
$ls_codact = $_POST["txtcodact" . $li_i];
$ld_fectraact = $_POST["txtfectraact" . $li_i];
$ls_idact = $_POST["txtidact" . $li_i];
$ls_obstraact = $_POST["txtobstraact" . $li_i];
$ls_coduniadm = $_POST["txtcoduniadm" . $li_i];
$ls_codres = $_POST["txtcodres" . $li_i];
$ls_coduniadmnew = $_POST["txtcoduniadmnew" . $li_i];
$ls_codresnew = $_POST["txtcodresnew" . $li_i];
$ls_desmov = "";
$li_monact = 0.0;
$ls_estsoc = 0;
$ls_estmov = "";
$lb_valido = $io_saf->uf_saf_insert_dt_movimiento($ls_codemp, $ls_cmpmov, $ls_codcau, $ld_feccmpbd, $ls_codact, $ls_idact, $ls_desmov, $li_monact, $ls_estsoc, $ls_estmov, $la_seguridad);
