$ls_est4 = str_pad($_POST["codestpro4"],25,0,0);
$ls_est5 = str_pad($_POST["codestpro5"],25,0,0);
}
else
{
$ls_est4 = str_pad("",25,0,0);
$ls_est5 = str_pad("",25,0,0);
}
$ls_programa = $ls_est1.$ls_est2.$ls_est3.$ls_est4.$ls_est5;
$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_classmovbanco->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_procedencia,$ldec_monto,$ls_operacion,$ls_estcla);
if ($lb_valido)
{
$in_classmovbanco->io_sql->commit();
$ls_estdoc='C';
?>
<script language="javascript">
f=opener.document.form1;
f.operacion.value="CARGAR_DT";
f.status_doc.value='C';//Cambio estatus a actualizable
f.action="<?php print $ls_opener;?>";
f.submit();
</script>
<?php
}
else
$ldec_MontoSpgDet = $ldec_MontoSpgDet - ($ldec_montospg2 - $ldec_monto);
}
if (($ldec_montospg2 < $ldec_monto)&&($li_y==$li_total_rows)&&($ldec_montospg2!=$ldec_monto_spg))
{
$ldec_MontoSpgDet = $ldec_MontoSpgDet + ($ldec_monto - $ldec_montospg2);
}
$ls_estcla = $io_emiche->ds_sol->getValue("estcla",$li_y);
$ls_codestpro1 = $io_emiche->ds_sol->getValue("codestpro1",$li_y);
$ls_codestpro2 = $io_emiche->ds_sol->getValue("codestpro2",$li_y);
$ls_codestpro3 = $io_emiche->ds_sol->getValue("codestpro3",$li_y);
$ls_codestpro4 = $io_emiche->ds_sol->getValue("codestpro4",$li_y);
$ls_codestpro5 = $io_emiche->ds_sol->getValue("codestpro5",$li_y);
$ls_programa = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_cuentaspg = $io_emiche->ds_sol->getValue("spg_cuenta",$li_y);
$ls_descripcion = $io_emiche->ds_sol->getValue("descripcion",$li_y);
$lb_valido = $in_classmovbanco->uf_procesar_dt_gasto($ls_codban,$ls_ctaban,$ls_numdoc,'CH',$ls_estmov,$ls_programa,$ls_cuentaspg,$ls_numsol,$ls_descripcion,'CXPSOP',$ldec_MontoSpgDet,'PG',$ls_estcla);
}
}
}
}
$lb_valido = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_ctaprovbene,'CXPSOP',$ls_desmov,$ls_numsol,'D',/*$ldec_monto+$ld_montotret*/$ldec_monto,$ldec_monobjret,true,'00000');//Se comenta la suma por desconocer bajo que circunstancias se deben sumar las retenciones.
if ($lb_valido && $li_cont==$li_totfilsel)
{
$lb_valido = $in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,'SCBBCH',$ls_desmov,$ls_numdoc,'H',$ldec_montotot,$ldec_monobjret,true,'00000');
}
}
}
}
if ($lb_valido && $lb_pago)
{
{
$ldec_MontoSpgDet = $ldec_MontoSpgDet - ($ldec_montospg2 - $ldec_monto);
}
if(($ldec_montospg2 < $ldec_monto)&&($li_y==$li_total_rows)&&($ldec_montospg2!=$ldec_monto_spg))
{
$ldec_MontoSpgDet = $ldec_MontoSpgDet + ($ldec_monto - $ldec_montospg2);
}
$ls_estcla = $in_class_carta->ds_sol->getValue("estcla",$li_y);
$ls_codestpro1 = $in_class_carta->ds_sol->getValue("codestpro1",$li_y);
$ls_codestpro2 = $in_class_carta->ds_sol->getValue("codestpro2",$li_y);
$ls_codestpro3 = $in_class_carta->ds_sol->getValue("codestpro3",$li_y);
$ls_codestpro4 = $in_class_carta->ds_sol->getValue("codestpro4",$li_y);
$ls_codestpro5 = $in_class_carta->ds_sol->getValue("codestpro5",$li_y);
$ls_programa = $ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$ls_cuentaspg = $in_class_carta->ds_sol->getValue("spg_cuenta",$li_y);
$lb_valido = $in_classmovbanco->uf_procesar_dt_gasto($ls_codban,$ls_cuenta_banco,$ls_numcarord,'ND',$ls_estmov,$ls_programa,$ls_cuentaspg,$ls_numsol,$ls_desmov,'CXPSOP',$ldec_MontoSpgDet,'PG',$ls_estcla);
}//End if
}//End for
}
}//End cuarto if
}//End tercer if
}//End segundo if
$ls_probentemp=$ls_codproben;
}
else
{
$msg->message("El proveedor o Beneficiario ".$ls_desproben." no tiene cuenta bancaria asociada");
}
}
else
{
