La consulta que quiero hacerles es acerca de los report en gambas mi reporte ya lo genere solo con reportlabel y tengo un resultado a este.
lo que quiero hacer es alinear el detalle de la factura que se muestre por columnas como todos sabemos que es una factura
espero me puedan auxiliar.... un saludo.
si requieren código aquí lo pongo quizá alguien le sirva también
PRIVATE SUB impreReport()
DIM $kbzra AS ReportLabel
DIM $teXto AS ReportLabel
DIM $i1 AS Integer
DIM $i2 AS Integer
DIM $i3 AS Integer
DIM $rsTcompras AS Result
DIM $rsTcompras2 AS Result
DIM $rsTcompras3 AS Result
DIM $rsTemple AS Result
DIM $rsTprovedo AS Result
$rsTcompras = cNxs.$cOn.Exec("SELECT * FROM compras1 WHERE ordn_comp='000005'")
$rsTcompras2 = cNxs.$cOn.Exec("SELECT * FROM compras2 WHERE ordn_comp='000005'")
$rsTcompras3 = cNxs.$cOn.Exec("SELECT * FROM compras3 WHERE ordn_comp='000005'")
$rsTemple = cNxs.$cOn.Exec("SELECT * FROM empleados WHERE pass_empl='roro'")
$rsTprovedo = cNxs.$cOn.Exec("SELECT * FROM proveedores WHERE clav_prov='01'")
Report.Width = "216 mm"
Report.Height = "279 mm"
Report.Padding = "1 cm"
'hacemos la cabezera del documento en mi caso pongo esos datos
$kbzra = NEW ReportLabel(Report)
$kbzra.Alignment = Align.Left
$kbzra.Text = "Masotek Mictlan\nCalle 10 Lote 9 Manzana 27\nCol. Olivo II C.P. 54110\nTlalnepantla de Baz, Edo. de Mexico"
'colocamos la fecha y hora en que se genera el reporte
$kbzra = NEW ReportLabel(Report) 'crea una nueva etiqueta
$kbzra.Alignment = Align.Right 'a linea a la etiqueta creada
$kbzra.Text = "Fecha de Reporte " & Date & "\nHora de Reporte " & Format(Time(), "hh:nn:ss") 'contenido de la etiqueta
'coloco los datos de la compra como proveedors y quien realizo las capturas
FOR $i1 = 0 TO ($rsTcompras.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.Text = "Autoriza " & $rsTcompras!auto_comp
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Right
$teXto.Text = "Orden " & $rsTcompras!ordn_comp
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Right
$teXto.Text = "Fecha " & $rsTcompras!fech_comp & "\nHora Entrada " & $rsTcompras!entr_comp & "\nHora Captura " & $rsTcompras!capt_comp & "\nHora Liberado " & $rsTcompras!libe_comp
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.Text = "Proveedor " & $rsTprovedo!nomb_prov & "\nDireccion " & $rsTprovedo!call_prov & " " & $rsTprovedo!next_prov & " " & $rsTprovedo!nint_prov & " " & $rsTprovedo!colo_prov & "\nFactura Entrante " & $rsTcompras!fact_comp & "\nOperador " & $rsTemple!nomb_empl & " " & $rsTemple!apat_empl & " " & $rsTemple!amat_empl
$rsTcompras.MoveNext
NEXT
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.LineStyle = Line.Dot
$teXto.Font = Font["Arial, 5"]
'ahora cargamos los detalles de esa compra los cuales se hicieron en el query de compras2
FOR $i2 = 0 TO ($rsTcompras2.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Text = $rsTcompras2!codi_comp & " "
$teXto.Text &= $rsTcompras2!desc_comp & " "
$teXto.Text &= $rsTcompras2!impo_comp & " "
$teXto.Text &= $rsTcompras2!cant_comp & " "
$teXto.Text &= $rsTcompras2!tota_comp & "\n"
$rsTcompras2.MoveNext
NEXT
'colocamos el embalaje y el total de la compra que ingreso a el sistema
FOR $i3 = 0 TO ($rsTcompras3.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Text = "Volumen Ingresado " & $rsTcompras3!volu_comp & " cm3 \nPeso Ingresado " & $rsTcompras3!peso_comp & " Kg \n"
$teXto = NEW ReportLabel(Report)
$teXto.Width = "6.5 cm"
$teXto.Alignment = Align.BottomRight
$teXto.Text = "\nSubtotal $ " & $rsTcompras3!subt_comp & "\nI.V.A. $ " & $rsTcompras3!iva_comp & "\n Total $ " & $rsTcompras3!tota_comp
$rsTcompras3.MoveNext
NEXT
$teXto = NEW ReportLabel(Report)
$teXto.Text = "\nPorque te mereces lo mejor estamos para ti...: " & Date
Report.Preview
END
DIM $kbzra AS ReportLabel
DIM $teXto AS ReportLabel
DIM $i1 AS Integer
DIM $i2 AS Integer
DIM $i3 AS Integer
DIM $rsTcompras AS Result
DIM $rsTcompras2 AS Result
DIM $rsTcompras3 AS Result
DIM $rsTemple AS Result
DIM $rsTprovedo AS Result
$rsTcompras = cNxs.$cOn.Exec("SELECT * FROM compras1 WHERE ordn_comp='000005'")
$rsTcompras2 = cNxs.$cOn.Exec("SELECT * FROM compras2 WHERE ordn_comp='000005'")
$rsTcompras3 = cNxs.$cOn.Exec("SELECT * FROM compras3 WHERE ordn_comp='000005'")
$rsTemple = cNxs.$cOn.Exec("SELECT * FROM empleados WHERE pass_empl='roro'")
$rsTprovedo = cNxs.$cOn.Exec("SELECT * FROM proveedores WHERE clav_prov='01'")
Report.Width = "216 mm"
Report.Height = "279 mm"
Report.Padding = "1 cm"
'hacemos la cabezera del documento en mi caso pongo esos datos
$kbzra = NEW ReportLabel(Report)
$kbzra.Alignment = Align.Left
$kbzra.Text = "Masotek Mictlan\nCalle 10 Lote 9 Manzana 27\nCol. Olivo II C.P. 54110\nTlalnepantla de Baz, Edo. de Mexico"
'colocamos la fecha y hora en que se genera el reporte
$kbzra = NEW ReportLabel(Report) 'crea una nueva etiqueta
$kbzra.Alignment = Align.Right 'a linea a la etiqueta creada
$kbzra.Text = "Fecha de Reporte " & Date & "\nHora de Reporte " & Format(Time(), "hh:nn:ss") 'contenido de la etiqueta
'coloco los datos de la compra como proveedors y quien realizo las capturas
FOR $i1 = 0 TO ($rsTcompras.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.Text = "Autoriza " & $rsTcompras!auto_comp
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Right
$teXto.Text = "Orden " & $rsTcompras!ordn_comp
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Right
$teXto.Text = "Fecha " & $rsTcompras!fech_comp & "\nHora Entrada " & $rsTcompras!entr_comp & "\nHora Captura " & $rsTcompras!capt_comp & "\nHora Liberado " & $rsTcompras!libe_comp
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.Text = "Proveedor " & $rsTprovedo!nomb_prov & "\nDireccion " & $rsTprovedo!call_prov & " " & $rsTprovedo!next_prov & " " & $rsTprovedo!nint_prov & " " & $rsTprovedo!colo_prov & "\nFactura Entrante " & $rsTcompras!fact_comp & "\nOperador " & $rsTemple!nomb_empl & " " & $rsTemple!apat_empl & " " & $rsTemple!amat_empl
$rsTcompras.MoveNext
NEXT
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.LineStyle = Line.Dot
$teXto.Font = Font["Arial, 5"]
'ahora cargamos los detalles de esa compra los cuales se hicieron en el query de compras2
FOR $i2 = 0 TO ($rsTcompras2.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Text = $rsTcompras2!codi_comp & " "
$teXto.Text &= $rsTcompras2!desc_comp & " "
$teXto.Text &= $rsTcompras2!impo_comp & " "
$teXto.Text &= $rsTcompras2!cant_comp & " "
$teXto.Text &= $rsTcompras2!tota_comp & "\n"
$rsTcompras2.MoveNext
NEXT
'colocamos el embalaje y el total de la compra que ingreso a el sistema
FOR $i3 = 0 TO ($rsTcompras3.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Text = "Volumen Ingresado " & $rsTcompras3!volu_comp & " cm3 \nPeso Ingresado " & $rsTcompras3!peso_comp & " Kg \n"
$teXto = NEW ReportLabel(Report)
$teXto.Width = "6.5 cm"
$teXto.Alignment = Align.BottomRight
$teXto.Text = "\nSubtotal $ " & $rsTcompras3!subt_comp & "\nI.V.A. $ " & $rsTcompras3!iva_comp & "\n Total $ " & $rsTcompras3!tota_comp
$rsTcompras3.MoveNext
NEXT
$teXto = NEW ReportLabel(Report)
$teXto.Text = "\nPorque te mereces lo mejor estamos para ti...: " & Date
Report.Preview
END
dos hermanas, sevilla
muchas gracias man jejeje
