$ds_voucher->data=$data;
$li_totrow=$ds_voucher->getRowCount("numdoc");
$io_pdf->transaction('start'); // Iniciamos la transacci�n
$thisPageNum=$io_pdf->ezPageCount;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$li_totprenom = 0;
$ldec_mondeb = 0;
$ldec_monhab = 0;
$li_totant = 0;
$ls_numdoc = $ds_voucher->data["numdoc"][$li_i];
$ls_codban = $ds_voucher->data["codban"][$li_i];
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT nomban FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
$ls_ctaban = $ds_voucher->data["ctaban"][$li_i];
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben = $ds_voucher->data["nomproben"][$li_i];
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
//$ldec_total = $ldec_monto-$ldec_monret;
$ldec_total = $ldec_monto;
//Asigno el monto a la clase numero-letras para la conversion.
$numalet->setNumero($ldec_total);
//Obtengo el texto del monto enviado.
$ls_monto= $numalet->letra();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf); // Imprimimos el encabezado de la p�gina
}
$ds_voucher->data=$data;
$li_totrow=$ds_voucher->getRowCount("numdoc");
$io_pdf->transaction('start'); // Iniciamos la transacción
$thisPageNum=$io_pdf->ezPageCount;
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
unset($la_data);
$li_totprenom=0;
$ldec_mondeb=0;
$ldec_monhab=0;
$li_totant=0;
$ls_numdoc = $ds_voucher->data["numdoc"][$li_i];
$ls_codban = $ds_voucher->data["codban"][$li_i];
$ls_nomban = $class_report->uf_select_data($io_sql,"SELECT * FROM scb_banco WHERE codban ='".$ls_codban."' AND codemp='".$ls_codemp."'","nomban");
$ls_ctaban = $ds_voucher->data["ctaban"][$li_i];
$ls_denctaban = $class_report->uf_select_data($io_sql,"SELECT dencta FROM scb_ctabanco WHERE codemp='".$ls_codemp."' AND codban ='".$ls_codban."' AND ctaban ='".$ls_ctaban."'","dencta");
$ls_chevau = $ds_voucher->data["chevau"][$li_i];
$ld_fecmov = $io_funciones->uf_convertirfecmostrar($ds_voucher->data["fecmov"][$li_i]);
$ls_nomproben = $ds_voucher->data["nomproben"][$li_i];
$ls_nomproben = str_replace(",","",$ls_nomproben);
$ls_solicitudes = $class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov = $ds_voucher->getValue("conmov",$li_i);
$ldec_monret = $ds_voucher->getValue("monret",$li_i);
$ldec_monto = $ds_voucher->getValue("monto",$li_i);
$ldec_total = $ldec_monto-$ldec_monret;
$ls_monto = $numalet->uf_convertir_letra($ldec_total,'','');
$io_encabezado = $io_pdf->openObject();
uf_print_encabezado_pagina(number_format($ldec_total,2,",","."),$ls_nomproben,$ls_monto,$_SESSION["la_empresa"]["ciuemp"].", ".$ld_fecmov,$io_pdf,$y_pos); // Imprimimos el encabezado de la página
uf_print_cabecera(array('title'=>'<b>Registro Presupuestario Pago</b>','title2'=>'<b>Registro Contable Pago</b>'),$ls_numdoc,$ls_nomban,$ls_ctaban,$ls_denctaban,$ls_chevau,$ls_nomproben,$ls_solicitudes,$ls_conmov,$ld_fecmov,number_format($ldec_total,2,",","."),$ls_monto,$io_pdf); // Imprimimos la cabecera del registro
$ldec_monhab=0;
$li_totant=0;
$ls_numdoc=$ds_voucher->getValue("numdoc",1);
$ls_codban_tesoreria=$ds_voucher->getValue("codban",1);
$ls_agno=date("Y");
$ls_ctaban_tesoreria=$ds_voucher->getValue("ctaban",1);
$ls_chevau=$ds_voucher->getValue("chevau",1);
$ld_fecmov=$io_funciones->uf_convertirfecmostrar($ds_voucher->getValue("fecmov",1));
$ls_nomproben=$ds_voucher->getValue("nomproben",1);
$ls_solicitudes=$class_report->uf_select_solicitudes($ls_numdoc,$ls_codban,$ls_ctaban);
$ls_conmov=$ds_voucher->getValue("conmov",1);
$ldec_monret=$ds_voucher->getValue("monret",1);
$ldec_monto=$ds_voucher->getValue("monto",1);
$ldec_total=$ldec_monto-$ldec_monret;
$ls_coduniadm=$ds_voucher->getValue("coduniadmsig",1);
$ls_nomuniadm=$class_report->uf_select_data($io_sql,"SELECT * FROM spg_ministerio_ua WHERE coduac ='".$ls_coduniadm."' AND codemp='".$ls_codemp."'","denuac");
$ls_codestpro=$ds_voucher->getValue("codestprosig",1);
$rs_estpro=$class_report->uf_select_rowdata($io_sql,"SELECT * FROM spg_ep1 WHERE codestpro1 ='".$ls_codestpro."' AND codemp='".$ls_codemp."'");
$ls_estcla_estpro=$rs_estpro["estcla"];
$ls_denestpro1=$rs_estpro["denestpro1"];
$ls_codpro=$ds_voucher->getValue("cod_pro",1);
$ls_cedben=$ds_voucher->getValue("ced_bene",1);
$ls_tipodestino=$ds_voucher->getValue("tipo_destino",1);
$ls_tipdocres=$ds_voucher->getValue("tipdocressig",1);
$ls_numdocres=$ds_voucher->getValue("numdocressig",1);
$ld_fecordpag=$io_funciones->uf_convertirfecmostrar($ds_voucher->getValue("fecordpagsig",1));
$ls_fte_financiamiento=$ds_voucher->getValue("codfuefin",1);
$ls_nomfuefin=$class_report->uf_select_data($io_sql,"SELECT * FROM sigesp_fuentefinanciamiento WHERE codfuefin ='".$ls_fte_financiamiento."' AND codemp='".$ls_codemp."'","denfuefin");
$ls_forpag=$ds_voucher->getValue("forpagsig",1);
if($ls_forpag=='D')
{$ls_denforpag='Directa';}
{
$ld_monislrjur = number_format($ld_montotislr,2,',','.');//Impuesto aplicado sobre persona Jurídica.
}
elseif(strtoupper($ls_tipretislr)=="N")
{
$ld_monislrnat = number_format($ld_montotislr,2,',','.');//Impuesto aplicado sobre persona Natural.
}
}
$li_totfil = 0;
for ($i=0;$i<$li_totrowsol;$i++)
{
$ls_numsolpag = $la_numsolpag[$i];
if (!empty($ls_numsolpag))
{
$li_totfil++;
$ls_fecemisol = $class_report->uf_select_data($io_sql,"SELECT fecemisol FROM cxp_solicitudes WHERE codemp='".$ls_codemp."' AND numsol ='".$ls_numsolpag."'","fecemisol");
$la_datsolpag[$li_totfil] = array('anoordpag'=>substr($ls_fecemisol,0,4),'numordpag'=>substr($ls_numsolpag,-9),'fecordpag'=>substr($ls_fecemisol,-2)."-".substr($ls_fecemisol,5,2));
}
}
}
else
{
if ($ldec_monret>0)
{
$ld_montotiva = $class_report->uf_load_retenciones_scb($ls_codemp,$ls_codban,$ls_ctaban,$ls_numdoc,$ls_codope,$ls_estmov,$ls_tipretislr,"IVA");
if ($ld_montotiva>0)
{
$ld_monretiva = number_format($ld_montotiva,2,',','.');
}
if ($ld_montotiva<$ldec_monret)//Realizamos esta verificacion para ver si hace falta buscar retenciones de islr.
{
