";
$aa_object[$ai_totrows][2]="";
$aa_object[$ai_totrows][3]="";
$aa_object[$ai_totrows][4]="";
$aa_object[$ai_totrows][5]="";
$aa_object[$ai_totrows][6]="";
$aa_object[$ai_totrows][7]="";
$aa_object[$ai_totrows][8]="";
$aa_object[$ai_totrows][9]="
";
$aa_object[$ai_totrows][10]="
";
$aa_object[$ai_totrows][11]="
";
$aa_object[$ai_totrows][12]="";
$aa_object[$ai_totrows][13]="";
}
//--------------------------------------------------------------
function uf_agregarlineablancaorden(&$aa_object,$ai_totrows)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_agregarlineablancaorden
// Access: private
// Argumento: $aa_object // arreglo de titulos
// $ai_totrows // ultima fila pintada en el grid
// Returns:
// Description: Funcion que agrega una linea en blanco al final del grid cuando es una orden de compra
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/01/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$aa_object[$ai_totrows][1]="".
"".
"";
$aa_object[$ai_totrows][2]="";
$aa_object[$ai_totrows][3]="";
$aa_object[$ai_totrows][4]="";
$aa_object[$ai_totrows][5]="";
$aa_object[$ai_totrows][6]="";
$aa_object[$ai_totrows][7]="";
$aa_object[$ai_totrows][8]="";
$aa_object[$ai_totrows][9]="";
$aa_object[$ai_totrows][10]="";
$aa_object[$ai_totrows][11]="";
}
//--------------------------------------------------------------
function uf_pintartituloorden(&$lo_object,&$lo_title)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_pintartituloorden
// Access: private
// Argumento: $lo_object // arreglo de objetos
// $lo_title // arreglo de titulos
// Returns:
// Description: Función que carga las caracteristicas del grid de detalle de despacho
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/01/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$lo_title="";
$lo_object="";
$lo_title[1]="Artículo";
$lo_title[2]="Unidad de Medida";
$lo_title[3]="Modalidad";
$lo_title[4]="Cantidad Original";
$lo_title[5]="Cantidad";
$lo_title[6]="Pendiente";
$lo_title[7]="Costo Unitario";
$lo_title[8]="Costo Total";
$lo_title[9]="";
$lo_title[10]="Costos Orig.";
$lo_title[11]="Costos Adic.";
}
//--------------------------------------------------------------
function uf_pintardetalle($ai_totrows,$ls_estpro)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_pintardetalle
// Access: private
// Argumento: $ai_totrows // cantidad de filas que tiene el grid
// $ls_estpro // indica que valor tiene el radiobutton 0--> Orden de compra 1--> Factura
// $ls_checkedord // variable imprime o no "checked" para el radiobutton en la orden de compra
// $ls_checkedfac // variable imprime o no "checked" para el radiobutton en la factura
// Returns:
// Description: Funcion que vuelve a pintar el detalle del grid tal cual como estaba.
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $lo_object;
if($ls_estpro==0)
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
}
elseif($ls_estpro==1)
{
$ls_checkedord="";
$ls_checkeddev="";
$ls_checkedfac="checked";
}
elseif($ls_estpro==2)
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="checked";
}
else
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="";
}
for($li_i=1;$li_i<$ai_totrows;$li_i++)
{
$la_unidad[0]="";
$la_unidad[1]="";
$ls_codart= $_POST["txtcodart".$li_i];
$ls_denart= $_POST["txtdenart".$li_i];
$ls_denunimed= $_POST["txtdenunimed".$li_i];
if (array_key_exists("la_logusr",$_POST))
{
$ls_unidad= $_POST["txtunidad".$li_i];
}
else
{
$ls_unidad= "";
}
$li_canart= $_POST["txtcanart".$li_i];
$li_penart= $_POST["txtpenart".$li_i];
$li_preuniart= $_POST["txtpreuniart".$li_i];
$li_canoriart= $_POST["txtcanoriart".$li_i];
$li_montotart= $_POST["txtmontotart".$li_i];
if($ls_estpro==1)
{
$ls_clasi= $_POST["hclasi".$li_i];
}
//uf_seleccionarcombo("D-M",$ls_unidad,$la_unidad,2);
$lo_object[$li_i][1]="".
"";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="";
$lo_object[$li_i][4]="";
$lo_object[$li_i][5]="";
$lo_object[$li_i][6]="";
$lo_object[$li_i][7]="";
$lo_object[$li_i][8]="";
$lo_object[$li_i][9]="";
if($ls_estpro==1)
{
$lo_object[$li_i][9]="";
$lo_object[$li_i][10]="";
$lo_object[$li_i][11]="";
}
}
if($ls_estpro==1)
{
//uf_agregarlineablanca($lo_object,$ai_totrows+1);
uf_agregarlineablanca($lo_object,$ai_totrows);
}
else
{
//uf_agregarlineablancaorden($lo_object,$ai_totrows+1);
uf_agregarlineablancaorden($lo_object,$ai_totrows);
}
}
//--------------------------------------------------------------
function uf_limpiarvariables()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Argumento:
// Returns:
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/01/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_numordcom,$ls_numconrec,$ls_numconrecmov,$ls_codpro,$ls_denpro,$ls_codalm,$ls_nomfisalm,$ld_fecrec,$ls_obsrec,$li_totentsum,$ls_status;
global $ls_checkedord,$ls_checkedfac,$ls_checkeddev,$ls_checkedparc,$ls_checkedcomp,$ls_codusu,$ls_readonly,$ls_readonlyrad,$li_totrows,$ls_hidsaverev,$ls_estapr,$ls_modprocede,$ls_tipdoc;
$ls_numordcom="";
$ls_numconrec="";
//$ls_numconrecmov="";
$ls_codpro="";
$ls_denpro="";
$ls_codalm="";
$ls_nomfisalm="";
$ld_fecrec="";
$ls_obsrec="";
$ls_modprocede="";
$ls_tipdoc="";
$li_totentsum="0,00";
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="";
$ls_checkedparc="";
$ls_checkedcomp="";
$ls_readonlyrad="";
$ls_codusu=$_SESSION["la_logusr"];
$ls_readonly="true";
$ls_status="";
$li_totrows=1;
$ls_hidsaverev="false";
$ls_estapr="0";
}
//--------------------------------------------------------------
function uf_obtenervalorunidad($li_i)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_obtenervalorunidad
// Access: private
// Argumento: $li_i // indica que opcion esta seleccionado en el combo
// Returns: Retorna el valor obtenido
// Description: Función que obtiene el contenido del combo cmbunidad o del campo txtunidad deacuerdo sea el caso
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/01/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (array_key_exists("cmbunidad".$li_i,$_POST))
{
$ls_valor= $_POST["cmbunidad".$li_i];
}
else
{
$ls_valoraux= $_POST["txtunidad".$li_i];
if($ls_valoraux=="Mayor")
{
$ls_valor="M";
}
else
{
$ls_valor="D";
}
}
return $ls_valor;
}
?>
 |
||||||||||||||
|
||||||||||||||
 |
 |
 |
 |
 |
 |
|||||||||
";
$lo_object[$li_i][11]="";
$lo_object[$li_i][12]="";
$lo_object[$li_i][13]="";
}
}
uf_agregarlineablanca($lo_object,$li_totrows,$ls_codart);
break;
case "AGREGARDETALLEORDEN":
uf_pintartituloorden($lo_object,$lo_title);
$li_totrows=$li_totrows+1;
$ls_readonly="";
$ls_radiotipo= $io_fun_inventario->uf_obtenervalor("radiotipo","");
if($ls_radiotipo=="0")
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
}
if ($ls_radiotipo=="1")
{
$ls_checkedord="";
$ls_checkeddev="";
$ls_checkedfac="checked";
}
if ($ls_radiotipo=="2")
{
$ls_checkedord="";
$ls_checkeddev="checked";
$ls_checkedfac="";
}
$ls_estrec= $io_fun_inventario->uf_obtenervalor("radiotipentrega","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
$ls_readonlyrad="onClick='return false'";
}
$ls_numconrec= $io_fun_inventario->uf_obtenervalor("txtnumconrec","");
$ls_numconrecmov= $io_fun_inventario->uf_obtenervalor("txtnumconrecmov","");
$ls_numordcom= $io_fun_inventario->uf_obtenervalor("txtnumordcom","");
$ls_codpro= $io_fun_inventario->uf_obtenervalor("txtcodpro","");
$ls_denpro= $io_fun_inventario->uf_obtenervalor("txtdenpro","");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm","");
$ls_nomfisalm= $io_fun_inventario->uf_obtenervalor("txtnomfisalm","");
$ld_fecrec= $io_fun_inventario->uf_obtenervalor("txtfecrec","");
$ls_obsrec= $io_fun_inventario->uf_obtenervalor("txtobsrec","");
$li_totentsum= $io_fun_inventario->uf_obtenervalor("txttotentsum","");
$ls_estapr= $io_fun_inventario->uf_obtenervalor("estapr","");
$ls_modprocede= $io_fun_inventario->uf_obtenervalor("txtmodprocede","SIV");
$ls_tipdoc= $io_fun_inventario->uf_obtenervalor("txttipdoc","INV");
//$ls_clasi= $io_fun_inventario->uf_obtenervalor("hclasi",""); print "valor".$ls_clasi;
for($li_i=1;$li_i<$li_totrows;$li_i++)
{
$ls_unidad= uf_obtenervalorunidad($li_i);
$li_unidad= $io_fun_inventario->uf_obtenervalor("hidunidad".$li_i,"");
$ls_codart= $io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_denunimed= $io_fun_inventario->uf_obtenervalor("txtdenunimed".$li_i,"");
$ls_codartpri= $io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_denart= $io_fun_inventario->uf_obtenervalor("txtdenart".$li_i,"");
$li_canart= $io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$li_penart= $io_fun_inventario->uf_obtenervalor("txtpenart".$li_i,"");
$li_preuniart= $io_fun_inventario->uf_obtenervalor("txtpreuniart".$li_i,"");
$li_canoriart= $io_fun_inventario->uf_obtenervalor("txtcanoriart".$li_i,"");
$li_montotart= $io_fun_inventario->uf_obtenervalor("txtmontotart".$li_i,"");
$ls_clasi= $io_fun_inventario->uf_obtenervalor("hclasi".$li_i,"");
$li_hidpendiente= $io_fun_inventario->uf_obtenervalor("hidpendiente".$li_i,"");
switch ($ls_unidad)
{
case "M":
$ls_unidadaux="Mayor";
break;
case "D":
$ls_unidadaux="Detal";
break;
}
if (($ls_status=="C")&&($li_i<=$li_catafilas))
{
}
else
{
$lo_object[$li_i][1]="".
"".
"";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="";
$lo_object[$li_i][4]="";
$lo_object[$li_i][5]="";
$lo_object[$li_i][6]="";
$lo_object[$li_i][7]="";
$lo_object[$li_i][8]="";
$lo_object[$li_i][9]="";
$lo_object[$li_i][10]="";
$lo_object[$li_i][11]="";
}
}
uf_agregarlineablancaorden($lo_object,$li_totrows,$ls_codart);
break;
case "ELIMINARDETALLE":
$ls_readonly="";
$li_totentsum=0;
if(array_key_exists("radiotipo",$_POST))
{
$ls_radiotipo= $io_fun_inventario->uf_obtenervalor("radiotipo","");
if($ls_radiotipo=="0")
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
}
if ($ls_radiotipo=="1")
{
$ls_checkedord="";
$ls_checkedfac="checked";
$ls_checkeddev="";
}
if ($ls_radiotipo=="2")
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="checked";
}
}
else
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="";
}
if(array_key_exists("radiotipentrega",$_POST))
{
$ls_estrec= $io_fun_inventario->uf_obtenervalor("radiotipentrega","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
$ls_readonlyrad="onClick='return false'";
}
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
$ls_numconrec="";
$ls_numordcom= $io_fun_inventario->uf_obtenervalor("txtnumordcom","");
$ls_codpro= $io_fun_inventario->uf_obtenervalor("txtcodpro","");
$ls_denpro= $io_fun_inventario->uf_obtenervalor("txtdenpro","");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm","");
$ls_nomfisalm= $io_fun_inventario->uf_obtenervalor("txtnomfisalm","");
$ld_fecrec= $io_fun_inventario->uf_obtenervalor("txtfecrec","");
$ls_obsrec= $io_fun_inventario->uf_obtenervalor("txtobsrec","");
$ls_numconrecmov=$io_fun_inventario->uf_obtenervalor("txtnumconrecmov","");
$ls_estapr= $io_fun_inventario->uf_obtenervalor("estapr","");
$ls_modprocede= $io_fun_inventario->uf_obtenervalor("txtmodprocede","SIV");
$ls_tipdoc= $io_fun_inventario->uf_obtenervalor("txttipdoc","INV");
$li_totrows=$li_totrows-1;
$li_rowdelete= $io_fun_inventario->uf_obtenervalor("filadelete","");
$li_temp=0;
for($li_i=1;$li_i<=$li_totrows;$li_i++)
{
if($li_i!=$li_rowdelete)
{
$li_temp=$li_temp+1;
$ls_unidad= uf_obtenervalorunidad($li_i);
$li_unidad= $io_fun_inventario->uf_obtenervalor("hidunidad".$li_i,"");
$ls_codart= $io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_denunimed= $io_fun_inventario->uf_obtenervalor("txtdenunimed".$li_i,"");
$ls_codartpri= $io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_denart= $io_fun_inventario->uf_obtenervalor("txtdenart".$li_i,"");
$li_canart= $io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$li_penart= $io_fun_inventario->uf_obtenervalor("txtpenart".$li_i,"");
$li_preuniart= $io_fun_inventario->uf_obtenervalor("txtpreuniart".$li_i,"");
$li_canoriart= $io_fun_inventario->uf_obtenervalor("txtcanoriart".$li_i,"");
$li_montotart= $io_fun_inventario->uf_obtenervalor("txtmontotart".$li_i,"");
$ls_clasi= $io_fun_inventario->uf_obtenervalor("hclasi".$li_i,"");
$li_montotartaux= str_replace(".","",$li_montotart);
$li_montotartaux= str_replace(",",".",$li_montotartaux);
$li_totentsum=$li_totentsum+$li_montotartaux;
uf_seleccionarcombo("D-M",$ls_unidad,$la_unidad,2);
switch ($ls_unidad)
{
case "M":
$ls_unidadaux="Mayor";
break;
case "D":
$ls_unidadaux="Detal";
break;
}
$lo_object[$li_temp][1]="".
"";
$lo_object[$li_temp][2]="";
$lo_object[$li_temp][3]="";
$lo_object[$li_temp][4]="";
$lo_object[$li_temp][5]="";
$lo_object[$li_temp][6]="";
$lo_object[$li_temp][7]="";
$lo_object[$li_temp][8]="";
$lo_object[$li_temp][9]="";
$lo_object[$li_temp][10]="";
$lo_object[$li_temp][11]="";
$lo_object[$li_temp][12]="";
$lo_object[$li_temp][13]="";
}
else
{
$li_rowdelete= 0;
}
}
if ($li_temp==0)
{
$li_totrows=1;
uf_agregarlineablanca($lo_object,$li_totrows);
}
else
{
uf_agregarlineablanca($lo_object,$li_totrows);
}
$li_totentsum=number_format($li_totentsum,2,',','.');
break;
case "BUSCARDETALLEORDEN":
$ls_readonly= $io_fun_inventario->uf_obtenervalor("hidreadonly","");
$ls_radiotipo= $io_fun_inventario->uf_obtenervalor("radiotipo","");
if($ls_radiotipo=="0")
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
}
if ($ls_radiotipo=="1")
{
$ls_checkedord="";
$ls_checkedfac="checked";
$ls_checkeddev="";
}
if ($ls_radiotipo=="3")
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="checked";
}
$ls_numconrec= $io_fun_inventario->uf_obtenervalor("txtnumconrec","");
$ls_numconrecmov= $io_fun_inventario->uf_obtenervalor("txtnumconrecmov","");
$ls_numordcom= $io_fun_inventario->uf_obtenervalor("txtnumordcom","");
$ls_codpro= $io_fun_inventario->uf_obtenervalor("txtcodpro","");
$ls_denpro= $io_fun_inventario->uf_obtenervalor("txtdenpro","");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm","");
$ls_nomfisalm= $io_fun_inventario->uf_obtenervalor("txtnomfisalm","");
$ld_fecrec= $io_fun_inventario->uf_obtenervalor("txtfecrec","");
$ls_obsrec= $io_fun_inventario->uf_obtenervalor("txtobsrec","");
$ls_estapr= $io_fun_inventario->uf_obtenervalor("estapr","");
$ls_modprocede= $io_fun_inventario->uf_obtenervalor("txtmodprocede","SIV");
$ls_tipdoc= $io_fun_inventario->uf_obtenervalor("txttipdoc","INV");
$li_totentsum="0,00";
$data="";
$li_totrows=0;
$ls_pendiente="";
$ls_checkedcomp="";
$ls_checkedparc="";
$ls_readonlyrad="";
$ld_fecrec1=$io_func->uf_convertirdatetobd($ld_fecrec);
uf_pintartituloorden($lo_object,$lo_title);
$lb_valido=$io_siv->uf_siv_obtener_dt_orden($ls_codemp,$ls_numordcom,$li_totrows,$lo_object);
if (!$lb_valido)
{
$li_totrows=1;
$ls_checkedcomp="";
$ls_checkedparc="";
$ls_readonlyrad="";
uf_pintartituloorden($lo_object,$lo_title);
uf_agregarlineablancaorden($lo_object,$li_totrows);
}
else
{
$li_totrows++;
uf_agregarlineablancaorden($lo_object,$li_totrows);
}
break;
case "BUSCARDETALLE":
$ls_radiotipo= $io_fun_inventario->uf_obtenervalor("radiotipo","");
if($ls_radiotipo=="0")
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
}
if ($ls_radiotipo=="1")
{
$ls_checkedord="";
$ls_checkedfac="checked";
$ls_checkeddev="";
}
if ($ls_radiotipo=="2")
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="checked";
}
$ls_estrec= $io_fun_inventario->uf_obtenervalor("radiotipentrega","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
$ls_readonlyrad="onClick='return false'";
}
$ls_numconrec= $io_fun_inventario->uf_obtenervalor("txtnumconrec","");
$ls_numconrecmov= $io_fun_inventario->uf_obtenervalor("txtnumconrecmov","");
$ls_numordcom= $io_fun_inventario->uf_obtenervalor("txtnumordcom","");
$ls_codpro= $io_fun_inventario->uf_obtenervalor("txtcodpro","");
$ls_denpro= $io_fun_inventario->uf_obtenervalor("txtdenpro","");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm","");
$ls_nomfisalm= $io_fun_inventario->uf_obtenervalor("txtnomfisalm","");
$ld_fecrec= $io_fun_inventario->uf_obtenervalor("txtfecrec","");
$ls_obsrec= $io_fun_inventario->uf_obtenervalor("txtobsrec","");
$ls_estapr= $io_fun_inventario->uf_obtenervalor("estapr","");
$ls_modprocede= $io_fun_inventario->uf_obtenervalor("txtmodprocede","SIV");
$ls_tipdoc= $io_fun_inventario->uf_obtenervalor("txttipdoc","INV");
// uf_pintartituloorden($lo_object,$lo_title);
$lb_valido=$io_siv->uf_siv_obtener_dt_recepcion($ls_codemp,$ls_numordcom,$ls_numconrec,$li_totrows,$lo_object,$li_totentsum);
uf_agregarlineablanca($lo_object,$li_totrows);
$li_totentsum=number_format($li_totentsum,2,',','.');
break;
case "COPIARREVERSO":
$ls_radiotipo= $io_fun_inventario->uf_obtenervalor("radiotipo","");
$ls_hidsaverev=$io_fun_inventario->uf_obtenervalor("hidsaverev","");
$ls_readonly="readonly";
if($ls_radiotipo=="0")
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
}
if ($ls_radiotipo=="1")
{
$ls_checkedord="";
$ls_checkedfac="checked";
$ls_checkeddev="";
}
if ($ls_radiotipo=="2")
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="checked";
}
$ls_estrec= $io_fun_inventario->uf_obtenervalor("radiotipentrega","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
$ls_readonlyrad="onClick='return false'";
}
$ls_numconrec= $io_fun_inventario->uf_obtenervalor("txtnumconrec","");
$ls_numconrecmov= $io_fun_inventario->uf_obtenervalor("txtnumconrecmov","");
$ls_numordcom= $io_fun_inventario->uf_obtenervalor("txtnumordcom","");
$ls_codpro= $io_fun_inventario->uf_obtenervalor("txtcodpro","");
$ls_denpro= $io_fun_inventario->uf_obtenervalor("txtdenpro","");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm","");
$ls_nomfisalm= $io_fun_inventario->uf_obtenervalor("txtnomfisalm","");
$ld_fecrec= $io_fun_inventario->uf_obtenervalor("txtfecrec","");
$ls_obsrec= $io_fun_inventario->uf_obtenervalor("txtobsrec","");
$ls_estapr= $io_fun_inventario->uf_obtenervalor("estapr","");
$ls_modprocede= $io_fun_inventario->uf_obtenervalor("txtmodprocede","SIV");
$ls_tipdoc= $io_fun_inventario->uf_obtenervalor("txttipdoc","INV");
//uf_pintartituloorden($lo_object,$lo_title);
//$lb_valido=$io_siv->uf_siv_obtener_dt_copia_reverso($ls_codemp,$ls_numordcom,$ls_numconrec,$li_totrows,$li_totentsum,$lo_object);
$lb_valido=$io_siv->uf_siv_obtener_dt_recepcion($ls_codemp,$ls_numordcom,$ls_numconrec,$li_totrows,$li_totentsum,$lo_object);////modificado el dia 03/12/2007
break;
case "GUARDARREVERSO";
$ls_estpro= $io_fun_inventario->uf_obtenervalor("radiotipo","");
$ls_numordcom= $io_fun_inventario->uf_obtenervalor("txtnumordcom","");
$ls_codpro= $io_fun_inventario->uf_obtenervalor("txtcodpro","");
$ls_denpro= $io_fun_inventario->uf_obtenervalor("txtdenpro","");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm","");
$ls_nomfisalm= $io_fun_inventario->uf_obtenervalor("txtnomfisalm","");
$ld_fecrec= $io_fun_inventario->uf_obtenervalor("txtfecrec","");
$ls_obsrec= $io_fun_inventario->uf_obtenervalor("txtobsrec","");
$ls_estrec= $io_fun_inventario->uf_obtenervalor("radiotipentrega","");
$li_totentsum= $io_fun_inventario->uf_obtenervalor("txttotentsum","");
$ls_numconrecmov=$io_fun_inventario->uf_obtenervalor("txtnumconrecmov","");
$ls_estapr= $io_fun_inventario->uf_obtenervalor("estapr","");
$ls_modprocede= $io_fun_inventario->uf_obtenervalor("txtmodprocede","SIV");
$ls_tipdoc= $io_fun_inventario->uf_obtenervalor("txttipdoc","INV");
if($ls_estpro==0)
{
$ls_checkedord="checked";
$ls_checkedfac="";
$ls_checkeddev="";
$ls_codprodoc="ORD";
}
elseif($ls_estpro==1)
{
$ls_checkedord="";
$ls_checkedfac="checked";
$ls_checkeddev="";
$ls_codprodoc="FAC";
$ls_numordcom=$ls_numordcom;
}
elseif($ls_estpro==2)
{
$ls_checkedord="";
$ls_checkedfac="";
$ls_checkeddev="checked";
$ls_codprodoc="DEV";
$ls_numordcom=$ls_numordcom;
}
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
$ls_readonlyrad="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
$ls_readonlyrad="onClick='return false'";
}
$ls_readonly="readonly";
$ls_numordcom=$io_func->uf_cerosizquierda($ls_numordcom,15);
$ld_fecrecbd=$io_func->uf_convertirdatetobd($ld_fecrec);
$lb_valido=$io_fec->uf_valida_fecha_mes($ls_codemp,$ld_fecrecbd);
if($lb_valido)
{
$ls_numconrec="";
$io_sql->begin_transaction();
$lb_valido=$io_siv->uf_siv_insert_recepcion($ls_codemp,$ls_numordcom,$ls_codpro,$ls_codalm,$ld_fecrecbd,
$ls_obsrec,$ls_codusu,$ls_estpro,$ls_estrec,$ls_numconrecmov,$la_seguridad);
if ($lb_valido)
{
$ls_nummov=0;
$ls_nomsol="Recepcion";
$lb_valido=$io_mov->uf_siv_insert_movimiento($ls_nummov,$ld_fecrecbd,$ls_nomsol,$ls_codusu,
$la_seguridad);
}
if ($lb_valido)
{
if($ls_estpro==0)
{
$li_totrowsaux=$li_totrows+1;
}
else
{
$li_totrowsaux=$li_totrows;
}
for($li_i=1;$li_i<$li_totrowsaux;$li_i++)
{
$ls_unidad= uf_obtenervalorunidad($li_i);
$li_unidad= $io_fun_inventario->uf_obtenervalor("hidunidad".$li_i,"");
$ls_codart= $io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$li_canart= $io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$li_penart= $io_fun_inventario->uf_obtenervalor("txtpenart".$li_i,"");
$li_preuniart= $io_fun_inventario->uf_obtenervalor("txtpreuniart".$li_i,"");
$li_canoriart= $io_fun_inventario->uf_obtenervalor("txtcanoriart".$li_i,"");
$li_montotart= $io_fun_inventario->uf_obtenervalor("txtmontotart".$li_i,"");
$li_monsubart= $io_fun_inventario->uf_obtenervalor("txtmontotart".$li_i,"");
$li_canart= str_replace(".","",$li_canart);
$li_canart= str_replace(",",".",$li_canart);
$li_penart= str_replace(".","",$li_penart);
$li_penart= str_replace(",",".",$li_penart);
$li_preuniart= str_replace(".","",$li_preuniart);
$li_preuniart= str_replace(",",".",$li_preuniart);
$li_canoriart= str_replace(".","",$li_canoriart);
$li_canoriart= str_replace(",",".",$li_canoriart);
$li_montotart= str_replace(".","",$li_montotart);
$li_montotart= str_replace(",",".",$li_montotart);
$li_monsubart= str_replace(".","",$li_monsubart);
$li_monsubart= str_replace(",",".",$li_monsubart);
if($li_canart=="")
{
$li_canart=0.00;
$li_montotart=0.00;
$li_monsubart=0.00;
$li_penart=$li_canoriart;
}
if ($ls_unidad=="M")
{
$li_canart= ($li_canart * $li_unidad);
}
$lb_valido=$io_siv->uf_siv_insert_dt_recepcion($ls_codemp,$ls_numordcom,$ls_codart,$ls_unidad,$li_canart,
$li_penart,$li_preuniart,$li_monsubart,$li_montotart,
$li_i,$li_canoriart,$ls_numconrecmov,$la_seguridad);
if ($lb_valido)
{
$lb_valido=$io_art->uf_siv_aumentar_articuloxalmacen($ls_codemp,$ls_codart,$ls_codalm,
$li_canart,$la_seguridad);
if($lb_valido)
{
$ls_opeinv="ENT";
$ls_promov="RPC";
$lb_valido=$io_mov->uf_siv_insert_dt_movimiento($ls_codemp,$ls_nummov,$ld_fecrecbd,
$ls_codart,$ls_codalm,$ls_opeinv,
$ls_codprodoc,$ls_numordcom,$li_canart,
$li_preuniart,$ls_promov,$ls_numconrecmov,
$li_canart,$ld_fecrecbd,$la_seguridad);
}
}
if($lb_valido)
{
$lb_valido=$io_art->uf_siv_actualizar_cantidad_articulos($ls_codemp,$ls_codart,$la_seguridad);
}
}
}
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("La entrada de suministros a almacén ha sido procesada");
if($ls_estpro==0)
{
uf_pintartituloorden($lo_object,$lo_title);
}
uf_pintardetalle($li_totrowsaux,$ls_estpro);
$ls_status="C";
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo procesar la entrada de suministros a almacén");
uf_pintardetalle($li_totrowsaux,$ls_estpro);
}
}
else
{
$io_msg->message("El mes no esta abierto");
$li_totrows=1;
uf_agregarlineablanca($lo_object,$li_totrows);
uf_limpiarvariables();
}
break;
}
?>