$totalpre = $li_auxpre;
$li_lastrowpre = $li_auxpre;
if($lb_valido)
{
$li_totdscontable=$io_dscontable->getRowCount('txtcontable');
$ld_totaldebe =0;
$ld_totalhaber=0;
$ld_montoded =0;
for ($w=1;$w<=$li_totdscontable;$w++)
{
$ls_compromisocon = $io_dscontable->getValue('txtcompromisocon',$w);
$ls_cuentascg = $io_dscontable->getValue('txtcontable',$w);
$ls_operacioncon = $io_dscontable->getValue('txtoperacion',$w);
$ld_monto = $io_dscontable->getValue('txtmontocont',$w);
$ld_montooriginal = $io_dscontable->getValue('txtmontoorig',$w);
$lb_valido=$in_classmovorden->uf_procesar_dt_contable($arr_movbco,$ls_cuentascg,$ls_procede,$ls_descripcion,$ls_compromisocon,$ls_operacioncon,$ld_monto,$ld_monto,false,'00000');
}
if($lb_valido)
{
$in_classmovorden->io_sql->commit();
$ls_estdoc='C';
$ldec_monto_mov=$ld_montopro+$ldec_monto_mov;
?>
<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,2,",",".");?>";
f.action="<?php print $ls_opener;?>";
f.submit();
</script>
$ld_fecdb=$fun->uf_convertirdatetobd($ld_fecha);
$arr_movbco["codope"]=$ls_codope;
$arr_movbco["fecha"]=$ld_fecha;
$arr_movbco["codpro"]=$ls_codpro;
$arr_movbco["cedbene"]=$ls_cedbene;
$arr_movbco["estmov"]=$ls_estmov;
$arr_movbco["monto_mov"]=$ldec_monto_mov;
$arr_movbco["objret"] =$ldec_objret;
$arr_movbco["retenido"] =$ldec_retenido;
$ls_codded="00000";
if($lb_valido)
{
$ls_operacioncon="H";
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,$ls_mov_procede,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,($ldec_monto_mov+$ldec_totalcargo),$ldec_objret,true,$ls_codded);
if($lb_valido)
{
$ldec_totret=0;
for($z=1;$z<=$totrow && $lb_valido ;$z++)
{
if(array_key_exists("chkislr".$z,$_POST))
{
$chk_islr="checked";
$li_status_islr=1;
}
else
{
$chk_islr="";
$li_status_islr=0;
}
$ld_fecdb=$io_funcion->uf_convertirdatetobd($ld_fecha);
$arr_movbco["codope"]=$ls_codope;
$arr_movbco["fecha"]=$ld_fecha;
$arr_movbco["codpro"]=$ls_codpro;
$arr_movbco["cedbene"]=$ls_cedbene;
$arr_movbco["estmov"]=$ls_estmov;
$arr_movbco["monto_mov"]=$ldec_monto_mov;
$arr_movbco["objret"] =$ldec_objret;
$arr_movbco["retenido"] =$ldec_retenido;
$ls_uel=$ls_coduniadm;
$ls_codded="00000";
if($lb_valido)
{
$ls_operacioncon="H";
$lb_valido=$in_classmovorden->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,$ls_mov_procede,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,($ldec_retenido),$ldec_objret,false,'00000');
for($z=1;$z<=$totrow && $lb_valido ;$z++)
{
if(array_key_exists("chk".$z,$_POST))
{
$ls_codcar = $_POST["txtcodcar".$z];
$ls_cuenta = $_POST["txtscgcuenta".$z];
$ls_documento = $_POST["txtdoc".$z];
$ls_denominacion = $_POST["txtdencar".$z];
$ls_operacioncon = "D";
$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);
