Se adapata a multiempresa sin migrar
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@334 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
3faefc433d
commit
a94bd81b86
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -1783,7 +1783,7 @@ SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
PEDIDOS_CLIENTE.ID_EMPRESA,
|
||||
PEDIDOS_CLIENTE.ID_CLIENTE,
|
||||
V_CLIENTES.NOMBRE,
|
||||
CONTACTOS.NOMBRE,
|
||||
PEDIDOS_CLIENTE.REFERENCIA,
|
||||
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||
V_PED_CLI_SITUACION.SITUACION,
|
||||
@ -1816,7 +1816,7 @@ SELECT
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
|
||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
LEFT JOIN IMPRESIONES
|
||||
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
@ -1867,7 +1867,7 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.ID,
|
||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
||||
V_PROVEEDORES.NOMBRE,
|
||||
CONTACTOS.NOMBRE,
|
||||
PEDIDOS_PROVEEDOR.REFERENCIA,
|
||||
V_PED_PROV_SITUACION.SITUACION,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
||||
@ -1903,7 +1903,7 @@ SELECT
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
FROM
|
||||
PEDIDOS_PROVEEDOR
|
||||
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
INNER JOIN COnTACTOS ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID)
|
||||
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
|
||||
@ -170,8 +170,7 @@
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D10\DataAbstract_IDE_D10.bpl">RemObjects Data Abstract - IDE Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>
|
||||
|
||||
@ -50,11 +50,12 @@ function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
|
||||
function EscapeIllegalChars(AFileName: string): string;
|
||||
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
|
||||
|
||||
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, Dialogs, JclFileUtils,
|
||||
Windows, Variants, Dialogs, JclFileUtils,
|
||||
Messages, Graphics, Controls, Forms,
|
||||
StdCtrls, SHFolder, cxShellBrowserDialog,
|
||||
cxLookAndFeels, uStringsUtils;
|
||||
@ -435,6 +436,28 @@ begin
|
||||
Result := DarRutaTemporal + Cadena + '\';
|
||||
end;
|
||||
|
||||
function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
|
||||
var
|
||||
ARutaCompleta: String;
|
||||
begin
|
||||
Result := Null;
|
||||
|
||||
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
|
||||
if FileExists(ARutaCompleta) then
|
||||
Result := ARutaCompleta
|
||||
else
|
||||
begin
|
||||
ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
|
||||
if FileExists(ARutaCompleta) then
|
||||
Result := ARutaCompleta
|
||||
else
|
||||
begin
|
||||
ARutaCompleta := ARutaIni + '\' + AFichero;
|
||||
if FileExists(ARutaCompleta) then
|
||||
Result := ARutaCompleta
|
||||
end
|
||||
end
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
@ -13,8 +13,6 @@ uses
|
||||
uMainMenuController in 'uMainMenuController.pas',
|
||||
uClienteUtils in 'Utiles\uClienteUtils.pas';
|
||||
|
||||
|
||||
|
||||
{$R *.res}
|
||||
|
||||
var
|
||||
|
||||
@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 358
|
||||
Top = 250
|
||||
Caption = 'Pantalla principal'
|
||||
ClientHeight = 662
|
||||
ClientHeight = 681
|
||||
ClientWidth = 559
|
||||
Color = clWindow
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 559
|
||||
Height = 640
|
||||
Height = 659
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
@ -31,11 +31,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
ParentColor = True
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 640
|
||||
object JvSyncSplitter1: TJvSyncSplitter
|
||||
Left = 215
|
||||
Top = 5
|
||||
Width = 5
|
||||
Height = 630
|
||||
Height = 649
|
||||
ResizeStyle = rsPattern
|
||||
ExplicitLeft = 210
|
||||
ExplicitHeight = 570
|
||||
@ -44,7 +45,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 210
|
||||
Height = 630
|
||||
Height = 649
|
||||
ActivePage = pagInicio
|
||||
Align = alLeft
|
||||
AutoHeaders = True
|
||||
@ -85,11 +86,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
NavPanelHotTrackFont.Style = []
|
||||
SmallImages = ModulesSmallImageList
|
||||
OnChange = JvNavigationPaneChange
|
||||
ExplicitHeight = 630
|
||||
object pagInicio: TJvNavPanelPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 208
|
||||
Height = 557
|
||||
Height = 576
|
||||
Background.Stretch = False
|
||||
Background.Proportional = False
|
||||
Background.Center = False
|
||||
@ -97,15 +99,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Background.Transparent = False
|
||||
Caption = 'Inicio'
|
||||
ImageIndex = 0
|
||||
ExplicitHeight = 557
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 471
|
||||
Top = 490
|
||||
Width = 208
|
||||
Height = 86
|
||||
Align = alBottom
|
||||
Color = clWindow
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 471
|
||||
object Label1: TLabel
|
||||
Left = 38
|
||||
Top = 29
|
||||
@ -153,19 +157,21 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 220
|
||||
Top = 5
|
||||
Width = 334
|
||||
Height = 630
|
||||
Height = 649
|
||||
BoundColor = clActiveCaption
|
||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||
Caption = 'pnlBorde'
|
||||
Align = alClient
|
||||
ExplicitHeight = 630
|
||||
object pnlMain: TTBXAlignmentPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 332
|
||||
Height = 628
|
||||
Height = 647
|
||||
Align = alClient
|
||||
Color = clWindow
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 628
|
||||
object lblBienvenido: TLabel
|
||||
Left = 8
|
||||
Top = 8
|
||||
@ -202,7 +208,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
end
|
||||
object TBXStatusBar1: TTBXStatusBar
|
||||
Left = 0
|
||||
Top = 640
|
||||
Top = 659
|
||||
Width = 559
|
||||
Images = StatusPanelImageList
|
||||
Panels = <
|
||||
@ -224,6 +230,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Tag = 0
|
||||
end>
|
||||
UseSystemFont = False
|
||||
ExplicitTop = 640
|
||||
end
|
||||
object XPManifest1: TXPManifest
|
||||
Left = 248
|
||||
|
||||
58
Source/Informes/2/InfAlbaranCliente.fr3
Normal file
58
Source/Informes/2/InfAlbaranCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
37
Source/Informes/2/InfAlbaranProveedor.fr3
Normal file
37
Source/Informes/2/InfAlbaranProveedor.fr3
Normal file
@ -0,0 +1,37 @@
|
||||
<?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="39290,7839583333" 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; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo1.Lines.Clear; Memo1.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E61220000055374796C650100">
|
||||
<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="4" Width="720" Height="0" Frame.Color="8421504" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="323,14968685" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxShapeView Name="Shape2" Left="0" Top="90,67718" Width="717,73228346" Height="77,7953" Frame.Color="8421504"/>
|
||||
<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="60,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="67,5906" Top="94,48825" Width="78,26778" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="119,18109016" Color="16777215" Frame.Color="8421504"/>
|
||||
<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="94,48825" Width="64,69295" Height="18,9" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="64,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="71,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="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="234,55133" Top="94,48825" Width="93,92115" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" 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="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
||||
<TfrxMemoView Name="Memo8" Left="76" Top="297,20872" Width="59,71653543" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
||||
<TfrxLineView Name="Line1" Left="718,5" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="297,20872" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||
<TfrxLineView Name="Line3" Left="76,2" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="136,44094488" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo1" Left="340,1577" Top="94,48825" Width="83,81107" Height="18,9" OnBeforePrint="Memo1OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha albarán:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="427,7483" Top="94,48825" Width="93,92115" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
<TfrxLineView Name="Line2" Left="0" Top="296,69299638" Width="0" Height="684" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
49
Source/Informes/2/InfComisiones.fr3
Normal file
49
Source/Informes/2/InfComisiones.fr3
Normal file
File diff suppressed because one or more lines are too long
55
Source/Informes/2/InfComisionesDesglosado.fr3
Normal file
55
Source/Informes/2/InfComisionesDesglosado.fr3
Normal file
File diff suppressed because one or more lines are too long
21
Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
Normal file
21
Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
Normal file
@ -0,0 +1,21 @@
|
||||
<?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="39289,4026321875" ScriptLanguage="PascalScript" ScriptText.Text=" procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin TelefonosEmpresa.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">; TelefonosEmpresa.Lines.Add(Cadena); end; procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DireccionEmpresa.Lines.Clear; if (<frxDBCabecera."CALLE_EMPRESA"> <> '') then DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ', ' + <frxDBCabecera."POBLACION_EMPRESA">; DireccionEmpresa.Lines.Add(Cadena); if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then DireccionEmpresa.Lines.Add(<frxDBCabecera."PROVINCIA_EMPRESA">); end; procedure Memo11OnBeforePrint(Sender: TfrxComponent); begin Memo11.Visible := (<withRefCliente> <> 0); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C12000000204E616D653D22205661726961626C65732200010C16000000204E616D653D2277697468526566436C69656E7465220000055374796C6501010C7B000000204E616D653D225374796C65312220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D32372220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D2230220000">
|
||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-64" Font.Name="Arial" Font.Style="0" 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="515,3389" Left="0" Top="18,89765" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo14" Left="208,87415" Top="328,81911" Width="490,7483" Height="29,33859" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."REFERENCIA_PROVEEDOR"] "/>
|
||||
<TfrxMemoView Name="Memo5" Left="113,16543" Top="226,7718" Width="87,14966" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="208,31509" Top="264,5671" Width="494,55133" Height="56,69293291" OnBeforePrint="Memo11OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-21" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="208,25190748" Top="226,7718" Width="78,80303" Height="26,45906" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="291,02381" Top="226,7718" Width="178,29932" Height="30,23859" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha prevista de envio:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="473,10266" Top="226,7718" Width="158,17316" Height="30,23859" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera."FECHA_PREVISTA_ENVIO"]"/>
|
||||
<TfrxMemoView Name="NombreEmpresa" Left="170,07885" Top="37,7953" Width="380,06308" Height="30,67718" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="TelefonosEmpresa" Left="170,07885" Top="141,60637" Width="380,06308" Height="49,57483" OnBeforePrint="TelefonosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="DireccionEmpresa" Left="170,07885" Top="68,03154" Width="380,06308" Height="72,25201" OnBeforePrint="DireccionEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo1" Left="113,3859" Top="264,5671" Width="87,14966" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Ref. cliente:"/>
|
||||
<TfrxMemoView Name="Memo2" Left="113,3859" Top="328,81911" Width="94,70872" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Ref. artículo:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="113,3859" Top="362,83488" Width="75,81107" Height="26,45906" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Artículo:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="207,87415" Top="362,83488" Width="494,52783" Height="63,35436" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-16" Font.Name="Tahoma" Font.Style="0" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."CONCEPTO"] "/>
|
||||
<TfrxLineView Name="Line3" Left="2,23624" Top="472,44125" Width="716,75634" Height="0" Frame.Style="fsDot" Frame.Typ="4"/>
|
||||
</TfrxMasterData>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
8
Source/Informes/2/InfEtiquetasContactos.fr3
Normal file
8
Source/Informes/2/InfEtiquetasContactos.fr3
Normal file
@ -0,0 +1,8 @@
|
||||
<?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="39363,8633537616" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo2OnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin Memo2.Lines.Clear; Cadena:= UPPERCASE(<frxDBCabecera."NOMBRE">); Memo2.Lines.Add(Cadena); Cadena:= UPPERCASE(<frxDBCabecera."CALLE">); Memo2.Lines.Add(Cadena); Cadena:= UPPERCASE(<frxDBCabecera."CODIGO_POSTAL">); if (length(<frxDBCabecera."POBLACION">) > 0) then begin if (length(Cadena) > 0) then Cadena := Cadena + ', '; Cadena := Cadena + UPPERCASE(<frxDBCabecera."POBLACION">); end; Memo2.Lines.Add(Cadena); Cadena:= UPPERCASE(<frxDBCabecera."PROVINCIA">); 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>
|
||||
72
Source/Informes/2/InfFacturaProveedor.fr3
Normal file
72
Source/Informes/2/InfFacturaProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
45
Source/Informes/2/InfPedidoCliente.fr3
Normal file
45
Source/Informes/2/InfPedidoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
39
Source/Informes/2/InfPedidoProveedor.fr3
Normal file
39
Source/Informes/2/InfPedidoProveedor.fr3
Normal file
@ -0,0 +1,39 @@
|
||||
<?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="39352,7840438657" 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."NOMBRE_ALMACEN"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."NOMBRE_ALMACEN">); if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PERSONA_CONTACTO">); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."POBLACION">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E61220000055374796C650100">
|
||||
<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="313,70099" 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="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"]"/>
|
||||
<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"] "/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="396,85065" Width="718,1107">
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="232,44096685" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo23" Left="134,72047" Top="206,94094" Width="583,7" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
||||
<TfrxMemoView Name="Memo8" Left="76" Top="206,94094" Width="59,25726667" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="206,94094" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||
<TfrxShapeView Name="Shape2" Left="357,60637" Top="72,22047" Width="360,69295" Height="122,95671" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="4,22047" 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="362,61441" Top="79,81107" Width="68,69295" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo12" Left="438,86642" Top="79,81107" Width="278,58287" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<TfrxShapeView Name="Shape1" Left="0" Top="72,22047" Width="357,92125984" Height="122,96062016" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="Memo10" Left="3,68491" Top="76,22047" Width="349,29159" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="36,22047" 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="362,61441" Top="101,35436" Width="98,92919" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Nº pedido:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="362,61441" Top="130,89765" Width="72,47248" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Proveedor:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="435,08689" Top="130,89765" Width="279,11812" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="438,86642" Top="101,57483" Width="78,80303" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="DireccionEnvio" Left="4" Top="100,22047" Width="347,46475" Height="87,40483" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxLineView Name="Line1" Left="718,5" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line2" Left="0" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="76,2" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="135,5" Top="206,36222913" Width="0" Height="768,8947" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo2" Left="365,92115" Top="18,89765" Width="347,93723" Height="38,89765" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO A PROVEEDOR"/>
|
||||
<TfrxMemoView Name="Memo1" Left="521,57514" Top="102,04731" Width="46,01577" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="570,70903" Top="102,04731" Width="143,05504" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera."FECHA_PEDIDO"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="362,83488" Top="154,96073" Width="30,89765" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fax:"/>
|
||||
<TfrxMemoView Name="Memo15" Left="396,85065" Top="154,96073" Width="316,91342" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."FAX"]"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
89
Source/Informes/2/InfReciboCliente.fr3
Normal file
89
Source/Informes/2/InfReciboCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
55
Source/Informes/2/InfRemesaCliente.fr3
Normal file
55
Source/Informes/2/InfRemesaCliente.fr3
Normal file
@ -0,0 +1,55 @@
|
||||
<?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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39611,7728282292" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin // Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height; end; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass and (<TotalPaginas> = <Pagina>)then begin eTotal.Visible := True; vTotal.Visible := True; Cuadro.Visible := True; end else begin eTotal.Visible := False; vTotal.Visible := False; Cuadro.Visible := False; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="Band2OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="92,22047" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
|
||||
<TfrxMemoView Name="Memo24" Left="564,69326" Top="228,5671" Width="153,41744" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
|
||||
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
|
||||
<TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo3" Left="211,8859" Top="229,5671" Width="241,0671" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo4" Left="453,953" Top="228,5671" Width="110,74026" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
|
||||
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."FECHA_REMESA"]"/>
|
||||
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="396,1577" Top="18,89765" Width="314,39394" Height="64,25201" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
|
||||
<TfrxMemoView Name="Memo8" Left="95,82158333" Top="228,66141732" Width="115,89765" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
|
||||
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
|
||||
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."DESCRIPCION"]"/>
|
||||
<TfrxMemoView Name="Memo19" Left="336,37817" Top="139,84261" Width="42,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
|
||||
<TfrxMemoView Name="Memo26" Left="382,39394" Top="139,84261" Width="331,93723" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."TITULAR"]"/>
|
||||
<TfrxMemoView Name="Memo27" Left="336,37817" Top="117,16543" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
|
||||
<TfrxMemoView Name="Memo28" Left="336,37817" Top="162,51979" Width="75,5906" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
|
||||
<TfrxMemoView Name="Memo29" Left="415,52783" Top="162,51979" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."ENTIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="472,44125" Top="162,51979" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
|
||||
<TfrxMemoView Name="Memo31" Left="559,14997" Top="162,51979" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."SUCURSAL"]"/>
|
||||
<TfrxMemoView Name="Memo32" Left="336,37817" Top="185,19697" Width="26,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
|
||||
<TfrxMemoView Name="Memo33" Left="366,39394" Top="185,19697" Width="34,23624" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."DC"]"/>
|
||||
<TfrxMemoView Name="Memo34" Left="472,44125" Top="185,19697" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
|
||||
<TfrxMemoView Name="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."CUENTA"]"/>
|
||||
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="95,92146" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line4" Left="453,9094" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="564,28346457" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line1" Left="718" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line9" Left="211,62461333" Top="229,54" Width="0" Height="774,803149606299" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="718,1107" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="MemPrecio" Left="460,40153087" Top="2" Width="101,56298724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NIF_CIF_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="MemImpTotal" Left="566,36216811" Top="2" Width="147,16535189" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="MemCantidad" Left="218,46837457" Top="2" Width="229,44892874" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="99,22449" Top="2" Width="110,89765" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="84" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="419,52783" Width="718,1107" OnBeforePrint="PageFooter1OnBeforePrint">
|
||||
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="714,708661417323" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="vtotal" Left="566,9295" Top="3,77953000000002" Width="147,87415" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="etotal" Left="430,86642" Top="6,67718000000002" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
|
||||
<TfrxLineView Name="Linea" Left="3,77953" Top="0" Width="714,330708661417" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
64
Source/Informes/2/InfRemesaProveedor.fr3
Normal file
64
Source/Informes/2/InfRemesaProveedor.fr3
Normal file
@ -0,0 +1,64 @@
|
||||
<?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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39611,7817196528" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass and (<TotalPaginas> = <Pagina>) then begin Cuadro.Visible := True; eTotal.Visible := True; vTotal.Visible := True; end else begin Cuadro.Visible := False; eTotal.Visible := False; vTotal.Visible := False; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C1C00000020446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="1046,92981" OnBeforePrint="Band2OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="80,88188" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
|
||||
<TfrxMemoView Name="Memo24" Left="887,95856667" Top="228,5671" Width="158,97124333" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
|
||||
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
|
||||
<TfrxShapeView Name="Shape2" Left="639,181510000002" Top="113,3859" Width="393,07112" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo3" Left="303,59462" Top="228,5671" Width="225,94898" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
|
||||
<TfrxMemoView Name="Memo4" Left="530,21026667" Top="228,5671" Width="133,41744" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
|
||||
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."FECHA_REMESA"]"/>
|
||||
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
||||
<TfrxLineView Name="Line1" Left="1046,81911" Top="229,54" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo15" Left="464,18924" Top="18,89765" Width="567,62245" Height="64,25201" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
|
||||
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="84,58287" Top="228,20666667" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line4" Left="530,16666667" Top="229,54" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo8" Left="195,86889333" Top="228,66141732" Width="107,33859" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
|
||||
<TfrxLineView Name="Line9" Left="304" Top="228,43568333" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
|
||||
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."DESCRIPCION"]"/>
|
||||
<TfrxMemoView Name="Memo19" Left="650,079160000002" Top="139,84261" Width="42,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
|
||||
<TfrxMemoView Name="Memo26" Left="696,094930000002" Top="139,84261" Width="331,93723" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."TITULAR"]"/>
|
||||
<TfrxMemoView Name="Memo27" Left="650,079160000002" Top="117,16543" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
|
||||
<TfrxMemoView Name="Memo28" Left="650,079160000002" Top="162,51979" Width="75,5906" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
|
||||
<TfrxMemoView Name="Memo29" Left="729,228820000002" Top="162,51979" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."ENTIDAD"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="786,142240000002" Top="162,51979" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
|
||||
<TfrxMemoView Name="Memo31" Left="872,850960000002" Top="162,51979" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."SUCURSAL"]"/>
|
||||
<TfrxMemoView Name="Memo32" Left="650,079160000002" Top="185,19697" Width="26,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
|
||||
<TfrxMemoView Name="Memo33" Left="680,094930000002" Top="185,19697" Width="34,23624" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."DC"]"/>
|
||||
<TfrxMemoView Name="Memo34" Left="786,142240000002" Top="185,19697" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
|
||||
<TfrxMemoView Name="Memo37" Left="872,850960000002" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera."CUENTA"]"/>
|
||||
<TfrxMemoView Name="Memo11" Left="663,41775" Top="228,10513333" Width="224,12616" Height="27,2125984251969" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Número de cuenta"/>
|
||||
<TfrxLineView Name="Line7" Left="888,18955" Top="228,7718" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo36" Left="86,26252333" Top="228,66141732" Width="111,11812" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura prov."/>
|
||||
<TfrxLineView Name="Line8" Left="195,78478667" Top="229,10235" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="664,55124457" Top="228,87333333" Width="0" Height="459,212598425197" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="MemPrecio" Left="548,6640542" Top="2,66666666999998" Width="109,12204724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NIF_CIF_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="MemImpTotal" Left="895,18127811" Top="2" Width="147,16535189" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="MemCantidad" Left="310,5104279" Top="2" Width="214,33080874" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NOMBRE_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="213,94372333" Top="2" Width="84,44094" Height="15,11812" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="696,10018667" Top="2,44619667000001" Width="29,75191724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."ENTIDAD_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo14" Left="731,89548667" Top="2,66666666999998" Width="29,75191724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."SUCURSAL_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="766,79839333" Top="2,66666665999998" Width="18,41332724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."DC_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo35" Left="789,92177" Top="2,66666666999998" Width="82,66533724" Height="15,11811024" StretchMode="smMaxHeight" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."CUENTA_PROVEEDOR"]"/>
|
||||
<TfrxMemoView Name="Memo39" Left="88,92919" Top="2" Width="106,67718" Height="15,11812" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA_FACTURA_PROV"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="30,23624" Left="0" Top="419,52783" Width="1046,92981" OnBeforePrint="PageFooter1OnBeforePrint">
|
||||
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="1042,81911" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
|
||||
<TfrxMemoView Name="vTotal" Left="923,93723" Top="1,10235" Width="117,63791" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="eTotal" Left="784,09462" Top="7,77953000000002" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
|
||||
<TfrxLineView Name="Line6" Left="3,77953" Top="0" Width="1043,14960629921" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
@ -48,7 +48,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptInfAlbaran = 'InfAlbaranCliente.fr3';
|
||||
@ -107,6 +107,7 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -123,7 +124,12 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfAlbaran, True);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfAlbaran, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe ' + rptInfAlbaran));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
@ -139,6 +145,7 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -155,7 +162,12 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
if withRefCliente then
|
||||
frxReport.Variables.Variables['withRefCliente'] := 1
|
||||
else
|
||||
|
||||
@ -44,7 +44,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schAlbaranesProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfAlbaranProveedor.fr3';
|
||||
@ -106,6 +106,7 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -122,7 +123,12 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -150,7 +150,7 @@ begin
|
||||
else
|
||||
Result := (FDataModule as IDataModuleArticulos).GetItem(ID, AClienteID);
|
||||
|
||||
FiltrarEmpresa(Result);
|
||||
// FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TArticulosController.BuscarInventariables: IBizArticulo;
|
||||
@ -218,7 +218,7 @@ end;
|
||||
function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo;
|
||||
begin
|
||||
Result := FDataModule.GetItems(ACliente);
|
||||
FiltrarEmpresa(Result);
|
||||
// FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo;
|
||||
@ -253,7 +253,7 @@ end;
|
||||
function TArticulosController.BuscarTodos: IBizArticulo;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
FiltrarEmpresa(Result);
|
||||
// FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
procedure TArticulosController.CalcularPrecioNeto(AArticulos: IBizArticulo);
|
||||
@ -598,7 +598,7 @@ var
|
||||
AArticulo : IBizArticulo;
|
||||
begin
|
||||
AArticulo := FDataModule.NewItem;
|
||||
FiltrarEmpresa(AArticulo);
|
||||
// FiltrarEmpresa(AArticulo);
|
||||
AArticulo.DataTable.Active := True;
|
||||
AArticulo.Insert;
|
||||
Result := AArticulo;
|
||||
|
||||
@ -1376,7 +1376,7 @@ object RptComisiones: TRptComisiones
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -1384,6 +1384,7 @@ object RptComisiones: TRptComisiones
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 39266.688905347220000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
@ -1436,62 +1437,6 @@ object RptComisiones: TRptComisiones
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end>
|
||||
Variables = <
|
||||
item
|
||||
Name = ' Fechas'
|
||||
Value = Null
|
||||
end
|
||||
item
|
||||
Name = 'FechaIni'
|
||||
Value = Null
|
||||
end
|
||||
item
|
||||
Name = 'FechaFin'
|
||||
Value = Null
|
||||
end>
|
||||
Style = <
|
||||
item
|
||||
Name = 'Concepto normal'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
end
|
||||
item
|
||||
Name = 'Concepto subtotal'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
item
|
||||
Name = 'Cabecera de columna'
|
||||
Color = 15790320
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
|
||||
end
|
||||
item
|
||||
Name = 'Concepto titulo'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schReportClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schReportClient_Intf;
|
||||
|
||||
const
|
||||
rptComision = 'InfComisiones.fr3';
|
||||
@ -61,6 +61,7 @@ function TRptComisiones.GenerarComision(const AComisionID : Variant; const Desgl
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -107,9 +108,21 @@ begin
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
|
||||
|
||||
if DesglosadoProv then
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True)
|
||||
begin
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptComisionDesglosado, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptComisionDesglosado));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
end
|
||||
else
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
|
||||
begin
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptComision, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptComision));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
end;
|
||||
|
||||
frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
|
||||
frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Contactos = '{8DB966AC-5E6E-45D2-985E-608DBF4431DC}';
|
||||
RID_GruposCliente = '{916430A0-9119-40A8-BD75-0D167170697B}';
|
||||
RID_ClienteEliminable = '{BDE7F021-7D40-442C-A60A-6BCE999B3E76}';
|
||||
RID_DatosBancarios = '{72E93F56-6CD9-4840-AC91-BC3619B6DBBA}';
|
||||
RID_ContactosCategorias = '{87F9603C-21B7-4A45-B2D1-D42C1BD24124}';
|
||||
RID_Clientes = '{FC2D5240-5CB5-473F-85BA-7C848198643E}';
|
||||
RID_Proveedores = '{8B6E18AE-B694-4D8F-A9AD-E00286BDA417}';
|
||||
RID_Agentes = '{E7B9B4D9-1DD9-45DC-AC1E-01EC9FDCD10A}';
|
||||
RID_DireccionesContacto = '{39EE7BEF-4CB2-48C4-9DBC-93913A30B200}';
|
||||
RID_AgentesComisiones = '{2202C71F-70D4-4EF3-87EF-62B1A4E64DCD}';
|
||||
RID_ClientesDescuentos = '{123A04B2-4B64-49C4-9A70-892C08CEBDF4}';
|
||||
RID_Contactos = '{8CD2171A-3002-4130-9553-1A4F691BBCEE}';
|
||||
RID_GruposCliente = '{DFD26958-96EC-4899-929E-5E0AA4989FB8}';
|
||||
RID_ClienteEliminable = '{AF773B24-4F18-41F6-99FD-61EF39C4E15B}';
|
||||
RID_DatosBancarios = '{3B26C029-EB2B-44F0-9B16-577FCBB002F7}';
|
||||
RID_ContactosCategorias = '{14EA0534-43AB-4C2D-AD4E-8B2296D61FD1}';
|
||||
RID_Clientes = '{97E0D322-7374-4E50-BED3-6FC3EC2D909F}';
|
||||
RID_Proveedores = '{1BBB9786-6529-43FC-AE52-0BC27C116F30}';
|
||||
RID_Agentes = '{60C288E2-F28E-4C2B-9A18-B4B3C0C98BA7}';
|
||||
RID_DireccionesContacto = '{F30B2CD3-D508-4A44-928D-2724C45253E8}';
|
||||
RID_AgentesComisiones = '{0F8E7B45-4D69-4BB2-9788-55267E69C27A}';
|
||||
RID_ClientesDescuentos = '{D4DF5FA7-4CD6-497E-A658-1A4797BFFFCF}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -379,7 +379,7 @@ const
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{129F3A9A-CAEE-422B-9962-ED37AA1B8DA1}']
|
||||
['{787ADE80-F984-4B67-B4C0-A2B933210BF3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -534,7 +534,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{E7D5EDB0-EEE7-433E-BD7D-A9B7B0E22231}']
|
||||
['{30B50D38-F156-41A8-B360-E3E21A627F32}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -563,7 +563,7 @@ type
|
||||
|
||||
{ IClienteEliminable }
|
||||
IClienteEliminable = interface(IDAStronglyTypedDataTable)
|
||||
['{9A1C2E5A-6BEE-4C64-9E92-EE7AA70A0E00}']
|
||||
['{9B81F948-EF40-4D43-9B83-5492EF0148B2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -598,7 +598,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{FBA163E1-FB0B-48AB-A018-301A11A05078}']
|
||||
['{BBFCFE93-B454-4BC0-ABB4-0E12C7F5CAC8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -663,7 +663,7 @@ type
|
||||
|
||||
{ IContactosCategorias }
|
||||
IContactosCategorias = interface(IDAStronglyTypedDataTable)
|
||||
['{B51A66E8-B60F-498B-A578-E2C4C4C6DEA3}']
|
||||
['{012F1CA7-8AE0-4462-AEB2-4B1351EFD72B}']
|
||||
{ Property getters and setters }
|
||||
function GetID_CONTACTOValue: Integer;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||
@ -698,7 +698,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{5318AB05-B7DA-4083-83F3-C8601201C3A2}']
|
||||
['{357D6A95-C3E0-4889-B48C-9701694567E9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -949,7 +949,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{6B2547D0-73B9-4A4B-B799-4D37005F99F3}']
|
||||
['{185A04AB-054D-475A-ACAF-3615F2FDDC18}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1158,7 +1158,7 @@ type
|
||||
|
||||
{ IAgentes }
|
||||
IAgentes = interface(IDAStronglyTypedDataTable)
|
||||
['{19AC98BF-4123-481B-995E-84962805FBA1}']
|
||||
['{45138401-D00C-47C9-B545-81193C2A0799}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1313,7 +1313,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{F54AA472-C5F9-4E24-8C87-D0B273FBD687}']
|
||||
['{883C1ABB-363E-4AA3-B5DF-F8B072E0F729}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1420,7 +1420,7 @@ type
|
||||
|
||||
{ IAgentesComisiones }
|
||||
IAgentesComisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{5EE1C84D-093A-4A09-B2B9-E956F01E9ADC}']
|
||||
['{BF1D13A0-E79B-4458-B11F-EBD7F789F0C1}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1473,7 +1473,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{1225583F-EBB3-4673-9C53-670AFBA01826}']
|
||||
['{27D77A4D-007A-4AD3-8781-E834A196285A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,22 +9,22 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ContactosDelta = '{FBA19294-A947-41DA-9ABF-0F58B7AD3871}';
|
||||
RID_GruposClienteDelta = '{63CFD830-E148-4E4D-802B-B274275CC4A0}';
|
||||
RID_ClienteEliminableDelta = '{3ABFD442-48BB-451F-8923-EECB61A74980}';
|
||||
RID_DatosBancariosDelta = '{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}';
|
||||
RID_ContactosCategoriasDelta = '{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}';
|
||||
RID_ClientesDelta = '{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}';
|
||||
RID_ProveedoresDelta = '{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}';
|
||||
RID_AgentesDelta = '{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}';
|
||||
RID_DireccionesContactoDelta = '{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}';
|
||||
RID_AgentesComisionesDelta = '{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}';
|
||||
RID_ClientesDescuentosDelta = '{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}';
|
||||
RID_ContactosDelta = '{ED3DC929-6DF8-44C9-A77A-8854F74F281C}';
|
||||
RID_GruposClienteDelta = '{E416320D-F8B9-4086-9DF5-B12DC21C37FE}';
|
||||
RID_ClienteEliminableDelta = '{D47AA51C-3F22-4185-94FC-D92E570749B5}';
|
||||
RID_DatosBancariosDelta = '{BA78D5CC-F08A-4C98-B891-33A4079D54A1}';
|
||||
RID_ContactosCategoriasDelta = '{F1C35B46-DC20-477E-B2CA-345807F1262D}';
|
||||
RID_ClientesDelta = '{B20D68B1-ABA7-409F-9B42-AD7A43A10DB5}';
|
||||
RID_ProveedoresDelta = '{6D5CDCC5-86ED-466E-B9B2-EA8B2B5203F3}';
|
||||
RID_AgentesDelta = '{25995918-FB9D-4E8D-972B-E52FE149A435}';
|
||||
RID_DireccionesContactoDelta = '{F0BD77F8-70C0-4B9E-AE8D-B2EF02350C1C}';
|
||||
RID_AgentesComisionesDelta = '{B1F1802F-E10B-4A50-9CC4-376DDA2961F7}';
|
||||
RID_ClientesDescuentosDelta = '{1CC3E306-6A9D-4951-94C1-54CDEC790F13}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{FBA19294-A947-41DA-9ABF-0F58B7AD3871}']
|
||||
['{ED3DC929-6DF8-44C9-A77A-8854F74F281C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -200,7 +200,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{63CFD830-E148-4E4D-802B-B274275CC4A0}']
|
||||
['{E416320D-F8B9-4086-9DF5-B12DC21C37FE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -229,7 +229,7 @@ type
|
||||
|
||||
{ IClienteEliminableDelta }
|
||||
IClienteEliminableDelta = interface(IClienteEliminable)
|
||||
['{3ABFD442-48BB-451F-8923-EECB61A74980}']
|
||||
['{D47AA51C-3F22-4185-94FC-D92E570749B5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNOMBREValue : String;
|
||||
@ -265,7 +265,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{24737E5E-FF2A-49CA-82E6-CF01F6A4F1AD}']
|
||||
['{BA78D5CC-F08A-4C98-B891-33A4079D54A1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -336,7 +336,7 @@ type
|
||||
|
||||
{ IContactosCategoriasDelta }
|
||||
IContactosCategoriasDelta = interface(IContactosCategorias)
|
||||
['{E9CCBC76-017F-49DA-8AC1-5D05D3F5BD58}']
|
||||
['{F1C35B46-DC20-477E-B2CA-345807F1262D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -372,7 +372,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{D36C7B31-0994-4EDE-A0AF-AF7CF1AA5622}']
|
||||
['{B20D68B1-ABA7-409F-9B42-AD7A43A10DB5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -660,7 +660,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{C5F98D58-4E55-4BCD-AEE1-4D15FCFCD402}']
|
||||
['{6D5CDCC5-86ED-466E-B9B2-EA8B2B5203F3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -899,7 +899,7 @@ type
|
||||
|
||||
{ IAgentesDelta }
|
||||
IAgentesDelta = interface(IAgentes)
|
||||
['{FBAE47C9-5F62-4EEB-A61B-9DE8145AC3A3}']
|
||||
['{25995918-FB9D-4E8D-972B-E52FE149A435}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1075,7 +1075,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{EF9D18DF-D0EB-4433-A8D0-F22735A7F6A3}']
|
||||
['{F0BD77F8-70C0-4B9E-AE8D-B2EF02350C1C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -1195,7 +1195,7 @@ type
|
||||
|
||||
{ IAgentesComisionesDelta }
|
||||
IAgentesComisionesDelta = interface(IAgentesComisiones)
|
||||
['{B296BBFC-AF34-4AB9-BB6F-4308BE188D15}']
|
||||
['{B1F1802F-E10B-4A50-9CC4-376DDA2961F7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
@ -1252,7 +1252,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{18D4AC51-8E27-42E7-8A75-A5E1E21EAB34}']
|
||||
['{1CC3E306-6A9D-4951-94C1-54CDEC790F13}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
|
||||
@ -64,7 +64,7 @@ begin
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID_CONTACTO').Value := aChange.OldValueByName[fld_ContactosID];
|
||||
ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
|
||||
// ParamByName('OLD_ID_EMPRESA').Value := aChange.OldValueByName[fld_ContactosID_EMPRESA];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
@ -86,7 +86,7 @@ begin
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('ID_CONTACTO').Value := aChange.NewValueByName[fld_ContactosID];
|
||||
ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
|
||||
// ParamByName('ID_EMPRESA').Value := aChange.NewValueByName[fld_ContactosID_EMPRESA];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
|
||||
@ -930,13 +930,14 @@ object RptEtiquetasContactos: TRptEtiquetasContactos
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
ReportOptions.CreateDate = 38330.712904247700000000
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 38330.712904247710000000
|
||||
ReportOptions.LastChange = 39363.863353761580000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
@ -972,13 +973,6 @@ object RptEtiquetasContactos: TRptEtiquetasContactos
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schContactosClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schContactosClient_Intf;
|
||||
|
||||
const
|
||||
rptInfEtiquetas = 'InfEtiquetasContactos.fr3';
|
||||
@ -60,7 +60,7 @@ function TRptEtiquetasContactos.GenerarEtiquetas(const AID: String): Binary;
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -74,7 +74,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarEtiquetas, no encuentra informe ' + rptInfEtiquetas));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
|
||||
@ -3126,13 +3126,6 @@ object srvContactos: TsrvContactos
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
@ -3145,8 +3138,9 @@ object srvContactos: TsrvContactos
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
|
||||
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
|
||||
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID, ID_EMPRESA, ID_CONTACTO)' +
|
||||
#10#10'SELECT (SELECT GEN_ID(GEN_EMPRESAS_CONTACTOS_ID, 1) FROM RDB$D' +
|
||||
'ATABASE), EMPRESAS.ID, :ID_CONTACTO'#10'FROM EMPRESAS'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3154,13 +3148,6 @@ object srvContactos: TsrvContactos
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
@ -3173,8 +3160,8 @@ object srvContactos: TsrvContactos
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_EMPRESA = ' +
|
||||
':OLD_ID_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
|
||||
'DELETE'#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_CONTACTO = ' +
|
||||
':OLD_ID_CONTACTO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -4970,10 +4957,10 @@ object srvContactos: TsrvContactos
|
||||
Top = 82
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
|
||||
',77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="479,' +
|
||||
'77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left="' +
|
||||
'0,00" Top="26,50" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
|
||||
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" L' +
|
||||
'eft="479,77" Top="0,00" />'#13#10' <Entity Name="Contactos" Left="2' +
|
||||
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object bpContactos: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
|
||||
@ -178,7 +178,7 @@
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
EurekaLog Version=6014
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -492,6 +492,191 @@ Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppUpTime=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSCharset=1
|
||||
soCustomData=1
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoDoNotStoreProcNames=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
<ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
|
||||
@ -54,8 +54,8 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, cxControls, DB,
|
||||
uDataModuleEmpresas, uIEditorEmpresa;
|
||||
uEditorRegistryUtils, cxControls, DB,
|
||||
uDataModuleEmpresas, uIEditorEmpresa, uIEditorEmpresas;
|
||||
|
||||
{ TEmpresasController }
|
||||
|
||||
@ -321,16 +321,16 @@ begin
|
||||
end;
|
||||
|
||||
procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa);
|
||||
{var
|
||||
AEditor : IEditorClientes;}
|
||||
var
|
||||
AEditor : IEditorEmpresas;
|
||||
begin
|
||||
{ CreateEditor('EditorEmpresas', IEditorClientes, AEditor);
|
||||
CreateEditor('EditorEmpresas', IEditorEmpresas, AEditor);
|
||||
with AEditor do
|
||||
begin
|
||||
Contactos := AContactos;
|
||||
Empresas := AEmpresas;
|
||||
Controller := Self;
|
||||
ShowEmbedded;
|
||||
end;}
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -178,7 +178,7 @@
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
EurekaLog Version=6014
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -492,5 +492,190 @@ Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppUpTime=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSCharset=1
|
||||
soCustomData=1
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoDoNotStoreProcNames=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
|
||||
@ -342,6 +342,7 @@ object PluginEmpresas: TPluginEmpresas
|
||||
object actGestionEmpresas: TAction
|
||||
Category = 'Empresa'
|
||||
Caption = 'Gesti'#243'n de empresas'
|
||||
OnExecute = actGestionEmpresasExecute
|
||||
end
|
||||
object actSucursales: TAction
|
||||
Category = 'Empresa'
|
||||
|
||||
@ -36,6 +36,7 @@ type
|
||||
procedure actDatosDeUpdate(Sender: TObject);
|
||||
procedure actDatosDeExecute(Sender: TObject);
|
||||
procedure actNuevaEmpresaExecute(Sender: TObject);
|
||||
procedure actGestionEmpresasExecute(Sender: TObject);
|
||||
protected
|
||||
function Empresas : TStringList;
|
||||
function Controller : IEmpresasController;
|
||||
@ -87,6 +88,17 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPluginEmpresas.actGestionEmpresasExecute(Sender: TObject);
|
||||
var
|
||||
AEmpresasController : IEmpresasController;
|
||||
AEmpresas : IBizEmpresa;
|
||||
|
||||
begin
|
||||
AEmpresasController := TEmpresasController.Create;
|
||||
AEmpresas := (AEmpresasController.BuscarTodos as IBizEmpresa);
|
||||
AEmpresasController.VerTodos(AEmpresas);
|
||||
end;
|
||||
|
||||
procedure TPluginEmpresas.actNuevaEmpresaExecute(Sender: TObject);
|
||||
var
|
||||
AEmpresasController : IEmpresasController;
|
||||
|
||||
@ -223,9 +223,9 @@
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
EurekaLog Version=6014
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
@ -539,5 +539,190 @@ Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppUpTime=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSCharset=1
|
||||
soCustomData=1
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoDoNotStoreProcNames=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
|
||||
@ -72,13 +72,17 @@ requires
|
||||
Empresas_model,
|
||||
Empresas_controller,
|
||||
JvCtrlsD10R,
|
||||
JvJansD10R;
|
||||
JvJansD10R,
|
||||
dxGDIPlusD10,
|
||||
cxIntlPrintSys3D10;
|
||||
|
||||
contains
|
||||
uEmpresasViewRegister in 'uEmpresasViewRegister.pas',
|
||||
uEditorEmpresa in 'uEditorEmpresa.pas' {fEditorEmpresa: TForm},
|
||||
uViewEmpresa in 'uViewEmpresa.pas' {frViewEmpresa: TFrame},
|
||||
uViewDatosBancarios in 'uViewDatosBancarios.pas' {frViewDatosBancarios: TFrame},
|
||||
uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa};
|
||||
uEditorDatosBancariosEmpresa in 'uEditorDatosBancariosEmpresa.pas' {fEditorDatosBancariosEmpresa},
|
||||
uViewEmpresas in 'uViewEmpresas.pas' {frViewEmpresas: TFrame},
|
||||
uEditorEmpresas in 'uEditorEmpresas.pas' {fEditorEmpresas};
|
||||
|
||||
end.
|
||||
|
||||
1495
Source/Modulos/Empresas/Views/uEditorEmpresas.dfm
Normal file
1495
Source/Modulos/Empresas/Views/uEditorEmpresas.dfm
Normal file
File diff suppressed because it is too large
Load Diff
139
Source/Modulos/Empresas/Views/uEditorEmpresas.pas
Normal file
139
Source/Modulos/Empresas/Views/uEditorEmpresas.pas
Normal file
@ -0,0 +1,139 @@
|
||||
unit uEditorEmpresas;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||
JvNavigationPane, uViewEmpresas, uBizEmpresas, ActnList, DBActns, uViewGrid,
|
||||
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
|
||||
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
|
||||
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
|
||||
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
||||
uViewBarraSeleccion, pngimage, uIEditorEmpresas, uEditorGridBase,
|
||||
JvComponentBase, uViewGridBase, uEmpresasController, JvExComCtrls,
|
||||
JvStatusBar;
|
||||
|
||||
type
|
||||
TfEditorEmpresas = class(TfEditorGridBase, IEditorEmpresas)
|
||||
frViewEmpresas1: TfrViewEmpresas;
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
FEmpresas: IBizEmpresa;
|
||||
FController : IEmpresasController;
|
||||
protected
|
||||
function GetEmpresas: IBizEmpresa;
|
||||
procedure SetEmpresas(const Value: IBizEmpresa);
|
||||
function GetController : IEmpresasController; virtual;
|
||||
procedure SetController (const Value : IEmpresasController); virtual;
|
||||
|
||||
procedure NuevoInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
procedure ModificarInterno; override;
|
||||
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
|
||||
property Controller : IEmpresasController read GetController write SetController;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uCustomEditor, uDataModuleEmpresas, //uDataModuleUsuarios,
|
||||
// uEditorAlmacen,
|
||||
uEditorDBBase,
|
||||
cxGrid, cxGridCustomTableView; //, uListaEmpresas;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{
|
||||
****************************** TfEditorEmpresas *******************************
|
||||
}
|
||||
procedure TfEditorEmpresas.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Assigned(ViewGrid) then
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(Empresas) then
|
||||
raise Exception.Create('No hay ningún Almacen asignado');
|
||||
|
||||
Empresas.DataTable.Active := True;
|
||||
ViewGrid.GotoFirst;
|
||||
end;
|
||||
|
||||
function TfEditorEmpresas.GetEmpresas: IBizEmpresa;
|
||||
begin
|
||||
Result := FEmpresas;
|
||||
end;
|
||||
|
||||
function TfEditorEmpresas.GetController: IEmpresasController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpresas.ModificarInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Ver(Empresas);
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpresas.NuevoInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Anadir(Empresas);
|
||||
FController.Ver(Empresas);
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpresas.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
// FTitulo := 'Lista de empresas - ' + dmUsuarios.EmpresaActual.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpresas.SetEmpresas(const Value: IBizEmpresa);
|
||||
begin
|
||||
FEmpresas := Value;
|
||||
dsDataTable.DataTable := FEmpresas.DataTable;
|
||||
if Assigned(ViewGrid) then
|
||||
(ViewGrid as IViewEmpresas).Empresas := Empresas;
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpresas.SetController(const Value: IEmpresasController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
destructor TfEditorEmpresas.Destroy;
|
||||
begin
|
||||
FEmpresas := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpresas.EliminarInterno;
|
||||
begin
|
||||
|
||||
if (Application.MessageBox('¿Desea borrar esta empresa?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
inherited;
|
||||
//Para que en el caso de no poderse realizar la operación se refresquen
|
||||
//los datos y no nos permita eliminar un registro a la segunda
|
||||
if not FController.Eliminar(Empresas) then
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TfEditorEmpresas.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid := frViewEmpresas1; //CreateView(TfrViewEmpresas) as IViewEmpresas;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -8,17 +8,19 @@ procedure UnregisterViews;
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorEmpresa, uEditorDatosBancariosEmpresa;
|
||||
uEditorRegistryUtils, uEditorEmpresa, uEditorEmpresas, uEditorDatosBancariosEmpresa;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorEmpresa, 'EditorEmpresa');
|
||||
EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa');
|
||||
EditorRegistry.RegisterClass(TfEditorEmpresas, 'EditorEmpresas');
|
||||
EditorRegistry.RegisterClass(TfEditorDatosBancariosEmpresa, 'EditorDatosBancariosEmpresa');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorEmpresa);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEmpresas);
|
||||
EditorRegistry.UnRegisterClass(TfEditorDatosBancariosEmpresa);
|
||||
end;
|
||||
|
||||
|
||||
94
Source/Modulos/Empresas/Views/uViewEmpresas.dfm
Normal file
94
Source/Modulos/Empresas/Views/uViewEmpresas.dfm
Normal file
@ -0,0 +1,94 @@
|
||||
inherited frViewEmpresas: TfrViewEmpresas
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 almacenes'
|
||||
Kind = skCount
|
||||
Column = cxGridViewNOMBRE
|
||||
end>
|
||||
OptionsBehavior.PullFocusing = True
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
OnCustomDrawCell = cxGridViewIDCustomDrawCell
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
Width = 22
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NIF_CIF'
|
||||
Width = 118
|
||||
end
|
||||
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NOMBRE'
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 304
|
||||
end
|
||||
object cxGridViewCALLE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CALLE'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PROVINCIA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewPOBLACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'POBLACION'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CODIGO_POSTAL'
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 160
|
||||
Top = 32
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
84
Source/Modulos/Empresas/Views/uViewEmpresas.pas
Normal file
84
Source/Modulos/Empresas/Views/uViewEmpresas.pas
Normal file
@ -0,0 +1,84 @@
|
||||
unit uViewEmpresas;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGrid, uBizEmpresas, ActnList, Menus,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewEmpresas = interface(IViewGrid)
|
||||
['{E5E5D85C-0E6F-4DEF-BB72-4AA327E4DA6A}']
|
||||
function GetEmpresas: IBizEmpresa;
|
||||
procedure SetEmpresas(const Value: IBizEmpresa);
|
||||
property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
|
||||
end;
|
||||
|
||||
TfrViewEmpresas = class(TfrViewGrid, IViewEmpresas)
|
||||
cxGridViewNIF_CIF: TcxGridDBColumn;
|
||||
cxGridViewNOMBRE: TcxGridDBColumn;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewCALLE: TcxGridDBColumn;
|
||||
cxGridViewPROVINCIA: TcxGridDBColumn;
|
||||
cxGridViewPOBLACION: TcxGridDBColumn;
|
||||
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
protected
|
||||
FEmpresas: IBizEmpresa;
|
||||
function GetEmpresas: IBizEmpresa; virtual;
|
||||
procedure SetEmpresas(const Value: IBizEmpresa); virtual;
|
||||
public
|
||||
property Empresas: IBizEmpresa read GetEmpresas write SetEmpresas;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses uDataModuleEmpresas;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewEmpresas }
|
||||
|
||||
{
|
||||
******************************* TfrViewEmpresas *******************************
|
||||
}
|
||||
function TfrViewEmpresas.GetEmpresas: IBizEmpresa;
|
||||
begin
|
||||
Result := FEmpresas;
|
||||
end;
|
||||
|
||||
procedure TfrViewEmpresas.SetEmpresas(const Value: IBizEmpresa);
|
||||
begin
|
||||
FEmpresas := Value;
|
||||
if Assigned(FEmpresas) then
|
||||
dsDataSource.DataTable := FEmpresas.DataTable;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewEmpresas.cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
var
|
||||
R : TRect;
|
||||
begin
|
||||
inherited;
|
||||
R := AViewInfo.ContentBounds;
|
||||
ACanvas.FillRect(R);
|
||||
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||
ADone := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -75,36 +75,23 @@ function TDataModuleFacturasCliente.GetRptPDFFacturas(
|
||||
const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
Tipo: Integer;
|
||||
begin
|
||||
//Si dice que no se imprimirá la factura como becoaching
|
||||
Tipo := 1;
|
||||
if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Tipo := 2;
|
||||
|
||||
AParam := TIntegerArray.Create;
|
||||
try
|
||||
AParam.Add(AID);
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo, Tipo)
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo)
|
||||
finally
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetRptFacturas(
|
||||
const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
|
||||
function TDataModuleFacturasCliente.GetRptFacturas(const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
Tipo: Integer;
|
||||
begin
|
||||
//Si dice que no se imprimirá la factura como becoaching
|
||||
Tipo := 1;
|
||||
if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Tipo := 2;
|
||||
|
||||
AParam := AListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo, Tipo)
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo)
|
||||
finally
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
|
||||
@ -38,12 +38,12 @@ type
|
||||
FConnection: IDAConnection;
|
||||
FShowLogotipo: Boolean;
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
procedure _GenerarFactura(const ID: Integer; const Tipo: Integer);
|
||||
procedure _GenerarFactura(const ID: Integer);
|
||||
public
|
||||
function GenerarFactura(const ListaID : TIntegerArray;
|
||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
||||
const AConLogotipo: Boolean = False): Binary;
|
||||
function GenerarFacturaEnPDF(const ListaID : TIntegerArray;
|
||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
||||
const AConLogotipo: Boolean = False): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -51,11 +51,10 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
|
||||
uSistemaFunc, uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
|
||||
|
||||
const
|
||||
rptFacturaClienteTipo1 = 'InfFacturaClienteTipo1.fr3';
|
||||
rptFacturaClienteTipo2 = 'InfFacturaClienteTipo2.fr3';
|
||||
rptInforme = 'InfFacturaCliente.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
||||
@ -98,12 +97,13 @@ begin
|
||||
end;
|
||||
end;}
|
||||
|
||||
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const Tipo: Integer);
|
||||
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer);
|
||||
var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
dsVencimientos : IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -125,11 +125,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
||||
|
||||
if (Tipo = 1) then
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo1, True)
|
||||
else
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo2, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_FacturaCliente.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
@ -148,7 +148,7 @@ begin
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray;
|
||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
||||
const AConLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
@ -157,7 +157,7 @@ begin
|
||||
try
|
||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
_GenerarFactura(ListaID.Items[i], Tipo);
|
||||
_GenerarFactura(ListaID.Items[i]);
|
||||
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
@ -165,7 +165,7 @@ begin
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray;
|
||||
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
|
||||
const AConLogotipo: Boolean = False): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
@ -174,7 +174,7 @@ begin
|
||||
try
|
||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
_GenerarFactura(ListaID.Items[i], Tipo);
|
||||
_GenerarFactura(ListaID.Items[i]);
|
||||
|
||||
frxPDFExport1.Stream := Result;
|
||||
frxReport.Export(frxPDFExport1)
|
||||
|
||||
@ -36,8 +36,8 @@ type
|
||||
protected
|
||||
{ IsrvFacturasCliente methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -79,25 +79,25 @@ begin
|
||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo, Tipo);
|
||||
Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo, Tipo);
|
||||
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -47,7 +47,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schFacturasProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
|
||||
@ -111,6 +111,7 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
dsVencimientos : IDADataset;
|
||||
Ainforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -132,8 +133,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProveedor, tbl_FacturaProveedor.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptFacturaProveedor));
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaProveedor, True);
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -43,7 +43,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schPedidosProveedorClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schPedidosProveedorClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfPedidoProveedor.fr3';
|
||||
@ -105,6 +105,7 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -121,7 +122,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -861,7 +861,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39255.590290254630000000
|
||||
ReportOptions.LastChange = 39701.872180266200000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
''
|
||||
@ -917,12 +917,58 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
||||
'end;'
|
||||
''
|
||||
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if not Engine.FinalPass then'
|
||||
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
||||
''
|
||||
' if Engine.FinalPass then'
|
||||
' Set('#39'Pagina'#39', (<Pagina> + 1));'
|
||||
'end;'
|
||||
''
|
||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' Set('#39'Pagina'#39', 0);'
|
||||
' Set('#39'TotalPaginas'#39', 0);'
|
||||
'end;'
|
||||
''
|
||||
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if <ShowLogotipo> then'
|
||||
' begin '
|
||||
' Picture1.Visible := True; '
|
||||
' Picture2.Visible := True; '
|
||||
' Picture3.Visible := True; '
|
||||
' Picture4.Visible := True; '
|
||||
' Picture5.Visible := True; '
|
||||
' Picture6.Visible := True; '
|
||||
' Memo25.Visible := True;'
|
||||
' NombreEmpresa.Visible := False;'
|
||||
|
||||
' DatosEmpresa.Visible := False; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin '
|
||||
' Picture1.Visible := False;'
|
||||
' Picture2.Visible := False;'
|
||||
' Picture3.Visible := False;'
|
||||
' Picture4.Visible := False;'
|
||||
' Picture5.Visible := False;'
|
||||
' Picture6.Visible := False;'
|
||||
' Memo25.Visible := False;'
|
||||
' NombreEmpresa.Visible := True;'
|
||||
' DatosEmpresa.Visible := True; '
|
||||
' end '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnGetValue = frxReportGetValue
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 169
|
||||
Top = 16
|
||||
end
|
||||
|
||||
@ -45,7 +45,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer, schPedidosClienteClient_Intf;
|
||||
uSistemaFunc, uDataModuleServer, schPedidosClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptInforme = 'InfPedidoCliente.fr3';
|
||||
@ -116,6 +116,7 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -132,7 +133,12 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarPedido, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -43,7 +43,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer;
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
|
||||
const
|
||||
rptInforme = 'InfReciboCliente.fr3';
|
||||
@ -105,7 +105,7 @@ var
|
||||
dsMaster: IDADataset;
|
||||
dsCompensados : IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -122,7 +122,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsCompensados, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Compensados, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -683,7 +683,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -691,6 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
@ -737,13 +738,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer;
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
|
||||
const
|
||||
rptInforme = 'InfReciboCliente.fr3';
|
||||
@ -59,6 +59,7 @@ function TRptRecibosCliente.GenerarRecibo(const ID: Integer): Binary;
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -70,7 +71,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport;
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
|
||||
@ -683,7 +683,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -691,6 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
@ -737,13 +738,6 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -37,7 +37,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer;
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
|
||||
const
|
||||
rptInforme = 'InfReciboCliente.fr3';
|
||||
@ -59,6 +59,7 @@ function TRptRecibosCliente.GenerarRecibo(const ID: Integer): Binary;
|
||||
var
|
||||
dsMaster: IDADataset;
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
Result := Binary.Create;
|
||||
@ -70,7 +71,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport;
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
|
||||
@ -41,7 +41,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer;
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
|
||||
const
|
||||
rptInforme = 'InfRemesaCliente.fr3';
|
||||
@ -87,6 +87,7 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -103,7 +104,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarComision, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -41,7 +41,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleServer;
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
|
||||
const
|
||||
rptInforme = 'InfRemesaProveedor.fr3';
|
||||
@ -88,6 +88,7 @@ var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
AInforme: Variant;
|
||||
begin
|
||||
AStream := TMemoryStream.Create;
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
@ -104,7 +105,11 @@ begin
|
||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarRemesa, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
|
||||
@ -134,8 +134,6 @@
|
||||
</Parameter>
|
||||
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="Tipo" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerarInformeEnPDF" UID="{D2C4E6D0-9D90-4C35-9C92-B9139493B849}">
|
||||
@ -146,8 +144,6 @@
|
||||
</Parameter>
|
||||
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="Tipo" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
|
||||
@ -264,8 +264,8 @@ type
|
||||
IsrvFacturasCliente = interface(IDARemoteService)
|
||||
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
end;
|
||||
|
||||
{ CosrvFacturasCliente }
|
||||
@ -279,8 +279,8 @@ type
|
||||
function __GetInterfaceName:string; override;
|
||||
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
end;
|
||||
|
||||
{ IsrvPedidosProveedor }
|
||||
@ -1350,7 +1350,7 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
var
|
||||
__request, __response : TMemoryStream;
|
||||
begin
|
||||
@ -1362,7 +1362,6 @@ begin
|
||||
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
|
||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||
__Message.Write('Tipo', TypeInfo(Integer), Tipo, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__Message.WriteToStream(__request);
|
||||
@ -1376,7 +1375,7 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
|
||||
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
|
||||
var
|
||||
__request, __response : TMemoryStream;
|
||||
begin
|
||||
@ -1388,7 +1387,6 @@ begin
|
||||
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
|
||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||
__Message.Write('Tipo', TypeInfo(Integer), Tipo, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__Message.WriteToStream(__request);
|
||||
|
||||
@ -485,11 +485,10 @@ begin
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; }
|
||||
{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; }
|
||||
var
|
||||
ListaID: FactuGES_Intf.TIntegerArray;
|
||||
ShowLogotipo: Boolean;
|
||||
Tipo: Integer;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
@ -498,9 +497,8 @@ begin
|
||||
try
|
||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||
__Message.Read('Tipo', TypeInfo(Integer), Tipo, []);
|
||||
|
||||
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo, Tipo);
|
||||
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo);
|
||||
|
||||
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse');
|
||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -518,11 +516,10 @@ begin
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; }
|
||||
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; }
|
||||
var
|
||||
ListaID: FactuGES_Intf.TIntegerArray;
|
||||
ShowLogotipo: Boolean;
|
||||
Tipo: Integer;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
@ -531,9 +528,8 @@ begin
|
||||
try
|
||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
|
||||
__Message.Read('Tipo', TypeInfo(Integer), Tipo, []);
|
||||
|
||||
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo, Tipo);
|
||||
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo);
|
||||
|
||||
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
|
||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
|
||||
Binary file not shown.
@ -175,7 +175,7 @@
|
||||
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.3.7.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">martes, 06 de octubre de 2009 17:53</VersionInfoKeys></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">jueves, 15 de julio de 2010 16:53</VersionInfoKeys></VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
|
||||
@ -115,8 +115,6 @@ uses
|
||||
schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
|
||||
schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
|
||||
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDARemoteService},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
|
||||
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
|
||||
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
|
||||
@ -136,7 +134,11 @@ uses
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas',
|
||||
uStringsUtils in '..\Base\Utiles\uStringsUtils.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "3.3.7.0\0"
|
||||
VALUE "ProductName", "FactuGES Server\0"
|
||||
VALUE "ProductVersion", "3.3.7.0\0"
|
||||
VALUE "CompileDate", "lunes, 22 de marzo de 2010 13:20\0"
|
||||
VALUE "CompileDate", "jueves, 15 de julio de 2010 18:00\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user