";
print "
";
print "| Comprobante | ";
print "Descripcion Comprobante | ";
print "Procede | ";
print "Fecha | ";
print "Proveedor | ";
print "Beneficiario | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_sql=" SELECT procede,comprobante,descripcion,fecha,cod_pro,ced_bene,estapro ".
" FROM sigesp_cmp_md ".
" WHERE codemp='".$ls_codemp."' ".
" AND comprobante like '".$ls_comprobante."'";
if((($ls_fecdesde!="")&&($ls_fecdesde!="01/01/1900"))&&(($ls_fechasta!="")&&($ls_fechasta!="01/01/1900")))
{
$ls_fecdesde=substr($ls_fecdesde,6,4)."/".substr($ls_fecdesde,3,2)."/".substr($ls_fecdesde,0,2);
$ls_fechasta=substr($ls_fechasta,6,4)."/".substr($ls_fechasta,3,2)."/".substr($ls_fechasta,0,2);
$ls_sql=$ls_sql." AND fecha>='".$ls_fecdesde."' AND fecha<='".$ls_fechasta."'";
}
if($ls_procedencia!="N")
{
$ls_sql=$ls_sql." AND procede ='".$ls_procedencia."'";
}
$rs_cta=$SQL_cmp->select($ls_sql);
$data=$rs_cta;
if($row=$SQL_cmp->fetch_row($rs_cta))
{
$data=$SQL_cmp->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("comprobante");
for($z=1;$z<=$totrow;$z++)
{
$ls_comprobante=$data["comprobante"][$z];
$ls_descripcion=$data["descripcion"][$z];
$ls_procedencia=$data["procede"][$z];
$ls_fecha=$data["fecha"][$z];
$ls_fecha=substr($ls_fecha,8,2)."/".substr($ls_fecha,5,2)."/".substr($ls_fecha,0,4);
$ls_prov=$data["cod_pro"][$z];
$ls_bene=$data["ced_bene"][$z];
if(($ls_prov=="----------")&&($ls_bene=="----------"))
{
$ls_tip="-";
}
elseif(($ls_prov=="----------")&&($ls_bene!="----------"))
{
$ls_tip="B";
}
elseif(($ls_prov!="----------")&&($ls_bene=="----------"))
{
$ls_tip="P";
}
$li_estapro=$data["estapro"][$z];
print "
";
print "| ".$ls_comprobante." | ";
print "".$ls_descripcion." | ";
print "".$ls_procedencia." | ";
print "".$ls_fecha." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "
";
}
}
else
{
?>
";
?>