Informe de albaranes de proveedor en la parte servidora
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@21 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
64385366f4
commit
d0704719f6
Binary file not shown.
35
Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3
Normal file
35
Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3
Normal file
@ -0,0 +1,35 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39245,7979812269" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := <frxDBCabecera."PERSONA_CONTACTO">; if (<frxDBCabecera."TELEFONO"> <> '') then ACadena := ACadena + ' (tlf: ' + <frxDBCabecera."TELEFONO"> + ' )'; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(ACadena); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); end; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE PROVEEDOR') end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="404,40971" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
||||
<TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."REFERENCIA_PROVEEDOR"] "/>
|
||||
<TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."CANTIDAD"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="487,55937" Width="718,1107">
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,944650000000024" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="323,14968685" Left="0" Top="18,89765" Width="718,1107">
|
||||
<TfrxShapeView Name="Shape2" Left="0" Top="90,67718" Width="717,732283464567" Height="77,7953"/>
|
||||
<TfrxMemoView Name="Memo2" Left="267,65337" Top="37,35436" Width="442,42548" Height="38,89765" OnBeforePrint="Memo2OnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="22,67718" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo7" Left="3,55906" Top="94,48825" Width="68,69295" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo12" Left="83,5906" Top="94,48825" Width="78,26778" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[<Page#>] / [<TotalPages#>]"/>
|
||||
<TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="119,18109016" Color="16250871"/>
|
||||
<TfrxMemoView Name="Memo10" Left="3,68491" Top="174,04731" Width="349,29159" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="54,67718" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo5" Left="166,07885" Top="93,35436" Width="87,5906" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Ref. Proveedor:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="68,69295" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Proveedor:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="83,5906" Top="119,11812" Width="630,61441" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="257,44898" Top="93,57483" Width="256,44094" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="DireccionEnvio" Left="87,37013" Top="197,82684" Width="619,37044" Height="80,06624" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo23" Left="134,72047" Top="297,20872" Width="583,7" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Concepto"/>
|
||||
<TfrxMemoView Name="Memo8" Left="76" Top="297,20872" Width="59,71653543" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Cantidad"/>
|
||||
<TfrxLineView Name="Line1" Left="718,5" Top="296,70402" Width="0" Height="676,53542819" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line2" Left="0" Top="187,08662638" Width="0" Height="786,14172984" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="297,20872" Width="76,2" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Referencia"/>
|
||||
<TfrxLineView Name="Line3" Left="76,2" Top="296,69299638" Width="0" Height="676,53543063" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="136,44094488" Top="295,93700787" Width="0" Height="680,31495819" Frame.Typ="1"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,93 @@
|
||||
unit uRptAlbaranesProveedor_Server;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces;
|
||||
|
||||
type
|
||||
TRptAlbaranesProveedor = class(TDataModule)
|
||||
DADataCabecera: TDADataSource;
|
||||
DADataDetalles: TDADataSource;
|
||||
tbl_Cabecera: TDACDSDataTable;
|
||||
tbl_Detalles: TDACDSDataTable;
|
||||
DABINAdapter: TDABINAdapter;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
frxReport: TfrxReport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
public
|
||||
function GenerarAlbaran(const AID : Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfAlbaranProveedor.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeCabecera = 'Informe_Cabecera';
|
||||
ds_InformeDetalles = 'Informe_Detalles';
|
||||
|
||||
|
||||
{ TRptAlbaranesCliente }
|
||||
|
||||
|
||||
procedure TRptAlbaranesProveedor.DataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||
FConnection := dmServer.DarNuevaConexion;
|
||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||
end;
|
||||
|
||||
function TRptAlbaranesProveedor.GenerarAlbaran(const AID: Integer): Binary;
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
FConnection.BeginTransaction;
|
||||
try
|
||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
|
||||
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_ALBARAN'], [AID], False);
|
||||
|
||||
AStream.Clear;
|
||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||
|
||||
AStream.Clear;
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
frxReport.PrepareReport;
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
AStream.Free;
|
||||
FConnection.RollbackTransaction;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -38,7 +38,7 @@ type
|
||||
protected
|
||||
{ IsrvAlbaranesProveedor methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
// function GenerateReport(const ID: Integer): Binary;
|
||||
function GenerateReport(const ID: Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -48,8 +48,7 @@ uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uBizAlbaranProveedorServer;
|
||||
// uRptAlbaranesProveedor_Server;
|
||||
uBizAlbaranProveedorServer, uRptAlbaranesProveedor_Server;
|
||||
|
||||
{ uRORemoteDataModule,
|
||||
fServerForm, Variants, IB, schAlbaranesProveedorClient_Intf;
|
||||
@ -85,6 +84,18 @@ begin
|
||||
bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR;
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesProveedor.GenerateReport(const ID: Integer): Binary;
|
||||
var
|
||||
AReportGenerator : TRptAlbaranesProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptAlbaranesProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarAlbaran(ID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesProveedor.GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
|
||||
@ -272,6 +272,14 @@
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerateReport" UID="{C735D3BE-A3FE-49FA-8874-C5E4A7E01EB2}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
|
||||
Binary file not shown.
@ -109,7 +109,8 @@ uses
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService};
|
||||
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
|
||||
uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule};
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -56,9 +56,9 @@ object dmServer: TdmServer
|
||||
item
|
||||
Name = 'IBX'
|
||||
ConnectionString =
|
||||
'IBX?Server=localhost;Database=t:\Codigo (Luis LeOn)\BD\FACTUGES.' +
|
||||
'FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8859_1' +
|
||||
';'
|
||||
'IBX?Server=localhost;Database=E:\Codigo (Luis Le'#243'n)\Database\FAC' +
|
||||
'TUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO' +
|
||||
'8859_1;'
|
||||
Default = True
|
||||
Tag = 0
|
||||
end>
|
||||
|
||||
Reference in New Issue
Block a user