Se repasan los informes y se mete logo abeto
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@14 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
5f62185553
commit
159358be95
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -186,6 +186,34 @@ object srvEmpresas: TsrvEmpresas
|
||||
Size = 2
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL = 'SELECT NOMBRE'#10'FROM EMPRESAS'#10'WHERE ID = :ID_EMPRESA'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end>
|
||||
end>
|
||||
Name = 'DarNombre'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
|
||||
@ -33,6 +33,7 @@ type
|
||||
private
|
||||
protected
|
||||
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
|
||||
function DarNombre(const ID_EMPRESA: Integer): AnsiString;
|
||||
function DarListaFormasPago: Binary;
|
||||
function DarListaTiposIVA: Binary;
|
||||
end;
|
||||
@ -81,6 +82,22 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvEmpresas.DarNombre(const ID_EMPRESA: Integer): AnsiString;
|
||||
var
|
||||
ADataSet : IDADataset;
|
||||
begin
|
||||
try
|
||||
ADataSet := schEmpresas.NewDataset(Connection, 'DarNombre', ['ID_EMPRESA'], [ID_EMPRESA]);
|
||||
ADataSet.Open;
|
||||
if ADataSet.Dataset.RecordCount > 0 then
|
||||
Result := ADataSet.Dataset.Fields[0].AsString
|
||||
else
|
||||
Result := 'NO EXISTE'
|
||||
finally
|
||||
ADataSet.Close;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvEmpresas.DarTiendaUsuario(const ID_EMPRESA, ID_USUARIO: Integer): Integer;
|
||||
var
|
||||
AContactosService : IsrvContactos;
|
||||
|
||||
@ -44,13 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -65,54 +58,54 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\designide.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -1,8 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="38330,7129042477" ReportOptions.Description.Text="" ReportOptions.LastChange="39328,8272482639" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo2OnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin Cadena := ''; if (<frxDBCabecera."NOMBRE"> <> '') then Cadena := UPPERCASE(<frxDBCabecera."NOMBRE">); Memo2.Lines.Clear; Memo2.Lines.Add(Cadena); if (<frxDBCabecera."CALLE"> <> '') then Cadena := UPPERCASE(<frxDBCabecera."CALLE">); Memo2.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then Cadena := UPPERCASE(<frxDBCabecera."CODIGO_POSTAL">); if (<frxDBCabecera."POBLACION"> <> '') then if (Cadena <> '') then Cadena := Cadena + ' ' + UPPERCASE(<frxDBCabecera."POBLACION">); if (<frxDBCabecera."PROVINCIA"> <> '') and (<frxDBCabecera."POBLACION"> <> <frxDBCabecera."PROVINCIA">) then begin if (<frxDBCabecera."POBLACION"> <> '') then Cadena := Cadena + ' (' + UPPERCASE(<frxDBCabecera."PROVINCIA">) + ')' else Cadena := Cadena + ' ' + UPPERCASE(<frxDBCabecera."PROVINCIA">); end; Memo2.Lines.Add(Cadena); Cadena := ''; Memo2.Lines.Add(Cadena); if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then Cadena := 'ATT. ' + UPPERCASE(<frxDBCabecera."PERSONA_CONTACTO">); Memo2.Lines.Add(Cadena); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="0" RightMargin="0" TopMargin="8" BottomMargin="8" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="126" Left="0" Top="18,89765" Width="793,7013" Columns="2" ColumnWidth="378" ColumnGap="11" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0">
|
||||
<TfrxMemoView Name="Memo2" Left="25" Top="17,10235" Width="346" Height="114" OnBeforePrint="Memo2OnBeforePrint" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" "/>
|
||||
</TfrxMasterData>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1413,16 +1413,11 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 40122.799261608790000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
ReportOptions.VersionRelease = '1'
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 40871.744534236110000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
|
||||
@ -73,7 +73,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
|
||||
uRORemoteDataModule, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
|
||||
uDataModuleServer, schFacturasClienteClient_Intf;
|
||||
|
||||
const
|
||||
@ -327,10 +327,21 @@ procedure TRptFacturasCliente.IniciarParametrosInforme;
|
||||
var
|
||||
ATextos : TStringList;
|
||||
ACadena : String;
|
||||
AEmpresasService : IsrvEmpresas;
|
||||
Intf : IInterface;
|
||||
AClientID: TGUID;
|
||||
|
||||
|
||||
begin
|
||||
ATextos := TStringList.Create;
|
||||
|
||||
try
|
||||
CreateGUID(AClientID);
|
||||
GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf);
|
||||
AEmpresasService := Intf as IsrvEmpresas;
|
||||
ATextos.Add(AEmpresasService.DarNombre(FIdEmpresa));
|
||||
|
||||
|
||||
if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then
|
||||
ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)])
|
||||
else
|
||||
@ -379,6 +390,7 @@ var
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
|
||||
// Filtrar el informe por empresa
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
|
||||
@ -498,7 +498,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.3'
|
||||
Version = '4.8.11'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -509,25 +509,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 39884.811485821760000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if Engine.FinalPass then'
|
||||
' begin'
|
||||
' if (<Page#> = <TotalPages#>) then'
|
||||
' begin '
|
||||
' mContinua.Visible := False;'
|
||||
' end '
|
||||
' else'
|
||||
' begin '
|
||||
' mContinua.Visible := True;'
|
||||
' end '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
@ -619,6 +600,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
UserName = 'frxDBInformeListadoFacturas'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoFacturas
|
||||
BCDToCurrency = False
|
||||
Left = 464
|
||||
Top = 16
|
||||
end
|
||||
@ -630,6 +612,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
UserName = 'frxDBInformeListadoFacturasResumen'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoFacturasResumen
|
||||
BCDToCurrency = False
|
||||
Left = 648
|
||||
Top = 24
|
||||
end
|
||||
|
||||
@ -308,10 +308,19 @@ procedure TRptFacturasProveedor.IniciarParametrosInforme;
|
||||
var
|
||||
ATextos : TStringList;
|
||||
ACadena : String;
|
||||
AEmpresasService : IsrvEmpresas;
|
||||
Intf : IInterface;
|
||||
AClientID: TGUID;
|
||||
|
||||
begin
|
||||
ATextos := TStringList.Create;
|
||||
|
||||
try
|
||||
CreateGUID(AClientID);
|
||||
GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf);
|
||||
AEmpresasService := Intf as IsrvEmpresas;
|
||||
ATextos.Add(AEmpresasService.DarNombre(FIdEmpresa));
|
||||
|
||||
if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then
|
||||
ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)])
|
||||
else
|
||||
|
||||
@ -50,7 +50,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schRecibosClienteClient_Intf;
|
||||
uROServer, uSistemaFunc, uDataModuleServer, schRecibosClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfReciboCliente.fr3';
|
||||
@ -144,10 +144,15 @@ var
|
||||
Condicion: TDAWhereExpression;
|
||||
i: Integer;
|
||||
AInforme: Variant;
|
||||
Intf : IInterface;
|
||||
AClientID: TGUID;
|
||||
AEmpresasService : IsrvEmpresas;
|
||||
ATextos : TStringList;
|
||||
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
ATextos := TStringList.Create;
|
||||
|
||||
try
|
||||
|
||||
@ -236,6 +241,13 @@ begin
|
||||
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
|
||||
CreateGUID(AClientID);
|
||||
GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf);
|
||||
AEmpresasService := Intf as IsrvEmpresas;
|
||||
ATextos.Add(AEmpresasService.DarNombre(IdEmpresa));
|
||||
|
||||
frxReport.Variables.Variables['TextoParametros'] := ATextos.Text;
|
||||
frxReport.Variables.Variables['FechaInicio'] := FechaInicio;
|
||||
frxReport.Variables.Variables['FechaFin'] := FechaFin;
|
||||
|
||||
@ -243,6 +255,7 @@ begin
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
FreeAndNil(ATextos);
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -194,7 +194,7 @@ object RptRecibosProveedor: TRptRecibosProveedor
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.3'
|
||||
Version = '4.8.11'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -212,39 +212,6 @@ object RptRecibosProveedor: TRptRecibosProveedor
|
||||
ReportOptions.VersionMinor = '13'
|
||||
ReportOptions.VersionRelease = '1'
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'begin'
|
||||
' DatosEmpresa.Lines.Clear;'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
|
||||
''
|
||||
' Cadena := '#39#39';'
|
||||
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
|
||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
|
||||
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
''
|
||||
' Cadena := '#39#39';'
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
|
||||
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
|
||||
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
|
||||
|
||||
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
|
||||
'A">;'
|
||||
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
|
||||
|
||||
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
|
||||
'ESA">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
@ -308,8 +275,6 @@ object RptRecibosProveedor: TRptRecibosProveedor
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InformeListadoRecibos'
|
||||
IndexDefs = <>
|
||||
Left = 360
|
||||
@ -325,6 +290,7 @@ object RptRecibosProveedor: TRptRecibosProveedor
|
||||
UserName = 'frxDBInformeListadoRecibos'
|
||||
CloseDataSource = True
|
||||
DataSource = DADSInformeListadoRecibos
|
||||
BCDToCurrency = False
|
||||
Left = 360
|
||||
Top = 16
|
||||
end
|
||||
|
||||
@ -40,7 +40,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer, schRecibosProveedorClient_Intf;
|
||||
uROServer, uSistemaFunc, uDataModuleServer, schRecibosProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInformeListadoRecibosProveedorDesglosado = 'InformeListadoRecibosProveedorDesglosado.fr3';
|
||||
@ -121,10 +121,15 @@ var
|
||||
Condicion: TDAWhereExpression;
|
||||
i: Integer;
|
||||
AInforme: Variant;
|
||||
Intf : IInterface;
|
||||
AClientID: TGUID;
|
||||
AEmpresasService : IsrvEmpresas;
|
||||
ATextos : TStringList;
|
||||
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
ATextos := TStringList.Create;
|
||||
|
||||
try
|
||||
|
||||
@ -213,6 +218,14 @@ begin
|
||||
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
|
||||
CreateGUID(AClientID);
|
||||
GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf);
|
||||
AEmpresasService := Intf as IsrvEmpresas;
|
||||
ATextos.Add(AEmpresasService.DarNombre(IdEmpresa));
|
||||
|
||||
frxReport.Variables.Variables['TextoParametros'] := ATextos.Text;
|
||||
|
||||
frxReport.Variables.Variables['FechaInicio'] := FechaInicio;
|
||||
frxReport.Variables.Variables['FechaFin'] := FechaFin;
|
||||
|
||||
@ -220,6 +233,7 @@ begin
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
FreeAndNil(ATextos);
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -115,6 +115,14 @@
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="DarNombre" UID="{A962C491-055E-46C9-A1AD-9979CEB99DBC}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="AnsiString" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID_EMPRESA" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
|
||||
@ -289,6 +289,7 @@ type
|
||||
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
|
||||
function DarListaFormasPago: Binary;
|
||||
function DarListaTiposIVA: Binary;
|
||||
function DarNombre(const ID_EMPRESA: Integer): AnsiString;
|
||||
end;
|
||||
|
||||
{ CosrvEmpresas }
|
||||
@ -304,6 +305,7 @@ type
|
||||
function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer;
|
||||
function DarListaFormasPago: Binary;
|
||||
function DarListaTiposIVA: Binary;
|
||||
function DarNombre(const ID_EMPRESA: Integer): AnsiString;
|
||||
end;
|
||||
|
||||
{ IsrvConfiguracion }
|
||||
@ -1483,6 +1485,22 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvEmpresas_Proxy.DarNombre(const ID_EMPRESA: Integer): AnsiString;
|
||||
begin
|
||||
try
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNombre');
|
||||
__Message.Write('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
|
||||
__Message.Read('Result', TypeInfo(AnsiString), result, []);
|
||||
finally
|
||||
__Message.UnsetAttributes(__TransportChannel);
|
||||
__Message.FreeStream;
|
||||
end
|
||||
end;
|
||||
|
||||
{ CosrvConfiguracion }
|
||||
|
||||
class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion;
|
||||
|
||||
@ -67,6 +67,7 @@ type
|
||||
procedure Invoke_DarTiendaUsuario(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_DarListaTiposIVA(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_DarNombre(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
end;
|
||||
|
||||
TsrvConfiguracion_Invoker = class(TDataAbstractService_Invoker)
|
||||
@ -579,6 +580,26 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvEmpresas_Invoker.Invoke_DarNombre(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function DarNombre(const ID_EMPRESA: Integer): AnsiString; }
|
||||
var
|
||||
ID_EMPRESA: Integer;
|
||||
lResult: AnsiString;
|
||||
begin
|
||||
try
|
||||
__Message.Read('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []);
|
||||
|
||||
lResult := (__Instance as IsrvEmpresas).DarNombre(ID_EMPRESA);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvEmpresas', 'DarNombreResponse');
|
||||
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
|
||||
__Message.Finalize;
|
||||
__Message.UnsetAttributes(__Transport);
|
||||
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TsrvConfiguracion_Invoker }
|
||||
|
||||
constructor TsrvConfiguracion_Invoker.Create;
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -41,9 +41,9 @@ object dmServer: TdmServer
|
||||
item
|
||||
Name = 'IBX'
|
||||
ConnectionString =
|
||||
'IBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Datab' +
|
||||
'ase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Char' +
|
||||
'set=ISO8859_1;'
|
||||
'IBX?Server=localhost;Database=C:\Codigo\Output\Debug\Database\FA' +
|
||||
'CTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=IS' +
|
||||
'O8859_1;'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
end>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user