Disma
28-12-2005, 16:07:11
estoy realizadon una factura en crystal reports y delphi 7 este es el codigo
procedure TFPrueba.Button6Click(Sender: TObject);
Var
CrConsulta3, Crconsulta4, CrConsulta5, CrConsulta6, CrConsulta7, CrConsulta8 : string;
begin
Begin
CrConsulta3 := 'SELECT `det_factura`.`Codigo_Fact`, `det_factura`.`Cantidad`, `productos`.`Precio`, `factura`.`Fecha`, `factura`.`Ced_clie`, `cliente`.`Nom_clie`, `cliente`.`Ape_clie`, `cliente`.`Tel_clie`,';
CrConsulta4 := '`cliente`.`Dir_clie`, `det_factura`.`Codi_prod`, `productos`.`Descripcion`,';
CrConsulta5 := '(`det_factura`.`Cantidad` * `productos`.`Precio`), (`det_factura`.`Cantidad` * `productos`.`Precio` * `impuesto`.`Por_imp` / 100)';
CrConsulta6 := 'FROM (((`Ventas`.`det_factura` `det_factura` INNER JOIN `Ventas`.`factura` `factura` ON `det_factura`.`Codigo_Fact`=`factura`.`Codigo_Fact`)';
CrConsulta7 := 'INNER JOIN `Ventas`.`productos` `productos` ON `det_factura`.`Codi_prod`=`productos`.`Codi_produ`) INNER JOIN `Ventas`.`impuesto` `impuesto` ON `productos`.`Cod_imp`=`impuesto`.`Cod_imp`)';
CrConsulta8 := 'INNER JOIN `Ventas`.`cliente` `cliente` ON `factura`.`Ced_clie`=`cliente`.`Ced_clie` WHERE `det_factura`.`Codigo_Fact`= '+NFactura+'ORDER BY `det_factura`.`Codigo_Fact`, `det_factura`.`Codi_prod`';
end;
Crpe1.ReportName:='C:\Documents and Settings\Hidalis\Escritorio\simon mujica curso\ADOprueba4\Factura3.rpt';
Crpe1.CloseJob;
Crpe1.SQL.Clear;
Crpe1.SQL.Query.Text:= CrConsulta3 + CrConsulta4 + CrConsulta5 + CrConsulta6 + CrConsulta7 + CrConsulta8;
CRpe1.ParamFields.Items[0].CurrentValue:= 'Cliente';
CRpe1.WindowStyle.Title:= 'Prueba de reporte';
Crpe1.Execute;
Crpe1.WindowState:= wsMaximized;
Crpe1.WindowZoom.Preview:= pwPageWidth;
end;
end.
Cuando llego a la linea CRpe1.ParamFields.Items[0].CurrentValue:= 'Cliente';
me da un error 723 de archivo si tiene alguna ayuda se lo agradesco
procedure TFPrueba.Button6Click(Sender: TObject);
Var
CrConsulta3, Crconsulta4, CrConsulta5, CrConsulta6, CrConsulta7, CrConsulta8 : string;
begin
Begin
CrConsulta3 := 'SELECT `det_factura`.`Codigo_Fact`, `det_factura`.`Cantidad`, `productos`.`Precio`, `factura`.`Fecha`, `factura`.`Ced_clie`, `cliente`.`Nom_clie`, `cliente`.`Ape_clie`, `cliente`.`Tel_clie`,';
CrConsulta4 := '`cliente`.`Dir_clie`, `det_factura`.`Codi_prod`, `productos`.`Descripcion`,';
CrConsulta5 := '(`det_factura`.`Cantidad` * `productos`.`Precio`), (`det_factura`.`Cantidad` * `productos`.`Precio` * `impuesto`.`Por_imp` / 100)';
CrConsulta6 := 'FROM (((`Ventas`.`det_factura` `det_factura` INNER JOIN `Ventas`.`factura` `factura` ON `det_factura`.`Codigo_Fact`=`factura`.`Codigo_Fact`)';
CrConsulta7 := 'INNER JOIN `Ventas`.`productos` `productos` ON `det_factura`.`Codi_prod`=`productos`.`Codi_produ`) INNER JOIN `Ventas`.`impuesto` `impuesto` ON `productos`.`Cod_imp`=`impuesto`.`Cod_imp`)';
CrConsulta8 := 'INNER JOIN `Ventas`.`cliente` `cliente` ON `factura`.`Ced_clie`=`cliente`.`Ced_clie` WHERE `det_factura`.`Codigo_Fact`= '+NFactura+'ORDER BY `det_factura`.`Codigo_Fact`, `det_factura`.`Codi_prod`';
end;
Crpe1.ReportName:='C:\Documents and Settings\Hidalis\Escritorio\simon mujica curso\ADOprueba4\Factura3.rpt';
Crpe1.CloseJob;
Crpe1.SQL.Clear;
Crpe1.SQL.Query.Text:= CrConsulta3 + CrConsulta4 + CrConsulta5 + CrConsulta6 + CrConsulta7 + CrConsulta8;
CRpe1.ParamFields.Items[0].CurrentValue:= 'Cliente';
CRpe1.WindowStyle.Title:= 'Prueba de reporte';
Crpe1.Execute;
Crpe1.WindowState:= wsMaximized;
Crpe1.WindowZoom.Preview:= pwPageWidth;
end;
end.
Cuando llego a la linea CRpe1.ParamFields.Items[0].CurrentValue:= 'Cliente';
me da un error 723 de archivo si tiene alguna ayuda se lo agradesco