Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/12/2010, 05:01
MOREN028
 
Fecha de Ingreso: noviembre-2010
Mensajes: 4
Antigüedad: 14 años, 1 mes
Puntos: 0
Problemas imagen fpdf y bucle for

Buenas!

A ver si a alguien se le ocurre una idea con mi problema. Me explico, estoy creando un pdf con fpdf. Debe poner una serie de datos que provienen de mi base de datos. Tengo un bucle for para que para cada registro me ponga una imagen de fondo y coloque correctamente los datos. Todo está cuadrado pero tengo un problema que no sé resolver y me resulta extraño: La primera vez que incluyo la imagen en el pdf el bucle for me da un salto de 2 números!!!!

Os pongo el código para que lo veais:

for i=0 to total step 1
arra=i
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("bd/datos.mdb")
SQL2="SELECT * from ficha where id=" & arraidatos(arra) & ""
rs.Open SQL2, oConn, 2,3

registro=arra
registro=registro+1
modulo=registro mod 6

if registro>5 then
if modulo=0 then
pdf.AddPage()

salto=0

end if
else
if arra=0 then
pdf.AddPage()


end if
end if
coorfoto=20+salto

----------------------- En este punto, la primera vez que se ejecuta el bucle for i vale 0

pdf.image "fotos/fondoimpresionpdf.jpg", 30 , coorfoto, 150 , 37

-----------------------En este punto, i vale 2 justo después de poner la imagen (no entiendo por qué...)


nombre=rs.Fields("nombre")
poblacion=rs.Fields("poblacion")
provincia=rs.Fields("provincia")
calle=rs.Fields("calle")
numero=rs.Fields("numero")
tipocomida=rs.Fields("tipocomida")
telefono=rs.Fields("telefono")
direccion= calle & ", " & numero

pdf.SetFont "Arial","B",14

pdf.SetY 21+salto
pdf.SetX 30
pdf.Cell 150,7, nombre,centrado,1,alinea

pdf.SetFont "Arial","",8
pdf.SetY 29+salto
pdf.Setx 61
pdf.Cell 44,8, direccion,centrado,0,alinea
pdf.Setx 136
pdf.Cell 44,8, poblacion,centrado,1,alinea
pdf.SetY 38+salto
pdf.SetX 61
pdf.Cell 44,8, tipocomida,centrado,0,alinea
pdf.SetX 136
pdf.Cell 44,8, provincia,centrado,1,alinea


pdf.SetFont "Arial","B",14
pdf.SetY 50+salto
pdf.SetX 103
pdf.Cell 45,8, telefono,centrado,0,alinea

salto=salto+45

next

A partir de la primera vez que el bucle for se ejecuta, i pasa a valer 2 y luego se va incrementando normalmente. ¿A alguien se le ocurre que puede estar pasando?