$ls_numerox=$_POST["txtnumero_x"];
$ls_numeroy=$_POST["txtnumero_y"];
$ls_informacionx=$_POST["txtinformacion_x"];
$ls_informaciony=$_POST["txtinformacion_y"];
$ls_elaboradoporx = $_POST["txtelaboradopor_x"];
$ls_elaboradopory = $_POST["txtelaboradopor_y"];
if($ls_operacion=="NUEVO")
{
uf_obtener_data_archivo();
}
elseif($ls_operacion=="GUARDAR")
{
if(file_exists($ls_archivo))
{
$ls_cadena_guardar=uf_convertir($ls_montox)."-".uf_convertir($ls_montoy)."-".uf_convertir($ls_destinox)."-".uf_convertir($ls_destinoy)."-".uf_convertir($ls_montoletras1x)."-".uf_convertir($ls_montoletras1y)."-".uf_convertir($ls_montoletras2x)."-".uf_convertir($ls_montoletras2y)."-".uf_convertir($ls_fechax)."-".uf_convertir($ls_fechay)."-".uf_convertir($ls_anox)."-".uf_convertir($ls_anoy)."-".uf_convertir($ls_noendosablex)."-".uf_convertir($ls_noendosabley)."-".uf_convertir($ls_caducax)."-".uf_convertir($ls_caducay)."-".uf_convertir($ls_conceptox)."-".uf_convertir($ls_conceptoy)."-".uf_convertir($ls_informacionx)."-".uf_convertir($ls_informaciony)."-".uf_convertir($ls_numerox)."-".uf_convertir($ls_numeroy)."-".uf_convertir($ls_elaboradoporx)."-".uf_convertir($ls_elaboradopory);
$archivo = fopen($ls_archivo, "w");
$lb_exito=fwrite($archivo,$ls_cadena_guardar);
fclose($archivo);
if($lb_exito==false)
{
print "<script>";
print "alert('Ocurrio un error, favor intentar de nuevo');";
print "</script>";
}
else
{
print "<script>";
print "alert('Las medidas fueron actualizadas');";
print "</script>";
}
}
}
if(!$lb_existe)
{
$li_index=count($la_dataaux)+1;
$la_dataaux[$li_index]=$la_data[$li_k];
}
else
{
$ls_monto_spg1 = uf_convertir($la_dataaux[$li_pos]["monto_spg"]);
$ls_monto_spg2 = uf_convertir($la_data[$li_k]["monto_spg"]);
$ls_monto_debe1 = uf_convertir($la_dataaux[$li_pos]["debe"]);
$ls_monto_debe2 = uf_convertir($la_data[$li_k]["debe"]);
$ls_monto_haber1 = uf_convertir($la_dataaux[$li_pos]["haber"]);
$ls_monto_haber2 = uf_convertir($la_data[$li_k]["haber"]);
$la_dataaux[$li_pos]["monto_spg"] = number_format(($ls_monto_spg1 + $ls_monto_spg2),2,",",".");
if (($ls_monto_debe1 + $ls_monto_debe2) != 0)
$la_dataaux[$li_pos]["debe"] = number_format(($ls_monto_debe1 + $ls_monto_debe2),2,",",".");
else
$la_dataaux[$li_pos]["debe"]="";
if(($ls_monto_haber1 + $ls_monto_haber2) != 0)
$la_dataaux[$li_pos]["haber"] = number_format(($ls_monto_haber1 + $ls_monto_haber2),2,",",".");
else
$la_dataaux[$li_pos]["haber"]="";
}
}
$io_pdf->y=190;
$io_pdf->y=440;
function uf_print_detalle($la_data,&$io_pdf)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_detalle
// Acess: private
// Arguments: la_data // arreglo de información
// io_pdf // Objeto PDF
// Description: función que imprime el detalle
// Creado Por: Ing. Laura Cabré
// Fecha Creación: 22/11/2006
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$io_pdf->ezSetDy(-15);
$la_opciones=array('left'=>28);
$la_titulos[0]["1"]="<b>FECHA</b>";
$la_titulos[0]["2"]="<b>DOCUMENTO</b>";
$la_titulos[0]["3"]="<b>PROVEEDOR/BENEFICIARIO</b>";
$la_titulos[0]["4"]="<b>MONTO</b>";
$la_anchos_col = array(20,35,90,40);
$la_justificaciones = array("center","center","left","right");
$la_justificaciones_titulos = array("center","center","center","center");
$la_opciones_data = array("color_texto" => array(0,0,0),
"anchos_col" => $la_anchos_col,
"tamano_texto"=> 9,
"lineas"=>1,
"alineacion_col"=>$la_justificaciones,
"margen_horizontal"=>2,
"margen_vertical"=>1);
$la_opciones_titulos = array("color_texto" => array(0,0,0),
"anchos_col" => $la_anchos_col,
"tamano_texto"=> 8,
"lineas"=>1,
"alineacion_col"=>$la_justificaciones_titulos,
"margen_horizontal"=>2,
"margen_vertical"=>1);
for($li_i=0;$li_i<count($la_data);$li_i++)
{
$la_data_aux=array();
$la_data_aux=$la_data[$li_i]["data"];
$ls_nombre=$la_data[$li_i]["nombre"];
$ls_tipo=$la_data[$li_i]["tipo"];
if(count($la_data_aux)>0)
{
$io_pdf->ezText("<b>".$ls_tipo." ".$ls_nombre."</b>",9,$la_opciones);
$io_pdf->add_tabla(10,$la_titulos,$la_opciones_titulos);
$io_pdf->ezSetDy(-0.5);
$io_pdf->add_tabla(10,$la_data_aux,$la_opciones_data);
$io_pdf->ezSetDy(-15);
//------Imprimiendo el total----------------
$li_total=0;
for($li_k=0;$li_k<count($la_data_aux);$li_k++)
{
$li_total=$li_total+uf_convertir($la_data_aux[$li_k]["monto"]);
}
$io_pdf->ezSetDy(-10);
$la_opciones_2=array('left'=>250);
$li_pos=$io_pdf->y;
$io_pdf->ezText("<b>TOTAL $ls_nombre EN TRANSITO</b>",9,$la_opciones_2);//
$io_pdf->y=$li_pos;
if($ls_tipo=="MAS")
$la_data_monto[0]["1"]="<b>".number_format($li_total,2,",",".")."</b>";
else
$la_data_monto[0]["1"]="<b>".number_format($li_total,2,",",".")."</b>";
$la_justificaciones = array();
$la_anchos_col = array();
$la_justificaciones = array("right");
$la_anchos_col = array(40);
$la_opciones_monto = array("color_texto" => array(0,0,0),
"anchos_col" => $la_anchos_col,
"tamano_texto"=> 9,
"lineas"=>0,
"alineacion_col"=>$la_justificaciones,
"margen_horizontal"=>2,
"margen_vertical"=>1);
$io_pdf->add_tabla(155,$la_data_monto,$la_opciones_monto);
$io_pdf->ezSetDy(-15);
}
}
}// end function uf_print_detalle
$ls_numnc =number_format($io_cmpret->ds_dt_cmpret->getValue("numnc",1),2,",",".");
//$ls_tiptra=$io_cmpret->ds_dt_cmpret->getValue("tiptrans",1);
$ldec_totconiva=number_format($io_cmpret->ds_dt_cmpret->getValue("totcmp_con_iva",1),2,",",".");
$ldec_totsiniva=number_format($io_cmpret->ds_dt_cmpret->getValue("totcmp_sin_iva",1),2,",",".");
$ldec_baseimp=number_format($io_cmpret->ds_dt_cmpret->getValue("basimp",1),2,",",".");
$ldec_porimp=number_format($io_cmpret->ds_dt_cmpret->getValue("porimp",1),2,",",".");
$ldec_totimp=number_format($io_cmpret->ds_dt_cmpret->getValue("totimp",1),2,",",".");
$ldec_retmun=number_format($io_cmpret->ds_dt_cmpret->getValue("iva_ret",1),2,",",".");
$ls_solpag=$io_cmpret->ds_dt_cmpret->getValue("numsop",1);
}
if($ls_operacion=="GUARDAR")
{
$io_cmpret->io_sql->begin_transaction();
$lb_valido=$io_cmpret->uf_update_dt_cmp_ret($ls_codret,$ls_numcom,$ls_numope,$ld_fecfac,$ls_numfac,$ls_numcon,uf_convertir($ldec_totsiniva),uf_convertir($ldec_totconiva),uf_convertir($ldec_baseimp),uf_convertir($ldec_porimp),uf_convertir($ldec_totimp),uf_convertir($ldec_retmun),$ls_solpag );
if($lb_valido)
{
$io_cmpret->io_sql->commit();
print "<script>";
print "alert('El comprobante fue modificado');";
print "opener.document.form1.operacion.value='CARGAR_DT';";
print "opener.document.form1.submit();";
print "</script>";
}
else
{
$io_cmpret->io_sql->rollback();
}
}
$ls_anox=$_POST["txtano_x"];
$ls_anoy=$_POST["txtano_y"];
$ls_noendosablex=$_POST["txtnoendosable_x"];
$ls_noendosabley=$_POST["txtnoendosable_y"];
$ls_caducax=$_POST["txtcaduca_x"];
$ls_caducay=$_POST["txtcaduca_y"];
//$ls_infoy=$_POST["txtinfo_x"];
if($ls_operacion=="NUEVO")
{
uf_obtener_data_archivo();
}
elseif($ls_operacion=="GUARDAR")
{
if(file_exists($ls_archivo))
{
$ls_cadena_guardar=uf_convertir($ls_montox)."-".uf_convertir($ls_montoy)."-".uf_convertir($ls_destinox)."-".uf_convertir($ls_destinoy)."-".uf_convertir($ls_montoletras1x)."-".uf_convertir($ls_montoletras1y)."-".uf_convertir($ls_montoletras2x)."-".uf_convertir($ls_montoletras2y)."-".uf_convertir($ls_fechax)."-".uf_convertir($ls_fechay)."-".uf_convertir($ls_anox)."-".uf_convertir($ls_anoy)."-".uf_convertir($ls_noendosablex)."-".uf_convertir($ls_noendosabley)."-".uf_convertir($ls_caducax)."-".uf_convertir($ls_caducay);
$archivo = fopen($ls_archivo, "w");
$lb_exito=fwrite($archivo,$ls_cadena_guardar);
fclose($archivo);
if($lb_exito==false)
{
print "<script>";
print "alert('Ocurrio un error, favor intentar de nuevo');";
//print "location.href='sigespwindow_blank.php';";
print "</script>";
}
else
{
print "<script>";
print "alert('Las medidas fueron actualizadas');";
//print "location.href='sigespwindow_blank.php';";
