|
||||||||||
|
|
|
|
|
|
|
||||
";
$ldec_monto=str_replace('.','',$ldec_monto);
$ldec_monto=str_replace(',','.',$ldec_monto);
if($ls_debhab=='D')
{
$ldec_mondeb=$ldec_mondeb+$ldec_monto;
}
else
{
$ldec_monhab=$ldec_monhab+$ldec_monto;
}
}
else
{
$li_row_delete=0;
$lastscg = $lastscg - 1;
}
if((array_key_exists("txtcontable".$totalcon,$_POST))&&($ls_operacion!="DELETESCG"))
{
$ls_cuenta=$_POST["txtcontable".$totalcon];
$ls_documento=$_POST["txtdocscg".$totalcon];
$ls_descripcion=$_POST["txtdesdoc".$totalcon];
$ls_procede=$_POST["txtprocdoc".$totalcon];
$ls_debhab=$_POST["txtdebhab".$totalcon];
$ldec_monto=$_POST["txtmontocont".$totalcon];
}
else
{
$ls_cuenta="";
$ls_documento="";
$ls_descripcion="";
$ls_procede="";
$ls_debhab="";
$ldec_monto="";
}
$objectScg[$totalcon][1] = "";
$objectScg[$totalcon][2] = "";
$objectScg[$totalcon][3] = "";
$objectScg[$totalcon][4] = "";
$objectScg[$totalcon][5] = "";
$objectScg[$totalcon][6] = "";
$objectScg[$totalcon][7] = "";
$ldec_diferencia=$ldec_mondeb-$ldec_monhab;
}
for($li_i=1;$li_i<=$totalpre;$li_i++)
{
if($ls_operacion=="DELETESPG")
{
$li_row_delete=$_POST["delete_spg"];
}
else
{
$li_row_delete=0;
}
if($li_i!=$li_row_delete)
{
$li_temp_spg=$li_temp_spg+1;
if(array_key_exists("txtcuenta".$li_i,$_POST))
{
$ls_cuenta=$_POST["txtcuenta".$li_i];
$ls_programatica=$_POST["txtprogramatico".$li_i];
$ls_documento=$_POST["txtdocumento".$li_i];
$ls_descripcion=$_POST["txtdescripcion".$li_i];
$ls_procede=$_POST["txtprocede".$li_i];
$ls_operacion_spg=$_POST["txtoperacion".$li_i];
$ldec_monto=$_POST["txtmonto".$li_i];
}
else
{
$ls_cuenta="";
$ls_programatica="";
$ls_documento="";
$ls_descripcion="";
$ls_procede="";
$ls_operacion_spg="";
$ldec_monto="";
}
$objectSpg[$li_temp_spg][1] = "";
$objectSpg[$li_temp_spg][2] = "";
$objectSpg[$li_temp_spg][3] = "";
$objectSpg[$li_temp_spg][4] = "";
$objectSpg[$li_temp_spg][5] = "";
$objectSpg[$li_temp_spg][6] = "";
$objectSpg[$li_temp_spg][7] = "";
$objectSpg[$li_temp_spg][8] = "";
$ldec_monto=str_replace('.','',$ldec_monto);
$ldec_monto=str_replace(',','.',$ldec_monto);
$ldec_monspg=$ldec_monspg+$ldec_monto;
}
else
{
$li_row_delete=0;
$lastspg = $lastspg - 1;
}
if((array_key_exists("txtcuenta".$totalpre,$_POST))&&($ls_operacion!="DELETESPG"))
{
$ls_cuenta=$_POST["txtcuenta".$totalpre];
$ls_programatica=$_POST["txtprogramatico".$totalpre];
$ls_documento=$_POST["txtdocumento".$totalpre];
$ls_descripcion=$_POST["txtdescripcion".$totalpre];
$ls_procede=$_POST["txtprocede".$totalpre];
$ls_operacion_spg=$_POST["txtoperacion".$totalpre];
$ldec_monto=$_POST["txtmonto".$totalpre];
}
else
{
$ls_cuenta="";
$ls_programatica="";
$ls_documento="";
$ls_descripcion="";
$ls_procede="";
$ls_operacion_spg="";
$ldec_monto="";
}
$objectSpg[$totalpre][1] = "";
$objectSpg[$totalpre][2] = "";
$objectSpg[$totalpre][3] = "";
$objectSpg[$totalpre][4] = "";
$objectSpg[$totalpre][5] = "";
$objectSpg[$totalpre][6] = "";
$objectSpg[$totalpre][7] = "";
$objectSpg[$totalpre][8] = "";
}
for($li_i=1;$li_i<=$totalret;$li_i++)
{
if($ls_operacion=="DELETERET")
{
$li_row_delete=$_POST["delete_ret"];
}
else
{
$li_row_delete=0;
}
if($li_i!=$li_row_delete)
{
$li_temp_ret=$li_temp_ret+1;
if(array_key_exists("txtcuentaret".$li_i,$_POST))
{
$ls_cuenta=$_POST["txtcuentaret".$li_i];
$ls_deduccion=$_POST["txtdeduccion".$li_i];
$ls_documento=$_POST["txtdocret".$li_i];
$ls_descripcion=$_POST["txtdescret".$li_i];
$ls_procede=$_POST["txtprocederet".$li_i];
$ldec_monto=$_POST["txtmontoret".$li_i];
$ldec_monto_objret=$_POST["txtmontoobjret".$li_i];
}
else
{
$ls_cuenta="";
$ls_deduccion="";
$ls_documento="";
$ls_descripcion="";
$ls_procede="";
$ldec_monto="";
$ldec_monto_objret="";
}
$objectRet[$li_temp_ret][1] = "";
$objectRet[$li_temp_ret][2] = "";
$objectRet[$li_temp_ret][3] = "";
$objectRet[$li_temp_ret][4] = "";
$objectRet[$li_temp_ret][5] = "";
$objectRet[$li_temp_ret][6] = "";
$objectRet[$li_temp_ret][7] = "";
$objectRet[$li_temp_ret][8] = "";
}
else
{
$li_row_delete=0;
$lastret = $lastret - 1;
}
if(array_key_exists("txtcuentaret".$totalret,$_POST))
{
$ls_cuenta=$_POST["txtcuentaret".$totalret];
$ls_deduccion=$_POST["txtdeduccion".$totalret];
$ls_documento=$_POST["txtdocret".$totalret];
$ls_descripcion=$_POST["txtdescret".$totalret];
$ls_procede=$_POST["txtprocederet".$totalret];
$ldec_monto=$_POST["txtmontoret".$totalret];
$ldec_monto_objret=$_POST["txtmontoobjret".$totalret];
}
else
{
$ls_cuenta="";
$ls_deduccion="";
$ls_documento="";
$ls_descripcion="";
$ls_procede="";
$ldec_monto="";
$ldec_monto_objret="";
}
$objectRet[$totalret][1] = "";
$objectRet[$totalret][2] = "";
$objectRet[$totalret][3] = "";
$objectRet[$totalret][4] = "";
$objectRet[$totalret][5] = "";
$objectRet[$totalret][6] = "";
$objectRet[$totalret][7] = "";
$objectRet[$totalret][8] = "";
}
for($i=1;$i<=$totalspi;$i++)
{
if(array_key_exists("txtcuentaspi".$i,$_POST))
{
$ls_cuenta=$_POST["txtcuentaspi".$i];
$ls_descripcion=$_POST["txtdescspi".$i];
$ls_procede=$_POST["txtprocspi".$i];
$ls_documento=$_POST["txtdocspi".$i];
$ls_operacion_spi=$_POST["txtopespi".$i];
$ldec_monto=$_POST["txtmontospi".$i];
}
else
{
$ls_cuenta="";
$ls_descripcion="";
$ls_procede="";
$ls_documento="";
$ls_operacion_spi="";
$ldec_monto="";
}
$objectSpi[$i][1] = "";
$objectSpi[$i][2] = "";
$objectSpi[$i][3] = "";
$objectSpi[$i][4] = "";
$objectSpi[$i][5] = "";
$objectSpi[$i][6] = "";
$objectSpi[$i][7] = "";
}
if($ls_operacion == "NUEVO")
{
$ls_operacion= "" ;
$array_fecha=getdate();
$ls_dia=$array_fecha["mday"];
$ls_mes=$array_fecha["mon"];
$ls_ano=$array_fecha["year"];
$ld_fecha=$fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano;
}
if($ls_operacion == "GUARDAR")
{
}
if($ls_operacion == "ELIMINAR")
{
}
if($ls_operacion == "CAMBIO_OPERA")
{
}
if($ls_mov_operacion=='ND')
{
$lb_nd="selected";
$lb_nc="";
$lb_dp="";
$lb_re="";
$lb_ch="";
}
if($ls_mov_operacion=='NC')
{
$lb_nd="";
$lb_nc="selected";
$lb_dp="";
$lb_re="";
$lb_ch="";
}
if($ls_mov_operacion=='DP')
{
$lb_nd="";
$lb_nc="";
$lb_dp="selected";
$lb_re="";
$lb_ch="";
}
if($ls_mov_operacion=='RE')
{
$lb_nd="";
$lb_nc="";
$lb_dp="";
$lb_re="selected";
$lb_ch="";
}
if($ls_mov_operacion=='CH')
{
$lb_nd="";
$lb_nc="";
$lb_dp="";
$lb_re="";
$lb_ch="selected";
}
if($ls_tipo=='-')
{
$rb_n="checked";
$rb_p="";
$rb_b="";
}
if($ls_tipo=='P')
{
$rb_n="";
$rb_p="checked";
$rb_b="";
}
if($ls_tipo=='B')
{
$rb_n="";
$rb_p="";
$rb_b="checked";
}
?>