Version 4.0.3
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@82 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
fdc9033b3c
commit
e07ae69e14
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -1,6 +1,6 @@
|
||||
<project ServerProjectName="">
|
||||
<watches/>
|
||||
<collapsedNodes>{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{789902B1-5E64-4FD9-80BF-6113B13BFE12},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{C61122F3-C791-4A88-8A9F-53A4F282AC6F},{E8E8671F-894B-4049-B4A6-905B57207637}</collapsedNodes>
|
||||
<collapsedNodes>{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{E8E8671F-894B-4049-B4A6-905B57207637}</collapsedNodes>
|
||||
<breakpoints></breakpoints>
|
||||
<actions/>
|
||||
<propertysets/>
|
||||
@ -14,8 +14,8 @@
|
||||
<Notes>
|
||||
<![CDATA[]]>
|
||||
</Notes>
|
||||
<LastBuildRun>00:28:48</LastBuildRun>
|
||||
<LastBuildStart>17/09/2010 19:01:29</LastBuildStart>
|
||||
<LastBuildState>False</LastBuildState>
|
||||
<LastBuildRun>00:00:01</LastBuildRun>
|
||||
<LastBuildStart>01/10/2010 18:26:31</LastBuildStart>
|
||||
<LastBuildState>True</LastBuildState>
|
||||
</properties>
|
||||
</project>
|
||||
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
@ -1102,7 +1102,9 @@ CREATE TABLE PROVEEDORES_DATOS (
|
||||
SUBCONTRATA TIPO_BOOLEANO,
|
||||
VENCIMIENTO_FACTURAS_1 SMALLINT,
|
||||
VENCIMIENTO_FACTURAS_2 SMALLINT,
|
||||
VENCIMIENTO_FACTURAS_3 SMALLINT
|
||||
VENCIMIENTO_FACTURAS_3 SMALLINT,
|
||||
VENCIMIENTO_FACTURAS_3 SMALLINT,
|
||||
PAIS VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
CREATE TABLE PROVEEDORES_GRUPOS (
|
||||
@ -3306,8 +3308,6 @@ FROM
|
||||
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_FACTURA)
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_PROVEEDORES */
|
||||
CREATE VIEW V_PROVEEDORES(
|
||||
ID,
|
||||
@ -3347,7 +3347,8 @@ CREATE VIEW V_PROVEEDORES(
|
||||
EMAIL_ADMINISTRACION,
|
||||
VENCIMIENTO_FACTURAS_1,
|
||||
VENCIMIENTO_FACTURAS_2,
|
||||
VENCIMIENTO_FACTURAS_3)
|
||||
VENCIMIENTO_FACTURAS_3,
|
||||
PAIS)
|
||||
AS
|
||||
SELECT
|
||||
V_CONTACTOS.ID,
|
||||
@ -3387,7 +3388,8 @@ SELECT
|
||||
PROVEEDORES_DATOS.EMAIL_ADMINISTRACION,
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_1,
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_2,
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3
|
||||
PROVEEDORES_DATOS.VENCIMIENTO_FACTURAS_3,
|
||||
PROVEEDORES_DATOS.PAIS
|
||||
|
||||
FROM
|
||||
V_CONTACTOS
|
||||
@ -3396,8 +3398,6 @@ WHERE
|
||||
V_CONTACTOS.ID_CATEGORIA = 2
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_REC_CLI_COMPENSADOS */
|
||||
CREATE VIEW V_REC_CLI_COMPENSADOS(
|
||||
ID_RECIBO,
|
||||
|
||||
@ -58,63 +58,63 @@
|
||||
<Form>DataModuleImpresiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
|
||||
<Form>DataModuleRegistroCorreos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 4,0,0,0
|
||||
PRODUCTVERSION 4,0,0,0
|
||||
FILEVERSION 4,0,3,0
|
||||
PRODUCTVERSION 4,0,3,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "4.0.0.0\0"
|
||||
VALUE "FileVersion", "4.0.3.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "4.0.0.0\0"
|
||||
VALUE "ProductVersion", "4.0.3.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -54,7 +54,7 @@ begin
|
||||
|
||||
// LoadModule('GestorInformes_plugin.bpl');
|
||||
LoadModule('Comisiones_plugin.bpl');
|
||||
|
||||
LoadModule('BancaElectronica_plugin.bpl');
|
||||
LoadModule('TiendaWeb_plugin.bpl');
|
||||
end;
|
||||
end;
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -3,7 +3,7 @@ unit schAlbaranesClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
@ -179,7 +179,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosAlbaranesDataTableRules }
|
||||
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
|
||||
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -500,7 +500,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
|
||||
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -915,7 +915,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
|
||||
@ -9,8 +9,7 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
|
||||
Top = 139
|
||||
Width = 790
|
||||
Visible = False
|
||||
ExplicitLeft = -8
|
||||
ExplicitTop = 280
|
||||
ExplicitTop = 139
|
||||
ExplicitWidth = 790
|
||||
inherited Image1: TImage
|
||||
Left = 763
|
||||
@ -20,12 +19,12 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 64
|
||||
Width = 790
|
||||
ExplicitTop = 91
|
||||
ExplicitTop = 64
|
||||
ExplicitWidth = 790
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Left = 359
|
||||
ExplicitLeft = 359
|
||||
ExplicitWidth = 263
|
||||
ExplicitWidth = 126
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -86,9 +85,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
|
||||
ExplicitWidth = 790
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 318
|
||||
Left = 96
|
||||
Visible = False
|
||||
ExplicitLeft = 318
|
||||
ExplicitLeft = 96
|
||||
ExplicitWidth = 694
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
@ -109,7 +109,6 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
|
||||
Padding.Bottom = 8
|
||||
ParentBackground = False
|
||||
TabOrder = 4
|
||||
ExplicitTop = 27
|
||||
object lblTitle: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 25
|
||||
@ -190,6 +189,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [5]
|
||||
inherited actEnviarEMail: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [6]
|
||||
end
|
||||
|
||||
@ -254,6 +254,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 638
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -272,6 +274,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 464
|
||||
Visible = True
|
||||
ExplicitTop = 464
|
||||
ExplicitWidth = 802
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -290,6 +293,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actAlmacenes
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actAgentes
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -342,6 +350,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
OnExecute = actAlmacenesExecute
|
||||
OnUpdate = actAlmacenesUpdate
|
||||
end
|
||||
object actAgentes: TAction
|
||||
Caption = 'Agentes'
|
||||
OnExecute = actAgentesExecute
|
||||
OnUpdate = actAgentesUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -64,6 +64,9 @@ type
|
||||
cxGridViewBLOQUEADO: TcxGridDBColumn;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
cxGridLevelBloqueados: TcxGridLevel;
|
||||
actAgentes: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
@ -88,6 +91,8 @@ type
|
||||
procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
|
||||
var ADone: Boolean);
|
||||
procedure actAgentesExecute(Sender: TObject);
|
||||
procedure actAgentesUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -111,6 +116,26 @@ uses
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actAgentesExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actAgentesUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actAlmacenesExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0) then
|
||||
|
||||
@ -4,6 +4,7 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
|
||||
inherited cxGrid: TcxGrid
|
||||
Height = 286
|
||||
RootLevelOptions.DetailTabsPosition = dtpTop
|
||||
OnActiveTabChanged = cxGridActiveTabChanged
|
||||
ExplicitHeight = 286
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
|
||||
@ -17,24 +18,42 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
|
||||
Caption = ''
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
Caption = 'Generales'
|
||||
Caption = 'Otros proveedores'
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 225
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 225
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 383
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 383
|
||||
ExplicitWidth = 322
|
||||
Width = 322
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, uBizContactos,
|
||||
dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
|
||||
uViewFiltroBase, uDAInterfaces, uViewArticulos;
|
||||
uViewFiltroBase, uDAInterfaces, uViewArticulos, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewElegirArticulosAlbaranesProveedor = interface(IViewArticulos)
|
||||
@ -57,7 +57,7 @@ begin
|
||||
0 : if Assigned(FProveedor) then
|
||||
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE);
|
||||
1 : if Assigned(FProveedor) then
|
||||
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, Null, 'ARTICULOS SIN PROVEEDOR');
|
||||
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foNotEqual, FProveedor.ID, FProveedor.NOMBRE);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -90,8 +90,20 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfrViewProveedorArticulo.PrecioNetoChanged(Sender: TObject);
|
||||
var
|
||||
APrecioCoste: Double;
|
||||
ADescuento: Double;
|
||||
begin
|
||||
ePrecioNeto.EditValue := ePrecioCoste.EditValue - ((ePrecioCoste.EditValue * eDescuento.EditValue)/100)
|
||||
APrecioCoste := 0;
|
||||
ADescuento := 0;
|
||||
|
||||
if not varIsNull(ePrecioCoste.EditValue) then
|
||||
APrecioCoste := ePrecioCoste.EditValue;
|
||||
|
||||
if not varIsNull(eDescuento.EditValue) then
|
||||
ADescuento := eDescuento.EditValue;
|
||||
|
||||
ePrecioNeto.EditValue := APrecioCoste - ((APrecioCoste * ADescuento)/100)
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
@ -1,4 +1,5 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{d465978e-860e-4eb2-9a25-2afb559e8e07}</ProjectGuid>
|
||||
<MainSource>BancaElectronica_controller.dpk</MainSource>
|
||||
@ -39,72 +40,35 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">True</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">BancaElectronica_controller.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BancaElectronica_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="BancaElectronica_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
|
||||
<DCCReference Include="..\Utiles\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Utiles\Base.dcp" />
|
||||
<DCCReference Include="..\Utiles\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Utiles\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Utiles\CVBNorma1958CSB.pas" />
|
||||
<DCCReference Include="..\Utiles\CVBNorma19CSB.pas" />
|
||||
<DCCReference Include="..\Utiles\CVBNorma32CSB.pas" />
|
||||
<DCCReference Include="..\Utiles\CVBNorma34CSB.pas" />
|
||||
<DCCReference Include="..\Utiles\CVBUtils.pas" />
|
||||
<DCCReference Include="..\Utiles\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Utiles\RemesasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\Utiles\RemesasCliente_model.dcp" />
|
||||
<DCCReference Include="..\Utiles\rtl.dcp" />
|
||||
<DCCReference Include="..\Utiles\vcl.dcp" />
|
||||
<DCCReference Include="uBancaElectronicaController.pas" />
|
||||
<DCCReference Include="View\uIEditorExportacionNorma19.pas" />
|
||||
<DCCReference Include="View\uIEditorExportacionNorma32.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -6,13 +6,13 @@ type
|
||||
IEditorExportacionNorma19 = interface
|
||||
['{FED1E69E-99F3-408E-9CA8-FADEF2E01726}']
|
||||
|
||||
procedure SetCodigoEntidad(const AValue: Integer);
|
||||
function GetCodigoEntidad : Integer;
|
||||
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad;
|
||||
procedure SetCodigoEntidad(const AValue: String);
|
||||
function GetCodigoEntidad : String;
|
||||
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
|
||||
|
||||
procedure SetCodigoAgencia(const AValue: Integer);
|
||||
function GetCodigoAgencia : Integer;
|
||||
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia;
|
||||
procedure SetCodigoAgencia(const AValue: String);
|
||||
function GetCodigoAgencia : String;
|
||||
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
|
||||
|
||||
procedure SetFechaCargo(const AValue: TDateTime);
|
||||
function GetFechaCargo : TDateTime;
|
||||
|
||||
@ -0,0 +1,40 @@
|
||||
unit uIEditorExportacionNorma32;
|
||||
|
||||
interface
|
||||
|
||||
type
|
||||
IEditorExportacionNorma32 = interface
|
||||
['{84B46A6B-5791-4E30-9ED0-2DDBCC84F353}']
|
||||
|
||||
procedure SetCodigoEntidad(const AValue: String);
|
||||
function GetCodigoEntidad : String;
|
||||
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
|
||||
|
||||
procedure SetCodigoAgencia(const AValue: String);
|
||||
function GetCodigoAgencia : String;
|
||||
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
|
||||
|
||||
procedure SetFechaCargo(const AValue: TDateTime);
|
||||
function GetFechaCargo : TDateTime;
|
||||
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
|
||||
|
||||
procedure SetFichero(const AValue: String);
|
||||
function GetFichero : String;
|
||||
property Fichero : String read GetFichero write SetFichero;
|
||||
|
||||
function GetCodigoINE: String;
|
||||
procedure SetCodigoINE(const Value: String);
|
||||
property CodigoINE : String read GetCodigoINE write SetCodigoINE;
|
||||
|
||||
procedure SetCodigoIdentif(const Value: String);
|
||||
function GetCodigoIdentif: String;
|
||||
property CodigoIdentif : String read GetCodigoIdentif write SetCodigoIdentif;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -26,34 +26,41 @@ unit uBancaElectronicaController;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase;
|
||||
Classes, SysUtils, uDADataTable;
|
||||
|
||||
type
|
||||
IBancaElectronicaController = interface(IControllerBase)
|
||||
IBancaElectronicaController = interface
|
||||
['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}']
|
||||
procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
|
||||
procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
|
||||
end;
|
||||
|
||||
TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController)
|
||||
TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController)
|
||||
private
|
||||
function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer;
|
||||
function VerEditorNorma19(var Entidad : String; var Oficina : String;
|
||||
var AFechaCargo : TDateTime; var AFileName : String): Boolean;
|
||||
|
||||
function VerEditorNorma32(var Identificador : String;
|
||||
var ACodigoINE : String; var Entidad : String; var Oficina : String;
|
||||
var AFileName : String): Boolean;
|
||||
public
|
||||
procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
|
||||
procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, Controls, Windows,
|
||||
CVBNorma1958CSB,
|
||||
Forms, cxControls, Controls, Windows,
|
||||
CVBNorma1958CSB, CVBNorma32CSB,
|
||||
uEditorRegistryUtils,
|
||||
|
||||
uBizEmpresas, uEmpresasController,
|
||||
uBizContactos, uClientesController,
|
||||
uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf,
|
||||
schRecibosClienteClient_Intf, Dialogs,
|
||||
uIEditorExportacionNorma19;
|
||||
uIEditorExportacionNorma19, uIEditorExportacionNorma32, uBizRecibosCliente,
|
||||
schContactosClient_Intf, schEmpresasClient_Intf;
|
||||
|
||||
|
||||
{ TBancaElectronicaController }
|
||||
@ -71,14 +78,15 @@ var
|
||||
|
||||
ANorma19 : TCVBNorma1958CSB;
|
||||
I: integer;
|
||||
AEntidad : Integer;
|
||||
AOficina : Integer;
|
||||
AEntidad : String;
|
||||
AOficina : String;
|
||||
begin
|
||||
ARemesasController := TRemesasClienteController.Create;
|
||||
AEmpresasController := TEmpresasController.Create;
|
||||
AClientesController := TClientesController.Create;
|
||||
|
||||
ANorma19 := TCVBNorma1958CSB.Create(NIL);
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARemesa := ARemesasController.Buscar(IDRemesa);
|
||||
ARemesa.DataTable.Active := True;
|
||||
@ -96,16 +104,27 @@ begin
|
||||
ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19';
|
||||
ANorma19.FecAbono := ARemesa.FECHA_REMESA;
|
||||
|
||||
if not DarParametrosParaExportar(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
|
||||
// Buscar los datos bancarios
|
||||
with AEmpresa.DatosBancarios do
|
||||
begin
|
||||
First;
|
||||
if Locate('ID', ARemesa.ID_DATOS_BANCO, []) then
|
||||
begin
|
||||
AEntidad := ENTIDAD;
|
||||
AOficina := SUCURSAL;
|
||||
end;
|
||||
end;
|
||||
|
||||
if not VerEditorNorma19(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
|
||||
Exit;
|
||||
|
||||
ANorma19.EntRecepPres := IntToStr(AEntidad);
|
||||
ANorma19.OfiRecepPres := IntToStr(AOficina);
|
||||
ANorma19.EntRecepPres := AEntidad;
|
||||
ANorma19.OfiRecepPres := AOficina;
|
||||
|
||||
with ANorma19 do
|
||||
begin
|
||||
_NORMA_ := 19;
|
||||
Procedimiento := prPrimero; // <= ????????????????????????????????????
|
||||
//ANorma19.Procedimiento := prPrimero; // <= ????????????????????????????????????
|
||||
Euros := True;
|
||||
Depura := True;
|
||||
|
||||
@ -144,10 +163,10 @@ begin
|
||||
// el que paga
|
||||
Referencia := ACliente.REFERENCIA;
|
||||
NomTitDom := ARemesa.Recibos.NOMBRE_CLIENTE;
|
||||
// EntTitDom := ARemesa.Recibos.ENTIDAD_CLIENTE;
|
||||
// OfiTitDom := ARemesa.Recibos.SUCURSAL_CLIENTE;
|
||||
// DcTitDom := ARemesa.Recibos.DC_CLIENTE;
|
||||
// CcTitDom := ARemesa.Recibos.CUENTA_CLIENTE;
|
||||
EntTitDom := ARemesa.Recibos.ENTIDAD_CLIENTE;
|
||||
OfiTitDom := ARemesa.Recibos.SUCURSAL_CLIENTE;
|
||||
DcTitDom := ARemesa.Recibos.DC_CLIENTE;
|
||||
CcTitDom := ARemesa.Recibos.CUENTA_CLIENTE;
|
||||
NomTitCta := ARemesa.Recibos.NOMBRE_CLIENTE;
|
||||
DomTitCta := '';
|
||||
PlzTitCta := '';
|
||||
@ -164,6 +183,7 @@ begin
|
||||
Cerrar;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
ARemesasController := NIL;
|
||||
AEmpresasController := NIL;
|
||||
AClientesController := NIL;
|
||||
@ -174,35 +194,218 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBancaElectronicaController.DarParametrosParaExportar (
|
||||
var Entidad : Integer; var Oficina : Integer; var AFechaCargo : TDateTime;
|
||||
procedure TBancaElectronicaController.GenerarFicheroNorma32(
|
||||
const IDRemesa: Integer);
|
||||
var
|
||||
ARemesasController : IRemesasClienteController;
|
||||
AEmpresasController : IEmpresasController;
|
||||
AClientesController : IClientesController;
|
||||
|
||||
ARemesa : IBizRemesaCliente;
|
||||
AEmpresa : IBizEmpresa;
|
||||
ACliente : IBizCliente;
|
||||
|
||||
ANorma32 : TCVBNorma32CSB;
|
||||
I: integer;
|
||||
AEntidad : String;
|
||||
AOficina : String;
|
||||
ACodINE : String;
|
||||
begin
|
||||
ARemesasController := TRemesasClienteController.Create;
|
||||
AEmpresasController := TEmpresasController.Create;
|
||||
AClientesController := TClientesController.Create;
|
||||
|
||||
ANorma32 := TCVBNorma32CSB.Create(NIL);
|
||||
ShowHourglassCursor;
|
||||
Application.ProcessMessages;
|
||||
try
|
||||
ARemesa := ARemesasController.Buscar(IDRemesa);
|
||||
ARemesa.DataTable.Active := True;
|
||||
ARemesasController.RecuperarRecibos(ARemesa);
|
||||
|
||||
if ARemesa.ID <> IDRemesa then
|
||||
raise Exception.CreateFmt('No existe la remesa con ID %d', [IDRemesa]);
|
||||
|
||||
AEmpresa := AEmpresasController.Buscar(ARemesa.ID_EMPRESA);
|
||||
AEmpresa.DataTable.Active := True;
|
||||
|
||||
if AEmpresa.ID <> ARemesa.ID_EMPRESA then
|
||||
raise Exception.CreateFmt('No existe la empresa con ID %d', [ARemesa.ID_EMPRESA]);
|
||||
|
||||
ANorma32.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C32';
|
||||
ANorma32.FechaFichero := Date;
|
||||
|
||||
// Buscar los datos bancarios
|
||||
with AEmpresa.DatosBancarios do
|
||||
begin
|
||||
First;
|
||||
if Locate('ID', ARemesa.ID_DATOS_BANCO, []) then
|
||||
begin
|
||||
AEntidad := ENTIDAD;
|
||||
AOficina := SUCURSAL;
|
||||
end;
|
||||
end;
|
||||
|
||||
if not VerEditorNorma32(ANorma32.IdCedente, ACodINE, AEntidad,
|
||||
AOficina, ANorma32.FNomFic) then
|
||||
Exit;
|
||||
|
||||
with ANorma32 do
|
||||
begin
|
||||
_NORMA_ := 32;
|
||||
Euros := True;
|
||||
Depura := True;
|
||||
|
||||
Abrir;
|
||||
|
||||
// Cabecera del fichero
|
||||
FechaFichero := NOW;
|
||||
EntReceptora := AEntidad;
|
||||
SucReceptora := AOficina;
|
||||
CompCabeceraFichero;
|
||||
|
||||
// Cabecera de la remesa
|
||||
NumRemesa := '0001'; //<-------------------------------------------------
|
||||
|
||||
AboEnt := ARemesa.ENTIDAD;
|
||||
AboOfi := ARemesa.SUCURSAL;
|
||||
AboDC := ARemesa.DC;
|
||||
AboCC := ARemesa.CUENTA;
|
||||
|
||||
AdeEnt := ARemesa.ENTIDAD;
|
||||
AdeOfi := ARemesa.SUCURSAL;
|
||||
AdeDC := ARemesa.DC;
|
||||
AdeCC := ARemesa.CUENTA;
|
||||
|
||||
ImpEnt := ARemesa.ENTIDAD;
|
||||
ImpSuc := ARemesa.SUCURSAL;
|
||||
ImpDC := ARemesa.DC;
|
||||
ImpCC := ARemesa.CUENTA;
|
||||
|
||||
CompCabeceraRemesa;
|
||||
|
||||
ARemesa.Recibos.First;
|
||||
for i := 0 to ARemesa.Recibos.RecordCount - 1 do
|
||||
begin
|
||||
RegNumRecibo := ARemesa.Recibos.REFERENCIA;
|
||||
RegCodigoINE := ACodINE;
|
||||
RegPlazaLibr := AEmpresa.POBLACION;
|
||||
RegImpEfecto := ARemesa.Recibos.IMPORTE_TOTAL;
|
||||
RegVtoEfecto := ARemesa.Recibos.FECHA_VENCIMIENTO;
|
||||
// (II)
|
||||
RegCodEnt := ARemesa.Recibos.ENTIDAD_CLIENTE;
|
||||
RegCodOfi := ARemesa.Recibos.SUCURSAL_CLIENTE;
|
||||
RegDC := ARemesa.Recibos.DC_CLIENTE;
|
||||
RegCC := ARemesa.Recibos.CUENTA_CLIENTE;
|
||||
RegLibrador := AEmpresa.NOMBRE;
|
||||
RegLibrado := ARemesa.Recibos.NOMBRE_CLIENTE;
|
||||
RegInfoAdic := '';
|
||||
// (III)
|
||||
ACliente := (AClientesController.Buscar(ARemesa.Recibos.ID_CLIENTE) as IBizCliente);
|
||||
try
|
||||
ACliente.DataTable.Active := True;
|
||||
RegDomicilio := ACliente.CALLE;
|
||||
RegCodPostal := ACliente.CODIGO_POSTAL;
|
||||
RegPoblacion := ACliente.POBLACION;
|
||||
RegNIF := ARemesa.Recibos.NIF_CIF_CLIENTE;
|
||||
finally
|
||||
ACliente := NIL;
|
||||
end;
|
||||
CompRegistro;
|
||||
|
||||
ARemesa.Recibos.Next;
|
||||
end;
|
||||
CompFinRemesa;
|
||||
Cerrar;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
ARemesasController := NIL;
|
||||
AEmpresasController := NIL;
|
||||
AClientesController := NIL;
|
||||
|
||||
AEmpresa := NIL;
|
||||
|
||||
FreeAndNil(ANorma32);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBancaElectronicaController.VerEditorNorma19 (
|
||||
var Entidad : String; var Oficina : String; var AFechaCargo : TDateTime;
|
||||
var AFileName : String): Boolean;
|
||||
var
|
||||
AEditor : IEditorExportacionNorma19;
|
||||
begin
|
||||
Result := False;
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor);
|
||||
with AEditor do
|
||||
begin
|
||||
CodigoEntidad := Entidad;
|
||||
CodigoAgencia := Oficina;
|
||||
FechaCargo := AFechaCargo;
|
||||
Fichero := AFileName;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.CodigoEntidad := Entidad;
|
||||
AEditor.CodigoAgencia := Oficina;
|
||||
AEditor.FechaCargo := AFechaCargo;
|
||||
AEditor.Fichero := AFileName;
|
||||
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
begin
|
||||
AEditor.Entidad := CodigoEntidad;
|
||||
AEditor.Oficina := CodigoAgencia;
|
||||
AFechaCargo := AEditor.FechaCargo;
|
||||
AFileName := AEditor.Fichero;
|
||||
Result := True;
|
||||
end;
|
||||
finally
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
begin
|
||||
Entidad := AEditor.CodigoEntidad;
|
||||
Oficina := AEditor.CodigoAgencia;
|
||||
AFechaCargo := AEditor.FechaCargo;
|
||||
AFileName := AEditor.Fichero;
|
||||
Result := True;
|
||||
end;
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function TBancaElectronicaController.VerEditorNorma32(var Identificador,
|
||||
ACodigoINE: String; var Entidad, Oficina: String;
|
||||
var AFileName: String): Boolean;
|
||||
var
|
||||
AEditor : IEditorExportacionNorma32;
|
||||
begin
|
||||
Result := False;
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorExportacionNorma32', IEditorExportacionNorma32, AEditor);
|
||||
with AEditor do
|
||||
begin
|
||||
CodigoIdentif := Identificador;
|
||||
CodigoINE := ACodigoINE;
|
||||
CodigoEntidad := Entidad;
|
||||
CodigoAgencia := Oficina;
|
||||
Fichero := AFileName;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
begin
|
||||
Identificador := AEditor.CodigoIdentif;
|
||||
ACodigoINE := AEditor.CodigoINE;
|
||||
Entidad := AEditor.CodigoEntidad;
|
||||
Oficina := AEditor.CodigoAgencia;
|
||||
AFileName := AEditor.Fichero;
|
||||
Result := True;
|
||||
end;
|
||||
AEditor.Release;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
end.
|
||||
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
716
Source/Modulos/Banca electronica/Utiles/CVBNorma32CSB.pas
Normal file
716
Source/Modulos/Banca electronica/Utiles/CVBNorma32CSB.pas
Normal file
@ -0,0 +1,716 @@
|
||||
unit CVBNorma32CSB;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Messages, SysUtils, Classes, Dialogs, CVBUtils;
|
||||
|
||||
type
|
||||
|
||||
TProcedimiento = (prPrimero, prSegundo);
|
||||
TCVBParte = (CABECERA_GENERAL, CABECERA_REMESA,
|
||||
REGISTRO1, REGISTRO2, REGISTRO3, FIN_REMESA, FIN_GENERAL);
|
||||
|
||||
TCVBNorma32CSB = class(TComponent)
|
||||
private
|
||||
pReg: array[0..152] of char; // Un digito más por el /0
|
||||
_LL_: integer; // Longitud Línea. Aquí almacenamos el valor 164 para usarlo
|
||||
// en el resto del componente.
|
||||
_INDICA_: string;
|
||||
_CERO_, _SPCE_: char;
|
||||
_MSK_PT_, _MSK_EU_: string;
|
||||
|
||||
prProced: TProcedimiento;
|
||||
HayError: boolean;
|
||||
|
||||
FEuro: boolean;
|
||||
FDepura: boolean;
|
||||
|
||||
NFic: file;
|
||||
|
||||
fSumaImpRecibos: double; // Suma de los recibos dentro de una remesa
|
||||
fSumaImpRemesas: double; // Suma de las remesas dentro del fichero
|
||||
|
||||
iNumRecibos: integer; // Nº de recibos dentro de una remesa
|
||||
iNumRemesas: integer; // Nº de remesas dentro del fichero
|
||||
|
||||
iTotalLineas: integer; // Nº de líneas en el fichero
|
||||
iTotalRecibos : integer; // Nº de recibos dentro de un fichero
|
||||
|
||||
FEnCasoError: TNotifyEvent;
|
||||
sReg: string;
|
||||
|
||||
_19_, _58_, _32_: integer;
|
||||
protected
|
||||
procedure ChequearDatos(Parte: TCVBParte); overload;
|
||||
procedure Error(iErr: integer); dynamic;
|
||||
procedure CompRegistro1;
|
||||
procedure CompRegistro2;
|
||||
procedure CompRegistro3;
|
||||
public
|
||||
_NORMA_: integer;
|
||||
NrError: integer;
|
||||
CRLF: string;
|
||||
FNomFic: string; // Nombre del archivo en disco
|
||||
|
||||
// CABECERA FICHERO
|
||||
FechaFichero: TDateTime;
|
||||
EntReceptora: string; //4
|
||||
SucReceptora: string; //4
|
||||
|
||||
// CABECERA REMESA
|
||||
NumRemesa: string; //4
|
||||
IdCedente: string; //15
|
||||
|
||||
AboEnt: string; //4
|
||||
AboOfi: string; //4
|
||||
AboDC: string; //2
|
||||
AboCC: string; //10
|
||||
|
||||
AdeEnt: string; //4
|
||||
AdeOfi: string; //4
|
||||
AdeDC: string; //2
|
||||
AdeCC: string; //10
|
||||
|
||||
ImpEnt: string; //4
|
||||
ImpSuc: string; //4
|
||||
ImpDC: string; //2
|
||||
ImpCC: string; //10
|
||||
|
||||
// REGISTRO REMESA
|
||||
// (I)
|
||||
RegNumRecibo: string; // 7
|
||||
RegCodigoINE: string; // 9
|
||||
RegPlazaLibr: string; // 20
|
||||
RegImpEfecto: double; // 9
|
||||
RegVtoEfecto: TDateTime; // 6
|
||||
// (II)
|
||||
RegCodEnt: string; // 4
|
||||
RegCodOfi: string; // 4
|
||||
RegDC: string; // 2
|
||||
RegCC: string; // 10
|
||||
RegLibrador: string; // 34
|
||||
RegLibrado: string; // 34
|
||||
RegInfoAdic: string; // 30
|
||||
// (III)
|
||||
RegDomicilio: string; // 34
|
||||
RegCodPostal: string; // 5
|
||||
RegPoblacion: string; // 20
|
||||
RegNIF: string; // 9
|
||||
|
||||
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure Abrir;
|
||||
procedure Cerrar;
|
||||
procedure IniCabeceraFichero;
|
||||
procedure IniCabeceraRemesa;
|
||||
procedure IniRegistro;
|
||||
procedure CompCabeceraFichero;
|
||||
procedure CompCabeceraRemesa;
|
||||
procedure CompRegistro;
|
||||
procedure CompFinRemesa;
|
||||
published
|
||||
property NomFichero: string read FNomFic write FNomFic;
|
||||
property Procedimiento: TProcedimiento read prProced write prProced default prPrimero;
|
||||
property Euros: boolean read FEuro write FEuro default False;
|
||||
property Depura: boolean read FDepura write FDepura default False;
|
||||
property EnCasoError: TNotifyEvent read FEnCasoError write FEnCasoError;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
constructor TCVBNorma32CSB.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
{Asignar la propiedades por defecto}
|
||||
|
||||
_32_ := 32;
|
||||
_19_ := 19;
|
||||
_58_ := 58;
|
||||
|
||||
_LL_ := high(pReg);
|
||||
|
||||
_INDICA_ := '<--';
|
||||
_CERO_ := '0';
|
||||
_SPCE_ := ' ';
|
||||
|
||||
_MSK_PT_ := '0000000000';
|
||||
_MSK_EU_ := '00000000.00';
|
||||
|
||||
end;
|
||||
|
||||
//*******************************************************************************
|
||||
|
||||
procedure TCVBNorma32CSB.Abrir;
|
||||
begin
|
||||
HayError := False;
|
||||
|
||||
AssignFile(NFic, FNomFic);
|
||||
{$I+}
|
||||
rewrite(Nfic, _LL_);
|
||||
{$I-}
|
||||
if IOResult <> 0 then
|
||||
error(0);
|
||||
|
||||
fSumaImpRecibos := 0.0;
|
||||
fSumaImpRemesas := 0.0;
|
||||
|
||||
iNumRecibos := 0;
|
||||
iNumRemesas := 0;
|
||||
|
||||
iTotalLineas := 0;
|
||||
iTotalRecibos := 0;
|
||||
|
||||
IniCabeceraFichero;
|
||||
IniCabeceraRemesa;
|
||||
IniRegistro;
|
||||
|
||||
if CRLF = '' then
|
||||
CRLF := #13 + #10;
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.IniCabeceraFichero;
|
||||
begin
|
||||
FechaFichero := 0;
|
||||
EntReceptora := '';
|
||||
SucReceptora := '';
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.IniCabeceraRemesa;
|
||||
begin
|
||||
NumRemesa := '0001'; // <--------------------------------------------
|
||||
|
||||
AboEnt := '';
|
||||
AboOfi := '';
|
||||
AboDC := '';
|
||||
AboCC := '';
|
||||
|
||||
AdeEnt := '';
|
||||
AdeOfi := '';
|
||||
AdeDC := '';
|
||||
AdeCC := '';
|
||||
|
||||
ImpEnt := '';
|
||||
ImpSuc := '';
|
||||
ImpDC := '';
|
||||
ImpCC := '';
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.IniRegistro;
|
||||
begin
|
||||
// (I)
|
||||
RegNumRecibo := '';
|
||||
RegCodigoINE := '';
|
||||
RegPlazaLibr := '';
|
||||
RegImpEfecto := 0.0;
|
||||
RegVtoEfecto := 0;
|
||||
// (II)
|
||||
RegCodEnt := '';
|
||||
RegCodOfi := '';
|
||||
RegDC := '';
|
||||
RegCC := '';
|
||||
RegLibrador := '';
|
||||
RegLibrado := '';
|
||||
RegInfoAdic := '';
|
||||
// (III)
|
||||
RegDomicilio := '';
|
||||
RegCodPostal := '';
|
||||
RegPoblacion := '';
|
||||
RegNIF := '';
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompCabeceraFichero;
|
||||
begin
|
||||
HayError := False;
|
||||
sReg := '';
|
||||
ChequearDatos(CABECERA_GENERAL);
|
||||
|
||||
// A
|
||||
sReg := '02' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); //2
|
||||
|
||||
// B
|
||||
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('1', 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
// C
|
||||
sReg := sReg + Ajusta('', 'I', 15, _SPCE_); //15
|
||||
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); //4
|
||||
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); //4
|
||||
sReg := sReg + Ajusta(EntReceptora, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(SucReceptora, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
// D
|
||||
sReg := sReg + Ajusta('', 'I', 61, _SPCE_); //61
|
||||
|
||||
// E
|
||||
sReg := sReg + Ajusta('', 'I', 24, _SPCE_); //24
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
Inc(iTotalLineas);
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompCabeceraRemesa;
|
||||
begin
|
||||
HayError := False;
|
||||
|
||||
sReg := '';
|
||||
|
||||
ChequearDatos(CABECERA_REMESA);
|
||||
Inc(iNumRemesas);
|
||||
|
||||
// A
|
||||
sReg := '11' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); //2
|
||||
|
||||
// B
|
||||
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta(IntToStr(iNumRemesas), 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
// C
|
||||
sReg := sReg + Ajusta(IdCedente, 'D', 15, _SPCE_); //15
|
||||
sReg := sReg + '1';
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 5, _SPCE_); //5
|
||||
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); //4
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
// D
|
||||
sReg := sReg + Ajusta(AboEnt, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(AboOfi, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(AboDC, 'I', 2, _CERO_); //2
|
||||
sReg := sReg + Ajusta(AboCC, 'I', 10, _CERO_); //10
|
||||
|
||||
sReg := sReg + Ajusta(AdeEnt, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(AdeOfi, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(AdeDC, 'I', 2, _CERO_); //2
|
||||
sReg := sReg + Ajusta(AdeCC, 'I', 10, _CERO_); //10
|
||||
|
||||
sReg := sReg + Ajusta(ImpEnt, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(ImpSuc, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(ImpDC, 'I', 2, _CERO_); //2
|
||||
sReg := sReg + Ajusta(ImpCC, 'I', 10, _CERO_); //10
|
||||
|
||||
sReg := sReg + Ajusta('', 'I', 1, _SPCE_); //1
|
||||
|
||||
// E
|
||||
sReg := sReg + Ajusta('', 'I', 24, _SPCE_); //24
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
Inc(iTotalLineas);
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompFinRemesa;
|
||||
var
|
||||
sTotImp, cIT : string;
|
||||
iP : integer;
|
||||
begin
|
||||
HayError := False;
|
||||
sReg := '';
|
||||
ChequearDatos(FIN_REMESA);
|
||||
|
||||
// A
|
||||
sReg := '71' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); //2
|
||||
|
||||
// B
|
||||
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta(NumRemesa, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
// C
|
||||
sReg := sReg + Ajusta('', 'I', 37, _SPCE_); //37
|
||||
|
||||
// D
|
||||
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); //10
|
||||
|
||||
sTotImp := FormatFloat(_MSK_EU_, fSumaImpRecibos);
|
||||
iP := pos(',', sTotImp);
|
||||
if iP < 1 then
|
||||
iP := pos('.', sTotImp);
|
||||
cIT := copy(sTotImp, 1, iP - 1);
|
||||
sTotImp := cIT + copy(sTotImp, iP + 1, 2);
|
||||
sReg := sReg + Ajusta(sTotImp, 'I', 10, _CERO_); // 10
|
||||
|
||||
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); //10
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 7, _SPCE_); //7
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
// E
|
||||
sReg := sReg + Ajusta('', 'I', 5, _SPCE_); //5
|
||||
{ Nº de registros de la remesa incluidos la cabecera y éste mismo:
|
||||
Num.registros = 1 (cabecera) + (3 registros * Num.recibos) + 1 (este pie)
|
||||
}
|
||||
sReg := sReg + Ajusta(IntToStr(1 + (3*iNumRecibos) + 1), 'I', 7, _CERO_); //7
|
||||
sReg := sReg + Ajusta(IntToStr(iNumRecibos), 'I', 6, _CERO_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); //6
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
Inc(iTotalLineas);
|
||||
|
||||
// Acumular la suma de los importes de las remesas en el fichero
|
||||
fSumaImpRemesas := fSumaImpRemesas + fSumaImpRecibos;
|
||||
|
||||
// Poner a cero la suma de los recibos y el número de recibos
|
||||
fSumaImpRecibos := 0.0;
|
||||
iNumRecibos := 0;
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompRegistro;
|
||||
begin
|
||||
CompRegistro1;
|
||||
CompRegistro2;
|
||||
CompRegistro3;
|
||||
|
||||
// Acumular la suma de los recibos en la remesa
|
||||
fSumaImpRecibos := fSumaImpRecibos + RegImpEfecto;
|
||||
|
||||
// Acumular el nº de recibos en la remesa
|
||||
Inc(iNumRecibos);
|
||||
Inc(iTotalRecibos);
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompRegistro1;
|
||||
var
|
||||
sTotImp, cIT : string;
|
||||
iP: integer;
|
||||
begin
|
||||
HayError := False;
|
||||
|
||||
sReg := '';
|
||||
|
||||
ChequearDatos(REGISTRO1);
|
||||
|
||||
// A
|
||||
sReg := '25' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
|
||||
// B
|
||||
// Convertir referencia EL/0001 - 1 => EL00001-1
|
||||
RegNumRecibo := StringReplace(RegNumRecibo, '/', '0', []);
|
||||
RegNumRecibo := StringReplace(RegNumRecibo, ' - ', '-', []);
|
||||
sReg := sReg + Ajusta(RegNumRecibo, 'D', 15, _SPCE_); // 15
|
||||
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', FechaFichero), 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta(NumRemesa, 'I', 4, _CERO_); // 4
|
||||
|
||||
// C
|
||||
sReg := sReg + Ajusta(RegCodigoINE, 'D', 9, _SPCE_); // 9
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
|
||||
// D
|
||||
sReg := sReg + Ajusta(RegPlazaLibr, 'D', 20, _SPCE_); // 20
|
||||
sReg := sReg + Ajusta('', 'I', 1, _SPCE_); // 1
|
||||
|
||||
// E
|
||||
sReg := sReg + Ajusta('', 'I', 15, _SPCE_); // 15
|
||||
sReg := sReg + Ajusta('', 'I', 9, _SPCE_); // 9
|
||||
|
||||
sTotImp := FormatFloat(_MSK_EU_, RegImpEfecto);
|
||||
iP := pos(',', sTotImp);
|
||||
if iP < 1 then
|
||||
iP := pos('.', sTotImp);
|
||||
cIT := copy(sTotImp, 1, iP - 1);
|
||||
sTotImp := cIT + copy(sTotImp, iP + 1, 2);
|
||||
sReg := sReg + Ajusta(sTotImp, 'I', 9, _CERO_); // 9
|
||||
|
||||
sReg := sReg + Ajusta('', 'I', 15, _SPCE_); // 15
|
||||
sReg := sReg + Ajusta(FormatDateTime('ddmmyy', RegVtoEfecto), 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta('', 'I', 1, _SPCE_); // 1
|
||||
sReg := sReg + Ajusta('', 'I', 4, _SPCE_); // 4
|
||||
|
||||
// F
|
||||
sReg := sReg + Ajusta('', 'I', 16, _SPCE_); // 16
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
Inc(iTotalLineas);
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompRegistro2;
|
||||
begin
|
||||
HayError := False;
|
||||
|
||||
sReg := '';
|
||||
|
||||
ChequearDatos(REGISTRO2);
|
||||
|
||||
// A
|
||||
sReg := '26' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
|
||||
// B
|
||||
sReg := sReg + Ajusta(RegNumRecibo, 'D', 15, _SPCE_); // 15
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
sReg := sReg + Ajusta('2', 'I', 1, _SPCE_); // 1
|
||||
sReg := sReg + Ajusta('000000', 'I', 6, _CERO_); // 6
|
||||
sReg := sReg + Ajusta('2', 'I', 1, _SPCE_); // 1
|
||||
sReg := sReg + Ajusta('0', 'I', 1, _SPCE_); // 1
|
||||
|
||||
// C
|
||||
sReg := sReg + Ajusta(RegCodEnt, 'I', 4, _CERO_); //4
|
||||
sReg := sReg + Ajusta(RegCodOfi, 'I', 4, _CERO_); //4
|
||||
if Length(RegDC) = 0 then
|
||||
RegDC := '**';
|
||||
sReg := sReg + Ajusta(RegDC, 'I', 2, _CERO_); //2
|
||||
sReg := sReg + Ajusta(RegCC, 'I', 10, _CERO_); //10
|
||||
|
||||
// D
|
||||
sReg := sReg + Ajusta(RegLibrador, 'D', 34, _SPCE_); // 34
|
||||
sReg := sReg + Ajusta(RegLibrado, 'D', 34, _SPCE_); // 34
|
||||
sReg := sReg + Ajusta(RegInfoAdic, 'D', 30, _SPCE_); // 30
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
Inc(iTotalLineas);
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.CompRegistro3;
|
||||
begin
|
||||
HayError := False;
|
||||
|
||||
sReg := '';
|
||||
|
||||
ChequearDatos(REGISTRO3);
|
||||
|
||||
// A
|
||||
sReg := '27' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
|
||||
// B
|
||||
sReg := sReg + Ajusta(RegNumRecibo, 'D', 15, _SPCE_); // 15
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
sReg := sReg + Ajusta(RegDomicilio, 'D', 34, _SPCE_); // 34
|
||||
sReg := sReg + Ajusta(RegCodPostal, 'I', 5, _SPCE_); // 5
|
||||
sReg := sReg + Ajusta(RegPoblacion, 'D', 20, _SPCE_); // 20
|
||||
sReg := sReg + Ajusta(RegCodigoINE, 'I', 2, _SPCE_); // 2
|
||||
sReg := sReg + Ajusta('', 'I', 7, _SPCE_); // 7
|
||||
sReg := sReg + Ajusta(RegNIF, 'I', 9, _SPCE_); // 9
|
||||
sReg := sReg + Ajusta('', 'I', 50, _SPCE_); // 50
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
Inc(iTotalLineas);
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.Cerrar;
|
||||
var
|
||||
sTotImp, cIT : string;
|
||||
iP: integer;
|
||||
begin
|
||||
HayError := False;
|
||||
sReg := '';
|
||||
|
||||
Inc(iTotalLineas);
|
||||
|
||||
// A
|
||||
sReg := '98' + '65';
|
||||
sReg := sReg + Ajusta('', 'I', 2, _SPCE_); // 2
|
||||
|
||||
// B
|
||||
sReg := sReg + Ajusta('', 'I', 22, _SPCE_); // 22
|
||||
|
||||
// C
|
||||
sReg := sReg + Ajusta('', 'I', 37, _SPCE_); // 37
|
||||
|
||||
// D
|
||||
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); // 10
|
||||
|
||||
sTotImp := FormatFloat(_MSK_EU_, fSumaImpRemesas);
|
||||
iP := pos(',', sTotImp);
|
||||
if iP < 1 then
|
||||
iP := pos('.', sTotImp);
|
||||
cIT := copy(sTotImp, 1, iP - 1);
|
||||
sTotImp := cIT + copy(sTotImp, iP + 1, 2);
|
||||
sReg := sReg + Ajusta(sTotImp, 'I', 10, _CERO_); // 10
|
||||
|
||||
sReg := sReg + Ajusta('', 'I', 10, _SPCE_); // 10
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta('', 'I', 7, _SPCE_); // 7
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
|
||||
// E
|
||||
sReg := sReg + Ajusta(IntToStr(iNumRemesas), 'I', 5, _CERO_); //5
|
||||
sReg := sReg + Ajusta(IntToStr(iTotalLineas), 'I', 7, _CERO_); //7
|
||||
sReg := sReg + Ajusta(IntToStr(iTotalRecibos), 'I', 6, _CERO_); //6
|
||||
sReg := sReg + Ajusta('', 'I', 6, _SPCE_); // 6
|
||||
|
||||
sReg := sReg + CRLF; //2
|
||||
|
||||
if not (length(sReg) = _LL_) then
|
||||
Error(_LL_);
|
||||
|
||||
StrPCopy(@pReg, sReg);
|
||||
Blockwrite(NFic, pReg, 1);
|
||||
|
||||
CloseFile(NFic);
|
||||
end;
|
||||
|
||||
|
||||
procedure TCVBNorma32CSB.ChequearDatos(Parte: TCVBParte);
|
||||
var
|
||||
bError: boolean;
|
||||
begin
|
||||
{ bError := False;
|
||||
|
||||
if Parte = CABECERA_GENERAL then
|
||||
begin
|
||||
if ((Presentador = '') or (NomCliPres = '') or
|
||||
(EntRecepPres = '') or (OfiRecepPres = '')) then
|
||||
begin
|
||||
if Presentador = '' then
|
||||
Presentador := _INDICA_;
|
||||
if NomCliPres = '' then
|
||||
NomCliPres := _INDICA_;
|
||||
if EntRecepPres = '' then
|
||||
EntRecepPres := _INDICA_;
|
||||
if OfiRecepPres = '' then
|
||||
OfiRecepPres := _INDICA_;
|
||||
bError := True;
|
||||
end;
|
||||
end
|
||||
else
|
||||
if iParte = 2 then
|
||||
begin
|
||||
if ((Ordenante = '') or (NomCliOrd = '') or
|
||||
(EntOrde = '') or (OfiOrde = '') or
|
||||
(CcOrde = '')) then
|
||||
begin
|
||||
if Ordenante = '' then
|
||||
Ordenante := _INDICA_;
|
||||
if NomCliOrd = '' then
|
||||
NomCliOrd := _INDICA_;
|
||||
if EntOrde = '' then
|
||||
EntOrde := _INDICA_;
|
||||
if OfiOrde = '' then
|
||||
OfiOrde := _INDICA_;
|
||||
if CcOrde = '' then
|
||||
CcOrde := _INDICA_;
|
||||
bError := True;
|
||||
end;
|
||||
end
|
||||
else
|
||||
if (iParte = 3) or (iParte = 4) then
|
||||
begin
|
||||
if ((Referencia = '') or (NomTitDom = '') or
|
||||
(EntTitDom = '') or (OfiTitDom = '') or
|
||||
(ccTitDom = '')) then
|
||||
begin
|
||||
if Referencia = '' then
|
||||
Referencia := _INDICA_;
|
||||
if NomTitDom = '' then
|
||||
NomTitDom := _INDICA_;
|
||||
if EntTitDom = '' then
|
||||
EntTitDom := _INDICA_;
|
||||
if OfiTitDom = '' then
|
||||
OfiTitDom := _INDICA_;
|
||||
if ccTitDom = '' then
|
||||
ccTitDom := _INDICA_;
|
||||
bError := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
if bError then
|
||||
ShowMessage('' + CRLF +
|
||||
'Faltan datos al procesar el siguiente registro: ' + CRLF + CRLF +
|
||||
'Código Cli/Pro: ' + Referencia + CRLF +
|
||||
'Nombre Titular: ' + NomTitDom + CRLF +
|
||||
'Entidad Domiciliar: ' + EntTitDom + CRLF +
|
||||
'Oficina Domiciliar: ' + OfiTitDom + CRLF +
|
||||
'Cuenta Domiciliar: ' + ccTitDom + CRLF +
|
||||
'Presentador: ' + Presentador + CRLF +
|
||||
'Nombre Cliente Pres:' + NomCliPres + CRLF +
|
||||
'Entidad Receptora P:' + EntRecepPres + CRLF +
|
||||
'Oficina Receptora P:' + OfiRecepPres + CRLF +
|
||||
'Ordenante: ' + Ordenante + CRLF +
|
||||
'Nombre Cliente Ord.:' + NomCliOrd + CRLF +
|
||||
'Entidad Ordenante: ' + EntOrde + CRLF +
|
||||
'Oficina Ordenante: ' + OfiOrde + CRLF +
|
||||
'Cuenta Ordenante: ' + CcOrde
|
||||
);
|
||||
|
||||
if iParte = 3 then
|
||||
begin
|
||||
if bError then
|
||||
begin
|
||||
if ((fImportePts = 0) and (FEuro = False)) or
|
||||
((fImporteEu = 0) and (FEuro = True)) then
|
||||
begin
|
||||
ShowMessage('¡¡¡ El importe no puede ser cero !!!');
|
||||
Error(27);
|
||||
end;
|
||||
end;
|
||||
end;}
|
||||
end;
|
||||
|
||||
procedure TCVBNorma32CSB.Error(iErr: integer);
|
||||
begin
|
||||
NrError := iErr;
|
||||
HayError := True;
|
||||
if Assigned(FEnCasoError) then
|
||||
FEnCasoError(Self)
|
||||
else
|
||||
if FDepura = False then
|
||||
begin
|
||||
CloseFile(NFic);
|
||||
if NrError = _LL_ then
|
||||
raise Exception.Create('Error en la longitud de la línea')
|
||||
else
|
||||
raise Exception.Create('Error en la generación del fichero');
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -1,4 +1,5 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{318cdb6c-0c6b-444c-81a7-75d2547d33e7}</ProjectGuid>
|
||||
<MainSource>BancaElectronica_view.dpk</MainSource>
|
||||
@ -39,47 +40,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">True</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">BancaElectronica_view.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BancaElectronica_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -87,17 +48,40 @@
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="BancaElectronica_controller.dcp" />
|
||||
<DCCReference Include="bdertl.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvCustomD11R.dcp" />
|
||||
<DCCReference Include="JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uBancaElectronicaViewRegister.pas" />
|
||||
<DCCReference Include="uEditorExportacionNorma19.pas">
|
||||
<Form>fEditorExportacionNorma19</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorExportacionNorma32.pas">
|
||||
<Form>fEditorExportacionNorma3</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -31,16 +31,18 @@ procedure UnregisterViews;
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorExportacionNorma19;
|
||||
uEditorRegistryUtils, uEditorExportacionNorma19, uEditorExportacionNorma32;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorExportacionNorma19, 'EditorExportacionNorma19');
|
||||
EditorRegistry.RegisterClass(TfEditorExportacionNorma32, 'EditorExportacionNorma32');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorExportacionNorma19);
|
||||
EditorRegistry.UnRegisterClass(TfEditorExportacionNorma32);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -41,55 +41,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
Height = 13
|
||||
Caption = 'Fecha de cargo:'
|
||||
end
|
||||
object pnlHeader: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 656
|
||||
Height = 64
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Color = clWhite
|
||||
Padding.Left = 25
|
||||
Padding.Top = 8
|
||||
Padding.Right = 25
|
||||
Padding.Bottom = 8
|
||||
ParentBackground = False
|
||||
TabOrder = 5
|
||||
object lblTitle: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 25
|
||||
Top = 8
|
||||
Width = 606
|
||||
Height = 13
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
Caption = 'Volcado de remesas a disco'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
ExplicitWidth = 135
|
||||
end
|
||||
object lblComments: TLabel
|
||||
AlignWithMargins = True
|
||||
Caption = 'Introduzca los siguientes datos para realizar el volcado'
|
||||
Left = 50
|
||||
Top = 29
|
||||
Width = 581
|
||||
Height = 27
|
||||
Margins.Left = 25
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Align = alClient
|
||||
ExplicitWidth = 3
|
||||
ExplicitHeight = 13
|
||||
end
|
||||
end
|
||||
object Image1: TImage
|
||||
Left = 345
|
||||
Top = 15
|
||||
@ -180,7 +131,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
TabOrder = 2
|
||||
Width = 167
|
||||
end
|
||||
object edtCodEntidad: TcxMaskEdit
|
||||
object edtCodEntidad: TcxTextEdit
|
||||
Left = 120
|
||||
Top = 93
|
||||
Properties.BeepOnError = True
|
||||
@ -197,7 +148,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
Text = ' '
|
||||
Width = 73
|
||||
end
|
||||
object edtCodAgencia: TcxMaskEdit
|
||||
object edtCodAgencia: TcxTextEdit
|
||||
Left = 120
|
||||
Top = 120
|
||||
Properties.BeepOnError = True
|
||||
@ -225,7 +176,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
ModalResult = 2
|
||||
TabOrder = 4
|
||||
OnClick = CancelBtnClick
|
||||
ExplicitTop = 265
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 202
|
||||
@ -235,7 +185,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
Action = actVolcar
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
TabOrder = 3
|
||||
ExplicitTop = 265
|
||||
end
|
||||
object JvFilenameEdit1: TJvFilenameEdit
|
||||
Left = 24
|
||||
@ -243,7 +192,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
Width = 349
|
||||
Height = 21
|
||||
Flat = False
|
||||
ParentCtl3D = False
|
||||
ParentFlat = False
|
||||
Filter = 'Ficheros de norma 19 (*.C19)|*.C19'
|
||||
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
|
||||
DialogTitle = 'Volcar a disco la remesa'
|
||||
@ -253,9 +202,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
AppStorage = JvAppRegistryStorage
|
||||
AppStoragePath = 'fEditorBase\'
|
||||
VersionCheck = fpvcNocheck
|
||||
StoredProps.Strings = (
|
||||
'edtCodAgencia.Text'
|
||||
'edtCodEntidad.Text')
|
||||
StoredValues = <>
|
||||
Left = 80
|
||||
Top = 64
|
||||
@ -263,7 +209,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
|
||||
object JvAppRegistryStorage: TJvAppRegistryStorage
|
||||
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||||
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||||
Root = 'Software\%APPL_NAME%'
|
||||
Root = 'Software\FactuGES'
|
||||
SubStorages = <>
|
||||
Left = 112
|
||||
Top = 64
|
||||
|
||||
@ -6,7 +6,7 @@ uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
|
||||
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
|
||||
uIEditorExportacionNorma19, JvExControls, JvComponent,
|
||||
uIEditorExportacionNorma19, JvExControls, JvComponent, JvgWizardHeader,
|
||||
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
|
||||
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
|
||||
|
||||
@ -19,10 +19,8 @@ type
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
edtCodEntidad: TcxMaskEdit;
|
||||
edtCodAgencia: TcxMaskEdit;
|
||||
lblTitle: TLabel;
|
||||
lblComments: TLabel;
|
||||
edtCodEntidad: TcxTextEdit;
|
||||
edtCodAgencia: TcxTextEdit;
|
||||
Bevel1: TBevel;
|
||||
JvFormStorage: TJvFormStorage;
|
||||
JvAppRegistryStorage: TJvAppRegistryStorage;
|
||||
@ -41,11 +39,11 @@ type
|
||||
private
|
||||
FFichero : String;
|
||||
protected
|
||||
procedure SetCodigoEntidad(const AValue: Integer);
|
||||
function GetCodigoEntidad : Integer;
|
||||
procedure SetCodigoEntidad(const AValue: String);
|
||||
function GetCodigoEntidad : String;
|
||||
|
||||
procedure SetCodigoAgencia(const AValue: Integer);
|
||||
function GetCodigoAgencia : Integer;
|
||||
procedure SetCodigoAgencia(const AValue: String);
|
||||
function GetCodigoAgencia : String;
|
||||
|
||||
procedure SetFechaCargo(const AValue: TDateTime);
|
||||
function GetFechaCargo : TDateTime;
|
||||
@ -53,8 +51,8 @@ type
|
||||
procedure SetFichero(const AValue: String);
|
||||
function GetFichero : String;
|
||||
public
|
||||
property CodigoEntidad : Integer read GetCodigoEntidad write SetCodigoEntidad;
|
||||
property CodigoAgencia : Integer read GetCodigoAgencia write SetCodigoAgencia;
|
||||
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
|
||||
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
|
||||
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
|
||||
property Fichero : String read GetFichero write SetFichero;
|
||||
end;
|
||||
@ -104,14 +102,14 @@ begin
|
||||
edtFechaCargo.Date := Now;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma19.GetCodigoAgencia: Integer;
|
||||
function TfEditorExportacionNorma19.GetCodigoAgencia: String;
|
||||
begin
|
||||
Result := StrToInt(edtCodAgencia.Text);
|
||||
Result := edtCodAgencia.Text;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma19.GetCodigoEntidad: Integer;
|
||||
function TfEditorExportacionNorma19.GetCodigoEntidad: String;
|
||||
begin
|
||||
Result := StrToInt(edtCodEntidad.Text);
|
||||
Result := edtCodEntidad.Text;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma19.GetFechaCargo: TDateTime;
|
||||
@ -171,14 +169,14 @@ begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: Integer);
|
||||
procedure TfEditorExportacionNorma19.SetCodigoAgencia(const AValue: String);
|
||||
begin
|
||||
edtCodAgencia.Text := IntToStr(AValue);
|
||||
edtCodAgencia.Text := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: Integer);
|
||||
procedure TfEditorExportacionNorma19.SetCodigoEntidad(const AValue: String);
|
||||
begin
|
||||
edtCodEntidad.Text := IntToStr(AValue);
|
||||
edtCodEntidad.Text := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma19.SetFechaCargo(const AValue: TDateTime);
|
||||
|
||||
@ -0,0 +1,301 @@
|
||||
object fEditorExportacionNorma32: TfEditorExportacionNorma32
|
||||
Left = 0
|
||||
Top = 0
|
||||
ActiveControl = edtCodEntidad
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Volcado de remesas a disco (Norma 32)'
|
||||
ClientHeight = 366
|
||||
ClientWidth = 389
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnCreate = FormCreate
|
||||
DesignSize = (
|
||||
389
|
||||
366)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label2: TLabel
|
||||
Left = 24
|
||||
Top = 144
|
||||
Width = 90
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = 'Entidad receptora:'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 24
|
||||
Top = 171
|
||||
Width = 42
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = 'Agencia:'
|
||||
end
|
||||
object Image1: TImage
|
||||
Left = 345
|
||||
Top = 15
|
||||
Width = 28
|
||||
Height = 28
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
520000000467414D410000B18E7CFB5193000002CA4944415478DAADD55F4853
|
||||
511C07F0DF25C49012DA8B1085A14581E46EAD19A3D05885CA8CA251D04325BD
|
||||
D89342BEF5B087E8CD0C7AA90916E5F0A558C8989935872C866C63EE4F5BB9A8
|
||||
508CB27AB01552F3EE4F3BBFED1E76B7BBED8E7B7F2078CFBDDCCF39BF73EE77
|
||||
8CF575280312CA785ACD4879AE5A31043C7FAABDE243CF1D61B87DC70C81D907
|
||||
B2D1AA603A9D86296704548D0D70C3745780AAAFD833A189BE9A265111241897
|
||||
4CC3B4EB1DE8D816887D5EA32862E12F00C1EBCA80630C03FD090E382E05AF16
|
||||
62D8523A91260318BB59308DD89501138718A81FBE07639787E0E2AF8DEC2A53
|
||||
F0F4851BEF8D3B5288C5FFFC8551F35CAEB5EDBB406A6B4B401E4B8C0EE1F5E3
|
||||
2040DFDA3AB6F6DCCD058A91499031D201DFDB1590DA5E01588CF14550FDF20F
|
||||
B860F2E27557C75E8AE5E014FEFFCCB65815A520D9B3014B295688721333D852
|
||||
52DA83CD303EE9A6F7CFF6AA21B199849773D18A2882674EB4E10C2D0DF5D0CF
|
||||
8A631DD15570FB23F068D286878694A08DAC39A3EFDC8FE8269704DFC35EA62C
|
||||
D873EC00DD13AB6A9B00E53172DF1B7A8F60D9CF228B6A35CDE0F3AF945D2582
|
||||
278FEECBED497E3F6676AA102DC4C85F20FA8182783A8B3EFC9EE137996F3FE3
|
||||
150F10829D9A56FAD2647EA5F32D4D028C8C45621F05A0580EDFB2AC22681DD1
|
||||
D1B1C21C4650A7DE23C004A72F3F464A0C2CFE86D9ABD308660203785D9CC308
|
||||
1E69DB0D368707A4542DA0580E2358185B52AA1A187C62289BC3B27E6E447338
|
||||
BE08E9ED2CDD9AE21C5616CC62B034082EA71B0E0FFEA36780CF61B21DCA829E
|
||||
E3008DB997C7B2B9BEE3D26F7AE8EC4EAFC2607E753CE89A0268BDB64EBFEF59
|
||||
975F3990BCB0CEDF4531BEC82AC1F01DF772DE13520624395CB71112AC8E2FB2
|
||||
4A95F12B4E88CF61D920C9E186B0BE042B44B71A96690ECB6FA93609AEFB9A8A
|
||||
CF6DE9FE447358362896C362D1C8C7A26CB0D61C960DD69AC3B2C15A73F83F42
|
||||
0A9D9B19DC72610000000049454E44AE426082}
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 8
|
||||
Top = 321
|
||||
Width = 373
|
||||
Height = 3
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Shape = bsBottomLine
|
||||
ExplicitTop = 328
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 24
|
||||
Top = 264
|
||||
Width = 71
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = 'Guardar como:'
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
Left = 24
|
||||
Top = 245
|
||||
Width = 349
|
||||
Height = 3
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 202
|
||||
Top = 144
|
||||
Width = 48
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = '(4 d'#237'gitos)'
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 202
|
||||
Top = 171
|
||||
Width = 48
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = '(4 d'#237'gitos)'
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 24
|
||||
Top = 90
|
||||
Width = 65
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = 'Identificador:'
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 301
|
||||
Top = 90
|
||||
Width = 54
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = '(15 d'#237'gitos)'
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 24
|
||||
Top = 117
|
||||
Width = 69
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = 'C'#243'digo I.N.E.:'
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 301
|
||||
Top = 117
|
||||
Width = 48
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = '(9 d'#237'gitos)'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 24
|
||||
Top = 201
|
||||
Width = 78
|
||||
Height = 13
|
||||
Margins.Bottom = 0
|
||||
Caption = 'Fecha de cargo:'
|
||||
end
|
||||
object edtCodEntidad: TcxMaskEdit
|
||||
Left = 120
|
||||
Top = 141
|
||||
Properties.BeepOnError = True
|
||||
Properties.MaxLength = 4
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
Text = ' '
|
||||
Width = 73
|
||||
end
|
||||
object edtCodAgencia: TcxMaskEdit
|
||||
Left = 120
|
||||
Top = 168
|
||||
Properties.BeepOnError = True
|
||||
Properties.MaxLength = 4
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Text = ' '
|
||||
Width = 73
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 301
|
||||
Top = 330
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Cancel = True
|
||||
Caption = '&Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 7
|
||||
OnClick = CancelBtnClick
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 202
|
||||
Top = 330
|
||||
Width = 85
|
||||
Height = 25
|
||||
Action = actVolcar
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
TabOrder = 6
|
||||
end
|
||||
object JvFilenameEdit1: TJvFilenameEdit
|
||||
Left = 24
|
||||
Top = 283
|
||||
Width = 349
|
||||
Height = 21
|
||||
Flat = False
|
||||
ParentFlat = False
|
||||
Filter = 'Ficheros de norma 32 (*.C32)|*.C32'
|
||||
DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
|
||||
DialogTitle = 'Volcar a disco la remesa'
|
||||
TabOrder = 5
|
||||
end
|
||||
object edtCodigoIdentif: TcxMaskEdit
|
||||
Left = 120
|
||||
Top = 87
|
||||
Properties.BeepOnError = True
|
||||
Properties.MaxLength = 15
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Text = ' '
|
||||
Width = 167
|
||||
end
|
||||
object edtINE: TcxMaskEdit
|
||||
Left = 120
|
||||
Top = 114
|
||||
Properties.BeepOnError = True
|
||||
Properties.MaxLength = 9
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Text = ' '
|
||||
Width = 167
|
||||
end
|
||||
object edtFechaCargo: TcxDateEdit
|
||||
Left = 120
|
||||
Top = 198
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.ImmediatePost = True
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 167
|
||||
end
|
||||
object JvFormStorage: TJvFormStorage
|
||||
AppStorage = JvAppRegistryStorage
|
||||
AppStoragePath = 'fEditorBase\'
|
||||
VersionCheck = fpvcNocheck
|
||||
StoredProps.Strings = (
|
||||
'edtCodigoIdentif.Text'
|
||||
'edtINE.Text')
|
||||
StoredValues = <>
|
||||
Left = 80
|
||||
Top = 32
|
||||
end
|
||||
object JvAppRegistryStorage: TJvAppRegistryStorage
|
||||
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||||
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||||
Root = 'Software\FactuGES'
|
||||
SubStorages = <>
|
||||
Left = 112
|
||||
Top = 32
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 144
|
||||
Top = 32
|
||||
object actVolcar: TAction
|
||||
Caption = 'Volcar a disco'
|
||||
OnExecute = actVolcarExecute
|
||||
OnUpdate = actVolcarUpdate
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,228 @@
|
||||
unit uEditorExportacionNorma32;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
|
||||
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
|
||||
uIEditorExportacionNorma32, JvExControls, JvComponent, JvgWizardHeader,
|
||||
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
|
||||
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
|
||||
|
||||
type
|
||||
TfEditorExportacionNorma32 = class(TForm, IEditorExportacionNorma32)
|
||||
OKBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
Image1: TImage;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
edtCodEntidad: TcxMaskEdit;
|
||||
edtCodAgencia: TcxMaskEdit;
|
||||
Bevel1: TBevel;
|
||||
JvFormStorage: TJvFormStorage;
|
||||
JvAppRegistryStorage: TJvAppRegistryStorage;
|
||||
Label1: TLabel;
|
||||
Bevel2: TBevel;
|
||||
JvFilenameEdit1: TJvFilenameEdit;
|
||||
ActionList1: TActionList;
|
||||
actVolcar: TAction;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
edtCodigoIdentif: TcxMaskEdit;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
edtINE: TcxMaskEdit;
|
||||
Label10: TLabel;
|
||||
Label4: TLabel;
|
||||
edtFechaCargo: TcxDateEdit;
|
||||
procedure OKBtnClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure CancelBtnClick(Sender: TObject);
|
||||
procedure actVolcarUpdate(Sender: TObject);
|
||||
procedure actVolcarExecute(Sender: TObject);
|
||||
private
|
||||
FFichero : String;
|
||||
protected
|
||||
procedure SetCodigoEntidad(const AValue: String);
|
||||
function GetCodigoEntidad : String;
|
||||
|
||||
procedure SetCodigoAgencia(const AValue: String);
|
||||
function GetCodigoAgencia : String;
|
||||
|
||||
function GetCodigoINE: String;
|
||||
procedure SetCodigoINE(const Value: String);
|
||||
|
||||
procedure SetCodigoIdentif(const Value: String);
|
||||
function GetCodigoIdentif: String;
|
||||
|
||||
procedure SetFechaCargo(const AValue: TDateTime);
|
||||
function GetFechaCargo : TDateTime;
|
||||
|
||||
procedure SetFichero(const AValue: String);
|
||||
function GetFichero : String;
|
||||
public
|
||||
property CodigoEntidad : String read GetCodigoEntidad write SetCodigoEntidad;
|
||||
property CodigoAgencia : String read GetCodigoAgencia write SetCodigoAgencia;
|
||||
property CodigoIdentif : String read GetCodigoIdentif write SetCodigoIdentif;
|
||||
property CodigoINE : String read GetCodigoINE write SetCodigoINE;
|
||||
property FechaCargo : TDateTime read GetFechaCargo write SetFechaCargo;
|
||||
property Fichero : String read GetFichero write SetFichero;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
{ TfEditorExportacionNorma32 }
|
||||
|
||||
procedure TfEditorExportacionNorma32.actVolcarExecute(Sender: TObject);
|
||||
begin
|
||||
FFichero := JvFilenameEdit1.FileName;
|
||||
ModalResult := mrOk;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.actVolcarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled :=
|
||||
(Length(edtCodEntidad.Text) = 4) and
|
||||
(Length(edtCodAgencia.Text) = 4) and
|
||||
(Length(JvFilenameEdit1.Text) > 0)
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.CancelBtnClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.FormCreate(Sender: TObject);
|
||||
var
|
||||
APath : String;
|
||||
begin
|
||||
inherited;
|
||||
with JvFormStorage do
|
||||
begin
|
||||
if Pos('_', Self.Name) = 0 then
|
||||
APath := Self.Name
|
||||
else
|
||||
APath := Copy(Self.Name, 0, (Pos('_', Self.Name)-1));
|
||||
AppStoragePath := APath;
|
||||
end;
|
||||
edtFechaCargo.Date := Now;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma32.GetCodigoAgencia: String;
|
||||
begin
|
||||
Result := edtCodAgencia.Text;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma32.GetCodigoEntidad: String;
|
||||
begin
|
||||
Result := edtCodEntidad.Text;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma32.GetCodigoINE: String;
|
||||
begin
|
||||
Result := edtINE.Text;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma32.GetFechaCargo: TDateTime;
|
||||
begin
|
||||
Result := edtFechaCargo.Date;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma32.GetFichero: String;
|
||||
begin
|
||||
Result := FFichero;
|
||||
end;
|
||||
|
||||
function TfEditorExportacionNorma32.GetCodigoIdentif: String;
|
||||
begin
|
||||
Result := edtCodigoIdentif.Text;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.OKBtnClick(Sender: TObject);
|
||||
var
|
||||
ASaveDialog : TSaveDialog; // Save dialog variable
|
||||
AArchivo : string;
|
||||
ARuta : String;
|
||||
begin
|
||||
AArchivo := FFichero;
|
||||
ARuta := ExtractFilePath(Application.ExeName);
|
||||
|
||||
// ASaveDialog := TSaveDialog.Create(nil);
|
||||
// try
|
||||
// ASaveDialog.Title := 'Volcar a disco la remesa';
|
||||
// ASaveDialog.FileName := FFichero;
|
||||
//
|
||||
// ASaveDialog.InitialDir := GetCurrentDir;
|
||||
//
|
||||
// ASaveDialog.Filter := 'Ficheros de norma 19 (*.C19)|*.C19';
|
||||
// ASaveDialog.DefaultExt := 'C19';
|
||||
// ASaveDialog.FilterIndex := 1;
|
||||
//
|
||||
// try
|
||||
// if ASaveDialog.Execute then
|
||||
// begin
|
||||
// FFichero := ASaveDialog.FileName;
|
||||
// ModalResult := mrOk
|
||||
// end
|
||||
// else begin
|
||||
// ModalResult := mrCancel;
|
||||
// end;
|
||||
// except
|
||||
// on e: exception do
|
||||
// ShowErrorMessage('error', 'error', e);
|
||||
// end;
|
||||
// finally
|
||||
// FreeAndNIL(ASaveDialog);
|
||||
// end;
|
||||
|
||||
{ if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
|
||||
'c:\', 'Volcar a disco la remesa', FFichero) then}
|
||||
if SaveFileDialog(Application.Handle, 'C19', 'Ficheros de norma 19 (*.C19)|*.C19',
|
||||
ARuta, 'Volcar a disco la remesa', AArchivo) then
|
||||
ModalResult := mrOk
|
||||
else
|
||||
ModalResult := mrCancel;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.SetCodigoAgencia(const AValue: String);
|
||||
begin
|
||||
edtCodAgencia.Text := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.SetCodigoEntidad(const AValue: String);
|
||||
begin
|
||||
edtCodEntidad.Text := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.SetCodigoINE(const Value: String);
|
||||
begin
|
||||
edtINE.Text := Value;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.SetFechaCargo(const AValue: TDateTime);
|
||||
begin
|
||||
edtFechaCargo.Date := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.SetFichero(const AValue: String);
|
||||
begin
|
||||
FFichero := AValue;
|
||||
JvFilenameEdit1.InitialDir := ExtractFilePath(Application.ExeName);
|
||||
JvFilenameEdit1.FileName := JvFilenameEdit1.InitialDir + PathDelim + FFichero;
|
||||
end;
|
||||
|
||||
procedure TfEditorExportacionNorma32.SetCodigoIdentif(const Value: String);
|
||||
begin
|
||||
edtCodigoIdentif.Text := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -296,6 +296,11 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,22 +9,22 @@ 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 = '{14B93F69-65C7-4EC5-B1B3-62AFB72B56CC}';
|
||||
RID_GruposCliente = '{124D5907-C17F-45AA-8054-B2907386691A}';
|
||||
RID_DatosBancarios = '{ABCF1579-76BE-4A00-9059-0BD20DA768FF}';
|
||||
RID_Clientes = '{25A428D4-0DA0-4C84-91A3-C62146B36377}';
|
||||
RID_Proveedores = '{BED5456E-216D-4183-BE0E-0CA6A6A3291B}';
|
||||
RID_Empleados = '{190D4595-EC77-40B1-83F0-683B59B8CA6A}';
|
||||
RID_DireccionesContacto = '{52E7BA67-F88F-4DCC-BBC9-41CEDE7DE3A8}';
|
||||
RID_ClientesDescuentos = '{C20093E4-2828-41F4-B798-500C95F1DABE}';
|
||||
RID_GruposProveedor = '{A815592C-9F5E-499E-BA92-135145F5608B}';
|
||||
RID_GruposEmpleado = '{EC079A8C-D587-4647-804C-DA0B528278CF}';
|
||||
RID_Contactos_Refresh = '{762F774A-9D7D-496D-AE66-A018D430B41C}';
|
||||
RID_ContratosEmpleados = '{0B52807A-6F66-420F-A38F-2083D4A0D722}';
|
||||
RID_DescripcionesProveedores = '{63C50F71-C164-4298-965D-CE0D1B5BC2D5}';
|
||||
RID_PersonalContacto = '{E5692F4D-8DEA-48BE-B38C-55553ECF4BC7}';
|
||||
RID_Agentes_Comisiones = '{91F3B993-9766-4C99-B97E-03F667F57F4C}';
|
||||
RID_Agentes = '{60EF74A6-4CFA-4938-83A1-CF8A893D9556}';
|
||||
RID_Contactos = '{04865183-AFBB-4B4A-943A-AD4D76B6C5CC}';
|
||||
RID_GruposCliente = '{3A2865D7-D76B-4D57-A0F0-D04F22EF51BB}';
|
||||
RID_DatosBancarios = '{47326ABA-7215-45CB-9699-185E7926F56D}';
|
||||
RID_Clientes = '{752BC70E-B5CD-49B4-9165-BED3EF49622A}';
|
||||
RID_Proveedores = '{22AE961E-E08B-4FF6-80A2-32589AD84AC9}';
|
||||
RID_Empleados = '{9581116B-D5A5-489A-B828-F15F3DD1B97D}';
|
||||
RID_DireccionesContacto = '{BE7C6793-FC10-47E3-82B9-FED0D91CA69A}';
|
||||
RID_ClientesDescuentos = '{66FE83C9-7815-4450-B7F3-0A33BE698507}';
|
||||
RID_GruposProveedor = '{E5A13739-A562-481A-B473-E1FA88174DC1}';
|
||||
RID_GruposEmpleado = '{0599F7F4-52F2-4A1B-80A4-0F0950DA5245}';
|
||||
RID_Contactos_Refresh = '{4F929248-961C-4FCC-9D11-1339B2D588E1}';
|
||||
RID_ContratosEmpleados = '{0A08FD58-E087-4A8F-A17F-4B52E96069AE}';
|
||||
RID_DescripcionesProveedores = '{E7EFC76A-8F2C-4EAE-84F2-098DAC735EC9}';
|
||||
RID_PersonalContacto = '{384190A3-903C-46F6-903A-B44ABFA39FA8}';
|
||||
RID_Agentes_Comisiones = '{38CD5D31-E276-42B3-890C-5F8B7D4E9B84}';
|
||||
RID_Agentes = '{A38A458F-178D-40E8-94F0-21A6793E83DE}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -251,6 +251,7 @@ const
|
||||
fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
|
||||
fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
|
||||
fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
|
||||
fld_ProveedoresPAIS = 'PAIS';
|
||||
|
||||
{ Proveedores field indexes }
|
||||
idx_ProveedoresID = 0;
|
||||
@ -291,6 +292,7 @@ const
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 35;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 36;
|
||||
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 37;
|
||||
idx_ProveedoresPAIS = 38;
|
||||
|
||||
{ Empleados fields }
|
||||
fld_EmpleadosID = 'ID';
|
||||
@ -585,7 +587,7 @@ const
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{2DB7CF12-84F0-4A60-AD6A-DA3FCBAD6022}']
|
||||
['{9A4BE7AE-4BE0-4889-B12E-60F9ECE71512}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -884,7 +886,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{82FFDC15-328B-4A4E-96D9-AED477D1ED65}']
|
||||
['{01A15969-F3E7-4EEF-8664-15B8D3B0E00D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -931,7 +933,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{6F903B6D-1421-4FD0-A385-8CB231550883}']
|
||||
['{0EB678B0-07DE-4113-9150-AD45354E5CCA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1062,7 +1064,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{2F65D059-0171-4485-8985-309F1475EB2E}']
|
||||
['{515EA8E0-4B1B-468A-B88B-AE4775770080}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1589,7 +1591,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{69BB1B32-4DA1-4DCA-B2B1-B8D5ED5FB2AC}']
|
||||
['{A0768A97-F46F-4EDD-9F60-86A567490F83}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1742,6 +1744,10 @@ type
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
|
||||
function GetPAISValue: String;
|
||||
procedure SetPAISValue(const aValue: String);
|
||||
function GetPAISIsNull: Boolean;
|
||||
procedure SetPAISIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -1821,6 +1827,8 @@ type
|
||||
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
|
||||
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property PAIS: String read GetPAISValue write SetPAISValue;
|
||||
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
end;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
@ -1981,6 +1989,10 @@ type
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
||||
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
||||
function GetPAISValue: String; virtual;
|
||||
procedure SetPAISValue(const aValue: String); virtual;
|
||||
function GetPAISIsNull: Boolean; virtual;
|
||||
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -2059,6 +2071,8 @@ type
|
||||
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
|
||||
property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property PAIS: String read GetPAISValue write SetPAISValue;
|
||||
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2068,7 +2082,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{52136C1F-BAAE-4C19-A591-9DBFA7B5EF85}']
|
||||
['{FA15A2F9-3FFA-440D-B51B-810D6CE397D8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2499,7 +2513,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{A00892E0-6BE7-4A54-B211-7B2058E39FAD}']
|
||||
['{EE890F26-E3BD-45D8-93C5-E73F51E967B4}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2714,7 +2728,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{4C548880-D3ED-4686-BC44-170BDBE4794F}']
|
||||
['{FA5D340E-D74E-499F-A473-3903250EDFFC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2797,7 +2811,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{B1ED690F-51F7-4482-A2EC-EBD20B348D57}']
|
||||
['{79D0F5A2-1006-489A-861F-E1010826A125}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2844,7 +2858,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{0CF4F7AF-E9C7-4EB6-A261-FAE055291528}']
|
||||
['{4125D0FB-2B55-4467-9699-3E8ACBD42536}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2891,7 +2905,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{65B9A25E-F38D-4FFF-B3BE-7AB95CACFF06}']
|
||||
['{586D4069-929D-4534-B0F8-2571EC18642B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3166,7 +3180,7 @@ type
|
||||
|
||||
{ IContratosEmpleados }
|
||||
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{C71461FF-81B8-4737-A3A4-346F882232C8}']
|
||||
['{41A79482-6529-4898-B689-BACE01797F02}']
|
||||
{ Property getters and setters }
|
||||
function GetCONTRATOValue: String;
|
||||
procedure SetCONTRATOValue(const aValue: String);
|
||||
@ -3201,7 +3215,7 @@ type
|
||||
|
||||
{ IDescripcionesProveedores }
|
||||
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{77679B6E-99EF-4BD1-8CAA-21096036D0E1}']
|
||||
['{FC0653D5-96D3-4C1C-9437-56595DFEB2C7}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCION_PROVEEDORValue: String;
|
||||
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
|
||||
@ -3236,7 +3250,7 @@ type
|
||||
|
||||
{ IPersonalContacto }
|
||||
IPersonalContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{B07C08EE-8BAC-4548-B57C-76F885326F10}']
|
||||
['{7C4776C9-1F5A-4A84-AF95-5499638E984C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3379,7 +3393,7 @@ type
|
||||
|
||||
{ IAgentes_Comisiones }
|
||||
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{1396676A-6951-4D10-BF85-4D549F547492}']
|
||||
['{2EF8B495-6460-40F7-B268-BF5EDB0973AA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3462,7 +3476,7 @@ type
|
||||
|
||||
{ IAgentes }
|
||||
IAgentes = interface(IDAStronglyTypedDataTable)
|
||||
['{0AC6B3A1-8F53-4387-9A75-AAFD330DF895}']
|
||||
['{6EA11F0C-820C-4310-AEE9-F3F0E1FEFCCF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -6273,6 +6287,27 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TProveedoresDataTableRules.GetPAISValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresPAIS].AsString;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetPAISValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresPAIS].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TProveedoresDataTableRules.GetPAISIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresPAIS].IsNull;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetPAISIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ProveedoresPAIS].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEmpleadosDataTableRules }
|
||||
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,27 +9,27 @@ 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 = '{CEAC9E34-EC23-4975-8564-049459103E5B}';
|
||||
RID_GruposClienteDelta = '{92BEDCB7-57F2-45D0-8EDF-79C519290D32}';
|
||||
RID_DatosBancariosDelta = '{56C98169-EDC3-481A-AD9C-FF45E1D9C93B}';
|
||||
RID_ClientesDelta = '{28EFB7E0-62B4-4F3D-A4E0-25254B665748}';
|
||||
RID_ProveedoresDelta = '{AEECF2DF-D7F7-42E7-9081-76778714FF75}';
|
||||
RID_EmpleadosDelta = '{D74B1150-C343-4DC5-A6F5-A7F4E7598F67}';
|
||||
RID_DireccionesContactoDelta = '{9FE0DA23-FE77-4167-AEFF-143E4F8C823D}';
|
||||
RID_ClientesDescuentosDelta = '{743C4823-D8F2-42F3-9B1D-FAE647AA0B89}';
|
||||
RID_GruposProveedorDelta = '{E8CA6C8F-9ECC-41DF-8586-E2E3B9F5458B}';
|
||||
RID_GruposEmpleadoDelta = '{714DAE98-83AA-4A95-9A5F-07A6B7E8B355}';
|
||||
RID_Contactos_RefreshDelta = '{7DD183E3-37C3-4264-8D84-F4A815289F8B}';
|
||||
RID_ContratosEmpleadosDelta = '{E62488A1-C81E-4B36-90ED-206B1033DD39}';
|
||||
RID_DescripcionesProveedoresDelta = '{58F6D16F-8509-4805-B234-6263DC21BE65}';
|
||||
RID_PersonalContactoDelta = '{517AA226-5930-4EBD-99CB-D01DA050A368}';
|
||||
RID_Agentes_ComisionesDelta = '{B489AFCD-F2A4-4762-99E8-171CC8767238}';
|
||||
RID_AgentesDelta = '{05D9F35E-0C52-4504-84CC-B35F48442AB5}';
|
||||
RID_ContactosDelta = '{2299AF5C-93A6-4870-867B-460C36B56E93}';
|
||||
RID_GruposClienteDelta = '{AD8AB009-EDD5-46D4-8AE7-3647C7BD1219}';
|
||||
RID_DatosBancariosDelta = '{F820E138-7A65-4103-9FF8-071A33AA5D7D}';
|
||||
RID_ClientesDelta = '{452137EA-2D55-4ADB-B2E9-8EB15CB2B773}';
|
||||
RID_ProveedoresDelta = '{2E5CCC1F-8071-452C-8E33-6C7AC9044F8D}';
|
||||
RID_EmpleadosDelta = '{DED794FA-AD5C-4808-BBA5-A27CD6268CEC}';
|
||||
RID_DireccionesContactoDelta = '{E2A9F36E-2103-4AD8-9381-C84A3B12B3AE}';
|
||||
RID_ClientesDescuentosDelta = '{4DDCB8A9-4A0A-4866-9843-817FF925BC53}';
|
||||
RID_GruposProveedorDelta = '{55B4089D-A9AB-4A29-9EB2-630E2594E4E6}';
|
||||
RID_GruposEmpleadoDelta = '{C938DD21-EFD3-42D7-9A79-2F1572C8DE52}';
|
||||
RID_Contactos_RefreshDelta = '{600B66BD-C6C3-4919-9890-F312E1B5D200}';
|
||||
RID_ContratosEmpleadosDelta = '{14195F40-F9F2-44C1-8788-55F57D0A9691}';
|
||||
RID_DescripcionesProveedoresDelta = '{006DC4AA-84BE-4472-8A8F-5FB0D81D71FB}';
|
||||
RID_PersonalContactoDelta = '{C9915E22-807B-462B-8FB0-2CC33FCCA389}';
|
||||
RID_Agentes_ComisionesDelta = '{14B4AF5B-96D8-4269-BC87-1E5C3C8CC4C1}';
|
||||
RID_AgentesDelta = '{419889C5-E18E-43AA-B78B-7AA634B266A2}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{CEAC9E34-EC23-4975-8564-049459103E5B}']
|
||||
['{2299AF5C-93A6-4870-867B-460C36B56E93}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -328,7 +328,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{92BEDCB7-57F2-45D0-8EDF-79C519290D32}']
|
||||
['{AD8AB009-EDD5-46D4-8AE7-3647C7BD1219}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -374,7 +374,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{56C98169-EDC3-481A-AD9C-FF45E1D9C93B}']
|
||||
['{F820E138-7A65-4103-9FF8-071A33AA5D7D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -504,7 +504,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{28EFB7E0-62B4-4F3D-A4E0-25254B665748}']
|
||||
['{452137EA-2D55-4ADB-B2E9-8EB15CB2B773}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1031,7 +1031,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{AEECF2DF-D7F7-42E7-9081-76778714FF75}']
|
||||
['{2E5CCC1F-8071-452C-8E33-6C7AC9044F8D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1071,6 +1071,7 @@ type
|
||||
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
|
||||
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
|
||||
function GetOldPAISValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -1111,6 +1112,7 @@ type
|
||||
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
||||
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
||||
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
end;
|
||||
|
||||
{ TProveedoresBusinessProcessorRules }
|
||||
@ -1347,6 +1349,12 @@ type
|
||||
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
||||
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
||||
function GetPAISValue: String; virtual;
|
||||
function GetPAISIsNull: Boolean; virtual;
|
||||
function GetOldPAISValue: String; virtual;
|
||||
function GetOldPAISIsNull: Boolean; virtual;
|
||||
procedure SetPAISValue(const aValue: String); virtual;
|
||||
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1501,6 +1509,10 @@ type
|
||||
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
||||
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
|
||||
property PAIS : String read GetPAISValue write SetPAISValue;
|
||||
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1510,7 +1522,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{D74B1150-C343-4DC5-A6F5-A7F4E7598F67}']
|
||||
['{DED794FA-AD5C-4808-BBA5-A27CD6268CEC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1945,7 +1957,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{9FE0DA23-FE77-4167-AEFF-143E4F8C823D}']
|
||||
['{E2A9F36E-2103-4AD8-9381-C84A3B12B3AE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2160,7 +2172,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{743C4823-D8F2-42F3-9B1D-FAE647AA0B89}']
|
||||
['{4DDCB8A9-4A0A-4866-9843-817FF925BC53}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2242,7 +2254,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{E8CA6C8F-9ECC-41DF-8586-E2E3B9F5458B}']
|
||||
['{55B4089D-A9AB-4A29-9EB2-630E2594E4E6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2288,7 +2300,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{714DAE98-83AA-4A95-9A5F-07A6B7E8B355}']
|
||||
['{C938DD21-EFD3-42D7-9A79-2F1572C8DE52}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2334,7 +2346,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{7DD183E3-37C3-4264-8D84-F4A815289F8B}']
|
||||
['{600B66BD-C6C3-4919-9890-F312E1B5D200}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -2609,7 +2621,7 @@ type
|
||||
|
||||
{ IContratosEmpleadosDelta }
|
||||
IContratosEmpleadosDelta = interface(IContratosEmpleados)
|
||||
['{E62488A1-C81E-4B36-90ED-206B1033DD39}']
|
||||
['{14195F40-F9F2-44C1-8788-55F57D0A9691}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCONTRATOValue : String;
|
||||
|
||||
@ -2643,7 +2655,7 @@ type
|
||||
|
||||
{ IDescripcionesProveedoresDelta }
|
||||
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
|
||||
['{58F6D16F-8509-4805-B234-6263DC21BE65}']
|
||||
['{006DC4AA-84BE-4472-8A8F-5FB0D81D71FB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCION_PROVEEDORValue : String;
|
||||
|
||||
@ -2677,7 +2689,7 @@ type
|
||||
|
||||
{ IPersonalContactoDelta }
|
||||
IPersonalContactoDelta = interface(IPersonalContacto)
|
||||
['{517AA226-5930-4EBD-99CB-D01DA050A368}']
|
||||
['{C9915E22-807B-462B-8FB0-2CC33FCCA389}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2819,7 +2831,7 @@ type
|
||||
|
||||
{ IAgentes_ComisionesDelta }
|
||||
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
|
||||
['{B489AFCD-F2A4-4762-99E8-171CC8767238}']
|
||||
['{14B4AF5B-96D8-4269-BC87-1E5C3C8CC4C1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
@ -2901,7 +2913,7 @@ type
|
||||
|
||||
{ IAgentesDelta }
|
||||
IAgentesDelta = interface(IAgentes)
|
||||
['{05D9F35E-0C52-4504-84CC-B35F48442AB5}']
|
||||
['{419889C5-E18E-43AA-B78B-7AA634B266A2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -6856,6 +6868,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null;
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetPAISValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS];
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetPAISIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]);
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetOldPAISValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS];
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]);
|
||||
end;
|
||||
|
||||
procedure TProveedoresBusinessProcessorRules.SetPAISValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := aValue;
|
||||
end;
|
||||
|
||||
procedure TProveedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEmpleadosBusinessProcessorRules }
|
||||
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -166,6 +166,9 @@ type
|
||||
function GetEMAIL_ADMINISTRACIONValue: String;
|
||||
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
|
||||
|
||||
function GetPAISValue: String;
|
||||
procedure SetPAISValue(const aValue: String);
|
||||
|
||||
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
|
||||
@ -180,6 +183,7 @@ type
|
||||
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
||||
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
||||
property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property PAIS: String read GetPAISValue write SetPAISValue;
|
||||
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
|
||||
end;
|
||||
|
||||
@ -399,6 +403,9 @@ type
|
||||
procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint);
|
||||
procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint);
|
||||
|
||||
function GetPAISValue: String;
|
||||
procedure SetPAISValue(const aValue: String);
|
||||
|
||||
function GetEMAIL_ADMINISTRACIONValue: String;
|
||||
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
|
||||
|
||||
@ -419,6 +426,7 @@ type
|
||||
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
||||
property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
||||
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
|
||||
property PAIS: String read GetPAISValue write SetPAISValue;
|
||||
end;
|
||||
|
||||
|
||||
@ -790,6 +798,11 @@ begin
|
||||
result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetPAISValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresPAIS].AsString;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetREGIMEN_IVAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
|
||||
@ -900,6 +913,11 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetPAISValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresPAIS].AsString := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;
|
||||
|
||||
@ -95,6 +95,7 @@ begin
|
||||
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
|
||||
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
|
||||
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
|
||||
|
||||
Execute;
|
||||
@ -137,6 +138,7 @@ begin
|
||||
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
|
||||
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
|
||||
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
|
||||
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
|
||||
|
||||
Execute;
|
||||
|
||||
@ -951,6 +951,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'EMAIL_ADMINISTRACION'
|
||||
TableField = 'EMAIL_ADMINISTRACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'Proveedores'
|
||||
@ -1167,6 +1171,11 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -3529,6 +3538,12 @@ object srvContactos: TsrvContactos
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -3539,12 +3554,13 @@ object srvContactos: TsrvContactos
|
||||
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
|
||||
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
|
||||
'IFICACION, GRUPO_PROVEEDOR, EMAIL_ADMINISTRACION,'#10' VENCIMIENT' +
|
||||
'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' ' +
|
||||
'VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCIO' +
|
||||
'N_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :' +
|
||||
'ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GR' +
|
||||
'UPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_' +
|
||||
'1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10' '#10' '#10#10
|
||||
'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3, PA' +
|
||||
'IS)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESC' +
|
||||
'RIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTR' +
|
||||
'ATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACIO' +
|
||||
'N, :GRUPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FAC' +
|
||||
'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3, :PAIS' +
|
||||
')'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3658,6 +3674,12 @@ object srvContactos: TsrvContactos
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_PROVEEDOR'
|
||||
Value = ''
|
||||
@ -3677,8 +3699,8 @@ object srvContactos: TsrvContactos
|
||||
'TRATA,'#10' EMAIL_ADMINISTRACION = :EMAIL_ADMINISTRACION,'#10' VEN' +
|
||||
'CIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_F' +
|
||||
'ACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 ' +
|
||||
'= :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PR' +
|
||||
'OVEEDOR)'#10
|
||||
'= :VENCIMIENTO_FACTURAS_3,'#10' PAIS = :PAIS'#10' WHERE'#10' (ID_PROV' +
|
||||
'EEDOR = :OLD_ID_PROVEEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -49,64 +49,64 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\bdertl.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Jcl.dcp" />
|
||||
<DCCReference Include="..\JclVcl.dcp" />
|
||||
<DCCReference Include="..\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclshlctrls.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAgente.pas">
|
||||
<Form>fEditorAgente</Form>
|
||||
|
||||
@ -8,8 +8,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
Top = 113
|
||||
Width = 683
|
||||
Visible = False
|
||||
ExplicitLeft = -8
|
||||
ExplicitTop = 133
|
||||
ExplicitTop = 113
|
||||
ExplicitWidth = 683
|
||||
inherited Image1: TImage
|
||||
Left = 656
|
||||
@ -24,17 +23,21 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 49
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 378
|
||||
ExplicitWidth = 284
|
||||
inherited TBXSubmenuItem3: TTBXSubmenuItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem36: TTBXItem
|
||||
Action = actAnchoAuto2
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 378
|
||||
Left = 284
|
||||
Top = 23
|
||||
DockPos = 96
|
||||
DockRow = 1
|
||||
ExplicitLeft = 378
|
||||
ExplicitLeft = 284
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
@ -117,7 +120,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
Padding.Bottom = 8
|
||||
ParentBackground = False
|
||||
TabOrder = 5
|
||||
ExplicitTop = 27
|
||||
object lblTitle: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 25
|
||||
@ -161,9 +163,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
Padding.Right = 10
|
||||
Padding.Bottom = 5
|
||||
TabOrder = 4
|
||||
ExplicitTop = 166
|
||||
ExplicitTop = 140
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 298
|
||||
ExplicitHeight = 324
|
||||
inherited cxGrid: TcxGrid
|
||||
Left = 10
|
||||
Top = 112
|
||||
@ -172,7 +174,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 663
|
||||
ExplicitHeight = 155
|
||||
ExplicitHeight = 181
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -246,7 +248,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
|
||||
Left = 10
|
||||
Top = 293
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 267
|
||||
ExplicitTop = 293
|
||||
ExplicitWidth = 663
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 663
|
||||
|
||||
@ -10,8 +10,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
Top = 113
|
||||
Width = 656
|
||||
Visible = False
|
||||
ExplicitLeft = 8
|
||||
ExplicitTop = 166
|
||||
ExplicitTop = 113
|
||||
ExplicitWidth = 656
|
||||
inherited Image1: TImage
|
||||
Left = 629
|
||||
@ -26,17 +25,22 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 49
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 351
|
||||
DockPos = -6
|
||||
ExplicitWidth = 284
|
||||
inherited TBXSubmenuItem3: TTBXSubmenuItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem36: TTBXItem
|
||||
Action = actAnchoAuto2
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 351
|
||||
Left = 284
|
||||
Top = 23
|
||||
DockPos = 108
|
||||
DockRow = 1
|
||||
ExplicitLeft = 351
|
||||
ExplicitLeft = 284
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
@ -120,7 +124,6 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
Padding.Bottom = 8
|
||||
ParentBackground = False
|
||||
TabOrder = 5
|
||||
ExplicitTop = 27
|
||||
object lblTitle: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 25
|
||||
@ -164,9 +167,9 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
Padding.Right = 10
|
||||
Padding.Bottom = 5
|
||||
TabOrder = 4
|
||||
ExplicitTop = 166
|
||||
ExplicitTop = 140
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 259
|
||||
ExplicitHeight = 285
|
||||
inherited cxGrid: TcxGrid
|
||||
Left = 10
|
||||
Top = 112
|
||||
@ -175,7 +178,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 636
|
||||
ExplicitHeight = 116
|
||||
ExplicitHeight = 142
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -250,7 +253,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
|
||||
Left = 10
|
||||
Top = 254
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 228
|
||||
ExplicitTop = 254
|
||||
ExplicitWidth = 636
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 636
|
||||
|
||||
@ -122,6 +122,43 @@ inherited frViewAgente: TfrViewAgente
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
object eFechaBaja: TcxDBDateEdit [11]
|
||||
Left = 121
|
||||
Top = 109
|
||||
DataBinding.DataField = 'FECHA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 229
|
||||
end
|
||||
object eCausaBaja: TcxDBTextEdit [12]
|
||||
Left = 121
|
||||
Top = 136
|
||||
DataBinding.DataField = 'CAUSA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
Width = 229
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 485
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -154,43 +191,6 @@ inherited frViewAgente: TfrViewAgente
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
object eFechaBaja: TcxDBDateEdit [14]
|
||||
Left = 121
|
||||
Top = 109
|
||||
DataBinding.DataField = 'FECHA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 229
|
||||
end
|
||||
object eCausaBaja: TcxDBTextEdit [15]
|
||||
Left = 121
|
||||
Top = 136
|
||||
DataBinding.DataField = 'CAUSA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
Width = 229
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 231
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -238,6 +238,7 @@ inherited frViewAgente: TfrViewAgente
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 121
|
||||
Enabled = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
|
||||
@ -437,6 +437,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 132
|
||||
Enabled = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
|
||||
@ -160,6 +160,7 @@ inherited frViewClientes: TfrViewClientes
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 423
|
||||
Visible = True
|
||||
ExplicitTop = 423
|
||||
ExplicitWidth = 793
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -167,8 +168,12 @@ inherited frViewClientes: TfrViewClientes
|
||||
ExplicitWidth = 793
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 783
|
||||
Visible = False
|
||||
ExplicitWidth = 783
|
||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actAgentes
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -186,6 +191,13 @@ inherited frViewClientes: TfrViewClientes
|
||||
inherited cxStyleRepository1: TcxStyleRepository
|
||||
Left = 64
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
object actAgentes: TAction
|
||||
Caption = 'Agentes'
|
||||
OnExecute = actAgentesExecute
|
||||
OnUpdate = actAgentesUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
|
||||
@ -28,6 +28,9 @@ type
|
||||
cxGridViewFELICITACION: TcxGridDBColumn;
|
||||
cxGridViewRAPEL: TcxGridDBColumn;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||
TBXItem2: TTBXItem;
|
||||
actAgentes: TAction;
|
||||
procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem;
|
||||
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
|
||||
const AMousePos: TPoint; var AHintText: TCaption;
|
||||
@ -36,6 +39,8 @@ type
|
||||
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
|
||||
const AMousePos: TPoint; var AHintText: TCaption;
|
||||
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
|
||||
procedure actAgentesExecute(Sender: TObject);
|
||||
procedure actAgentesUpdate(Sender: TObject);
|
||||
end;
|
||||
|
||||
|
||||
@ -47,6 +52,26 @@ uses uViewGridBase;
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
procedure TfrViewClientes.actAgentesExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.actAgentesUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.cxGridViewFELICITACIONGetCellHint(
|
||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
|
||||
|
||||
@ -8,8 +8,8 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 917
|
||||
Height = 629
|
||||
ExplicitWidth = 799
|
||||
ExplicitHeight = 492
|
||||
ExplicitWidth = 917
|
||||
ExplicitHeight = 629
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 872
|
||||
ExplicitLeft = 872
|
||||
@ -23,7 +23,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
ExplicitLeft = 872
|
||||
end
|
||||
object Label1: TLabel [3]
|
||||
Left = 543
|
||||
Left = 569
|
||||
Top = 262
|
||||
Width = 322
|
||||
Height = 26
|
||||
@ -34,7 +34,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
object Label2: TLabel [4]
|
||||
Left = 22
|
||||
Top = 415
|
||||
Top = 442
|
||||
Width = 324
|
||||
Height = 39
|
||||
Margins.Bottom = 0
|
||||
@ -45,8 +45,8 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
WordWrap = True
|
||||
end
|
||||
object PngSpeedButton4: TPngSpeedButton [5]
|
||||
Left = 502
|
||||
Top = 460
|
||||
Left = 528
|
||||
Top = 487
|
||||
Width = 23
|
||||
Height = 22
|
||||
Action = actMandarCorreoTrabajo
|
||||
@ -197,7 +197,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
object eMailAdministracion: TcxDBHyperLinkEdit [13]
|
||||
Left = 134
|
||||
Top = 460
|
||||
Top = 487
|
||||
DataBinding.DataField = 'EMAIL_ADMINISTRACION'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged
|
||||
@ -214,7 +214,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
Width = 186
|
||||
end
|
||||
object eCodigoAsignado: TcxDBTextEdit [14]
|
||||
@ -237,29 +237,29 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 330
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 460
|
||||
Left = 486
|
||||
Top = 304
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 460
|
||||
ExplicitLeft = 486
|
||||
ExplicitTop = 304
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 518
|
||||
Top = 545
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 23
|
||||
ExplicitTop = 518
|
||||
TabOrder = 24
|
||||
ExplicitTop = 545
|
||||
ExplicitHeight = 55
|
||||
Height = 55
|
||||
end
|
||||
object cxDBCheckBox3: TcxDBCheckBox [17]
|
||||
Left = 442
|
||||
Left = 468
|
||||
Top = 136
|
||||
Caption = 'Subcontrata'
|
||||
DataBinding.DataField = 'SUBCONTRATA'
|
||||
@ -283,7 +283,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 83
|
||||
end
|
||||
object cxDBCheckBox1: TcxDBCheckBox [18]
|
||||
Left = 543
|
||||
Left = 569
|
||||
Top = 294
|
||||
Caption = 'Incluir este proveedor en la tienda web'
|
||||
DataBinding.DataField = 'TIENDA_WEB'
|
||||
@ -304,50 +304,50 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 22
|
||||
TabOrder = 23
|
||||
Width = 236
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 650
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 650
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 650
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 650
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 650
|
||||
Left = 676
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 650
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 650
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 676
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 676
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 650
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 676
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
@ -362,52 +362,53 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 330
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 261
|
||||
Left = 271
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 261
|
||||
ExplicitLeft = 271
|
||||
ExplicitWidth = 226
|
||||
Width = 226
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 650
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 650
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 650
|
||||
Left = 676
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 20
|
||||
ExplicitLeft = 650
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 650
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 676
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 21
|
||||
ExplicitLeft = 650
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 676
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 22
|
||||
ExplicitLeft = 676
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 134
|
||||
Enabled = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -418,17 +419,39 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 134
|
||||
Top = 358
|
||||
Top = 385
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 358
|
||||
ExplicitTop = 385
|
||||
ExplicitWidth = 330
|
||||
Width = 330
|
||||
end
|
||||
object ePais: TcxDBTextEdit [30]
|
||||
Left = 134
|
||||
Top = 358
|
||||
DataBinding.DataField = 'PAIS'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
Width = 391
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
||||
@ -483,6 +506,13 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
|
||||
object dxLayoutControlContactoItem27: TdxLayoutItem [3]
|
||||
Caption = 'Pa'#237's:'
|
||||
Control = ePais
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlContactoGroup24: TdxLayoutGroup
|
||||
Caption = 'Correo electr'#243'nico de administraci'#243'n'
|
||||
object dxLayoutControlContactoItem33: TdxLayoutItem
|
||||
|
||||
@ -39,6 +39,8 @@ type
|
||||
eMailAdministracion: TcxDBHyperLinkEdit;
|
||||
PngSpeedButton4: TPngSpeedButton;
|
||||
actMandarCorreoAdministrativo: TAction;
|
||||
dxLayoutControlContactoItem27: TdxLayoutItem;
|
||||
ePais: TcxDBTextEdit;
|
||||
procedure actMandarCorreoAdministrativoExecute(Sender: TObject);
|
||||
procedure actMandarCorreoAdministrativoUpdate(Sender: TObject);
|
||||
procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject);
|
||||
|
||||
@ -186,6 +186,8 @@ var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FShowLogotipo := VerSello;
|
||||
|
||||
try
|
||||
//Vamos generando todos y cada una de las facturas recibidas
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -201,6 +203,7 @@ var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
FShowLogotipo := VerSello;
|
||||
try
|
||||
//Vamos generando todos y cada una de las facturas recibidas
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
|
||||
@ -49,22 +49,24 @@
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_view.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="uDialogListaFacturasEnvioEMail.pas">
|
||||
<Form>DialogListaFacturasEnvioEMail</Form>
|
||||
<Form>fDialogListaFacturasEnvioEMail</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas">
|
||||
@ -111,8 +113,6 @@
|
||||
<Form>frViewFacturasCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -1,9 +1,9 @@
|
||||
inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFacturasCliente
|
||||
Caption = 'Opciones para facturas de cliente'
|
||||
ClientHeight = 240
|
||||
ClientHeight = 197
|
||||
ClientWidth = 418
|
||||
ExplicitWidth = 424
|
||||
ExplicitHeight = 272
|
||||
ExplicitHeight = 229
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited Bevel2: TBevel
|
||||
@ -11,13 +11,13 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
|
||||
ExplicitWidth = 418
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Top = 196
|
||||
Top = 153
|
||||
Width = 418
|
||||
ExplicitTop = 196
|
||||
ExplicitWidth = 418
|
||||
end
|
||||
inherited pnlBotones: TPanel
|
||||
Top = 198
|
||||
Top = 155
|
||||
Width = 418
|
||||
ExplicitTop = 198
|
||||
ExplicitWidth = 418
|
||||
@ -49,7 +49,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
|
||||
end
|
||||
inherited pnlCuerpo: TPanel
|
||||
Width = 418
|
||||
Height = 130
|
||||
Height = 87
|
||||
ExplicitWidth = 418
|
||||
ExplicitHeight = 130
|
||||
object cbVerCopia: TCheckBox
|
||||
@ -62,6 +62,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
end
|
||||
object cbVerSello: TCheckBox
|
||||
AlignWithMargins = True
|
||||
@ -69,7 +70,7 @@ inherited fDialogOpcionesImpresionFacturasCliente: TfDialogOpcionesImpresionFact
|
||||
Top = 28
|
||||
Width = 200
|
||||
Height = 17
|
||||
Caption = 'Mostrar sello de la empresa'
|
||||
Caption = 'Mostrar logotipo de la empresa'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 1
|
||||
|
||||
@ -1,7 +1,15 @@
|
||||
inherited fEditorElegirArticulosFacturaCliente: TfEditorElegirArticulosFacturaCliente
|
||||
Caption = 'fEditorElegirArticulosFacturaCliente'
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 478
|
||||
ExplicitHeight = 538
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited pnlHeader: TPanel
|
||||
inherited lblTitle: TLabel
|
||||
Width = 606
|
||||
end
|
||||
inherited lblComments: TLabel
|
||||
Width = 581
|
||||
Height = 24
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -354,12 +354,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Top = 72
|
||||
Width = 809
|
||||
Height = 218
|
||||
ExplicitTop = 72
|
||||
ExplicitWidth = 809
|
||||
ExplicitHeight = 191
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 46
|
||||
Width = 809
|
||||
ExplicitTop = 46
|
||||
ExplicitWidth = 809
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 566
|
||||
|
||||
@ -340,7 +340,7 @@ begin
|
||||
AVerCopia := True;
|
||||
|
||||
//Preguntamos si desea que en las facturas se vea el Sello
|
||||
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
FController.Print(FFactura, AllItems, AVerSello, AVerCopia);
|
||||
end;
|
||||
|
||||
@ -430,7 +430,7 @@ begin
|
||||
AVerCopia := True;
|
||||
|
||||
//Preguntamos si desea que en las facturas se vea el Sello
|
||||
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
FController.Preview(FFactura, AllItems, AVerSello, AVerCopia);
|
||||
end;
|
||||
|
||||
|
||||
@ -357,7 +357,7 @@ begin
|
||||
AFacturas := Facturas;
|
||||
|
||||
//Preguntamos si desea que en las facturas se vea el Sello
|
||||
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
if Assigned(AFacturas) then
|
||||
if FController.Print(AFacturas, AllItems, AVerSello, AVerCopia) then
|
||||
RefrescarInterno;
|
||||
@ -453,7 +453,7 @@ begin
|
||||
AFacturas := Facturas;
|
||||
|
||||
//Preguntamos si desea que en las facturas se vea el Sello
|
||||
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
|
||||
if Assigned(AFacturas) then
|
||||
FController.Preview(AFacturas, AllItems, AVerSello, AVerCopia);
|
||||
end;
|
||||
|
||||
@ -1,4 +1,50 @@
|
||||
inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
|
||||
Caption = 'Precio coste'
|
||||
end
|
||||
inherited cxGridViewDESCUENTO: TcxGridDBColumn
|
||||
Caption = 'Descuento'
|
||||
end
|
||||
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
|
||||
Caption = 'Precio neto'
|
||||
end
|
||||
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
|
||||
Caption = 'Precio porte'
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 39231.869697800920000000
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
||||
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewElegirArticulosFacturasCliente = interface(IViewArticulos)
|
||||
|
||||
@ -108,23 +108,32 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = nil
|
||||
Visible = False
|
||||
Options.Editing = False
|
||||
end
|
||||
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
inherited cxGridViewDESCUENTO: TcxGridDBColumn
|
||||
Visible = True
|
||||
end
|
||||
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
|
||||
Caption = 'Importe coste'
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 73
|
||||
ExplicitTop = 73
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object TBXItem18: TTBXItem [1]
|
||||
Action = actAnadirArticulos
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ActionListContenido: TActionList
|
||||
inherited actAnadirArticulos: TAction
|
||||
Caption = 'A'#241'adir art'#237'culos...'
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -25,6 +25,7 @@ type
|
||||
end;
|
||||
|
||||
TfrViewDetallesFacturaProveedor = class(TfrViewDetallesArticulos, IViewDetallesFacturaProveedor)
|
||||
TBXItem18: TTBXItem;
|
||||
protected
|
||||
FFactura: IBizFacturaProveedor;
|
||||
function GetFactura: IBizFacturaProveedor;
|
||||
|
||||
@ -18,24 +18,42 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
|
||||
Caption = ''
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
Caption = 'Generales'
|
||||
Caption = 'Otros proveedores'
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 225
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 225
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 383
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 383
|
||||
ExplicitWidth = 322
|
||||
Width = 322
|
||||
|
||||
@ -12,7 +12,8 @@ uses
|
||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
||||
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
|
||||
uBizContactos, uDAInterfaces, uViewArticulosPorProveedor;
|
||||
uBizContactos, uDAInterfaces, uViewArticulosPorProveedor, uCustomView,
|
||||
uViewBase;
|
||||
|
||||
type
|
||||
IViewElegirArticulosFacturasProveedor = interface(IViewArticulos)
|
||||
@ -54,7 +55,7 @@ begin
|
||||
0 : if Assigned(FProveedor) then
|
||||
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE);
|
||||
1 : if Assigned(FProveedor) then
|
||||
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, Null, 'ARTICULOS SIN PROVEEDOR');
|
||||
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foNotEqual, FProveedor.ID, FProveedor.NOMBRE);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -324,7 +324,7 @@ begin
|
||||
if Supports(ADetalles, IBizArticulo) then
|
||||
begin
|
||||
AArticulos.ID_ARTICULO := FieldByName(fld_ArticulosID).AsInteger;
|
||||
// AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_ArticulosREFERENCIA_PROV).AsString;
|
||||
AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_ArticulosREFERENCIA_PROV).AsString;
|
||||
AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString;
|
||||
AArticulos.CANTIDAD := 1;
|
||||
end
|
||||
@ -332,7 +332,7 @@ begin
|
||||
else
|
||||
begin
|
||||
AArticulos.ID_ARTICULO := FieldByName(fld_INVENTARIOID_ARTICULO).AsInteger;
|
||||
// AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_INVENTARIOREFERENCIA_PROVEEDOR).AsString;
|
||||
AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_INVENTARIOREFERENCIA_PROVEEDOR).AsString;
|
||||
if Supports(ADetalles, IBizInventario) then
|
||||
begin
|
||||
AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString;
|
||||
|
||||
@ -14,7 +14,7 @@ uses
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||
uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar,
|
||||
uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels,
|
||||
uViewFiltroBase, cxSpinEdit, uDAInterfaces;
|
||||
uViewFiltroBase, cxSpinEdit, uDAInterfaces, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewViewEntradaSalidaArticulos = interface(IViewGrid)
|
||||
|
||||
@ -671,15 +671,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' COALESCE(ART' +
|
||||
'ICULOS.DESCRIPCION, V_PED_PROV_ARTICULOS.DESCRIPCION) as CONCEPT' +
|
||||
'O,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE as CANTIDAD,'#10' ' +
|
||||
' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEE' +
|
||||
'DOR'#10'FROM V_PED_PROV_ARTICULOS'#10' LEFT JOIN ARTICULOS ON (ARTIC' +
|
||||
'ULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10' LEFT JOIN PEDID' +
|
||||
'OS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_' +
|
||||
'PEDIDO)'#10' LEFT JOIN ARTICULOS_PROVEEDORES ON'#10' ((ARTICU' +
|
||||
'LOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND'#10' (ARTICU' +
|
||||
'LOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10 +
|
||||
'WHERE (V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10' AND (V_PE' +
|
||||
'D_PROV_ARTICULOS.ID_PEDIDO = :ID)'#10
|
||||
' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM V_P' +
|
||||
'ED_PROV_ARTICULOS'#10' LEFT JOIN ARTICULOS ON (ARTICULOS.ID = V_' +
|
||||
'PED_PROV_ARTICULOS.ID_ARTICULO)'#10' LEFT JOIN PEDIDOS_PROVEEDOR' +
|
||||
' ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_PEDIDO)'#10' ' +
|
||||
' LEFT JOIN ARTICULOS_PROVEEDORES ON'#10' ((ARTICULOS_PROVEEDO' +
|
||||
'RES.ID_ARTICULO = ARTICULOS.ID) AND'#10' (ARTICULOS_PROVEEDO' +
|
||||
'RES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE (V_PED' +
|
||||
'_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10' AND (V_PED_PROV_ARTIC' +
|
||||
'ULOS.ID_PEDIDO = :ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -3,8 +3,8 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
|
||||
Top = 108
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Datos de la direcci'#243'n de entrega:'
|
||||
ClientHeight = 189
|
||||
ClientWidth = 453
|
||||
ClientHeight = 230
|
||||
ClientWidth = 452
|
||||
Color = clBtnFace
|
||||
ParentFont = True
|
||||
OldCreateOrder = True
|
||||
@ -14,15 +14,15 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
DesignSize = (
|
||||
453
|
||||
189)
|
||||
452
|
||||
230)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Bevel1: TBevel
|
||||
Left = 8
|
||||
Top = 14
|
||||
Width = 349
|
||||
Height = 163
|
||||
Width = 348
|
||||
Height = 211
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Shape = bsFrame
|
||||
end
|
||||
@ -58,8 +58,24 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
|
||||
AutoSize = False
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 20
|
||||
Top = 170
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'Persona contacto:'
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 20
|
||||
Top = 197
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'Tel'#233'fono:'
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 370
|
||||
Left = 369
|
||||
Top = 13
|
||||
Width = 75
|
||||
Height = 25
|
||||
@ -68,9 +84,10 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 370
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 370
|
||||
Left = 369
|
||||
Top = 44
|
||||
Width = 75
|
||||
Height = 25
|
||||
@ -79,6 +96,7 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
|
||||
Caption = '&Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 370
|
||||
end
|
||||
object eDireccion: TDBEdit
|
||||
Left = 136
|
||||
@ -150,6 +168,24 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
|
||||
TabOrder = 5
|
||||
Width = 210
|
||||
end
|
||||
object ePersonaContacto: TDBEdit
|
||||
Left = 136
|
||||
Top = 167
|
||||
Width = 210
|
||||
Height = 21
|
||||
DataField = 'PERSONA_CONTACTO'
|
||||
DataSource = dsDireccion
|
||||
TabOrder = 6
|
||||
end
|
||||
object eTelefono: TDBEdit
|
||||
Left = 136
|
||||
Top = 194
|
||||
Width = 210
|
||||
Height = 21
|
||||
DataField = 'TELEFONO'
|
||||
DataSource = dsDireccion
|
||||
TabOrder = 7
|
||||
end
|
||||
object dsDireccion: TDADataSource
|
||||
Left = 16
|
||||
Top = 46
|
||||
|
||||
@ -22,6 +22,10 @@ type
|
||||
cbProvincia: TcxDBComboBox;
|
||||
Label2: TLabel;
|
||||
cbPoblacion: TcxDBComboBox;
|
||||
Label5: TLabel;
|
||||
ePersonaContacto: TDBEdit;
|
||||
eTelefono: TDBEdit;
|
||||
Label6: TLabel;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
@ -31,6 +35,8 @@ type
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
|
||||
private
|
||||
pPersonaContacto: String;
|
||||
pTelefono: String;
|
||||
pDireccion: String;
|
||||
pPoblacion: String;
|
||||
pProvincia: String;
|
||||
@ -142,6 +148,8 @@ begin
|
||||
//En el caso de cancelar se recuperan los valores iniciales
|
||||
if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then
|
||||
begin
|
||||
ePersonaContacto.Field.Value := pPersonaContacto;
|
||||
eTelefono.Field.Value := pTelefono;
|
||||
eDireccion.Field.Value := pDireccion;
|
||||
cbPoblacion.DataBinding.Field.Value := pPoblacion;
|
||||
cbProvincia.DataBinding.Field.Value := pProvincia;
|
||||
@ -168,6 +176,8 @@ end;
|
||||
procedure TfEditorDireccionEntregaPedidoProveedor.FormShow(Sender: TObject);
|
||||
begin
|
||||
//Guardamos los valores iniciales por si al final el usuario cancela
|
||||
pPersonaContacto := ePersonaContacto.Text;
|
||||
pTelefono := eTelefono.Text;
|
||||
pDireccion := eDireccion.Text;
|
||||
pPoblacion := cbPoblacion.Text;
|
||||
pProvincia := cbProvincia.Text;
|
||||
|
||||
@ -239,6 +239,8 @@ begin
|
||||
txtDireccion.Caption := FPedido.CALLE;
|
||||
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION;
|
||||
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA;
|
||||
if (not FPedido.PERSONA_CONTACTOIsNull) and (FPedido.PERSONA_CONTACTO <> '') then
|
||||
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Persona contacto: ' + FPedido.PERSONA_CONTACTO;
|
||||
if (not FPedido.TELEFONOIsNull) and (FPedido.TELEFONO <> '') then
|
||||
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Teléfono: ' + FPedido.TELEFONO;
|
||||
|
||||
|
||||
@ -35,7 +35,7 @@ inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosPr
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
Tag = 1
|
||||
Caption = 'Otros'
|
||||
Caption = 'Otros proveedores'
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
|
||||
/* c:\temp\dtf3E7.tmp */
|
||||
/* c:\temp\dtfC6.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
|
||||
/* c:\temp\dtf3E5.tmp */
|
||||
/* c:\temp\dtfC4.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
|
||||
/* c:\temp\dtf3E3.tmp */
|
||||
/* c:\temp\dtfC2.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
|
||||
/* c:\temp\dtf44B.tmp */
|
||||
/* c:\temp\dtf12A.tmp */
|
||||
|
||||
@ -26,4 +26,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
|
||||
/* c:\temp\dtf449.tmp */
|
||||
/* c:\temp\dtf128.tmp */
|
||||
|
||||
@ -28,10 +28,23 @@ requires
|
||||
FacturasCliente_model,
|
||||
AlbaranesCliente_controller,
|
||||
AlbaranesCliente_model,
|
||||
FacturasCliente_controller;
|
||||
FacturasCliente_controller,
|
||||
rtl,
|
||||
vcl,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
dxCoreD11,
|
||||
vclx,
|
||||
cxEditorsD11,
|
||||
cxDataD11,
|
||||
dbrtl,
|
||||
vcljpg,
|
||||
vcldb;
|
||||
|
||||
contains
|
||||
uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCliAlbCli},
|
||||
uGenerarAlbaranesCliFacCliUtils in 'uGenerarAlbaranesCliFacCliUtils.pas' {dmGenerarAlbaranesCli};
|
||||
uGenerarAlbaranesCliFacCliUtils in 'uGenerarAlbaranesCliFacCliUtils.pas' {dmGenerarAlbaranesCli},
|
||||
uEditorFechaFactura in 'uEditorFechaFactura.pas'{frEditorFechaFactura:TForm};
|
||||
|
||||
end.
|
||||
|
||||
@ -1,4 +1,5 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
|
||||
<MainSource>AlbCli_FacCli_relation.dpk</MainSource>
|
||||
@ -85,14 +86,30 @@
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uEditorFechaFactura.pas">
|
||||
<Form>frEditorFechaFactura</Form>
|
||||
<DesignClass>F</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uGenerarAlbaranesCliFacCliUtils.pas">
|
||||
<Form>dmGenerarAlbaranesCli</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uGenerarFacturasCliAlbCliUtils.pas">
|
||||
<Form>dmGenerarFacturasCliAlbCli</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -0,0 +1,60 @@
|
||||
object fEditorFechaFactura: TfEditorFechaFactura
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsToolWindow
|
||||
Caption = 'Fecha de las facturas'
|
||||
ClientHeight = 148
|
||||
ClientWidth = 371
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 336
|
||||
Height = 13
|
||||
Caption =
|
||||
'Introduzca la fecha que desea para las facturas que se van a gen' +
|
||||
'erar'
|
||||
WordWrap = True
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 24
|
||||
Top = 59
|
||||
Width = 97
|
||||
Height = 26
|
||||
Caption = 'Fecha de facturas:'
|
||||
WordWrap = True
|
||||
end
|
||||
object eFechaFactura: TcxDateEdit
|
||||
Left = 127
|
||||
Top = 56
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Width = 162
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 286
|
||||
Top = 110
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Continuar'
|
||||
ModalResult = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,35 @@
|
||||
unit uEditorFechaFactura;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
|
||||
cxDropDownEdit, cxCalendar;
|
||||
|
||||
type
|
||||
TfEditorFechaFactura = class(TForm)
|
||||
Label1: TLabel;
|
||||
eFechaFactura: TcxDateEdit;
|
||||
Button1: TButton;
|
||||
Label2: TLabel;
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
fEditorFechaFactura: TfEditorFechaFactura;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfEditorFechaFactura.FormShow(Sender: TObject);
|
||||
begin
|
||||
eFechaFactura.Date := Date;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -11,17 +11,17 @@ type
|
||||
end;
|
||||
|
||||
function GenerarFacturaCliAlb(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
function GenerarFacturaCliAlb : Boolean; overload;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; const CopiarDetalles: Boolean = True): Boolean;
|
||||
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
DB, uDialogUtils, uDADataTable, uControllerDetallesBase,
|
||||
DB, uDialogUtils, uDADataTable, uControllerDetallesBase, uEditorFechaFactura,
|
||||
|
||||
uBizDetallesFacturaCliente, uBizDetallesAlbaranCliente,
|
||||
uAlbaranesClienteController, uDetallesFacturaClienteController,
|
||||
@ -216,7 +216,7 @@ begin
|
||||
|
||||
AAlbaran := AAlbaranesClienteController.Buscar(IDAlbaran);
|
||||
if Assigned(AAlbaran) then
|
||||
Result := GenerarFacturaCliAlb(AAlbaran);
|
||||
Result := GenerarFacturaCliAlb(AAlbaran, Date);
|
||||
|
||||
if Assigned(AAlbaranesClienteController) then
|
||||
Finalizar;
|
||||
@ -226,7 +226,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
var
|
||||
AFacturasNuevas : IBizFacturaCliente;
|
||||
i: Integer;
|
||||
@ -244,7 +244,7 @@ begin
|
||||
|
||||
try
|
||||
AFacturasNuevas := AFacturasClienteController.Nuevo(False);
|
||||
if GenerarFacturas(AFacturasNuevas, AAlbaran, CopiarDetalles) then
|
||||
if GenerarFacturas(AFacturasNuevas, AAlbaran, FechaFacturaNueva, CopiarDetalles) then
|
||||
begin
|
||||
if AFacturasNuevas.DataTable.RecordCount = 1 then
|
||||
begin
|
||||
@ -281,6 +281,7 @@ end;
|
||||
function GenerarFacturaCliAlb : Boolean; overload;
|
||||
var
|
||||
AAlbaranes : IBizAlbaranCliente;
|
||||
AFechaFactura: TDateTime;
|
||||
begin
|
||||
Result := False;
|
||||
try
|
||||
@ -292,7 +293,17 @@ begin
|
||||
+ #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , True);
|
||||
|
||||
if Assigned(AAlbaranes) then
|
||||
Result := GenerarFacturaCliAlb(AAlbaranes);
|
||||
begin
|
||||
//Preguntamos la fecha que deseamos tengan las facturas a generar
|
||||
with TfEditorFechaFactura.Create(Nil) do
|
||||
begin
|
||||
ShowModal;
|
||||
AFechaFactura := eFechaFactura.Date;
|
||||
Free;
|
||||
end;
|
||||
|
||||
Result := GenerarFacturaCliAlb(AAlbaranes, AFechaFactura);
|
||||
end;
|
||||
|
||||
if Assigned(AAlbaranesClienteController) then
|
||||
Finalizar;
|
||||
@ -301,7 +312,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; const CopiarDetalles: Boolean = True): Boolean;
|
||||
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; FechaFacturaNueva:TDateTime; const CopiarDetalles: Boolean = True): Boolean;
|
||||
var
|
||||
AFacturaActual : IBizFacturaCliente;
|
||||
AAlbaranesController : IAlbaranesClienteController;
|
||||
@ -343,6 +354,8 @@ begin
|
||||
else begin
|
||||
// No hay factura de ese cliente. Creo una nueva
|
||||
AFacturasClienteController.Anadir(AFacturas);
|
||||
//Asignamos a la factura la fecha pasada por parametro
|
||||
AFacturas.FECHA_FACTURA := FechaFacturaNueva;
|
||||
AAlbaranesController.RecuperarCliente(AListaAlbaranes);
|
||||
AListaAlbaranes.Cliente.DataTable.Active := True;
|
||||
AFacturas.Cliente := AListaAlbaranes.Cliente;
|
||||
|
||||
@ -24,7 +24,7 @@ uses
|
||||
uPedidosClienteController, uAlbaranesClienteController, uClientesController,
|
||||
uDetallesAlbaranClienteController, uControllerDetallesBase,
|
||||
uBizContactos, schPedidosClienteClient_Intf,
|
||||
schAlbaranesClienteClient_Intf;
|
||||
schAlbaranesClienteClient_Intf, uDataTableUtils;
|
||||
|
||||
var
|
||||
dmGenerarAlbaranesCli: TdmGenerarAlbaranesCli;
|
||||
@ -100,11 +100,17 @@ begin
|
||||
//obligarle siempre a recalcular los detalles una sola vez
|
||||
ADetallesController.BeginUpdate(ADetalles);
|
||||
|
||||
AArticulosPendientes.DataTable.First;
|
||||
for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do
|
||||
//Arreglamos que el orden de los detalles del documento generado sea igual que los del documento origen
|
||||
// AArticulosPendientes.DataTable.First;
|
||||
// for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do
|
||||
APedido.Detalles.DataTable.First;
|
||||
for i := 0 to APedido.Detalles.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
APedido.Detalles.First;
|
||||
if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
|
||||
// APedido.Detalles.First;
|
||||
// if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
|
||||
AArticulosPendientes.DataTable.First;
|
||||
if (AArticulosPendientes.DataTable.Locate('ID_ARTICULO', APedido.Detalles.ID_ARTICULO, [])) then
|
||||
begin
|
||||
if (AArticulosPendientes.CANTIDAD_PENDIENTE > 0) then
|
||||
begin
|
||||
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
|
||||
@ -121,8 +127,14 @@ begin
|
||||
ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
|
||||
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
|
||||
ADetalles.Post;
|
||||
AArticulosPendientes.Next;
|
||||
// AArticulosPendientes.Next;
|
||||
end;
|
||||
|
||||
DesconectarTabla(AArticulosPendientes.DataTable);
|
||||
AArticulosPendientes.DataTable.Delete;
|
||||
ConectarTabla(AArticulosPendientes.DataTable);
|
||||
end;
|
||||
APedido.Detalles.DataTable.Next;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADetalles);
|
||||
|
||||
@ -9,6 +9,9 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Banca electronica\Controller\BancaElectronica_controller.dproj" />
|
||||
<Projects Include="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" />
|
||||
<Projects Include="..\Banca electronica\Views\BancaElectronica_view.dproj" />
|
||||
<Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
|
||||
<Projects Include="..\Tienda web\Controller\TiendaWeb_controller.dproj" />
|
||||
<Projects Include="..\Tienda web\Data\TiendaWeb_data.dproj" />
|
||||
@ -171,14 +174,41 @@
|
||||
<Target Name="TiendaWeb_plugin:Make">
|
||||
<MSBuild Projects="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_controller">
|
||||
<MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_controller:Clean">
|
||||
<MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_controller:Make">
|
||||
<MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_view">
|
||||
<MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_view:Clean">
|
||||
<MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_view:Make">
|
||||
<MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_plugin">
|
||||
<MSBuild Projects="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_plugin:Clean">
|
||||
<MSBuild Projects="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="BancaElectronica_plugin:Make">
|
||||
<MSBuild Projects="..\Banca electronica\Plugin\BancaElectronica_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data;TiendaWeb_controller;TiendaWeb_view;TiendaWeb_plugin" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data;TiendaWeb_controller;TiendaWeb_view;TiendaWeb_plugin;BancaElectronica_controller;BancaElectronica_view;BancaElectronica_plugin" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean;TiendaWeb_controller:Clean;TiendaWeb_view:Clean;TiendaWeb_plugin:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean;TiendaWeb_controller:Clean;TiendaWeb_view:Clean;TiendaWeb_plugin:Clean;BancaElectronica_controller:Clean;BancaElectronica_view:Clean;BancaElectronica_plugin:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make;TiendaWeb_controller:Make;TiendaWeb_view:Make;TiendaWeb_plugin:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make;TiendaWeb_controller:Make;TiendaWeb_view:Make;TiendaWeb_plugin:Make;BancaElectronica_controller:Make;BancaElectronica_view:Make;BancaElectronica_plugin:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
Binary file not shown.
@ -1,4 +1,5 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5e4bdd4d-597f-407c-8b0c-32e37fbd6267}</ProjectGuid>
|
||||
<MainSource>RemesasCliente_view.dpk</MainSource>
|
||||
@ -54,16 +55,17 @@
|
||||
<DelphiCompile Include="RemesasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Familias_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\frxTee11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\fsTee11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\tee.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\teeUI.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\BancaElectronica_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Familias_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\frxTee11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\fsTee11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tee.dcp" />
|
||||
<DCCReference Include="..\..\Lib\teeUI.dcp" />
|
||||
<DCCReference Include="uEditorRemesaCliente.pas">
|
||||
<Form>fEditorRemesaCliente</Form>
|
||||
<DesignClass>TfEditorRemesaCliente</DesignClass>
|
||||
|
||||
@ -55,7 +55,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
Width = 676
|
||||
ExplicitWidth = 676
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 598
|
||||
ExplicitWidth = 586
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -64,9 +64,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
end
|
||||
object TBXSeparatorItem6: TTBXSeparatorItem [11]
|
||||
end
|
||||
object TBXItem33: TTBXItem [12]
|
||||
Action = actVolcarDisco
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [12]
|
||||
Caption = 'Volcar a disco'
|
||||
DisplayMode = nbdmImageAndText
|
||||
ImageIndex = 22
|
||||
object TBXItem34: TTBXItem
|
||||
Action = actNorma19
|
||||
end
|
||||
object TBXItem33: TTBXItem
|
||||
Action = actNorma32
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
@ -560,9 +567,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
Category = 'Acciones'
|
||||
Caption = 'Volcar a disco...'
|
||||
ImageIndex = 22
|
||||
OnExecute = actVolcarDiscoExecute
|
||||
OnUpdate = actVolcarDiscoUpdate
|
||||
end
|
||||
object actNorma19: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Norma 19'
|
||||
OnExecute = actNorma19Execute
|
||||
OnUpdate = actNorma19Update
|
||||
end
|
||||
object actNorma32: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Norma 32'
|
||||
OnExecute = actNorma32Execute
|
||||
OnUpdate = actNorma32Update
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [6]
|
||||
PngImages = <
|
||||
|
||||
@ -27,8 +27,12 @@ type
|
||||
actVolcarDisco: TAction;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem7: TTBXItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
actNorma19: TAction;
|
||||
actNorma32: TAction;
|
||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXItem34: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
@ -39,7 +43,10 @@ type
|
||||
procedure frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary(
|
||||
ASender: TcxDataSummary);
|
||||
procedure actVolcarDiscoUpdate(Sender: TObject);
|
||||
procedure actVolcarDiscoExecute(Sender: TObject);
|
||||
procedure actNorma19Execute(Sender: TObject);
|
||||
procedure actNorma32Execute(Sender: TObject);
|
||||
procedure actNorma19Update(Sender: TObject);
|
||||
procedure actNorma32Update(Sender: TObject);
|
||||
private
|
||||
procedure OnRecibosChanged(Sender: TObject);
|
||||
protected
|
||||
@ -78,8 +85,7 @@ implementation
|
||||
uses
|
||||
uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
|
||||
uDataModuleRemesasCliente, uDataModuleBase, uBizFamilias, uFamiliasController,
|
||||
uFactuGES_App;
|
||||
// uBancaElectronicaController;
|
||||
uFactuGES_App, uBancaElectronicaController;
|
||||
|
||||
{
|
||||
******************************* TfEditorRemesaCliente *******************************
|
||||
@ -292,11 +298,10 @@ begin
|
||||
// HayCambios := True;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaCliente.actVolcarDiscoExecute(Sender: TObject);
|
||||
//var
|
||||
// ABancaController : IBancaElectronicaController;
|
||||
procedure TfEditorRemesaCliente.actNorma19Execute(Sender: TObject);
|
||||
var
|
||||
ABancaController : IBancaElectronicaController;
|
||||
begin
|
||||
{
|
||||
inherited;
|
||||
ABancaController := TBancaElectronicaController.Create;
|
||||
try
|
||||
@ -304,7 +309,29 @@ begin
|
||||
finally
|
||||
ABancaController := NIL;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaCliente.actNorma19Update(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := HayDatos and (not FRemesaCliente.EsNuevo);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaCliente.actNorma32Execute(Sender: TObject);
|
||||
var
|
||||
ABancaController : IBancaElectronicaController;
|
||||
begin
|
||||
inherited;
|
||||
ABancaController := TBancaElectronicaController.Create;
|
||||
try
|
||||
ABancaController.GenerarFicheroNorma32(FRemesaCliente.ID);
|
||||
finally
|
||||
ABancaController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaCliente.actNorma32Update(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := HayDatos and (not FRemesaCliente.EsNuevo);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaCliente.actVolcarDiscoUpdate(Sender: TObject);
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
|
||||
/* c:\temp\dtf3FD.tmp */
|
||||
/* c:\temp\dtfDC.tmp */
|
||||
|
||||
Binary file not shown.
@ -115,8 +115,6 @@ uses
|
||||
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
uBizAgentesServer in '..\Modulos\Contactos\Model\uBizAgentesServer.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
|
||||
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
@ -163,7 +161,9 @@ uses
|
||||
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
|
||||
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -1,392 +1,392 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 23 de septiembre de 2010 16:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
|
||||
<Form>srvImpresiones</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
|
||||
<Form>RptPedidosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
|
||||
<Form>srvRegistroCorreos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
|
||||
<Form>RptRemesasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
|
||||
<Form>srvTiendaWeb</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionOSC.pas">
|
||||
<Form>frConexionOSC</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
<DCCReference Include="Utiles\uTiendaWebUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 01 de octubre de 2010 18:59</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
|
||||
<Form>srvImpresiones</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
|
||||
<Form>RptPedidosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
|
||||
<Form>srvRegistroCorreos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
|
||||
<Form>RptRemesasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
|
||||
<Form>srvTiendaWeb</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionOSC.pas">
|
||||
<Form>frConexionOSC</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 4,0,0,0
|
||||
PRODUCTVERSION 4,0,0,0
|
||||
FILEVERSION 4,0,3,0
|
||||
PRODUCTVERSION 4,0,3,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -12,9 +12,9 @@ BEGIN
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "4.0.0.0\0"
|
||||
VALUE "ProductVersion", "4.0.0.0\0"
|
||||
VALUE "CompileDate", "viernes, 24 de septiembre de 2010 11:21\0"
|
||||
VALUE "FileVersion", "4.0.3.0\0"
|
||||
VALUE "ProductVersion", "4.0.3.0\0"
|
||||
VALUE "CompileDate", "viernes, 01 de octubre de 2010 19:02\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Reference in New Issue
Block a user