| Caja y Banco | |
|
||||||||||||||
|
||||||||||||||
|
||||||||||||||
";
}
}
if (array_key_exists("totsol",$_POST))
{
$li_total=$_POST["totsol"];
}
else
{
$li_total="1";
}
if (array_key_exists("txtnumord",$_POST))
{
$ls_numord=$_POST["txtnumord"];
}
else
{
$ls_numord="";
}
if (array_key_exists("txtdesmov",$_POST))
{
$ls_desmov=$_POST["txtdesmov"];
}
else
{
$ls_desmov="";
}
if (array_key_exists("filsel",$_POST))
{
$li_filsel=$_POST["filsel"];
}
else
{
$li_filsel="";
}
if (array_key_exists("numlic",$_POST))
{
$ls_numlic=$_POST["numlic"];
}
else
{
$ls_numlic="";
}
if (array_key_exists("nit",$_POST))
{
$ls_nit=$_POST["nit"];
}
else
{
$ls_nit="";
}
if (array_key_exists("tipo",$_POST))
{
$ls_tipo=$_POST["tipo"];
}
else
{
$ls_tipo="";
}
if (array_key_exists("estprov",$_POST))
{
$ls_estprov=$_POST["estprov"];
}
else
{
$ls_estprov="";
}
if(array_key_exists("la_deducciones",$_SESSION))
unset($_SESSION["la_deducciones"]);
//Declaración de parametros del grid.
$titleProg[1]="Factura";
$titleProg[2]="N° Control";
$titleProg[3]="Fecha";
$titleProg[4]="Total sin IVA";
$titleProg[5]="Total con IVA";
$titleProg[6]="Base Imponible";
$titleProg[7]="Porcentaje Impuesto";
$titleProg[8]="Total Impuesto";
$titleProg[9]="Retención Municipal";
$titleProg[10]="Nº Solicitud de Pago";
$titleProg[11]="";
$gridProg="grid_prog";
$lb_selEnero="";
$lb_selFebrero="";
$lb_selMarzo="";
$lb_selAbril="";
$lb_selMayo="";
$lb_selJunio="";
$lb_selJulio="";
$lb_selAgosto="";
$lb_selSeptiembre="";
$lb_selOctubre="";
$lb_selNoviembre="";
$lb_selDiciembre="";
switch ($ls_mes) {
case '01':
$lb_selEnero="selected";
break;
case '02':
$lb_selFebrero="selected";
break;
case '03':
$lb_selMarzo="selected";
break;
case '04':
$lb_selAbril="selected";
break;
case '05':
$lb_selMayo="selected";
break;
case '06':
$lb_selJunio="selected";
break;
case '07':
$lb_selJulio="selected";
break;
case '08':
$lb_selAgosto="selected";
break;
case '09':
$lb_selSeptiembre="selected";
break;
case '10':
$lb_selOctubre="selected";
break;
case '11':
$lb_selNoviembre="selected";
break;
case '12':
$lb_selDiciembre="selected";
break;
}
if($ls_operacion=="NUEVO")
{
uf_mantener_grid();
$ls_numcom = "";
$ld_fecdesde = $io_function->uf_convertirdatetobd("01/".$ls_mes."/".$ls_agno);
$ld_hasta = $fec->uf_last_day($ls_mes,$ls_agno);
$ld_fechasta = $io_function->uf_convertirdatetobd($ld_hasta);
$ls_periodofiscal = $io_function->uf_cerosizquierda(substr($ld_fecdesde,0,4),4).$io_function->uf_cerosizquierda(substr($ld_fecdesde,5,2),2) ;
$lb_valido = $io_cmpret->uf_ccr_get_nro($ls_periodofiscal,$ls_numcom);
if(!$lb_valido)
{
$msg->message("Error al generar el numero del Comprobante");
}
}
if($ls_operacion=="CAMBIO_PERIODO")
{
$io_cmpret->uf_ccr_get_nro($ls_agno.$ls_mes,$ls_numcom);
uf_mantener_grid();
}
if($ls_operacion=="ELIMINAR")
{
$lb_valido=$io_cmpret->uf_delete_cmp_ret($ls_codret,$ls_numcom,$la_seguridad);
if($lb_valido)
{
$msg->message("Comprobante Eliminado");
$ls_numcom = "";
$ls_codret = "";
$ls_codsujret = "";
$ls_nomsujret = "";
$ls_dirsujret = "";
$ls_dessujret = "";
}
else
{
$msg->message("".$io_cmpret->is_msg_error);
}
$ls_operacion="CARGAR_DT";
}
if($ls_operacion=="GUARDAR")
{
$lb_valido= true;
$li_total = $_POST["totsol"];
$li_filas = 0;
$ls_numfacl=$_POST["txtnumfac1"];
if($ls_numfacl!="")
{
for($i=1;$i<=$li_total;$i++)
{
$ls_numero=$_POST["txtnumfac".$i];
if($ls_numero!="")
{
$li_filas=$li_filas+1;
$lr_datosgrid["numfac"][$i] =$_POST["txtnumfac".$i];
//---------------------------------------------
$ld_fecgrid =$_POST["txtfecfac".$i];
$ld_fecgrid =$io_function->uf_convertirdatetobd($ld_fecgrid);
$lr_datosgrid["fecfac"][$i] =$ld_fecgrid;
//---------------------------------------------
$lr_datosgrid["nrocontrol"][$i]=$_POST["txtnrocon".$i];
//---------------------------------------------
$ldec_siniva=$_POST["txtsiniva".$i];
$ldec_siniva=str_replace('.','',$ldec_siniva);
$ldec_siniva=str_replace(',','.',$ldec_siniva);
$lr_datosgrid["siniva"][$i]=$ldec_siniva;
//---------------------------------------------
$ldec_coniva=$_POST["txtconiva".$i];
$ldec_coniva=str_replace('.','',$ldec_coniva);
$ldec_coniva=str_replace(',','.',$ldec_coniva);
$lr_datosgrid["coniva"][$i]=$ldec_coniva;
//----------------------------------------------
$ldec_basimp=$_POST["txtbasimp".$i];
$ldec_basimp=str_replace('.','',$ldec_basimp);
$ldec_basimp=str_replace(',','.',$ldec_basimp);
$lr_datosgrid["basimp"][$i]=$ldec_basimp;
//----------------------------------------------
$ldec_poriva=$_POST["txtpor".$i];
$lr_datosgrid["poriva"][$i]=$ldec_poriva;
//----------------------------------------------
$ldec_totimp=$_POST["txttotimp".$i];
$ldec_totimp=str_replace('.','',$ldec_totimp);
$ldec_totimp=str_replace(',','.',$ldec_totimp);
$lr_datosgrid["totimp"][$i]=$ldec_totimp;
//----------------------------------------------
$ldec_ivaret=$_POST["txtivaret".$i];
$ldec_ivaret=str_replace('.','',$ldec_ivaret);
$ldec_ivaret=str_replace(',','.',$ldec_ivaret);
$lr_datosgrid["ivaret"][$i]=$ldec_ivaret;
//---------------------------------------------
$lr_datosgrid["numdoc"][$i]=$_POST["txtnumdoc".$i];
//---------------------------------------------
}
}
}
else
{
$lb_valido=false;
}
if($lb_valido)
{
$ld_fecdesde = $io_function->uf_convertirdatetobd("01/".$ls_mes."/".$ls_agno);
$ld_hasta = $fec->uf_last_day($ls_mes,$ls_agno);
$ld_fechasta = $io_function->uf_convertirdatetobd($ld_hasta);
$ls_periodofiscal = $io_function->uf_cerosizquierda(substr($ld_fecdesde,0,4),4).$io_function->uf_cerosizquierda(substr($ld_fecdesde,5,2),2) ;
$ls_numcom = $_POST["txtcomprobante"];
$lr_proben["codigo"] = $_POST["txtprovbene"];
$lr_proben["nombre"] = $_POST["txtdesproben"];
$lr_proben["tipo"] = $ls_estprov;
if($lb_valido)
{
$ls_numord = $_POST["txtnumord"];
$ls_descripcion = $_POST["txtdesmov"];
$lb_valido=$io_cmpret->uf_guardar_ret_iva_otros($ls_descripcion,$ls_numcom,$ls_periodofiscal,$lr_proben,
$ls_numord,$li_filas,$lr_datosgrid,$la_seguridad);
}
if($lb_valido)
{
if(array_key_exists("la_deducciones",$_SESSION))
unset($_SESSION["la_deducciones"]);
$ls_operacion = "";
$array_fecha = getdate();
$ls_mes = $array_fecha["mon"];
$ls_agno = $array_fecha["year"];
$ls_numcom = "";
$ls_codret = "";
$ls_codsujret = "";
$ls_nomsujret = "";
$ls_dirsujret = "";
$ls_dessujret = "";
$ls_numlic = "";
$ls_nit = "";
$ls_tipo = "";
$ls_numord = "";
$ls_desmov = "";
$li_i = 1;
$li_total = 1;
$io_cmpret->uf_ccr_get_nro($ls_agno.$ls_mes,$ls_numcom);
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "";
$object[$li_i][4] = "";
$object[$li_i][5] = "";
$object[$li_i][6] = "";
$object[$li_i][7] = "";
}
}
else
{
uf_mantener_grid();
}
}
}
if($ls_operacion=="DELETE_DT")
{
$li_totalrow =$_POST["totsol"];
$li_total =$li_totalrow-1;
$li_rowdelete=$_POST["filadelete"];
$li_x = 0;
for($li_i=1;$li_i<=$li_totalrow;$li_i++)
{
if($li_i!=$li_rowdelete)
{
$li_x =$li_x+1;
$ls_numfac =$_POST["txtnumfac".$li_i];
$ls_numcon =$_POST["txtnrocon".$li_i];
$ld_fecfac =$_POST["txtfecfac".$li_i];
$ld_siniva =$_POST["txtsiniva".$li_i];
$ld_coniva =$_POST["txtconiva".$li_i];
$ld_basimp =$_POST["txtbasimp".$li_i];
$ld_poriva =$_POST["txtporiva".$li_i];
$ld_totimp =$_POST["txttotimp".$li_i];
$ld_ivaret =$_POST["txtivaret".$li_i];
$ls_numdoc =$_POST["txtnumdoc".$li_i];
$ls_formula =$_POST["hidforcar".$li_i];
$ls_codded =$_POST["hidcodded".$li_i];
$ls_forded =$_POST["hidforded".$li_i];
$ld_por =$_POST["txtpor".$li_i];
$object[$li_x][1] = "";
$object[$li_x][2] = "";
$object[$li_x][3] = "";
$object[$li_x][4] = "";
$object[$li_x][5] = "";
$object[$li_x][6] = "";
$object[$li_x][7] = "";
}
else
{
$li_rowdelete=0;
}
}
}
function uf_mantener_grid()
{
global $class_grid;
global $li_total;
global $title;
global $align;
global $size;
global $maxlength;
global $values;
global $totrow;
global $validaciones;
global $object;
$li_total=$_POST["totsol"];
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$ls_numfac =$_POST["txtnumfac".$li_i];
$ls_numcon =$_POST["txtnrocon".$li_i];
$ld_fecfac =$_POST["txtfecfac".$li_i];
$ld_siniva =$_POST["txtsiniva".$li_i];
$ld_coniva =$_POST["txtconiva".$li_i];
$ld_basimp =$_POST["txtbasimp".$li_i];
$ld_poriva =$_POST["txtporiva".$li_i];
$ld_totimp =$_POST["txttotimp".$li_i];
$ld_ivaret =$_POST["txtivaret".$li_i];
$ls_numdoc =$_POST["txtnumdoc".$li_i];
$ls_formula =$_POST["hidforcar".$li_i];
$ls_codded =$_POST["hidcodded".$li_i];
$ls_forded =$_POST["hidforded".$li_i];
$ld_por =$_POST["txtpor".$li_i];
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "";
$object[$li_i][4] = "";
$object[$li_i][5] = "";
$object[$li_i][6] = "";
$object[$li_i][7] = "";
}
}
if ($ls_operacion=="PINTARFILAS")
{
$li_total=$_POST["totsol"];
for($li_i=1;$li_i<=$li_total;$li_i++)
{
if (array_key_exists("txtnumfac".$li_i,$_POST))
{
$ls_numfac =$_POST["txtnumfac".$li_i];
$ls_numcon =$_POST["txtnrocon".$li_i];
$ld_fecfac =$_POST["txtfecfac".$li_i];
$ld_siniva =$_POST["txtsiniva".$li_i];
$ld_coniva =$_POST["txtconiva".$li_i];
$ld_basimp =$_POST["txtbasimp".$li_i];
$ld_poriva =$_POST["txtporiva".$li_i];
$ld_totimp =$_POST["txttotimp".$li_i];
$ld_ivaret =$_POST["txtivaret".$li_i];
$ls_numdoc =$_POST["txtnumdoc".$li_i];
$ls_formula =$_POST["hidforcar".$li_i];
$ls_codded =$_POST["hidcodded".$li_i];
$ls_forded =$_POST["hidforded".$li_i];
$ld_por =$_POST["txtpor".$li_i];
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "";
$object[$li_i][4] = "";
$object[$li_i][5] = "";
$object[$li_i][6] = "";
$object[$li_i][7] = "";
}
else
{
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "";
$object[$li_i][4] = "";
$object[$li_i][5] = "";
$object[$li_i][6] = "";
$object[$li_i][7] = "";
}
}
}
if($ls_operacion=="CALCULAR")
{
uf_mantener_grid();
$li_filacalcular=$_POST["filacalcular"];
$ld_poriva =$_POST["txtporiva".$li_filacalcular];
$ld_basimp =$_POST["txtbasimp".$li_filacalcular];
$ls_formula =$_POST["hidforcar".$li_filacalcular];
$ls_codded =$_POST["hidcodded".$li_filacalcular];
$ls_forded =$_POST["hidforded".$li_filacalcular];
$ls_numfac =$_POST["txtnumfac".$li_filacalcular];
$ls_numcon =$_POST["txtnrocon".$li_filacalcular];
$ld_fecfac =$_POST["txtfecfac".$li_filacalcular];
$ld_siniva =$_POST["txtsiniva".$li_filacalcular];
$ld_coniva =$_POST["txtconiva".$li_filacalcular];
$ld_basimp =$_POST["txtbasimp".$li_filacalcular];
$ld_totimp =$_POST["txttotimp".$li_filacalcular];
$ld_ivaret =$_POST["txtivaret".$li_filacalcular];
$ls_numdoc =$_POST["txtnumdoc".$li_filacalcular];
$ls_formula =$_POST["hidforcar".$li_filacalcular];
if( ($ld_poriva!="0,00") && ($ld_poriva!="0") && ($ld_poriva!="0,0") && ($ld_poriva!="0") && ($ld_poriva!="") )
{
if( ($ld_basimp!="0,00") && ($ld_basimp!="0") && ($ld_basimp!="0,0") && ($ld_basimp!="0") && ($ld_basimp!="") )
{
$ld_basimp =str_replace(".","",$ld_basimp);
$ld_basimp =str_replace(",",".",$ld_basimp);
$lb_formula =true;
$ld_totimp =$io_formula->uf_evaluar($ls_formula,$ld_basimp,$lb_formula);
$ld_basimp=number_format($ld_basimp,2,",",".");
if( ($ls_codded!="0,00") && ($ls_codded!="0") && ($ls_codded!="0,0") && ($ls_codded!="0") && ($ls_codded!="") )
{
if( ($ld_basimp!="0,00") && ($ld_basimp!="0") && ($ld_basimp!="0,0") && ($ld_basimp!="0") && ($ld_basimp!="") )
{
$lb_formula =true;
$ld_ivaret =$io_formula->uf_evaluar($ls_forded,$ld_totimp,$lb_formula);
$ld_ivaret=number_format($ld_ivaret,2,",",".");
}
else
{
$ld_totimp ="0";
}
}
else
{
$ld_ivaret="0,00";
}
}
else
{
$ld_totimp ="0";
}
$ld_totimp=number_format($ld_totimp,2,",",".");
}
$object[$li_filacalcular][1] = "";
$object[$li_filacalcular][2] = "";
$object[$li_filacalcular][3] = "";
$object[$li_filacalcular][4] = "";
$object[$li_filacalcular][5] = "";
$object[$li_filacalcular][6] = "";
$object[$li_filacalcular][7] = "";
}
?>