$ld_monto = $_POST["txtmoncar".$z];
$ldec_monto = str_replace(".","",$ld_monto);
$ldec_monto = str_replace(",",".",$ldec_monto);
$ldec_baseimp = $_POST["txtmonobjret".$z];
$ldec_baseimp = str_replace(".","",$ldec_baseimp);
$ldec_baseimp = str_replace(",",".",$ldec_baseimp);
if($lb_valido)
{
$lb_valido=$in_classmovorden->uf_procesar_dt_contable($arr_movbco,$ls_cuenta,$ls_mov_procede,$ls_denominacion,$ls_mov_document,$ls_operacioncon,$ldec_monto,$ldec_objret,false,'00000');
$ls_spgcuenta = $_POST["txtcuenta".$z];
$ls_estpro = $_POST["txtcodestpro".$z];
$ls_desmov = $_POST["txtdencar".$z];
$ls_estcla = $_POST["hidestcla".$z];
$ls_operacion = 'CCP';
$lb_valido = $in_classmovorden->uf_procesar_dt_gasto($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ls_estmov,$ls_estpro,$ls_spgcuenta,$ls_mov_document,$ls_denominacion,$ls_mov_procede,$ldec_monto,$ls_operacion,$ls_uel,$ldec_baseimp,$ls_codcar,$ls_estcla);
if($lb_valido)
{
$in_classmovorden->io_sql->commit();
$ls_estdoc='C';
?>
<script language="javascript">
f=opener.document.form1;
f.operacion.value="CARGAR_DT";
f.status_doc.value='C';
f.txtmonto.value = "<?php print number_format($ldec_monto_mov+$ldec_retenido,2,',','.'); ?>";
f.txtmonobjret.value = "<?php print number_format($ldec_monto_mov+$ldec_retenido,2,',','.'); ?>";
f.totalcargo.value = "<?php print $ldec_retenido; ?>";
f.action="<?php print $ls_opener;?>";
f.submit();
close();
$arr_movbco["objret"] =$ldec_objret;
$arr_movbco["retenido"] =$ldec_retenido;
$arr_movbco["estmov"]=$ls_estmov;
$li_auxpre++;
if ($z>1)
{
$ls_compre = $io_dspresupuesto->getValue("txtcompromisopre",$z-1); //Numero del documento anterior.
}
$ls_compromisopre = $io_dspresupuesto->getValue("txtcompromisopre",$z);
$ls_programatica = $io_dspresupuesto->getValue("txtprogramatico",$z);
$ls_spgcuenta = $io_dspresupuesto->getValue("txtestadistico",$z);
$ld_montopre = $io_dspresupuesto->getValue("txtmontopre",$z);
$ldec_baseimp = $io_dspresupuesto->getValue("txtbaseimp",$z);
$ls_codcar = $io_dspresupuesto->getValue("txtcodcar",$z);
$ls_estcla = $io_dspresupuesto->getValue("txtestcla",$z);
$lb_valido=$in_classmovorden->uf_procesar_dt_gasto($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ls_estmov,$ls_programatica,$ls_spgcuenta,$ls_compromisopre,$ls_descripcion,$ls_procede,$ld_montopre,'CP',$ls_uel,$ldec_baseimp,$ls_codcar,$ls_estcla);
if(!$lb_valido)
{
$io_msg->message($in_classmovorden->is_msg_error);
}
}
}
else
{
$io_msg->message($in_classmovorden->is_msg_error);
}
$li_totalpre = $li_auxpre;
$totalpre = $li_auxpre;
$li_lastrowpre = $li_auxpre;
if($lb_valido)
if ($la_empresa["estmodest"]==2)
{
$ls_codestpro4 = str_pad($_POST["codestpro4"],25,0,0);
$ls_codestpro5 = str_pad($_POST["codestpro5"],25,0,0);
}
else
{
$ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0);
}
$ls_programa = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_desmov = $_POST["txtdescripcion"];
$ls_operacion = $_POST["txtafectacion"];
$ldec_monto = $_POST["txtmonto"];
$ldec_monto = str_replace(".","",$ldec_monto);
$ldec_monto = str_replace(",",".",$ldec_monto);
$lb_valido = $in_classmovorden->uf_procesar_dt_gasto($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ls_estmov,$ls_programa,$ls_spgcuenta,$ls_mov_document,$ls_desmov,$ls_mov_procede,$ldec_monto,$ls_operacion,$ls_uel,0,'',$ls_estcla);
if($lb_valido)
{
$in_classmovorden->io_sql->commit();
$ls_estdoc='C';
?>
<script language="javascript">
f=opener.document.form1;
f.operacion.value="CARGAR_DT";
f.status_doc.value='C';
f.action="<?php print $ls_opener;?>";
f.submit();
</script>
<?php
}
else
