Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios para subida version 1.0.4, no sse hace tag por fallo de subida

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@118 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-05-05 11:07:11 +00:00
parent 5e3c2396f3
commit c6fd5c3a45
126 changed files with 9550 additions and 1899 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

BIN
Build/Installer.fbl6
View File

Binary file not shown.

2
Build/Installer.fbpInf
View File

@ -6,7 +6,7 @@
<propertysets/> <propertysets/>
<variables> <variables>
<project_path> <project_path>
<![CDATA[C:\Codigo Noviseda]]> <![CDATA[C:\Codigo noviseda]]>
</project_path> </project_path>
</variables> </variables>
<properties> <properties>

111
Database/scripts/factuges.sql
View File

@ -710,7 +710,9 @@ CREATE TABLE FACTURAS_CLIENTE (
RETENCION TIPO_PORCENTAJE, RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE, IMPORTE_RETENCION TIPO_IMPORTE,
DESCUENTO2 TIPO_PORCENTAJE, DESCUENTO2 TIPO_PORCENTAJE,
IMPORTE_DESCUENTO2 TIPO_IMPORTE IMPORTE_DESCUENTO2 TIPO_IMPORTE,
COMISION TIPO_PORCENTAJE,
IMPORTE_COMISION TIPO_IMPORTE
); );
CREATE TABLE FACTURAS_CLIENTE_DETALLES ( CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@ -1875,6 +1877,7 @@ CREATE VIEW V_CLIENTES(
REFERENCIA, REFERENCIA,
PAIS, PAIS,
ID_AGENTE, ID_AGENTE,
COMISION,
GRUPO_CLIENTE, GRUPO_CLIENTE,
NOMBRE_COMERCIAL, NOMBRE_COMERCIAL,
VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_1,
@ -1888,7 +1891,7 @@ CREATE VIEW V_CLIENTES(
ID_FORMA_PAGO, ID_FORMA_PAGO,
TIENDA_WEB, TIENDA_WEB,
DESCUENTO, DESCUENTO,
DESCUENTO2, DESCUENTO2,
FELICITACION) FELICITACION)
AS AS
SELECT SELECT
@ -1917,6 +1920,7 @@ SELECT
V_CONTACTOS.REFERENCIA, V_CONTACTOS.REFERENCIA,
V_CONTACTOS.PAIS, V_CONTACTOS.PAIS,
CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.ID_AGENTE,
VENDEDORES_DATOS.COMISION,
CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
@ -1935,9 +1939,9 @@ SELECT
FROM FROM
V_CONTACTOS V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
LEFT OUTER JOIN VENDEDORES_DATOS ON (CLIENTES_DATOS.ID_AGENTE = VENDEDORES_DATOS.ID_VENDEDOR)
WHERE WHERE
V_CONTACTOS.ID_CATEGORIA = 1 V_CONTACTOS.ID_CATEGORIA = 1;
;
@ -2224,49 +2228,52 @@ GROUP BY ID_FACTURA
/* View: V_FACTURAS_CLIENTE */ /* View: V_FACTURAS_CLIENTE */
CREATE VIEW V_FACTURAS_CLIENTE( CREATE VIEW V_FACTURAS_CLIENTE(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
TIPO, TIPO,
ID_COMISION_LIQUIDADA, ID_COMISION_LIQUIDADA,
FECHA_FACTURA, FECHA_FACTURA,
FECHA_VENCIMIENTO, FECHA_VENCIMIENTO,
FECHA_RETENCION, FECHA_RETENCION,
SITUACION, SITUACION,
BASE_IMPONIBLE, BASE_IMPONIBLE,
DESCUENTO, DESCUENTO,
IMPORTE_DESCUENTO, IMPORTE_DESCUENTO,
IVA, IVA,
IMPORTE_IVA, IMPORTE_IVA,
RE, RE,
IMPORTE_RE, IMPORTE_RE,
IMPORTE_TOTAL, IMPORTE_TOTAL,
OBSERVACIONES, OBSERVACIONES,
ID_CLIENTE, ID_CLIENTE,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
ID_DIRECCION, ID_DIRECCION,
CALLE, CALLE,
POBLACION, POBLACION,
PROVINCIA, PROVINCIA,
CODIGO_POSTAL, CODIGO_POSTAL,
DATOS_BANCARIOS, DATOS_BANCARIOS,
PERSONA_CONTACTO, PERSONA_CONTACTO,
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_FORMA_PAGO, ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA, RECARGO_EQUIVALENCIA,
ID_TIPO_IVA, ID_TIPO_IVA,
IMPORTE_NETO, IMPORTE_NETO,
IMPORTE_PORTE, IMPORTE_PORTE,
ID_AGENTE, ID_AGENTE,
REFERENCIA_COMISION, REFERENCIA_COMISION,
RETENCION, RETENCION,
IMPORTE_RETENCION, IMPORTE_RETENCION,
DESCUENTO2, DESCUENTO2,
IMPORTE_DESCUENTO2) IMPORTE_DESCUENTO2,
AS COMISION,
IMPORTE_COMISION)
AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
FACTURAS_CLIENTE.REFERENCIA, FACTURAS_CLIENTE.REFERENCIA,
@ -2308,15 +2315,17 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.RETENCION, FACTURAS_CLIENTE.RETENCION,
FACTURAS_CLIENTE.IMPORTE_RETENCION, FACTURAS_CLIENTE.IMPORTE_RETENCION,
FACTURAS_CLIENTE.DESCUENTO2, FACTURAS_CLIENTE.DESCUENTO2,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO2 FACTURAS_CLIENTE.IMPORTE_DESCUENTO2,
FACTURAS_CLIENTE.COMISION,
FACTURAS_CLIENTE.IMPORTE_COMISION
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
LEFT JOIN COMISIONES_LIQUIDADAS LEFT JOIN COMISIONES_LIQUIDADAS
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN CLIENTES_DATOS LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE); ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
; ;
@ -4721,7 +4730,7 @@ CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
CREATE INDEX REMESAS_CLIENTE_IDX1 ON REMESAS_CLIENTE (FECHA_REMESA); CREATE INDEX REMESAS_CLIENTE_IDX1 ON REMESAS_CLIENTE (FECHA_REMESA);
CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO); CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
CREATE INDEX REMESAS_PROVEEDOR_IDX1 ON REMESAS_PROVEEDOR (FECHA_REMESA); CREATE INDEX REMESAS_PROVEEDOR_IDX1 ON REMESAS_PROVEEDOR (FECHA_REMESA);
CREATE UNIQUE INDEX ARTICULOS_IDX1 ON ARTICULOS (REFERENCIA);
/******************************************************************************/ /******************************************************************************/
/**** Stored Procedures ****/ /**** Stored Procedures ****/

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">1</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">1.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">1.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> <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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</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">1.0.4.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">1.0.4.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> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,3,0 FILEVERSION 1,0,4,0
PRODUCTVERSION 1,0,3,0 PRODUCTVERSION 1,0,4,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.0.3.0\0" VALUE "FileVersion", "1.0.4.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.0.3.0\0" VALUE "ProductVersion", "1.0.4.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

52
Source/GUIBase/GUIBase.dproj
View File

@ -59,32 +59,32 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\Base.dcp" /> <DCCReference Include="..\Modulos\Inventario\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxExtCommonD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxPScxExtCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxPCProdD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxPScxPCProdD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Inventario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\frx11.dcp" /> <DCCReference Include="..\Modulos\Inventario\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\frxe11.dcp" /> <DCCReference Include="..\Modulos\Inventario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\fs11.dcp" /> <DCCReference Include="..\Modulos\Inventario\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Inventario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\rtl.dcp" /> <DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vcl.dcp" /> <DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vcldb.dcp" /> <DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vclx.dcp" /> <DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

11
Source/GUIBase/uEditorBase.dfm
View File

@ -94,6 +94,9 @@ object fEditorBase: TfEditorBase
Action = actGuardarCerrar Action = actGuardarCerrar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object SpTBXItem1: TSpTBXItem
Action = actGuardarYNuevo
end
object TBXItem27: TSpTBXItem object TBXItem27: TSpTBXItem
Action = actGuardar Action = actGuardar
end end
@ -395,6 +398,14 @@ object fEditorBase: TfEditorBase
ImageIndex = 20 ImageIndex = 20
OnExecute = actDuplicarExecute OnExecute = actDuplicarExecute
end end
object actGuardarYNuevo: TAction
Category = 'Archivo'
Caption = 'Guardar y nuevo'
Enabled = False
ImageIndex = 17
ShortCut = 112
Visible = False
end
end end
object SmallImages: TPngImageList object SmallImages: TPngImageList
ShareImages = True ShareImages = True

2
Source/GUIBase/uEditorBase.pas
View File

@ -109,6 +109,8 @@ type
TBXSeparatorItem15: TSpTBXSeparatorItem; TBXSeparatorItem15: TSpTBXSeparatorItem;
StatusBarImages: TPngImageList; StatusBarImages: TPngImageList;
StatusBar: TJvStatusBar; StatusBar: TJvStatusBar;
actGuardarYNuevo: TAction;
SpTBXItem1: TSpTBXItem;
procedure actCerrarExecute(Sender: TObject); procedure actCerrarExecute(Sender: TObject);
procedure actGuardarCerrarExecute(Sender: TObject); procedure actGuardarCerrarExecute(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

10
Source/GUIBase/uEditorColores.dfm
View File

@ -20,8 +20,15 @@ inherited fEditorColores: TfEditorColores
inherited pnlBotones: TPanel inherited pnlBotones: TPanel
Top = 179 Top = 179
Width = 767 Width = 767
ExplicitTop = 179 ExplicitTop = 183
ExplicitWidth = 767 ExplicitWidth = 767
object Label14: TLabel [0]
Left = 8
Top = 6
Width = 137
Height = 13
Caption = 'F1 - Aceptar Esc - Cancelar'
end
inherited btnAceptar: TButton inherited btnAceptar: TButton
Left = 595 Left = 595
Top = 6 Top = 6
@ -638,6 +645,7 @@ inherited fEditorColores: TfEditorColores
inherited ActionList1: TActionList inherited ActionList1: TActionList
Top = 0 Top = 0
inherited actAceptar: TAction inherited actAceptar: TAction
ShortCut = 112
OnExecute = actAceptarExecute OnExecute = actAceptarExecute
end end
inherited actCancelar: TAction inherited actCancelar: TAction

1
Source/GUIBase/uEditorColores.pas
View File

@ -49,6 +49,7 @@ type
lColor10: TLabel; lColor10: TLabel;
lColor11: TLabel; lColor11: TLabel;
lColor12: TLabel; lColor12: TLabel;
Label14: TLabel;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

12
Source/GUIBase/uEditorDBItem.dfm
View File

@ -8,6 +8,12 @@ inherited fEditorDBItem: TfEditorDBItem
ExplicitHeight = 495 ExplicitHeight = 495
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvEnterAsTab1: TJvEnterAsTab [0]
Left = 10
Top = 6
Width = 28
Height = 28
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 901 Width = 901
ExplicitWidth = 901 ExplicitWidth = 901
@ -66,7 +72,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
end end
end end
object pgPaginas: TPageControl [2] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 79 Top = 79
@ -77,10 +83,6 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2 TabOrder = 2
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

3
Source/GUIBase/uEditorDBItem.pas
View File

@ -11,7 +11,7 @@ uses
uViewBase, JvAppStorage, JvAppRegistryStorage, uViewBase, JvAppStorage, JvAppRegistryStorage,
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels, JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit, JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit,
cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters; cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
type type
IEditorDBItem = interface(IEditorDBBase) IEditorDBItem = interface(IEditorDBBase)
@ -23,6 +23,7 @@ type
pagGeneral: TTabSheet; pagGeneral: TTabSheet;
imgStatus: TImage; imgStatus: TImage;
lblDesbloquear: TcxLabel; lblDesbloquear: TcxLabel;
JvEnterAsTab1: TJvEnterAsTab;
procedure lblDesbloquearClick(Sender: TObject); procedure lblDesbloquearClick(Sender: TObject);
protected protected
procedure EliminarInterno; override; procedure EliminarInterno; override;

12
Source/GUIBase/uEditorGridBase.dfm
View File

@ -30,7 +30,7 @@ inherited fEditorGridBase: TfEditorGridBase
DockPos = 0 DockPos = 0
DragHandleStyle = dhDouble DragHandleStyle = dhDouble
TabOrder = 1 TabOrder = 1
ExplicitWidth = 600 ExplicitWidth = 457
inherited TBXItem29: TSpTBXItem inherited TBXItem29: TSpTBXItem
Visible = False Visible = False
end end
@ -59,10 +59,9 @@ inherited fEditorGridBase: TfEditorGridBase
inherited TBXSeparatorItem2: TSpTBXSeparatorItem [15] inherited TBXSeparatorItem2: TSpTBXSeparatorItem [15]
Visible = True Visible = True
end end
inherited TBXItem25: TSpTBXItem inherited TBXItem23: TSpTBXItem [16]
Visible = False
end end
inherited TBXSeparatorItem11: TSpTBXSeparatorItem inherited TBXItem25: TSpTBXItem
Visible = False Visible = False
end end
object TBXItem36: TSpTBXItem [19] object TBXItem36: TSpTBXItem [19]
@ -75,6 +74,9 @@ inherited fEditorGridBase: TfEditorGridBase
object TBXItem938: TSpTBXItem [21] object TBXItem938: TSpTBXItem [21]
Action = actExpandir Action = actExpandir
end end
inherited TBXSeparatorItem11: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem28: TSpTBXItem inherited TBXItem28: TSpTBXItem
Visible = False Visible = False
end end
@ -256,6 +258,8 @@ inherited fEditorGridBase: TfEditorGridBase
object actExportarExcel: TAction object actExportarExcel: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Exportar a fichero Excel...' Caption = 'Exportar a fichero Excel...'
Enabled = False
Visible = False
OnExecute = actExportarExcelExecute OnExecute = actExportarExcelExecute
OnUpdate = actExportarExcelUpdate OnUpdate = actExportarExcelUpdate
end end

65
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -1,26 +1,25 @@
inherited frViewFiltroBase: TfrViewFiltroBase inherited frViewFiltroBase: TfrViewFiltroBase
Width = 549 Width = 629
Height = 109 Height = 136
Visible = False Visible = False
ExplicitWidth = 549 ExplicitWidth = 629
ExplicitHeight = 109 ExplicitHeight = 136
object TBXDockablePanel1: TSpTBXDockablePanel object TBXDockablePanel1: TSpTBXDockablePanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 549 Width = 629
Height = 109 Height = 136
Caption = 'TBXDockablePanel1' Caption = 'TBXDockablePanel1'
Align = alClient Align = alClient
DockMode = dmCannotFloatOrChangeDocks DockMode = dmCannotFloatOrChangeDocks
TabOrder = 0 TabOrder = 0
ShowCaption = False ShowCaption = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
ExplicitHeight = 105
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 549 Width = 629
Height = 73 Height = 97
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -67,7 +66,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100 Width = 100
end end
object edtFechaFinFiltro: TcxDateEdit object edtFechaFinFiltro: TcxDateEdit
Left = 198 Left = 225
Top = 37 Top = 37
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.HotTrack = False Style.HotTrack = False
@ -87,7 +86,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100 Width = 100
end end
object eLista: TcxComboBox object eLista: TcxComboBox
Left = 332 Left = 375
Top = 37 Top = 37
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
@ -99,6 +98,27 @@ inherited frViewFiltroBase: TfrViewFiltroBase
TabOrder = 3 TabOrder = 3
Width = 215 Width = 215
end end
object edtNumFinFiltro: TcxSpinEdit
Left = 225
Top = 64
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Properties.ValueType = vtInt
Properties.OnChange = OnCamposFiltroChange
Style.HotTrack = False
TabOrder = 5
Width = 113
end
object edtNumIniFiltro: TcxSpinEdit
Left = 87
Top = 64
Properties.ImmediatePost = True
Properties.SpinButtons.Visible = False
Properties.OnChange = OnCamposFiltroChange
Style.HotTrack = False
TabOrder = 4
Width = 121
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
AlignHorz = ahParentManaged AlignHorz = ahParentManaged
AlignVert = avParentManaged AlignVert = avParentManaged
@ -137,13 +157,30 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object lgroupnum: TdxLayoutGroup
CaptionOptions.Text = 'New Group'
Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
CaptionOptions.Text = 'Entre el:'
Control = edtNumIniFiltro
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
CaptionOptions.Text = 'y'
Control = edtNumFinFiltro
ControlOptions.ShowBorder = False
end
end
end end
end end
object TBXAlignmentPanel1: TSpTBXDockablePanel object TBXAlignmentPanel1: TSpTBXDockablePanel
AlignWithMargins = True AlignWithMargins = True
Left = 10 Left = 10
Top = 73 Top = 97
Width = 539 Width = 619
Height = 30 Height = 30
Margins.Left = 10 Margins.Left = 10
Margins.Top = 0 Margins.Top = 0
@ -156,7 +193,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
object tbxBotones: TSpTBXToolbar object tbxBotones: TSpTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 539 Width = 619
Height = 30 Height = 30
Align = alTop Align = alTop
AutoResize = False AutoResize = False

25
Source/GUIBase/uViewFiltroBase.pas
View File

@ -8,7 +8,7 @@ uses
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit, cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, uDMBase, cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, uDMBase,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, cxSpinEdit;
type type
IViewFiltroBase = interface(IViewBase) IViewFiltroBase = interface(IViewBase)
@ -45,6 +45,11 @@ type
TBXAlignmentPanel1: TSpTBXDockablePanel; TBXAlignmentPanel1: TSpTBXDockablePanel;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
eLista: TcxComboBox; eLista: TcxComboBox;
edtNumFinFiltro: TcxSpinEdit;
dxLayoutControl1Item5: TdxLayoutItem;
edtNumIniFiltro: TcxSpinEdit;
dxLayoutControl1Item6: TdxLayoutItem;
lgroupnum: TdxLayoutGroup;
procedure OnCamposFiltroChange(Sender: TObject); procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject);
@ -59,10 +64,10 @@ type
procedure SetTexto(const Value: String); procedure SetTexto(const Value: String);
protected protected
procedure LimpiarCampos; virtual;
function ValidarCampos: Boolean; virtual; function ValidarCampos: Boolean; virtual;
public public
procedure LimpiarCampos; virtual;
function GetModified: Boolean; function GetModified: Boolean;
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange; property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros; property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros;
@ -108,6 +113,9 @@ begin
txtFiltroTodo.Clear; txtFiltroTodo.Clear;
edtFechaIniFiltro.Clear; edtFechaIniFiltro.Clear;
edtFechaFinFiltro.Clear; edtFechaFinFiltro.Clear;
eLista.Clear;
edtNumIniFiltro.Clear;
edtNumFinFiltro.Clear;
end; end;
procedure TfrViewFiltroBase.OnCamposFiltroChange(Sender: TObject); procedure TfrViewFiltroBase.OnCamposFiltroChange(Sender: TObject);
@ -129,7 +137,18 @@ begin
edtFechaIniFiltro.SetFocus; edtFechaIniFiltro.SetFocus;
Result := False; Result := False;
end end
end; end;
if (lgroupnum.Visible) then
if (VarIsNull(edtNumIniFiltro.Value <> 0) and (edtNumFinFiltro.Value <> 0)) then
begin
if (edtNumIniFiltro.Value > edtNumFinFiltro.Value) then
begin
ShowWarningMessage('La cantidad de inicio debe ser inferior a la cantidad final');
edtNumIniFiltro.SetFocus;
Result := False;
end
end;
end; end;
procedure TfrViewFiltroBase.actQuitarFiltroExecute(Sender: TObject); procedure TfrViewFiltroBase.actQuitarFiltroExecute(Sender: TObject);

56
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -54,34 +54,34 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Almacenes_controller.dcp" /> <DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxExtEditorsD11.dcp" /> <DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxPageControlD11.dcp" /> <DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxComnD11.dcp" /> <DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxLayoutControlD11.dcp" /> <DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" /> <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>

6
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -4,8 +4,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
ExplicitWidth = 802 ExplicitWidth = 802
ExplicitHeight = 490 ExplicitHeight = 490
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 65
Width = 802 Width = 802
Height = 362 Height = 399
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 802 ExplicitWidth = 802
@ -193,9 +194,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 802 Width = 802
Height = 65
ExplicitWidth = 802 ExplicitWidth = 802
ExplicitHeight = 65
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 802 Width = 802
Height = 65
ExplicitWidth = 802 ExplicitWidth = 802
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 802 Width = 802

16
Source/Modulos/Articulos/Articulos_Group.groupproj
View File

@ -13,6 +13,7 @@
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" /> <Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Inventario\Views\Inventario_view.dproj" /> <Projects Include="..\Inventario\Views\Inventario_view.dproj" />
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="Controller\Articulos_controller.dproj" /> <Projects Include="Controller\Articulos_controller.dproj" />
<Projects Include="Data\Articulos_data.dproj" /> <Projects Include="Data\Articulos_data.dproj" />
@ -161,14 +162,23 @@
<Target Name="PresupuestosCliente_view:Make"> <Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PedidosCliente_view">
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
</Target>
<Target Name="PedidosCliente_view:Clean">
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosCliente_view:Make">
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;FacturasCliente_model;Inventario_view;PresupuestosCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;FacturasCliente_model;Inventario_view;PresupuestosCliente_view;PedidosCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;FacturasCliente_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;FacturasCliente_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean;PedidosCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;FacturasCliente_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;FacturasCliente_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make;PedidosCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

5
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -103,8 +103,8 @@ type
implementation implementation
uses uses
cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf, uFactuGES_App, cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf,
uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos, uFactuGES_App, uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos,
uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces, Dialogs, uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces, Dialogs,
uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows; uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows;
@ -652,6 +652,7 @@ begin
AArticulo.DataTable.ApplyUpdates; AArticulo.DataTable.ApplyUpdates;
Result := True; Result := True;
finally finally
//Para que no salten los eventos de calculo de PVP que daría un pete importante //Para que no salten los eventos de calculo de PVP que daría un pete importante
AArticulo.DataTable.EnableControls; AArticulo.DataTable.EnableControls;

16
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -55,14 +55,14 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_controller.dcp" /> <DCCReference Include="..\..\Inventario\Articulos_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" /> <DCCReference Include="..\..\Inventario\Articulos_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_view.dcp" /> <DCCReference Include="..\..\Inventario\Contactos_view.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Fabricantes_controller.dcp" /> <DCCReference Include="..\..\Inventario\Fabricantes_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Familias_controller.dcp" /> <DCCReference Include="..\..\Inventario\Familias_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" /> <DCCReference Include="..\..\Inventario\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Inventario\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\UnidadesMedida_controller.dcp" /> <DCCReference Include="..\..\Inventario\UnidadesMedida_controller.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>

230
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -45,25 +45,28 @@ inherited fEditorArticulo: TfEditorArticulo
Width = 905 Width = 905
ExplicitWidth = 905 ExplicitWidth = 905
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 331
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
Visible = False Visible = False
end end
inherited SpTBXItem1: TSpTBXItem
DisplayMode = nbdmImageAndText
end
inherited TBXItem5: TSpTBXItem inherited TBXItem5: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem23: TSpTBXItem inherited TBXItem23: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem3: TSpTBXItem
Visible = False
end
object TBXSeparatorItem6: TSpTBXSeparatorItem [11] object TBXSeparatorItem6: TSpTBXSeparatorItem [11]
end end
object TBXItem33: TSpTBXItem [12] object TBXItem33: TSpTBXItem [12]
Action = actFamilias Action = actFamilias
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
inherited TBXItem3: TSpTBXItem
Visible = False
end
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
DockPos = 0 DockPos = 0
@ -111,6 +114,146 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 891 ExplicitWidth = 891
ExplicitHeight = 376 ExplicitHeight = 376
inline frViewArticulo1: TfrViewArticulo
Left = 0
Top = 0
Width = 891
Height = 376
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitTop = 76
ExplicitWidth = 905
ExplicitHeight = 410
inherited dxLayoutControlArticulo: TdxLayoutControl
Width = 891
Height = 376
ExplicitWidth = 905
ExplicitHeight = 410
inherited PngSpeedButton2: TPngSpeedButton
Left = 829
ExplicitLeft = 829
end
inherited PngSpeedButton1: TPngSpeedButton
Left = 829
ExplicitLeft = 829
end
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited eNoComisionable: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited eImagen: TcxImage
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 355
ExplicitHeight = 98
Height = 98
Width = 355
end
inherited cbFamilia: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited cbNoInventariable: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited cbUnidadMedida: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited cbFabricante: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end
inherited eReferenciaFabr: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eCodigo: TcxDBTextEdit
Left = 506
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 506
ExplicitWidth = 300
Width = 300
end
inherited eCampoTecnico: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 727
Width = 727
end
inherited ePrecio: TcxDBCurrencyEdit
Left = 653
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 653
ExplicitWidth = 300
Width = 300
end
inherited eDiseno: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 744
Width = 744
end
end
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -119,6 +262,12 @@ inherited fEditorArticulo: TfEditorArticulo
Panels = < Panels = <
item item
Width = 200 Width = 200
end
item
Text =
'F1 - Guardar y nuevo Ctrl + F1 - Guardar Ctrl + Del - El' +
'iminar Esc - Cerrar'
Width = 50
end> end>
ExplicitTop = 486 ExplicitTop = 486
ExplicitWidth = 905 ExplicitWidth = 905
@ -126,6 +275,55 @@ inherited fEditorArticulo: TfEditorArticulo
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 40 Left = 40
Top = 128 Top = 128
inherited actGuardarCerrar: TAction
Enabled = False
Visible = False
end
inherited actGuardarYNuevo: TAction [3]
Enabled = True
Visible = True
OnExecute = actGuardarYNuevoExecute
end
inherited actGuardar: TAction [4]
ShortCut = 16496
end
inherited actEliminar: TAction [5]
ShortCut = 16430
end
inherited actConfPagina: TAction [6]
end
inherited actPrevisualizar: TAction [7]
end
inherited actImprimir: TAction [8]
end
inherited actDeshacer: TEditUndo [9]
end
inherited actCortar: TEditCut [10]
end
inherited actCerrar: TAction [11]
end
inherited actCopiar: TEditCopy [12]
end
inherited actPegar: TEditPaste [13]
end
inherited actSeleccionarTodo: TEditSelectAll [14]
end
inherited actLimpiar: TEditDelete [15]
end
inherited actRefrescar: TAction [16]
end
inherited actAcercaDe: TAction [17]
end
inherited actBuscar: TAction [18]
end
inherited actAnterior: TAction [19]
end
inherited actSiguiente: TAction [20]
end
inherited actCancelarCambios: TAction [21]
end
inherited actDuplicar: TAction [22]
end
object actFamilias: TAction object actFamilias: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Familias' Caption = 'Familias'
@ -136,7 +334,18 @@ inherited fEditorArticulo: TfEditorArticulo
OnExecute = actFamiliasExecute OnExecute = actFamiliasExecute
end end
end end
inherited SmallImages: TPngImageList inherited dsDataTable: TDADataSource [6]
Left = 8
Top = 128
end
inherited LargeImages: TPngImageList
Top = 112
end
inherited JvFormStorage: TJvFormStorage
Left = 400
Top = 152
end
inherited SmallImages: TPngImageList [9]
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -642,17 +851,6 @@ inherited fEditorArticulo: TfEditorArticulo
Top = 112 Top = 112
Bitmap = {} Bitmap = {}
end end
inherited dsDataTable: TDADataSource [6]
Left = 8
Top = 128
end
inherited LargeImages: TPngImageList [7]
Top = 112
end
inherited JvFormStorage: TJvFormStorage [8]
Left = 400
Top = 152
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 432 Left = 432
Top = 152 Top = 152

31
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -19,17 +19,19 @@ uses
cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico, cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico,
uViewArticulosProveedores, dxLayoutControl, cxContainer, uViewArticulosProveedores, dxLayoutControl, cxContainer,
cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit, cxLabel, cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit, cxLabel,
cxLookAndFeels, cxLookAndFeelPainters; cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
type type
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo) TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
TBXItem33: TSpTBXItem; TBXItem33: TSpTBXItem;
actFamilias: TAction; actFamilias: TAction;
TBXSeparatorItem6: TSpTBXSeparatorItem; TBXSeparatorItem6: TSpTBXSeparatorItem;
frViewArticulo1: TfrViewArticulo;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actFamiliasExecute(Sender: TObject); procedure actFamiliasExecute(Sender: TObject);
procedure actGuardarYNuevoExecute(Sender: TObject);
protected protected
FController : IArticulosController; FController : IArticulosController;
FArticulo: IBizArticulo; FArticulo: IBizArticulo;
@ -86,7 +88,19 @@ end;
procedure TfEditorArticulo.GuardarInterno; procedure TfEditorArticulo.GuardarInterno;
begin begin
inherited; inherited;
FController.Guardar(FArticulo); try
FController.Guardar(FArticulo);
except
on E: Exception do
begin
if (Pos('ARTICULOS_IDX1', E.Message) > 0) then
begin
frViewArticulo1.eReferencia.SetFocus;
raise Exception.Create ('No se puede guardar este artículo porque, ya existe un artículo con esa referencia');
end;
end;
end;
Modified := False; Modified := False;
end; end;
@ -172,11 +186,22 @@ begin
end; end;
end; end;
procedure TfEditorArticulo.actGuardarYNuevoExecute(Sender: TObject);
begin
ShowHourglassCursor;
try
if actGuardar.Execute then
FController.Anadir(Articulo);
finally
HideHourglassCursor;
end;
end;
procedure TfEditorArticulo.AsignarVista; procedure TfEditorArticulo.AsignarVista;
var var
AViewArticulo: TfrViewArticulo; AViewArticulo: TfrViewArticulo;
begin begin
AViewArticulo := TfrViewArticulo.create(Self); AViewArticulo := frViewArticulo1;
with AViewArticulo do with AViewArticulo do
begin begin
Parent := pagGeneral; Parent := pagGeneral;

91
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -9,7 +9,7 @@ inherited fEditorArticulos: TfEditorArticulos
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 822 Width = 822
Caption = 'Lista de articulos' Caption = 'Lista de articulos'
ExplicitWidth = 657 ExplicitWidth = 822
inherited Image1: TImage inherited Image1: TImage
Left = 795 Left = 795
Picture.Data = { Picture.Data = {
@ -31,33 +31,20 @@ inherited fEditorArticulos: TfEditorArticulos
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 632
end end
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 287
inherited TBXItem37: TSpTBXItem
Enabled = False
Visible = False
end
inherited cbxListaAnos: TSpTBXComboBox
Left = 129
ExplicitLeft = 129
end
end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 822 ExplicitWidth = 822
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 287
DockPos = 267 DockPos = 267
ExplicitLeft = 287
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
end end
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
@ -69,17 +56,14 @@ inherited fEditorArticulos: TfEditorArticulos
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
OnChange = pgPaginasChange OnChange = pgPaginasChange
ExplicitWidth = 651
object pagArticulos: TTabSheet object pagArticulos: TTabSheet
Caption = 'Todos los art'#237'culos' Caption = 'Todos los art'#237'culos'
ExplicitWidth = 643
end end
object pagArticulosPorProveedor: TTabSheet object pagArticulosPorProveedor: TTabSheet
Caption = 'Art'#237'culos por proveedor' Caption = 'Art'#237'culos por proveedor'
Enabled = False Enabled = False
ImageIndex = 1 ImageIndex = 1
TabVisible = False TabVisible = False
ExplicitWidth = 643
inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor
Left = 0 Left = 0
Top = 0 Top = 0
@ -94,13 +78,13 @@ inherited fEditorArticulos: TfEditorArticulos
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 643 ExplicitWidth = 808
ExplicitHeight = 349 ExplicitHeight = 349
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 808 Width = 808
Height = 119 Height = 221
ExplicitWidth = 808 ExplicitWidth = 808
ExplicitHeight = 119 ExplicitHeight = 221
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -112,13 +96,13 @@ inherited fEditorArticulos: TfEditorArticulos
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 808 Width = 808
ExplicitWidth = 643 ExplicitWidth = 808
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 808 Width = 808
ExplicitWidth = 643 ExplicitWidth = 808
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 808 Width = 808
ExplicitWidth = 643 ExplicitWidth = 808
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -132,48 +116,51 @@ inherited fEditorArticulos: TfEditorArticulos
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 157
Width = 157
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 456 Left = 439
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitLeft = 439
ExplicitWidth = 145
Width = 145
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 766 Left = 739
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 766 ExplicitLeft = 739
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 798 Width = 798
ExplicitWidth = 633 ExplicitWidth = 798
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 798 Width = 798
ExplicitWidth = 633 ExplicitWidth = 798
end end
end end
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 221 Top = 323
Width = 808 Width = 808
ExplicitTop = 323 ExplicitTop = 323
ExplicitWidth = 643 ExplicitWidth = 808
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 808 Width = 808
ExplicitTop = 0 ExplicitWidth = 808
ExplicitWidth = 643
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 808 Width = 808
ExplicitWidth = 643 ExplicitWidth = 808
end end
end end
end end
@ -209,13 +196,13 @@ inherited fEditorArticulos: TfEditorArticulos
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 657 ExplicitWidth = 822
ExplicitHeight = 383 ExplicitHeight = 383
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 822 Width = 822
Height = 256 Height = 256
ExplicitWidth = 657 ExplicitWidth = 822
ExplicitHeight = 153 ExplicitHeight = 256
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -227,13 +214,13 @@ inherited fEditorArticulos: TfEditorArticulos
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -247,32 +234,36 @@ inherited fEditorArticulos: TfEditorArticulos
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 157
Width = 157
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 463 Left = 446
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 463 ExplicitLeft = 446
ExplicitWidth = 145
Width = 145
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 779 Left = 752
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 779 ExplicitLeft = 752
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 812 Width = 812
ExplicitWidth = 647 ExplicitWidth = 812
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 812 Width = 812
ExplicitWidth = 647 ExplicitWidth = 812
end end
end end
end end
@ -284,10 +275,10 @@ inherited fEditorArticulos: TfEditorArticulos
ExplicitWidth = 822 ExplicitWidth = 822
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 822 Width = 822
ExplicitWidth = 657 ExplicitWidth = 822
end end
end end
end end

7
Source/Modulos/Articulos/Views/uEditorArticulos.pas
View File

@ -26,6 +26,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actFamiliasExecute(Sender: TObject); procedure actFamiliasExecute(Sender: TObject);
procedure pgPaginasChange(Sender: TObject); procedure pgPaginasChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
private private
FArticulos: IBizArticulo; FArticulos: IBizArticulo;
FArticulosPorProveedor: IBizArticulo; FArticulosPorProveedor: IBizArticulo;
@ -332,6 +333,12 @@ begin
end; end;
end; end;
procedure TfEditorArticulos.actQuitarFiltroExecute(Sender: TObject);
begin
inherited;
frViewArticulos1.frViewFiltroBase1actQuitarFiltroExecute(Sender);
end;
constructor TfEditorArticulos.Create(AOwner: TComponent); constructor TfEditorArticulos.Create(AOwner: TComponent);
begin begin
inherited; inherited;

28
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,27 +1,26 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 658 Width = 451
Height = 504 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 658 Width = 451
Height = 504 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
658 451
504) 304)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 613 Left = 389
Top = 358 Top = 358
Width = 23 Width = 23
Height = 22 Height = 22
@ -48,7 +47,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 613 Left = 389
Top = 386 Top = 386
Width = 23 Width = 23
Height = 22 Height = 22
@ -63,7 +62,7 @@ inherited frViewArticulo: TfrViewArticulo
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -297,13 +296,13 @@ inherited frViewArticulo: TfrViewArticulo
Width = 171 Width = 171
end end
object eCodigo: TcxDBTextEdit object eCodigo: TcxDBTextEdit
Left = 392 Left = 273
Top = 28 Top = 28
DataBinding.DataField = 'CODIGOTECNICO' DataBinding.DataField = 'CODIGOTECNICO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = clWindow
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -345,13 +344,14 @@ inherited frViewArticulo: TfrViewArticulo
Width = 727 Width = 727
end end
object ePrecio: TcxDBCurrencyEdit object ePrecio: TcxDBCurrencyEdit
Left = 499 Left = 340
Top = 109 Top = 109
DataBinding.DataField = 'PRECIO' DataBinding.DataField = 'PRECIO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True

10
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -11,7 +11,8 @@ uses
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit, uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit,
uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces, uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, JvExControls,
JvEnterTab;
type type
IViewArticulo = interface(IViewBase) IViewArticulo = interface(IViewBase)
@ -87,6 +88,7 @@ type
procedure cbFabricantePropertiesInitPopup(Sender: TObject); procedure cbFabricantePropertiesInitPopup(Sender: TObject);
procedure cbFabricantePropertiesValidate(Sender: TObject; procedure cbFabricantePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewShow(Sender: TObject);
private private
procedure CargarImagen; procedure CargarImagen;
procedure SalvarImagen; procedure SalvarImagen;
@ -321,6 +323,12 @@ begin
inherited; inherited;
end; end;
procedure TfrViewArticulo.CustomViewShow(Sender: TObject);
begin
inherited;
eReferencia.SetFocus;
end;
function TfrViewArticulo.GetArticulo: IBizArticulo; function TfrViewArticulo.GetArticulo: IBizArticulo;
begin begin
Result := FArticulo; Result := FArticulo;

27
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -8,7 +8,7 @@ inherited frViewArticulos: TfrViewArticulos
Width = 715 Width = 715
Height = 330 Height = 330
ExplicitWidth = 715 ExplicitWidth = 715
ExplicitHeight = 232 ExplicitHeight = 330
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID' DataController.KeyFieldNames = 'RecID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -79,6 +79,10 @@ inherited frViewArticulos: TfrViewArticulos
object cxGridViewPRECIO: TcxGridDBColumn object cxGridViewPRECIO: TcxGridDBColumn
Caption = 'Precio' Caption = 'Precio'
DataBinding.FieldName = 'PRECIO' DataBinding.FieldName = 'PRECIO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
@ -107,28 +111,23 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 376 Left = 355
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376 ExplicitLeft = 355
ExplicitWidth = 221
Width = 221
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 634 Left = 598
Properties.DropDownRows = 20 Properties.DropDownRows = 20
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 634 ExplicitLeft = 598
ExplicitWidth = 71 ExplicitWidth = 71
Width = 71 Width = 71
end end
@ -141,6 +140,9 @@ inherited frViewArticulos: TfrViewArticulos
Visible = False Visible = False
end end
end end
inherited lgroupnum: TdxLayoutGroup
Visible = True
end
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
@ -167,11 +169,9 @@ inherited frViewArticulos: TfrViewArticulos
ExplicitHeight = 25 ExplicitHeight = 25
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 715 Width = 715
ExplicitTop = 0
ExplicitWidth = 715 ExplicitWidth = 715
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 715 Width = 715
ExplicitTop = 0
ExplicitWidth = 715 ExplicitWidth = 715
object TBXSeparatorItem1: TSpTBXSeparatorItem object TBXSeparatorItem1: TSpTBXSeparatorItem
end end
@ -192,9 +192,6 @@ inherited frViewArticulos: TfrViewArticulos
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 360 Left = 360
Top = 280 Top = 280

34
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -58,13 +58,15 @@ type
procedure actFabricanteUpdate(Sender: TObject); procedure actFabricanteUpdate(Sender: TObject);
procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDataControllerCompare( procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private
procedure AnadirFiltroReferencias;
protected protected
FArticulos: IBizArticulo; FArticulos: IBizArticulo;
FController: IArticulosController; FController: IArticulosController;
@ -154,10 +156,31 @@ begin
(Sender as TAction).Checked := not (cxGridViewFAMILIA.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewFAMILIA.GroupIndex < 0);
end; end;
procedure TfrViewArticulos.AnadirFiltroReferencias;
var
Columna: TcxGridDBColumn;
Referencia1, Referencia2: Variant;
FFiltro : TcxFilterCriteriaItemList;
begin
Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value;
Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value;
if (Referencia1 <> 0) and (Referencia2 <> 0) then
begin
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
FFiltro := AddFilterGrid(fboAnd);
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA');
FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2));
end;
end;
procedure TfrViewArticulos.AnadirOtrosFiltros; procedure TfrViewArticulos.AnadirOtrosFiltros;
begin begin
inherited; inherited;
AnadirFiltroReferencias;
//Finalmente activamos el filtro si tenemos algo //Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False then cxGridView.DataController.Filter.Active := False
@ -197,14 +220,7 @@ end;
procedure TfrViewArticulos.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); procedure TfrViewArticulos.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
begin begin
frViewFiltroBase1.txtFiltroTodo.Clear; frViewFiltroBase1.LimpiarCampos;
frViewFiltroBase1.eLista.Clear;
end;
procedure TfrViewArticulos.frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
begin
inherited;
RefrescarFiltro;
end; end;
end. end.

67
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -2,52 +2,99 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ParentBiDiMode = False ParentBiDiMode = False
OnShow = CustomViewShow OnShow = CustomViewShow
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 73
ExplicitHeight = 73
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Top = 22
ExplicitTop = 22
end
inherited FontSize: TEdit inherited FontSize: TEdit
Top = 22
Width = 42 Width = 42
ExplicitTop = 22
ExplicitWidth = 42 ExplicitWidth = 42
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 187 Left = 187
Top = 22
Width = 17 Width = 17
ExplicitLeft = 187 ExplicitLeft = 187
ExplicitTop = 22
ExplicitWidth = 17 ExplicitWidth = 17
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 204 Left = 204
Top = 22
ExplicitLeft = 204 ExplicitLeft = 204
ExplicitTop = 22
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 212 Left = 212
Top = 22
ExplicitLeft = 212 ExplicitLeft = 212
ExplicitTop = 22
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 278 Left = 278
Top = 22
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 22
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 345 Left = 345
Top = 22
ExplicitLeft = 345 ExplicitLeft = 345
ExplicitTop = 22
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 428 Left = 0
ExplicitLeft = 428 Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 436 Left = 0
ExplicitLeft = 436 Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 581 Left = 145
ExplicitLeft = 581 Top = 49
ExplicitLeft = 145
ExplicitTop = 49
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 706 Left = 270
ExplicitLeft = 706 Top = 49
ExplicitLeft = 270
ExplicitTop = 49
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
ExplicitTop = 121 Top = 99
Height = 205
ExplicitTop = 99
ExplicitHeight = 205
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OptionsSelection.CellMultiSelect = True
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
MinWidth = 69 MinWidth = 69
Width = 69 Width = 69
@ -135,7 +182,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end end
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
ExplicitTop = 100 Top = 73
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
inherited TBXSubmenuItem1: TSpTBXSubmenuItem inherited TBXSubmenuItem1: TSpTBXSubmenuItem
object TBXSeparatorItem8: TSpTBXSeparatorItem [4] object TBXSeparatorItem8: TSpTBXSeparatorItem [4]

134
Source/Modulos/Comisiones/Comisiones_Group.groupproj Normal file
View File

@ -0,0 +1,134 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{4fc2fdb5-faa5-4b92-afc6-33a803d10c02}</ProjectGuid>
</PropertyGroup>
<ItemGroup />
<ItemGroup>
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
<Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="Data\Comisiones_data.dproj" />
<Projects Include="Model\Comisiones_model.dproj" />
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
</Target>
<Target Name="Base:Clean">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
</Target>
<Target Name="Base:Make">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
</Target>
<Target Name="GUIBase">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
</Target>
<Target Name="GUIBase:Clean">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
</Target>
<Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target>
<Target Name="ApplicationBase">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
</Target>
<Target Name="ApplicationBase:Clean">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
</Target>
<Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_model">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
</Target>
<Target Name="Contactos_model:Clean">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_data">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
</Target>
<Target Name="Contactos_data:Clean">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Comisiones_model">
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="" />
</Target>
<Target Name="Comisiones_model:Clean">
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="Clean" />
</Target>
<Target Name="Comisiones_model:Make">
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="Make" />
</Target>
<Target Name="Comisiones_data">
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="" />
</Target>
<Target Name="Comisiones_data:Clean">
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="Clean" />
</Target>
<Target Name="Comisiones_data:Make">
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Comisiones_model;Comisiones_data;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Comisiones_model:Clean;Comisiones_data:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Comisiones_model:Make;Comisiones_data:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

BIN
Source/Modulos/Comisiones/Data/Comisiones_data.dpk Normal file
View File

Binary file not shown.

584
Source/Modulos/Comisiones/Data/Comisiones_data.dproj Normal file
View File

@ -0,0 +1,584 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{26de542f-970f-4e56-aaf6-401887defb78}</ProjectGuid>
<MainSource>Comisiones_data.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_data.bpl</DCC_DependencyCheckOutputName>
</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_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="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">Comisiones_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Comisiones_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Comisiones_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uDataModuleComisiones.pas">
<Form>DataModuleVendedores</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

BIN
Source/Modulos/Comisiones/Data/Comisiones_data.res Normal file
View File

Binary file not shown.

174
Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm Normal file
View File

@ -0,0 +1,174 @@
inherited DataModuleComisiones: TDataModuleComisiones
OnCreate = DAClientDataModuleCreate
Height = 269
Width = 387
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvComisiones'
Left = 48
Top = 24
end
object rda_Comisiones: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 143
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
object tbl_Comisiones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FECHA'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_Comisiones
LogicalName = 'Comisiones'
IndexDefs = <>
Left = 168
Top = 192
end
object ds_Comisiones: TDADataSource
DataSet = tbl_Comisiones.Dataset
DataTable = tbl_Comisiones
Left = 168
Top = 136
end
object tbl_FacturasComision: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'COMISION'
DataType = datCurrency
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_Comisiones
MasterSource = ds_Comisiones
MasterFields = 'ID'
DetailFields = 'ID_COMISION_LIQUIDADA'
LogicalName = 'FacturasComision'
IndexDefs = <>
Left = 264
Top = 192
end
object ds_FacturasComision: TDADataSource
DataSet = tbl_FacturasComision.Dataset
DataTable = tbl_FacturasComision
Left = 264
Top = 136
end
object tbl_ListaAnosComisiones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_Comisiones
LogicalName = 'ListaAnosComisiones'
IndexDefs = <>
Left = 168
Top = 72
end
object ds_ListaAnosComisiones: TDADataSource
DataSet = tbl_ListaAnosComisiones.Dataset
DataTable = tbl_ListaAnosComisiones
Left = 168
Top = 16
end
end

165
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas Normal file
View File

@ -0,0 +1,165 @@
unit uDataModuleComisiones;
interface
uses
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage,
uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport,
uDADesigntimeCall, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter;
type
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport)
RORemoteService: TRORemoteService;
rda_Comisiones: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer;
tbl_Comisiones: TDAMemDataTable;
ds_Comisiones: TDADataSource;
tbl_FacturasComision: TDAMemDataTable;
ds_FacturasComision: TDADataSource;
tbl_ListaAnosComisiones: TDAMemDataTable;
ds_ListaAnosComisiones: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetFacturasComision : IBizFacturasComision;
public
function GetAnosItems : TStringList;
function GetItems : IBizComision;
function GetItem(const ID : Integer) : IBizComision;
function NewItem : IBizComision;
// Report
// function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
end;
implementation
{$R *.DFM}
uses
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
schComisionesClient_Intf, uBizContactos, Dialogs;
{ TdmComisiones }
procedure TDataModuleComisiones.DAClientDataModuleCreate(Sender: TObject);
begin
RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message;
end;
{
function TDataModuleComisiones.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad);
finally
// FreeANDNIL(AParam);
end;
end;
}
function TDataModuleComisiones.NewItem: IBizComision;
begin
Result := GetItem(ID_NULO)
end;
function TDataModuleComisiones._GetFacturasComision: IBizFacturasComision;
var
AFacturasComision : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AFacturasComision := CloneDataTable(tbl_FacturasComision);
with AFacturasComision do
begin
BusinessRulesID := BIZ_CLIENT_FACTURASCOMISION;
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (AFacturasComision as IBizFacturasComision);
finally
HideHourglassCursor;
end;
end;
function TDataModuleComisiones.GetItem(const ID: Integer): IBizComision;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TDataModuleComisiones.GetAnosItems: TStringList;
var
AListaAnos: TStringList;
begin
AListaAnos := TStringList.Create;
ShowHourglassCursor;
try
with tbl_ListaAnosComisiones do
begin
Open;
First;
while not eof do
begin
AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString]));
Next;
end;
Close;
end;
Result := AListaAnos;
finally
HideHourglassCursor;
end;
end;
function TDataModuleComisiones.GetItems: IBizComision;
var
AComision : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AComision := CloneDataTable(tbl_Comisiones);
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
AComision.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
AComision.BusinessRulesID := BIZ_CLIENT_COMISIONES;
with TBizComision(AComision.BusinessEventsObj) do
begin
FacturasComision := _GetFacturasComision;
end;
Result := (AComision as IBizComision);
finally
HideHourglassCursor;
end;
end;
end.

BIN
Source/Modulos/Comisiones/Model/Comisiones_model.dpk Normal file
View File

Binary file not shown.

544
Source/Modulos/Comisiones/Model/Comisiones_model.dproj Normal file
View File

@ -0,0 +1,544 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ed454295-ce74-4b0c-9303-cdc58434faae}</ProjectGuid>
<MainSource>Comisiones_model.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_model.bpl</DCC_DependencyCheckOutputName>
</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_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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">Comisiones_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Comisiones_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Data\adortl.dcp" />
<DCCReference Include="Data\Base.dcp" />
<DCCReference Include="Data\Contactos_model.dcp" />
<DCCReference Include="Data\cxLibraryD11.dcp" />
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\dbrtl.dcp" />
<DCCReference Include="Data\dsnap.dcp" />
<DCCReference Include="Data\dxCoreD11.dcp" />
<DCCReference Include="Data\dxGDIPlusD11.dcp" />
<DCCReference Include="Data\dxThemeD11.dcp" />
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.dcp" />
<DCCReference Include="Data\vclx.dcp" />
<DCCReference Include="schComisionesClient_Intf.pas" />
<DCCReference Include="schComisionesServer_Intf.pas" />
<DCCReference Include="uBizComisiones.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

BIN
Source/Modulos/Comisiones/Model/Comisiones_model.res Normal file
View File

Binary file not shown.

19
Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas Normal file
View File

@ -0,0 +1,19 @@
unit uIDataModuleComisiones;
interface
uses
SysUtils, Classes, uROTypes, uBizComisiones;
type
IDataModuleComisiones = interface
['{ECECAA67-E784-414F-80D1-83A14382F658}']
function GetAnosItems : TStringList;
function GetItems: IBizComision;
function GetItem(const ID : Integer) : IBizComision;
function NewItem : IBizComision;
end;
implementation
end.

884
Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas Normal file
View File

@ -0,0 +1,884 @@
unit schComisionesClient_Intf;
{$D-}
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
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_ListaAnosComisiones = '{36B55BAB-0D52-40C8-A4E5-3D76C5740A22}';
RID_FacturasComision = '{2DF3EB7B-CEE1-4E31-9DC1-DC439FBC6B81}';
RID_Comisiones = '{B3E36561-2AC0-4DCB-9EF2-74B111E3DD43}';
{ Data table names }
nme_ListaAnosComisiones = 'ListaAnosComisiones';
nme_FacturasComision = 'FacturasComision';
nme_Comisiones = 'Comisiones';
{ ListaAnosComisiones fields }
fld_ListaAnosComisionesANO = 'ANO';
{ ListaAnosComisiones field indexes }
idx_ListaAnosComisionesANO = 0;
{ FacturasComision fields }
fld_FacturasComisionID = 'ID';
fld_FacturasComisionID_EMPRESA = 'ID_EMPRESA';
fld_FacturasComisionFECHA_FACTURA = 'FECHA_FACTURA';
fld_FacturasComisionREFERENCIA = 'REFERENCIA';
fld_FacturasComisionSITUACION = 'SITUACION';
fld_FacturasComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
fld_FacturasComisionID_CLIENTE = 'ID_CLIENTE';
fld_FacturasComisionID_AGENTE = 'ID_AGENTE';
fld_FacturasComisionBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasComisionCOMISION = 'COMISION';
fld_FacturasComisionIMPORTE_COMISION = 'IMPORTE_COMISION';
{ FacturasComision field indexes }
idx_FacturasComisionID = 0;
idx_FacturasComisionID_EMPRESA = 1;
idx_FacturasComisionFECHA_FACTURA = 2;
idx_FacturasComisionREFERENCIA = 3;
idx_FacturasComisionSITUACION = 4;
idx_FacturasComisionID_COMISION_LIQUIDADA = 5;
idx_FacturasComisionID_CLIENTE = 6;
idx_FacturasComisionID_AGENTE = 7;
idx_FacturasComisionBASE_IMPONIBLE = 8;
idx_FacturasComisionCOMISION = 9;
idx_FacturasComisionIMPORTE_COMISION = 10;
{ Comisiones fields }
fld_ComisionesID = 'ID';
fld_ComisionesID_EMPRESA = 'ID_EMPRESA';
fld_ComisionesREFERENCIA = 'REFERENCIA';
fld_ComisionesID_AGENTE = 'ID_AGENTE';
fld_ComisionesDESCRIPCION = 'DESCRIPCION';
fld_ComisionesFECHA = 'FECHA';
fld_ComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_ComisionesUSUARIO = 'USUARIO';
fld_ComisionesNOMBRE = 'NOMBRE';
{ Comisiones field indexes }
idx_ComisionesID = 0;
idx_ComisionesID_EMPRESA = 1;
idx_ComisionesREFERENCIA = 2;
idx_ComisionesID_AGENTE = 3;
idx_ComisionesDESCRIPCION = 4;
idx_ComisionesFECHA = 5;
idx_ComisionesIMPORTE_TOTAL = 6;
idx_ComisionesUSUARIO = 7;
idx_ComisionesNOMBRE = 8;
type
{ IListaAnosComisiones }
IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
['{A9B950E0-243A-4140-BCAE-792DCD6C7253}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
function GetANOIsNull: Boolean;
procedure SetANOIsNull(const aValue: Boolean);
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
end;
{ TListaAnosComisionesDataTableRules }
TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
function GetANOIsNull: Boolean; virtual;
procedure SetANOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ANO: String read GetANOValue write SetANOValue;
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IFacturasComision }
IFacturasComision = interface(IDAStronglyTypedDataTable)
['{B5C6086F-24B6-4F12-A909-551F57DDC893}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetFECHA_FACTURAValue: DateTime;
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean);
function GetID_COMISION_LIQUIDADAValue: Integer;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetBASE_IMPONIBLEValue: Currency;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
function GetBASE_IMPONIBLEIsNull: Boolean;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
function GetCOMISIONValue: Currency;
procedure SetCOMISIONValue(const aValue: Currency);
function GetCOMISIONIsNull: Boolean;
procedure SetCOMISIONIsNull(const aValue: Boolean);
function GetIMPORTE_COMISIONValue: Currency;
procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
function GetIMPORTE_COMISIONIsNull: Boolean;
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
end;
{ TFacturasComisionDataTableRules }
TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Currency; virtual;
procedure SetCOMISIONValue(const aValue: Currency); virtual;
function GetCOMISIONIsNull: Boolean; virtual;
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_COMISIONValue: Currency; virtual;
procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IComisiones }
IComisiones = interface(IDAStronglyTypedDataTable)
['{E1D40C9F-BB33-4236-B551-232CCD3EBD9E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFECHAValue: DateTime;
procedure SetFECHAValue(const aValue: DateTime);
function GetFECHAIsNull: Boolean;
procedure SetFECHAIsNull(const aValue: Boolean);
function GetIMPORTE_TOTALValue: Currency;
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
end;
{ TComisionesDataTableRules }
TComisionesDataTableRules = class(TDADataTableRules, IComisiones)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFECHAValue: DateTime; virtual;
procedure SetFECHAValue(const aValue: DateTime); virtual;
function GetFECHAIsNull: Boolean; virtual;
procedure SetFECHAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
{ TListaAnosComisionesDataTableRules }
constructor TListaAnosComisionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TListaAnosComisionesDataTableRules.Destroy;
begin
inherited;
end;
function TListaAnosComisionesDataTableRules.GetANOValue: String;
begin
result := DataTable.Fields[idx_ListaAnosComisionesANO].AsString;
end;
procedure TListaAnosComisionesDataTableRules.SetANOValue(const aValue: String);
begin
DataTable.Fields[idx_ListaAnosComisionesANO].AsString := aValue;
end;
function TListaAnosComisionesDataTableRules.GetANOIsNull: boolean;
begin
result := DataTable.Fields[idx_ListaAnosComisionesANO].IsNull;
end;
procedure TListaAnosComisionesDataTableRules.SetANOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ListaAnosComisionesANO].AsVariant := Null;
end;
{ TFacturasComisionDataTableRules }
constructor TFacturasComisionDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TFacturasComisionDataTableRules.Destroy;
begin
inherited;
end;
function TFacturasComisionDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComisionID].AsInteger;
end;
procedure TFacturasComisionDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComisionID].AsInteger := aValue;
end;
function TFacturasComisionDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionID].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionID].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsInteger;
end;
procedure TFacturasComisionDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsInteger := aValue;
end;
function TFacturasComisionDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionID_EMPRESA].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetFECHA_FACTURAValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsDateTime;
end;
procedure TFacturasComisionDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsDateTime := aValue;
end;
function TFacturasComisionDataTableRules.GetFECHA_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_FacturasComisionREFERENCIA].AsString;
end;
procedure TFacturasComisionDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasComisionREFERENCIA].AsString := aValue;
end;
function TFacturasComisionDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionREFERENCIA].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionREFERENCIA].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_FacturasComisionSITUACION].AsString;
end;
procedure TFacturasComisionDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasComisionSITUACION].AsString := aValue;
end;
function TFacturasComisionDataTableRules.GetSITUACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionSITUACION].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionSITUACION].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsInteger;
end;
procedure TFacturasComisionDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsInteger := aValue;
end;
function TFacturasComisionDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsInteger;
end;
procedure TFacturasComisionDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsInteger := aValue;
end;
function TFacturasComisionDataTableRules.GetID_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionID_CLIENTE].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComisionID_AGENTE].AsInteger;
end;
procedure TFacturasComisionDataTableRules.SetID_AGENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComisionID_AGENTE].AsInteger := aValue;
end;
function TFacturasComisionDataTableRules.GetID_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionID_AGENTE].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionID_AGENTE].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsCurrency;
end;
procedure TFacturasComisionDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsCurrency := aValue;
end;
function TFacturasComisionDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetCOMISIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasComisionCOMISION].AsCurrency;
end;
procedure TFacturasComisionDataTableRules.SetCOMISIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasComisionCOMISION].AsCurrency := aValue;
end;
function TFacturasComisionDataTableRules.GetCOMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionCOMISION].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionCOMISION].AsVariant := Null;
end;
function TFacturasComisionDataTableRules.GetIMPORTE_COMISIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsCurrency;
end;
procedure TFacturasComisionDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsCurrency := aValue;
end;
function TFacturasComisionDataTableRules.GetIMPORTE_COMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].IsNull;
end;
procedure TFacturasComisionDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsVariant := Null;
end;
{ TComisionesDataTableRules }
constructor TComisionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TComisionesDataTableRules.Destroy;
begin
inherited;
end;
function TComisionesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ComisionesID].AsInteger;
end;
procedure TComisionesDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ComisionesID].AsInteger := aValue;
end;
function TComisionesDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesID].IsNull;
end;
procedure TComisionesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesID].AsVariant := Null;
end;
function TComisionesDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger;
end;
procedure TComisionesDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger := aValue;
end;
function TComisionesDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesID_EMPRESA].IsNull;
end;
procedure TComisionesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesID_EMPRESA].AsVariant := Null;
end;
function TComisionesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ComisionesREFERENCIA].AsString;
end;
procedure TComisionesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ComisionesREFERENCIA].AsString := aValue;
end;
function TComisionesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesREFERENCIA].IsNull;
end;
procedure TComisionesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesREFERENCIA].AsVariant := Null;
end;
function TComisionesDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger;
end;
procedure TComisionesDataTableRules.SetID_AGENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger := aValue;
end;
function TComisionesDataTableRules.GetID_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesID_AGENTE].IsNull;
end;
procedure TComisionesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesID_AGENTE].AsVariant := Null;
end;
function TComisionesDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ComisionesDESCRIPCION].AsString;
end;
procedure TComisionesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ComisionesDESCRIPCION].AsString := aValue;
end;
function TComisionesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesDESCRIPCION].IsNull;
end;
procedure TComisionesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesDESCRIPCION].AsVariant := Null;
end;
function TComisionesDataTableRules.GetFECHAValue: DateTime;
begin
result := DataTable.Fields[idx_ComisionesFECHA].AsDateTime;
end;
procedure TComisionesDataTableRules.SetFECHAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ComisionesFECHA].AsDateTime := aValue;
end;
function TComisionesDataTableRules.GetFECHAIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesFECHA].IsNull;
end;
procedure TComisionesDataTableRules.SetFECHAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesFECHA].AsVariant := Null;
end;
function TComisionesDataTableRules.GetIMPORTE_TOTALValue: Currency;
begin
result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency;
end;
procedure TComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency := aValue;
end;
function TComisionesDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].IsNull;
end;
procedure TComisionesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsVariant := Null;
end;
function TComisionesDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_ComisionesUSUARIO].AsString;
end;
procedure TComisionesDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_ComisionesUSUARIO].AsString := aValue;
end;
function TComisionesDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesUSUARIO].IsNull;
end;
procedure TComisionesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesUSUARIO].AsVariant := Null;
end;
function TComisionesDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ComisionesNOMBRE].AsString;
end;
procedure TComisionesDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_ComisionesNOMBRE].AsString := aValue;
end;
function TComisionesDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ComisionesNOMBRE].IsNull;
end;
procedure TComisionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ComisionesNOMBRE].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
end.

1117
Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas Normal file
View File

File diff suppressed because it is too large Load Diff

150
Source/Modulos/Comisiones/Model/uBizComisiones.pas Normal file
View File

@ -0,0 +1,150 @@
unit uBizComisiones;
interface
uses
uDAInterfaces, uDADataTable, schComisionesClient_Intf, uDBSelectionListUtils, Classes;
// uBizContactos, uBizDetallesFacturaCliente
const
BIZ_CLIENT_COMISIONES = 'Client.Comisiones';
BIZ_CLIENT_FACTURASCOMISION = 'Client.FacturasComision';
type
IBizFacturasComision = interface(IFacturasComision)
['{341B5CD1-2BCD-43F5-8F0C-AF72C1780512}']
end;
IBizComision = interface(IComisiones)
['{78E17CC4-F4A6-489D-99C3-2D56F8730A33}']
function GetFacturasComision: IBizFacturasComision;
procedure SetFacturasComision(Value: IBizFacturasComision);
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
procedure CalcularImporteTotal;
end;
TBizFacturasComision = class(TFacturasComisionDataTableRules, IBizFacturasComision)
end;
TBizComision = class(TComisionesDataTableRules, IBizComision, ISeleccionable)
private
FSeleccionableInterface : ISeleccionable;
procedure CalcularComision;
protected
FFacturasComision : IBizFacturasComision;
FFacturasComisionLink : TDADataSource;
function GetFacturasComision: IBizFacturasComision;
procedure SetFacturasComision(Value: IBizFacturasComision);
procedure COMISIONOnChange(Sender: TDACustomField);
public
procedure CalcularImporteTotal;
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable;
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
Variants, cxDateUtils, uFactuGES_App;
{ TBizComision }
procedure TBizComision.CalcularComision;
begin
{ if not Self.DataTable.Editing then
Edit;
IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE;
}
end;
{procedure TBizComision.CalcularDescuento;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := (DESCUENTO / 100) * IMPORTE_NETO;
end;}
procedure TBizComision.CalcularImporteTotal;
begin
{ DataTable.DisableControls;
DataTable.Fields.FieldEventsDisabled := True;
try
if not Self.DataTable.Editing then
Edit;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE;
finally
DataTable.Fields.FieldEventsDisabled := False;
DataTable.EnableControls;
end;
}
end;
procedure TBizComision.COMISIONOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
constructor TBizComision.Create(aDataTable: TDADataTable);
begin
inherited;
{
with DataTable do
begin
FieldByName(fld_FacturasClienteID_TIPO_IVA).OnChange := ID_TIPO_IVAOnChange;
FieldByName(fld_FacturasClienteRECARGO_EQUIVALENCIA).OnChange := RECARGO_EQUIVALENCIAOnChange;
FieldByName(fld_FacturasClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange;
FieldByName(fld_FacturasClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
FieldByName(fld_FacturasClienteCOMISION).OnChange := COMISIONOnChange;
FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange;
FieldByName(fld_FacturasClienteRE).OnChange := REOnChange;
end;
}
FFacturasComisionLink := TDADataSource.Create(NIL);
FFacturasComisionLink.DataTable := aDataTable;
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;
destructor TBizComision.Destroy;
begin
FFacturasComision := NIL;
FFacturasComisionLink.Free;
FSeleccionableInterface := NIL;
inherited;
end;
function TBizComision.GetFacturasComision: IBizFacturasComision;
begin
Result := FFacturasComision;
end;
procedure TBizComision.SetFacturasComision(Value: IBizFacturasComision);
begin
FFacturasComision := Value;
EnlazarMaestroDetalle(FFacturasComisionLink, FFacturasComision);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComision);
RegisterDataTableRules(BIZ_CLIENT_FACTURASCOMISION, TBizFacturasComision);
finalization
end.

106
Source/Modulos/Comisiones/Model/uBizComisionesServer.pas Normal file
View File

@ -0,0 +1,106 @@
unit uBizComisionesServer;
interface
uses
uDAInterfaces, uDADelta, uDABusinessProcessor,
schComisionesServer_Intf;
const
BIZ_SERVER_COMISIONES = 'Server.Comsiones';
type
TBizComisionesServer = class(TComisionesBusinessProcessorRules)
private
FReferenciaAutomatica : Boolean;
function DarReferencia : String;
function IncrementarReferencia : Boolean;
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
Variants, uDAClasses, uBusinessUtils, uROClasses, uROServer, SysUtils,
uDataModuleServer, schComisionesClient_Intf, FactuGES_Intf;
const
REF_COMiSIONES = 'REF_COMISIONES';
{ TBizComisionesServer }
procedure TBizComisionesServer.AfterProcessChange(
Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
begin
inherited;
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
CanRemoveFromDelta := False;
case aChange.ChangeType of
ctInsert, ctUpdate: begin
if FReferenciaAutomatica then
begin
IncrementarReferencia;
FReferenciaAutomatica := False;
end;
end;
end;
end;
procedure TBizComisionesServer.BeforeProcessDelta(
Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
FReferenciaAutomatica := False;
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
begin
FReferenciaAutomatica := True;
REFERENCIA := DarReferencia;
end;
end;
end;
end;
function TBizComisionesServer.DarReferencia: String;
var
AReferenciasService : IsrvReferencias;
Intf : IInterface;
AClientID : TGUID;
begin
// Aunque sea un abono, la referencia es la misma que una factura
CreateGUID(AClientID);
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(REF_COMISIONES, ID_EMPRESA)
end;
function TBizComisionesServer.IncrementarReferencia: Boolean;
var
AReferenciasService : IsrvReferencias;
Intf : IInterface;
AClientID : TGUID;
begin
// Aunque sea un abono, la referencia es la misma que una factura
CreateGUID(AClientID);
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(REF_COMISIONES, Self.REFERENCIA, ID_EMPRESA)
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer);
end.

924
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm Normal file
View File

@ -0,0 +1,924 @@
object srvComisiones: TsrvComisiones
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
ConnectionName = 'IBX'
ServiceSchema = schComisiones
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 180
Width = 386
object schComisiones: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHA, 1,4)) as ANO'#10'from' +
' comisiones_liquidadas'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select disti' +
'nct '#39'Todos'#39' as ANO'#10'from empresas'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'ListaAnosComisiones'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_FACTURAS_CLIENTE'
Name = 'IBX'
SQL =
'SELECT V_FACTURAS_CLIENTE.ID,'#10' V_FACTURAS_CLIENTE.ID_EMPRE' +
'SA,'#10' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_C' +
'LIENTE.REFERENCIA,'#10' V_FACTURAS_CLIENTE.SITUACION,'#10' V' +
'_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,'#10' V_FACTURAS_CLIEN' +
'TE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.ID_AGENTE,'#10' V_FAC' +
'TURAS_CLIENTE.BASE_IMPONIBLE,'#10' V_FACTURAS_CLIENTE.COMISION' +
','#10' V_FACTURAS_CLIENTE.IMPORTE_COMISION'#10#10'FROM V_FACTURAS_CL' +
'IENTE'#10'WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'COMISION'
TableField = 'COMISION'
end
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end>
end>
Name = 'FacturasComision'
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'COMISION'
DataType = datCurrency
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COMISIONES_LIQUIDADAS'
SQL =
'SELECT'#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EM' +
'PRESA,'#10' COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDAD' +
'AS.ID_AGENTE,'#10' COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES_' +
'LIQUIDADAS.FECHA,'#10' COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMIS' +
'IONES_LIQUIDADAS.USUARIO,'#10' CONTACTOS.NOMBRE'#10'FROM COMISIONES_L' +
'IQUIDADAS'#10'LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQU' +
'IDADAS.ID_AGENTE)'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FECHA'
TableField = 'FECHA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'NOMBRE'
TableField = '<unknown>'
SQLOrigin = 'NOMBRE'
end>
end>
Name = 'Comisiones'
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FECHA'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COMISIONES_LIQUIDADAS'
SQL =
'DELETE'#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE'#10' (ID = :OLD_I' +
'D)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Comisiones'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_AGENTE'
DataType = datInteger
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA'
DataType = datDateTime
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datDecimal
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'COMISIONES_LIQUIDADAS'
SQL =
'INSERT'#10' INTO COMISIONES_LIQUIDADAS'#10' (ID, ID_EMPRESA, REFEREN' +
'CIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO)'#10' VA' +
'LUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :ID_AGENTE, :DESCRIPCIO' +
'N, :FECHA, :IMPORTE_TOTAL, :USUARIO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Comisiones'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_AGENTE'
DataType = datInteger
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA'
DataType = datDateTime
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datDecimal
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'COMISIONES_LIQUIDADAS'
SQL =
'UPDATE COMISIONES_LIQUIDADAS'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA ' +
'= :ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' ID_AGENTE = :ID' +
'_AGENTE,'#10' DESCRIPCION = :DESCRIPCION,'#10' FECHA = :FECHA,'#10' ' +
' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' USUARIO = :USUARIO'#10' WHERE'#10 +
' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Comisiones'
end
item
Params = <
item
Name = 'IDCOMISIONLIQUIDADA'
Value = ''
end
item
Name = 'COMISION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTECOMISION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = :IDCOM' +
'ISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION =' +
' :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasComision'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = NULL'#10' ' +
' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasComision'
end
item
Params = <
item
Name = 'IDCOMISIONLIQUIDADA'
Value = ''
end
item
Name = 'COMISION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTECOMISION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET '#10' ID_COMISION_LIQUIDADA = :IDCO' +
'MISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION ' +
'= :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasComision'
end>
RelationShips = <
item
Name = 'FacturasComision_FK'
MasterDatasetName = 'Comisiones'
MasterFields = 'ID'
DetailDatasetName = 'FacturasComision'
DetailFields = 'ID_COMISION_LIQUIDADA'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert FacturasCliente'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert DetallesFacturasCliente'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Update FacturasCliente'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Update DetallesFacturasCliente'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete DetallesFacturasCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'FacturasCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete FacturasCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'FacturasCliente'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Top = 24
end
object Diagrams: TDADiagrams
Left = 150
Top = 74
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'FacturasCliente_CLIENTE_FINAL'
DataType = datString
Size = 255
DisplayLabel = 'Cliente final'
end
item
Name = 'FacturasCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'FacturasCliente_FECHA_FACTURA'
DataType = datDateTime
DisplayLabel = 'Fecha de las factura'
end
item
Name = 'FacturasCliente_VENCIMIENTO'
DataType = datInteger
DisplayLabel = 'Vencimiento'
end
item
Name = 'FacturasCliente_SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
end
item
Name = 'FacturasCliente_BASE_IMPONIBLE'
DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_DESCUENTO'
DataType = datCurrency
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_IVA'
DataType = datCurrency
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_FORMA_PAGO'
DataType = datMemo
DisplayLabel = 'Forma de pago'
end
item
Name = 'FacturasCliente_ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item
Name = 'FacturasCliente_NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
end
item
Name = 'FacturasCliente_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
end
item
Name = 'FacturasCliente_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'FacturasCliente_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'FacturasCliente_OBSERVACIONES'
DataType = datMemo
DisplayLabel = 'Observaciones'
end
item
Name = 'FacturasCliente_NOMBRE'
DataType = datString
Size = 100
DisplayLabel = 'Cliente'
end
item
Name = 'FacturasCliente_CALLE'
DataType = datString
Size = 150
DisplayLabel = 'Direcci'#243'n'
end
item
Name = 'FacturasCliente_PROVINCIA'
DataType = datString
Size = 30
DisplayLabel = 'Provincia'
end
item
Name = 'FacturasCliente_POBLACION'
DataType = datString
Size = 150
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'FacturasCliente_IVA'
DataType = datFloat
DisplayLabel = 'IVA'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_USUARIO'
DataType = datString
Size = 100
DisplayLabel = 'USUARIO'
end
item
Name = 'FacturasCliente_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Dto.'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger
DisplayLabel = 'ID_FACTURA'
end
item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString
Size = 25
DisplayLabel = 'Tipo detalle'
end
item
Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString
Size = 2000
DisplayLabel = 'Concepto'
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger
DisplayLabel = #191'Visible?'
end
item
Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger
DisplayLabel = 'Posici'#243'n'
end
item
Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datFloat
DisplayLabel = 'Cantidad'
end
item
Name = 'FacturasCliente_FECHA_PAGADO'
DataType = datDateTime
DisplayLabel = 'Fecha de pago'
end
item
Name = 'FacturasCliente_FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'Fecha de vencimiento'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_RE'
DataType = datFloat
DisplayLabel = 'RE'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_RE'
DataType = datCurrency
DisplayLabel = 'Importe RE'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_REFERENCIA'
DataType = datString
Size = 20
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_ID_FORMA_PAGO'
DataType = datInteger
end
item
Name = 'FacturasCliente_IMPORTE_NETO'
DataType = datCurrency
DisplayLabel = 'Importe neto'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_RECARGO_EQUIVALENCIA'
DataType = datSmallInt
DisplayLabel = #191'Con R.E.?'
end
item
Name = 'FacturasCliente_TIPO'
DataType = datString
Size = 1
DisplayLabel = 'Tipo'
end
item
Name = 'FacturasCliente_ID_TIPO_IVA'
DataType = datInteger
DisplayLabel = 'ID_TIPO_IVA'
end
item
Name = 'FacturasCliente_ID_COMISION_LIQUIDADA'
DataType = datInteger
DisplayLabel = 'ID_COMISION_LIQUIDADA'
end
item
Name = 'FacturasCliente_REFERENCIA_COMISION'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_COMISION'
end
item
Name = 'FacturasCliente_ID_AGENTE'
DataType = datInteger
DisplayLabel = 'ID_AGENTE'
end
item
Name = 'FacturasCliente_Detalles_ID_ARTICULO'
DataType = datInteger
end
item
Name = 'FacturasCliente_Detalles_DESCUENTO'
DataType = datFloat
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'FacturasCliente_Detalles_REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'FacturasCliente_DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'Datos bancarios'
end
item
Name = 'FacturasCliente_FECHA_RETENCION'
DataType = datDateTime
end
item
Name = 'FacturasCliente_ID_DIRECCION'
DataType = datInteger
end
item
Name = 'FacturasCliente_PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'FacturasCliente_RETENCION'
DataType = datFloat
DisplayLabel = 'RETENCION'
end
item
Name = 'FacturasCliente_IMPORTE_RETENCION'
DataType = datCurrency
DisplayLabel = 'IMPORTE_RETENCION'
end
item
Name = 'FacturasCliente_DESCUENTO2'
DataType = datFloat
DisplayLabel = 'DESCUENTO2'
end
item
Name = 'FacturasCliente_IMPORTE_DESCUENTO2'
DataType = datCurrency
DisplayLabel = 'IMPORTE_DESCUENTO2'
end
item
Name = 'FacturasCliente_COMISION'
DataType = datFloat
DisplayLabel = 'COMISION'
end
item
Name = 'FacturasCliente_IMPORTE_COMISION'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DisplayLabel = 'IMPORTE_COMISION'
end>
Left = 150
Top = 22
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
object bpComisiones: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_Comisiones'
DeleteCommandName = 'Delete_Comisiones'
UpdateCommandName = 'Update_Comisiones'
ReferencedDataset = 'Comisiones'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
object bpFacturasComision: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_FacturasComision'
DeleteCommandName = 'Delete_FacturasComision'
UpdateCommandName = 'Update_FacturasComision'
ReferencedDataset = 'FacturasComision'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
end
end

102
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas Normal file
View File

@ -0,0 +1,102 @@
unit srvComisiones_Impl;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}
interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
uDAScriptingProvider, uDAClasses,
FactuGES_Intf, uDAInterfaces, uROClient;
type
{ TsrvComisiones }
TsrvComisiones = class(TDataAbstractService, IsrvComisiones)
Diagrams: TDADiagrams;
Bin2DataStreamer: TDABin2DataStreamer;
bpComisiones: TDABusinessProcessor;
schComisiones: TDASchema;
DataDictionary: TDADataDictionary;
bpFacturasComision: TDABusinessProcessor;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
private
protected
{ IsrvComisiones methods }
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
end;
implementation
{$R *.dfm}
uses
{Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses,
uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf,
uRestriccionesUsuarioUtils, uBizComisionesServer;
// uRptWordFacturaCliente, uRptFacturasCliente_Server;
procedure Create_srvComisiones(out anInstance : IUnknown);
begin
anInstance := TsrvComisiones.Create(NIL);
end;
{ srvComisones }
procedure TsrvComisiones.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer);
begin
{
if DataSet.Name = nme_FacturasCliente then
begin
{ Aquí se asegura que el usuario sólo accede a facturas
de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. }
{ FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA);
end;
}
end;
procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject);
begin
//SessionManager := dmServer.SessionManager;
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
end;
procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection(
aSender: TObject; var aConnectionName: string);
begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
//var
// AReportGenerator : TRptFacturasCliente;
begin
{ AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarFactura(ListaID, Original, Copia, Contabilidad);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
initialization
TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker);
finalization
end.

2
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -118,7 +118,7 @@ begin
ACliente.DatosBancarios.DataTable.First; ACliente.DatosBancarios.DataTable.First;
while not ACliente.DatosBancarios.DataTable.EOF do while not ACliente.DatosBancarios.DataTable.EOF do
begin begin
Aux := Format('%s %s %s %s - Titular: %s ', [ACliente.DatosBancarios.ENTIDAD, Aux := Format('%s %s %s %s - %s ', [ACliente.DatosBancarios.ENTIDAD,
ACliente.DatosBancarios.SUCURSAL, ACliente.DatosBancarios.DC, ACliente.DatosBancarios.CUENTA, ACliente.DatosBancarios.TITULAR]); ACliente.DatosBancarios.SUCURSAL, ACliente.DatosBancarios.DC, ACliente.DatosBancarios.CUENTA, ACliente.DatosBancarios.TITULAR]);
Add(Format('%s=%d', [Aux, ACliente.DatosBancarios.ID])); Add(Format('%s=%d', [Aux, ACliente.DatosBancarios.ID]));
ACliente.DatosBancarios.DataTable.Next; ACliente.DatosBancarios.DataTable.Next;

2
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -124,7 +124,7 @@ begin
AProveedor.DatosBancarios.DataTable.First; AProveedor.DatosBancarios.DataTable.First;
while not AProveedor.DatosBancarios.DataTable.EOF do while not AProveedor.DatosBancarios.DataTable.EOF do
begin begin
Aux := Format('Nº de cuenta: %s %s %s %s - Titular: %s ', [AProveedor.DatosBancarios.ENTIDAD, Aux := Format('Nº de cuenta: %s %s %s %s - %s ', [AProveedor.DatosBancarios.ENTIDAD,
AProveedor.DatosBancarios.SUCURSAL, AProveedor.DatosBancarios.DC, AProveedor.DatosBancarios.CUENTA, AProveedor.DatosBancarios.TITULAR]); AProveedor.DatosBancarios.SUCURSAL, AProveedor.DatosBancarios.DC, AProveedor.DatosBancarios.CUENTA, AProveedor.DatosBancarios.TITULAR]);
Add(Format('%s=%d', [Aux, AProveedor.DatosBancarios.ID])); Add(Format('%s=%d', [Aux, AProveedor.DatosBancarios.ID]));
AProveedor.DatosBancarios.DataTable.Next; AProveedor.DatosBancarios.DataTable.Next;

34
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,23 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" /> <DCCReference Include="..\..\Comisiones\Data\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" /> <DCCReference Include="..\..\Comisiones\Data\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" /> <DCCReference Include="..\..\Comisiones\Data\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" /> <DCCReference Include="..\..\Comisiones\Data\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Comisiones\Data\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Comisiones\Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\..\Comisiones\Data\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" /> <DCCReference Include="..\..\Comisiones\Data\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" /> <DCCReference Include="..\..\Comisiones\Data\dxCoreD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Comisiones\Data\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\..\Comisiones\Data\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" /> <DCCReference Include="..\..\Comisiones\Data\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Comisiones\Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\..\Comisiones\Data\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\..\Comisiones\Data\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\..\Comisiones\Data\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" /> <DCCReference Include="..\..\Comisiones\Data\vclx.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

4
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -188,6 +188,10 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'ID_AGENTE' Name = 'ID_AGENTE'
DataType = datInteger DataType = datInteger
end end
item
Name = 'COMISION'
DataType = datCurrency
end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
DataType = datString DataType = datString

2
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -11,7 +11,7 @@ uses
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter, uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios, uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
uIDataModuleContactos; uIDataModuleContactos, uDADataAdapter;
type type
TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes) TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes)

22
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,17 +49,17 @@
<DelphiCompile Include="Contactos_model.dpk"> <DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" /> <DCCReference Include="..\..\Comisiones\Model\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" /> <DCCReference Include="..\..\Comisiones\Model\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" /> <DCCReference Include="..\..\Comisiones\Model\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Comisiones\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\..\Comisiones\Model\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" /> <DCCReference Include="..\..\Comisiones\Model\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" /> <DCCReference Include="..\..\Comisiones\Model\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Comisiones\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\..\Comisiones\Model\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\..\Comisiones\Model\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\..\Comisiones\Model\vcldb.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" /> <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="Data\uIDataModuleClientes.pas" /> <DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

126
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -1,5 +1,6 @@
unit schContactosClient_Intf; unit schContactosClient_Intf;
{$D-}
interface interface
uses uses
@ -9,21 +10,21 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{ACB5CADD-F95C-443A-8A8E-1924599B45CC}'; RID_Contactos = '{40EEDC67-CA3B-4797-8D86-E91A54462FEA}';
RID_GruposCliente = '{B0E83D00-997F-4D68-B4B0-8D60D75329E3}'; RID_GruposCliente = '{1ACC85D1-0652-4142-A399-B68D0C240A89}';
RID_DatosBancarios = '{10ECFCDF-8C7A-47DE-AE72-4077BE1B2360}'; RID_DatosBancarios = '{C2E08D91-CD17-4477-8457-DBED6E64039F}';
RID_Vendedores = '{12514B73-4876-4C4D-A6D0-60879AEE5665}'; RID_Vendedores = '{93B7F239-1591-497D-960E-F68DEBD287E8}';
RID_Clientes = '{18301B14-C8F8-4DEB-B02A-90CA5A5130DE}'; RID_Clientes = '{7EBFBF83-F96F-46D9-8D76-7A71DA282525}';
RID_Proveedores = '{A4AB7805-4A02-4CA0-90BC-77BA265E009E}'; RID_Proveedores = '{6AAB5DEC-00A3-471C-9CFE-56B7148FD999}';
RID_Empleados = '{5609D8C2-BE56-4FA0-AB73-F0EC2484A84D}'; RID_Empleados = '{DAB0B908-6666-46CE-9365-62A67F55F648}';
RID_DireccionesContacto = '{0C5E669A-17DE-4DF9-8B49-7081CC8F0981}'; RID_DireccionesContacto = '{3C0B2D0F-7349-48D7-8123-88631EA4D50C}';
RID_ClientesDescuentos = '{688D93EC-D8E9-41FD-929A-3F347665F442}'; RID_ClientesDescuentos = '{5298A56C-55EA-4973-8CF0-EF409F7A83E5}';
RID_GruposProveedor = '{79F38AFD-1BBF-4DF0-A867-BF6FF8391738}'; RID_GruposProveedor = '{1AE99C48-1D9A-463C-AAD0-389A42D1CEEA}';
RID_GruposEmpleado = '{B545DB65-489F-4361-BE6F-A59ECAF92498}'; RID_GruposEmpleado = '{CD0B6DC7-A124-4CE7-AA69-C1912A56F0F4}';
RID_Contactos_Refresh = '{DB8C8518-32E0-45D1-8020-37A643685AD4}'; RID_Contactos_Refresh = '{0A3433AD-5E1B-4234-89CB-E79103B66C97}';
RID_ContratosEmpleados = '{6FE7D29D-BB36-4438-88AB-E81F6D099306}'; RID_ContratosEmpleados = '{993DB7D4-6088-4395-BB65-6C50B68B62AC}';
RID_DescripcionesProveedores = '{5175E0DD-DF25-4BD8-A758-7117195820F1}'; RID_DescripcionesProveedores = '{9489DD00-E34D-4A9D-A3A3-85FA3A1EAB4D}';
RID_PersonalContacto = '{122D7340-896B-4E17-9A8B-8F8F7600F059}'; RID_PersonalContacto = '{B2E905B7-FFA4-40AB-A60C-EB0F81C2932B}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -204,6 +205,7 @@ const
fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesREFERENCIA = 'REFERENCIA';
fld_ClientesPAIS = 'PAIS'; fld_ClientesPAIS = 'PAIS';
fld_ClientesID_AGENTE = 'ID_AGENTE'; fld_ClientesID_AGENTE = 'ID_AGENTE';
fld_ClientesCOMISION = 'COMISION';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
@ -246,21 +248,22 @@ const
idx_ClientesREFERENCIA = 22; idx_ClientesREFERENCIA = 22;
idx_ClientesPAIS = 23; idx_ClientesPAIS = 23;
idx_ClientesID_AGENTE = 24; idx_ClientesID_AGENTE = 24;
idx_ClientesGRUPO_CLIENTE = 25; idx_ClientesCOMISION = 25;
idx_ClientesNOMBRE_COMERCIAL = 26; idx_ClientesGRUPO_CLIENTE = 26;
idx_ClientesVENCIMIENTO_FACTURAS_1 = 27; idx_ClientesNOMBRE_COMERCIAL = 27;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 28; idx_ClientesVENCIMIENTO_FACTURAS_1 = 28;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 29; idx_ClientesVENCIMIENTO_FACTURAS_2 = 29;
idx_ClientesBLOQUEADO = 30; idx_ClientesVENCIMIENTO_FACTURAS_3 = 30;
idx_ClientesREGIMEN_IVA = 31; idx_ClientesBLOQUEADO = 31;
idx_ClientesMOTIVO_BLOQUEO = 32; idx_ClientesREGIMEN_IVA = 32;
idx_ClientesRECARGO_EQUIVALENCIA = 33; idx_ClientesMOTIVO_BLOQUEO = 33;
idx_ClientesID_TIPO_IVA = 34; idx_ClientesRECARGO_EQUIVALENCIA = 34;
idx_ClientesID_FORMA_PAGO = 35; idx_ClientesID_TIPO_IVA = 35;
idx_ClientesTIENDA_WEB = 36; idx_ClientesID_FORMA_PAGO = 36;
idx_ClientesDESCUENTO = 37; idx_ClientesTIENDA_WEB = 37;
idx_ClientesDESCUENTO2 = 38; idx_ClientesDESCUENTO = 38;
idx_ClientesFELICITACION = 39; idx_ClientesDESCUENTO2 = 39;
idx_ClientesFELICITACION = 40;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -565,7 +568,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{6FFD15FA-F03C-4A70-9869-849498EF548F}'] ['{358E584B-5B73-46B6-946D-D9EF86FD104E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -876,7 +879,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{88D32187-D7D2-4E4A-8B19-CBDE9C92DC95}'] ['{87C27143-A80E-47FC-9797-1C26024FC384}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -923,7 +926,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{D0179233-B497-4F75-8DD3-D735B6AD3DCE}'] ['{95246948-ED8A-43E7-926A-659025CB48B1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1054,7 +1057,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{3F7AD4D0-A0A7-4CBD-945E-9C09D256F985}'] ['{844511CB-CFAB-4D7E-92D6-AC337E0E789F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1377,7 +1380,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{13CA3422-D066-4E6E-BC73-CD524DE9B38B}'] ['{E35C963F-C752-493F-999A-864225B06CB4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1478,6 +1481,10 @@ type
procedure SetID_AGENTEValue(const aValue: Integer); procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean; function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean); procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetCOMISIONValue: Currency;
procedure SetCOMISIONValue(const aValue: Currency);
function GetCOMISIONIsNull: Boolean;
procedure SetCOMISIONIsNull(const aValue: Boolean);
function GetGRUPO_CLIENTEValue: String; function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String); procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetGRUPO_CLIENTEIsNull: Boolean; function GetGRUPO_CLIENTEIsNull: Boolean;
@ -1591,6 +1598,8 @@ type
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -1729,6 +1738,10 @@ type
procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual; function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Currency; virtual;
procedure SetCOMISIONValue(const aValue: Currency); virtual;
function GetCOMISIONIsNull: Boolean; virtual;
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
function GetGRUPO_CLIENTEValue: String; virtual; function GetGRUPO_CLIENTEValue: String; virtual;
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
@ -1841,6 +1854,8 @@ type
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -1880,7 +1895,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{09C19974-2929-4FA3-9C2E-81C86D19A192}'] ['{EA1E5B39-98E9-46B9-9E6F-B3E05E456A7C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2347,7 +2362,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{2A6F4FA5-EACD-4B61-855C-FB78AF8AB97F}'] ['{3302FF05-08A6-4636-A953-C8E1DB385465}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2778,7 +2793,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{34A6F19A-C8EC-4868-95DE-A9EF058BCDA3}'] ['{42526317-840D-474B-874C-56C977DF0267}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2993,7 +3008,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{A5743C5A-DADA-4A63-8741-5AC78A7E45D2}'] ['{D55AB96B-5AA5-4FC7-BD32-149537426CF7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3076,7 +3091,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{649EDBC4-FD69-4670-AFFB-2C573641E8A8}'] ['{415839A3-2D9C-46B1-A834-C506047B219E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3123,7 +3138,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{1ED96515-2619-4578-B181-09164CB0A100}'] ['{96967494-996F-42F7-A9B8-FD673C54953D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3170,7 +3185,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{8E91D71D-F232-4050-A268-ECEB26CE6A62}'] ['{AD566224-14F8-4A71-A9F1-76ACE4934A7B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3457,7 +3472,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{3DFCEC34-6845-4EC6-8A19-BA53BE6B364C}'] ['{B90DFB32-59DC-4AF7-972F-6306E5F01F00}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3492,7 +3507,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{3FFC0F30-8945-4562-817B-36840D881863}'] ['{EA745A54-6961-4ECE-8A9F-52C3CDC10F8E}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3527,7 +3542,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{DE1EDF09-B74A-477F-B8E9-5B41210E97F0}'] ['{48F827C8-74B1-4C48-AC6C-1566365DAEF3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -5537,6 +5552,27 @@ begin
DataTable.Fields[idx_ClientesID_AGENTE].AsVariant := Null; DataTable.Fields[idx_ClientesID_AGENTE].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetCOMISIONValue: Currency;
begin
result := DataTable.Fields[idx_ClientesCOMISION].AsCurrency;
end;
procedure TClientesDataTableRules.SetCOMISIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_ClientesCOMISION].AsCurrency := aValue;
end;
function TClientesDataTableRules.GetCOMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesCOMISION].IsNull;
end;
procedure TClientesDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesCOMISION].AsVariant := Null;
end;
function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String; function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;

1948
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

20
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -94,6 +94,9 @@ type
function GetDESCUENTO2Value: Double; function GetDESCUENTO2Value: Double;
procedure SetDESCUENTO2Value(const aValue: Double); procedure SetDESCUENTO2Value(const aValue: Double);
function GetCOMISIONValue: Double;
procedure SetCOMISIONValue(const aValue: Double);
function GetDescuentos: IBizClienteDescuentos; function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
@ -115,6 +118,7 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value;
property COMISION: Double read GetCOMISIONValue write SetCOMISIONValue;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
end; end;
@ -319,11 +323,15 @@ type
function GetDESCUENTO2Value: Double; function GetDESCUENTO2Value: Double;
procedure SetDESCUENTO2Value(const aValue: Double); procedure SetDESCUENTO2Value(const aValue: Double);
function GetCOMISIONValue: Double;
procedure SetCOMISIONValue(const aValue: Double);
function GetDescuentos: IBizClienteDescuentos; function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
function GetFELICITACIONValue: Integer; function GetFELICITACIONValue: Integer;
procedure SetFELICITACIONValue(const aValue: Integer); procedure SetFELICITACIONValue(const aValue: Integer);
public public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -343,6 +351,7 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value;
property COMISION: Double read GetCOMISIONValue write SetCOMISIONValue;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
end; end;
@ -581,6 +590,11 @@ begin
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger; result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
end; end;
function TBizCliente.GetCOMISIONValue: Double;
begin
result := DataTable.Fields[idx_ClientesCOMISION].AsFloat;
end;
function TBizCliente.GetDESCUENTO2Value: Double; function TBizCliente.GetDESCUENTO2Value: Double;
begin begin
result := DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat; result := DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat;
@ -631,6 +645,11 @@ begin
DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue; DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
end; end;
procedure TBizCliente.SetCOMISIONValue(const aValue: Double);
begin
DataTable.Fields[idx_ClientesCOMISION].AsFloat := aValue;
end;
procedure TBizCliente.SetDESCUENTO2Value(const aValue: Double); procedure TBizCliente.SetDESCUENTO2Value(const aValue: Double);
begin begin
DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat := aValue; DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat := aValue;
@ -741,7 +760,6 @@ procedure TBizCliente.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_CLIENTE; ID_CATEGORIA := CATEGORIA_CLIENTE;
VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO;
BLOQUEADO := 0; BLOQUEADO := 0;
FELICITACION := 0; FELICITACION := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;

8
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -821,6 +821,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'ID_AGENTE' DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE' TableField = 'ID_AGENTE'
end
item
DatasetField = 'COMISION'
TableField = 'COMISION'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -969,6 +973,10 @@ object srvContactos: TsrvContactos
Name = 'ID_AGENTE' Name = 'ID_AGENTE'
DataType = datInteger DataType = datInteger
end end
item
Name = 'COMISION'
DataType = datCurrency
end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
DataType = datString DataType = datString

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

48
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -110,18 +109,6 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 618 Width = 618
ExplicitWidth = 618 ExplicitWidth = 618
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -153,18 +140,6 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 618 Width = 618
ExplicitWidth = 618 ExplicitWidth = 618
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -174,12 +149,15 @@ inherited fEditorContacto: TfEditorContacto
Panels = < Panels = <
item item
Width = 200 Width = 200
end
item
Text =
'F1 - Guardar y cerrar Ctrl + F1 - Guardar Ctrl + Del - Eli' +
'minar Esc - Cerrar'
Width = 50
end> end>
ExplicitWidth = 632 ExplicitWidth = 632
end end
inherited EditorActionList: TActionList
Top = 128
end
inherited dsDataTable: TDADataSource [5] inherited dsDataTable: TDADataSource [5]
Left = 168 Left = 168
Top = 120 Top = 120
@ -189,7 +167,7 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited StatusBarImages: TPngImageList [7] inherited StatusBarImages: TPngImageList [7]
end end
inherited JvFormStorage: TJvFormStorage [8] inherited JvFormStorage: TJvFormStorage
Top = 144 Top = 144
end end
inherited LargeImages: TPngImageList [9] inherited LargeImages: TPngImageList [9]
@ -198,4 +176,16 @@ inherited fEditorContacto: TfEditorContacto
inherited SmallImages: TPngImageList [10] inherited SmallImages: TPngImageList [10]
Top = 112 Top = 112
end end
inherited EditorActionList: TActionList [11]
Top = 128
inherited actGuardarCerrar: TAction
ShortCut = 112
end
inherited actGuardar: TAction
ShortCut = 16496
end
inherited actEliminar: TAction
ShortCut = 16430
end
end
end end

2
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -16,7 +16,7 @@ uses
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios, uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios,
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics,
cxLookAndFeels, cxLookAndFeelPainters; cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
type type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto) TfEditorContacto = class(TfEditorDBItem, IEditorContacto)

1
Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm
View File

@ -34,7 +34,6 @@ object fEditorDatoBancario: TfEditorDatoBancario
ParentBackground = True ParentBackground = True
TabOrder = 1 TabOrder = 1
TabStop = False TabStop = False
ExplicitHeight = 128
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 117 Left = 117
Top = 55 Top = 55

1
Source/Modulos/Contactos/Views/uEditorDatoBancario.pas
View File

@ -59,6 +59,7 @@ uses
procedure TfEditorDatoBancario.CalcularDC(Sender: TObject); procedure TfEditorDatoBancario.CalcularDC(Sender: TObject);
begin begin
eDC.EditValue := DarDC(eEntidad.EditValue,eSucursal.EditValue,eCuenta.EditValue); eDC.EditValue := DarDC(eEntidad.EditValue,eSucursal.EditValue,eCuenta.EditValue);
eDC.PostEditValue;
end; end;
constructor TfEditorDatoBancario.Create(AOwner: TComponent); constructor TfEditorDatoBancario.Create(AOwner: TComponent);

193
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -81,7 +81,7 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited TBXSeparatorItem2: TSpTBXSeparatorItem [8] inherited TBXSeparatorItem2: TSpTBXSeparatorItem [8]
end end
inherited TBXItem23: TSpTBXItem [9] inherited TBXSeparatorItem3: TSpTBXSeparatorItem [10]
end end
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
@ -174,8 +174,6 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -184,8 +182,6 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -228,8 +224,6 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbGrupoProveedor: TcxDBComboBox inherited cbGrupoProveedor: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -238,14 +232,20 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbDescripcionProveedor: TcxDBComboBox inherited cbDescripcionProveedor: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 385
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 593 Left = 593
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -266,13 +266,15 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited cxDBCheckBox3: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 385 Left = 486
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385 ExplicitLeft = 486
ExplicitWidth = 236
Width = 236
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 593 Left = 593
@ -302,16 +304,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 486
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 486
ExplicitWidth = 236
Width = 236
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 258 Left = 258
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -417,6 +409,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 Width = 816
ExplicitWidth = 816 ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
@ -581,6 +585,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 Width = 816
ExplicitWidth = 816 ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
@ -588,66 +604,19 @@ inherited fEditorProveedor: TfEditorProveedor
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 601 Top = 601
Width = 830 Width = 830
Panels = <
item
Width = 200
end
item
Text =
'f1 - Guardar y cerrar Ctrl + F1 - Guardar Ctrl + Del - Eli' +
'minar Esc - Cerrar'
Width = 50
end>
ExplicitTop = 601 ExplicitTop = 601
ExplicitWidth = 830 ExplicitWidth = 830
end end
inherited EditorActionList: TActionList
Top = 184
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actGruposProveedor: TAction
Category = 'Acciones'
Caption = 'Grupos de proveedor'
ImageIndex = 21
OnExecute = actGruposProveedorExecute
end
object actDocumentosPedidos: TAction
Category = 'Acciones'
Caption = 'Pedidos'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actDocumentosPedidosExecute
end
object actDocumentosAlbaranes: TAction
Category = 'Acciones'
Caption = 'Albaranes'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actDocumentosAlbaranesExecute
end
object actDocumentosDevoluciones: TAction
Category = 'Acciones'
Caption = 'Devoluciones'
Enabled = False
ImageIndex = 25
Visible = False
OnExecute = actDocumentosDevolucionesExecute
end
object actDocumentosFacturas: TAction
Category = 'Acciones'
Caption = 'Facturas'
Enabled = False
ImageIndex = 26
Visible = False
OnExecute = actDocumentosFacturasExecute
end
object actDocumentosRecibos: TAction
Category = 'Acciones'
Caption = 'Recibos'
Enabled = False
ImageIndex = 27
Visible = False
OnExecute = actDocumentosRecibosExecute
end
end
inherited LargeImages: TPngImageList inherited LargeImages: TPngImageList
PngImages = < PngImages = <
item item
@ -2540,4 +2509,70 @@ inherited fEditorProveedor: TfEditorProveedor
end> end>
Bitmap = {} Bitmap = {}
end end
inherited EditorActionList: TActionList
Top = 184
inherited actGuardarCerrar: TAction
ShortCut = 112
end
inherited actGuardar: TAction
ShortCut = 16496
end
inherited actEliminar: TAction
ShortCut = 16430
end
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actGruposProveedor: TAction
Category = 'Acciones'
Caption = 'Grupos de proveedor'
ImageIndex = 21
OnExecute = actGruposProveedorExecute
end
object actDocumentosPedidos: TAction
Category = 'Acciones'
Caption = 'Pedidos'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actDocumentosPedidosExecute
end
object actDocumentosAlbaranes: TAction
Category = 'Acciones'
Caption = 'Albaranes'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actDocumentosAlbaranesExecute
end
object actDocumentosDevoluciones: TAction
Category = 'Acciones'
Caption = 'Devoluciones'
Enabled = False
ImageIndex = 25
Visible = False
OnExecute = actDocumentosDevolucionesExecute
end
object actDocumentosFacturas: TAction
Category = 'Acciones'
Caption = 'Facturas'
Enabled = False
ImageIndex = 26
Visible = False
OnExecute = actDocumentosFacturasExecute
end
object actDocumentosRecibos: TAction
Category = 'Acciones'
Caption = 'Recibos'
Enabled = False
ImageIndex = 27
Visible = False
OnExecute = actDocumentosRecibosExecute
end
end
end end

2
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

@ -15,7 +15,7 @@ uses
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos, dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega, uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto, uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto,
cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters; cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
type type
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor) TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)

25
Source/Modulos/Contactos/Views/uEditorVendedor.dfm
View File

@ -117,8 +117,6 @@ inherited fEditorVendedor: TfEditorVendedor
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -127,8 +125,6 @@ inherited fEditorVendedor: TfEditorVendedor
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -154,7 +150,6 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 630 Width = 630
end end
inherited edtComision: TcxDBSpinEdit inherited edtComision: TcxDBSpinEdit
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 65 ExplicitWidth = 65
Width = 65 Width = 65
@ -330,16 +325,6 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitTop = 557 ExplicitTop = 557
ExplicitWidth = 676 ExplicitWidth = 676
end end
inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item
@ -846,4 +831,14 @@ inherited fEditorVendedor: TfEditorVendedor
end> end>
Bitmap = {} Bitmap = {}
end end
inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
end
end end

2
Source/Modulos/Contactos/Views/uEditorVendedor.pas
View File

@ -14,7 +14,7 @@ uses
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces, uViewPersonalContacto, StdCtrls, uDAInterfaces, uViewPersonalContacto, StdCtrls,
uViewContactoListaDatosBancarios, cxLabel, cxGraphics, cxLookAndFeels, uViewContactoListaDatosBancarios, cxLabel, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters; cxLookAndFeelPainters, JvEnterTab;
type type
TfEditorVendedor = class(TfEditorContacto, IEditorVendedor) TfEditorVendedor = class(TfEditorContacto, IEditorVendedor)

1
Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm
View File

@ -10,6 +10,7 @@ inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewTITULAR: TcxGridDBColumn object cxGridViewTITULAR: TcxGridDBColumn
Caption = 'BANCO'
DataBinding.FieldName = 'TITULAR' DataBinding.FieldName = 'TITULAR'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Width = 80 Width = 80

61
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -3,6 +3,7 @@ inherited frViewProveedor: TfrViewProveedor
Height = 492 Height = 492
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 799 ExplicitWidth = 799
ExplicitHeight = 492 ExplicitHeight = 492
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
@ -168,6 +169,28 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 3 TabOrder = 3
Width = 330 Width = 330
end end
object cxDBCheckBox3: TcxDBCheckBox [13]
Left = 361
Top = 109
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
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 = 83
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 569 Left = 569
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -190,13 +213,14 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
object cxDBCheckBox3: TcxDBCheckBox [15] object cxDBCheckBox1: TcxDBCheckBox [16]
Left = 361 Left = 462
Top = 109 Top = 294
Caption = 'Subcontrata' Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'SUBCONTRATA' DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1 Properties.ValueChecked = 1
Properties.ValueUnchecked = 0 Properties.ValueUnchecked = 0
@ -209,8 +233,8 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 21
Width = 83 Width = 236
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 569 Left = 569
@ -244,29 +268,6 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 330 ExplicitWidth = 330
Width = 330 Width = 330
end end
object cxDBCheckBox1: TcxDBCheckBox [19]
Left = 462
Top = 294
Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
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 = 21
Width = 236
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 231 Left = 231
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''

7
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -39,6 +39,7 @@ type
procedure cbGrupoProveedorPropertiesValidate(Sender: TObject; procedure cbGrupoProveedorPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbDescripcionProveedorPropertiesInitPopup(Sender: TObject); procedure cbDescripcionProveedorPropertiesInitPopup(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
protected protected
FGrupoController: IGruposProveedorController; FGrupoController: IGruposProveedorController;
public public
@ -124,4 +125,10 @@ begin
inherited; inherited;
end; end;
procedure TfrViewProveedor.CustomViewShow(Sender: TObject);
begin
inherited;
eNIFCIF.SetFocus;
end;
end. end.

1
Source/Modulos/Contactos/Views/uViewVendedor.dfm
View File

@ -1,6 +1,7 @@
inherited frViewVendedor: TfrViewVendedor inherited frViewVendedor: TfrViewVendedor
Width = 642 Width = 642
Height = 446 Height = 446
OnShow = CustomViewShow
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 446 ExplicitHeight = 446
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl

7
Source/Modulos/Contactos/Views/uViewVendedor.pas
View File

@ -20,6 +20,7 @@ type
TfrViewVendedor = class(TfrViewContacto, IViewVendedor) TfrViewVendedor = class(TfrViewContacto, IViewVendedor)
dxLayoutControlContactoItem20: TdxLayoutItem; dxLayoutControlContactoItem20: TdxLayoutItem;
edtComision: TcxDBSpinEdit; edtComision: TcxDBSpinEdit;
procedure CustomViewShow(Sender: TObject);
private private
FDataItem : TDADataTable; FDataItem : TDADataTable;
@ -38,6 +39,12 @@ implementation
uses uFactuGES_App; uses uFactuGES_App;
procedure TfrViewVendedor.CustomViewShow(Sender: TObject);
begin
inherited;
eReferencia.SetFocus;
end;
function TfrViewVendedor.GetDataItem: TDADataTable; function TfrViewVendedor.GetDataItem: TDADataTable;
begin begin
Result := FDataItem; Result := FDataItem;

30
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Top = 24 Top = 24
end end
object rda_FacturasCliente: TDARemoteDataAdapter object rda_FacturasCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51 Left = 51
Top = 143 Top = 143
end end
@ -68,10 +68,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha de vencimiento'
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end end
item item
Name = 'FECHA_RETENCION' Name = 'FECHA_RETENCION'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'FacturasCliente_FECHA_RETENCION'
DictionaryEntry = 'FacturasCliente_FECHA_RETENCION'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
@ -162,6 +166,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger DataType = datInteger
DisplayLabel = 'FacturasCliente_ID_DIRECCION'
DictionaryEntry = 'FacturasCliente_ID_DIRECCION'
end end
item item
Name = 'CALLE' Name = 'CALLE'
@ -202,6 +208,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'FacturasCliente_PERSONA_CONTACTO'
DictionaryEntry = 'FacturasCliente_PERSONA_CONTACTO'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -263,19 +271,35 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
end end
item item
Name = 'RETENCION' Name = 'RETENCION'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'FacturasCliente_RETENCION'
end end
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_RETENCION'
end end
item item
Name = 'DESCUENTO2' Name = 'DESCUENTO2'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'FacturasCliente_DESCUENTO2'
end end
item item
Name = 'IMPORTE_DESCUENTO2' Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO2'
end
item
Name = 'COMISION'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

2
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -10,7 +10,7 @@ uses
uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente, uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente,
uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase, uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils; uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter;
type type
TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport) TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport)

123
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -1,5 +1,6 @@
unit schFacturasClienteClient_Intf; unit schFacturasClienteClient_Intf;
{$D-}
interface interface
uses uses
@ -9,9 +10,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{18E3B38E-05CB-4C64-875A-E3E8DD826B4A}'; RID_ListaAnosFacturas = '{417C7922-1E31-4AC9-8DCD-A1E97B76BE3E}';
RID_FacturasCliente = '{72415424-F8B7-4DD5-9212-36B4CD96E0E5}'; RID_FacturasCliente = '{795BCC34-AE4B-4403-822E-A0963AE1F148}';
RID_FacturasCliente_Detalles = '{9C3C3304-5F29-463A-8363-DF71466BD707}'; RID_FacturasCliente_Detalles = '{FC869CD0-FEAC-4C31-BA20-15AFF27A234B}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -67,6 +68,8 @@ const
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteDESCUENTO2 = 'DESCUENTO2'; fld_FacturasClienteDESCUENTO2 = 'DESCUENTO2';
fld_FacturasClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2'; fld_FacturasClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
fld_FacturasClienteCOMISION = 'COMISION';
fld_FacturasClienteIMPORTE_COMISION = 'IMPORTE_COMISION';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -111,6 +114,8 @@ const
idx_FacturasClienteIMPORTE_RETENCION = 39; idx_FacturasClienteIMPORTE_RETENCION = 39;
idx_FacturasClienteDESCUENTO2 = 40; idx_FacturasClienteDESCUENTO2 = 40;
idx_FacturasClienteIMPORTE_DESCUENTO2 = 41; idx_FacturasClienteIMPORTE_DESCUENTO2 = 41;
idx_FacturasClienteCOMISION = 42;
idx_FacturasClienteIMPORTE_COMISION = 43;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -149,7 +154,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{C395660C-71FF-4520-ACB6-39D23260DDB9}'] ['{EF2E146E-265A-42B4-B242-5EB46370FCBC}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -184,7 +189,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{BEC23A5E-4807-4786-937F-D27547B1A4EF}'] ['{68797463-BDFE-41BD-8919-EA62A465EEE8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -337,22 +342,30 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean; function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
function GetRETENCIONValue: Currency; function GetRETENCIONValue: Float;
procedure SetRETENCIONValue(const aValue: Currency); procedure SetRETENCIONValue(const aValue: Float);
function GetRETENCIONIsNull: Boolean; function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean); procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency; function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean; function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
function GetDESCUENTO2Value: Currency; function GetDESCUENTO2Value: Float;
procedure SetDESCUENTO2Value(const aValue: Currency); procedure SetDESCUENTO2Value(const aValue: Float);
function GetDESCUENTO2IsNull: Boolean; function GetDESCUENTO2IsNull: Boolean;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); procedure SetDESCUENTO2IsNull(const aValue: Boolean);
function GetIMPORTE_DESCUENTO2Value: Currency; function GetIMPORTE_DESCUENTO2Value: Currency;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
function GetIMPORTE_DESCUENTO2IsNull: Boolean; function GetIMPORTE_DESCUENTO2IsNull: Boolean;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
function GetCOMISIONValue: Float;
procedure SetCOMISIONValue(const aValue: Float);
function GetCOMISIONIsNull: Boolean;
procedure SetCOMISIONIsNull(const aValue: Boolean);
function GetIMPORTE_COMISIONValue: Currency;
procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
function GetIMPORTE_COMISIONIsNull: Boolean;
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -432,14 +445,18 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue; property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -600,22 +617,30 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Currency; virtual; function GetRETENCIONValue: Float; virtual;
procedure SetRETENCIONValue(const aValue: Currency); virtual; procedure SetRETENCIONValue(const aValue: Float); virtual;
function GetRETENCIONIsNull: Boolean; virtual; function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual; function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual; function GetDESCUENTO2Value: Float; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual; procedure SetDESCUENTO2Value(const aValue: Float); virtual;
function GetDESCUENTO2IsNull: Boolean; virtual; function GetDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTO2Value: Currency; virtual; function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual; function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Float; virtual;
procedure SetCOMISIONValue(const aValue: Float); virtual;
function GetCOMISIONIsNull: Boolean; virtual;
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_COMISIONValue: Currency; virtual;
procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -694,14 +719,18 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue; property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -711,7 +740,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{5F50A8F3-8EE1-4976-8180-A2DC77231CDC}'] ['{23E28948-6C54-4B46-9DB4-51D215927995}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1765,14 +1794,14 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null; DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency; function TFacturasClienteDataTableRules.GetRETENCIONValue: Float;
begin begin
result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency; result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat;
end; end;
procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency); procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float);
begin begin
DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue; DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue;
end; end;
function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean; function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean;
@ -1807,14 +1836,14 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null; DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Currency; function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Float;
begin begin
result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency; result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsFloat;
end; end;
procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency); procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float);
begin begin
DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency := aValue; DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsFloat := aValue;
end; end;
function TFacturasClienteDataTableRules.GetDESCUENTO2IsNull: boolean; function TFacturasClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
@ -1849,6 +1878,48 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsVariant := Null; DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetCOMISIONValue: Float;
begin
result := DataTable.Fields[idx_FacturasClienteCOMISION].AsFloat;
end;
procedure TFacturasClienteDataTableRules.SetCOMISIONValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasClienteCOMISION].AsFloat := aValue;
end;
function TFacturasClienteDataTableRules.GetCOMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteCOMISION].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteCOMISION].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetIMPORTE_COMISIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].AsCurrency;
end;
procedure TFacturasClienteDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].AsCurrency := aValue;
end;
function TFacturasClienteDataTableRules.GetIMPORTE_COMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

611
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

22
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -44,6 +44,7 @@ type
// procedure CalcularDescuento; // procedure CalcularDescuento;
procedure CalcularIVA; procedure CalcularIVA;
procedure CalcularRE; procedure CalcularRE;
procedure CalcularComision;
procedure CalcularBaseImponible; procedure CalcularBaseImponible;
procedure AsignarTipoIVA (IDTipoIVA : Integer); procedure AsignarTipoIVA (IDTipoIVA : Integer);
@ -68,6 +69,7 @@ type
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField); procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure DESCUENTO2OnChange(Sender: TDACustomField); procedure DESCUENTO2OnChange(Sender: TDACustomField);
procedure COMISIONOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField); procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField); procedure REOnChange(Sender: TDACustomField);
@ -138,7 +140,14 @@ begin
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100); IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE; BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
end;
procedure TBizFacturaCliente.CalcularComision;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE;
end; end;
{procedure TBizFacturaCliente.CalcularDescuento; {procedure TBizFacturaCliente.CalcularDescuento;
@ -156,6 +165,7 @@ begin
CalcularBaseImponible; CalcularBaseImponible;
CalcularIVA; CalcularIVA;
CalcularRE; CalcularRE;
CalcularComision;
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
@ -180,6 +190,11 @@ begin
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
end; end;
procedure TBizFacturaCliente.COMISIONOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
constructor TBizFacturaCliente.Create(aDataTable: TDADataTable); constructor TBizFacturaCliente.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
@ -194,6 +209,7 @@ begin
FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange; FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange;
FieldByName(fld_FacturasClienteDESCUENTO2).OnChange := DESCUENTO2OnChange; FieldByName(fld_FacturasClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
FieldByName(fld_FacturasClienteCOMISION).OnChange := COMISIONOnChange;
FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange; FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange;
FieldByName(fld_FacturasClienteRE).OnChange := REOnChange; FieldByName(fld_FacturasClienteRE).OnChange := REOnChange;
end; end;
@ -323,7 +339,9 @@ begin
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;
DESCUENTO2 := FCliente.DESCUENTO2; DESCUENTO2 := FCliente.DESCUENTO2;
COMISION := FCliente.COMISION;
Post; Post;
if bEnEdicion then if bEnEdicion then

127
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -215,6 +215,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'PERSONA_CONTACTO' DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'COMISION'
TableField = 'COMISION'
end
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -257,10 +265,12 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end end
item item
Name = 'FECHA_RETENCION' Name = 'FECHA_RETENCION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_RETENCION'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
@ -333,6 +343,7 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_DIRECCION'
end end
item item
Name = 'CALLE' Name = 'CALLE'
@ -368,6 +379,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_PERSONA_CONTACTO'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -423,19 +435,35 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'RETENCION' Name = 'RETENCION'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'FacturasCliente_RETENCION'
end end
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_RETENCION'
end end
item item
Name = 'DESCUENTO2' Name = 'DESCUENTO2'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'FacturasCliente_DESCUENTO2'
end end
item item
Name = 'IMPORTE_DESCUENTO2' Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO2'
end
item
Name = 'COMISION'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end> end>
end end
item item
@ -847,7 +875,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datDecimal
Value = '' Value = ''
end end
item item
@ -1008,6 +1036,16 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'IMPORTE_DESCUENTO2' Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end
item
Name = 'COMISION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1025,18 +1063,19 @@ object srvFacturasCliente: TsrvFacturasCliente
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'PERSONA_CONTACTO,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESC' + 'PERSONA_CONTACTO,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESC' +
'UENTO2,'#10' IMPORTE_DESCUENTO2)'#10' VALUES ('#10' :ID,'#10' :ID_EMPR' + 'UENTO2,'#10' IMPORTE_DESCUENTO2,'#10' COMISION,'#10' IMPORTE_COMISI' +
'ESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO' + 'ON)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' +
','#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' + 'ECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' ' +
' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :I' + ':BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IV' +
'MPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIEN' + 'A,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTA' +
'TE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' + 'L,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBR' +
' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALT' + 'E,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA' +
'A,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' + ','#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10 +
' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' + ' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' ' +
' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :PERSONA_CONTACTO,'#10' ' + ' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS' +
' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :DESCUENTO2,'#10' :IMP' + '_BANCARIOS,'#10' :PERSONA_CONTACTO,'#10' :RETENCION,'#10' :IMPORTE_' +
'ORTE_DESCUENTO2);'#10 'RETENCION,'#10' :DESCUENTO2,'#10' :IMPORTE_DESCUENTO2,'#10' :COMISI' +
'ON,'#10' :IMPORTE_COMISION);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1234,6 +1273,16 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'COMISION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1262,7 +1311,8 @@ object srvFacturasCliente: TsrvFacturasCliente
'ANCARIOS,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RETENCIO' + 'ANCARIOS,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RETENCIO' +
'N = :RETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ' + 'N = :RETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ' +
'DESCUENTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESC' + 'DESCUENTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESC' +
'UENTO2'#10' WHERE'#10' (ID = :OLD_ID);'#10 'UENTO2,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION = :IMPORT' +
'E_COMISION'#10#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1626,6 +1676,51 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Datos bancarios' DisplayLabel = 'Datos bancarios'
end
item
Name = 'FacturasCliente_FECHA_RETENCION'
DataType = datDateTime
end
item
Name = 'FacturasCliente_ID_DIRECCION'
DataType = datInteger
end
item
Name = 'FacturasCliente_PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'FacturasCliente_RETENCION'
DataType = datFloat
DisplayLabel = 'RETENCION'
end
item
Name = 'FacturasCliente_IMPORTE_RETENCION'
DataType = datCurrency
DisplayLabel = 'IMPORTE_RETENCION'
end
item
Name = 'FacturasCliente_DESCUENTO2'
DataType = datFloat
DisplayLabel = 'DESCUENTO2'
end
item
Name = 'FacturasCliente_IMPORTE_DESCUENTO2'
DataType = datCurrency
DisplayLabel = 'IMPORTE_DESCUENTO2'
end
item
Name = 'FacturasCliente_COMISION'
DataType = datFloat
DisplayLabel = 'COMISION'
end
item
Name = 'FacturasCliente_IMPORTE_COMISION'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DisplayLabel = 'IMPORTE_COMISION'
end> end>
Left = 150 Left = 150
Top = 22 Top = 22

110
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -48,7 +48,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 902 Width = 902
ExplicitWidth = 902 ExplicitWidth = 902
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 494
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
Visible = False Visible = False
end end
@ -253,28 +253,27 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 323 ExplicitHeight = 323
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 888 Width = 888
Height = 51 Height = 46
ExplicitWidth = 888 ExplicitWidth = 888
ExplicitHeight = 51 ExplicitHeight = 46
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 0
Top = 0
Wrap = False Wrap = False
ExplicitLeft = 334 ExplicitLeft = 0
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 399 Left = 65
Top = 0 Top = 22
ExplicitLeft = 399 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
@ -286,7 +285,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 280 ExplicitWidth = 280
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 824
Top = 0
ExplicitLeft = 824
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
@ -294,52 +299,46 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited ToolButton6: TToolButton
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 83 Left = 66
Top = 27 Top = 27
ExplicitLeft = 83 ExplicitLeft = 66
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 150 Left = 133
Top = 27 Top = 27
ExplicitLeft = 150 ExplicitLeft = 133
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 233 Left = 216
Top = 27 Top = 27
ExplicitLeft = 233 ExplicitLeft = 216
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 241 Left = 224
Top = 27 Top = 27
ExplicitLeft = 241 ExplicitLeft = 224
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 386 Left = 369
Top = 27 Top = 27
ExplicitLeft = 386 ExplicitLeft = 369
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 511 Left = 494
Top = 27 Top = 27
ExplicitLeft = 511 ExplicitLeft = 494
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -356,9 +355,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 888 Width = 888
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 888 ExplicitWidth = 888
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 762
end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
@ -372,16 +368,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 630
Width = 902
Panels = <
item
Width = 200
end>
ExplicitTop = 630
ExplicitWidth = 902
end
inline frViewTotalesFactura1: TfrViewTotalesFactura [4] inline frViewTotalesFactura1: TfrViewTotalesFactura [4]
Left = 0 Left = 0
Top = 433 Top = 433
@ -536,20 +522,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited StatusBar: TJvStatusBar [5]
Left = 8 Top = 630
Top = 144 Width = 902
object actEnviarEMail: TAction Panels = <
Category = 'Acciones' item
Caption = 'Enviar por e-mail...' Width = 200
Enabled = False end>
ImageIndex = 21 ExplicitTop = 630
Visible = False ExplicitWidth = 902
OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate
end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1055,7 +1038,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end> end>
Bitmap = {} Bitmap = {}
end end
inherited LargeImages: TPngImageList [7] inherited LargeImages: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1851,8 +1834,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end> end>
Bitmap = {} Bitmap = {}
end end
inherited JvFormStorage: TJvFormStorage [8] inherited EditorActionList: TActionList [9]
Left = 8
Top = 144
object actEnviarEMail: TAction
Category = 'Acciones'
Caption = 'Enviar por e-mail...'
Enabled = False
ImageIndex = 21
Visible = False
OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate
end
end end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [10]
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
end
end end

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -18,7 +18,7 @@ uses
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
uViewDetallesArticulosParaVenta, cxLabel, uViewTotalesFactura, cxGraphics, uViewDetallesArticulosParaVenta, cxLabel, uViewTotalesFactura, cxGraphics,
cxLookAndFeels, cxLookAndFeelPainters; cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
type type

36
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 451 Width = 850
Height = 304 Height = 363
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,16 +9,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 850
Height = 304 Height = 363
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 850
304) 363)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 135 Left = 135
Top = 28 Top = 28
@ -117,7 +119,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269 Width = 269
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 161 Left = 274
Top = 112 Top = 112
Width = 132 Width = 132
Height = 23 Height = 23
@ -144,7 +146,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165 Width = 165
end end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 323 Left = 436
Top = 28 Top = 28
Width = 531 Width = 531
Height = 200 Height = 200
@ -156,7 +158,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 323 ExplicitLeft = 436
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 531 ExplicitWidth = 531
ExplicitHeight = 200 ExplicitHeight = 200
@ -174,20 +176,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 171 Left = 279
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 171 ExplicitLeft = 279
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 82 Left = 190
ExplicitLeft = 82 ExplicitLeft = 190
end end
inherited Button4: TButton inherited Button4: TButton
Left = 251 Left = 359
ExplicitLeft = 251 ExplicitLeft = 359
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -198,8 +200,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 403 Width = 403
end end
inherited Button5: TButton inherited Button5: TButton
Left = 251 Left = 359
ExplicitLeft = 251 ExplicitLeft = 359
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''

173
Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm
View File

@ -1,24 +1,26 @@
inherited frViewTotalesFactura: TfrViewTotalesFactura inherited frViewTotalesFactura: TfrViewTotalesFactura
Height = 221 Width = 829
ExplicitHeight = 221 Height = 379
ExplicitHeight = 379
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Height = 221 Width = 829
ExplicitHeight = 221 Height = 379
ExplicitHeight = 379
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 276 Left = 442
Top = 10 Top = 10
Height = 156 Height = 156
ExplicitLeft = 276 ExplicitLeft = 442
ExplicitTop = 10 ExplicitTop = 10
ExplicitHeight = 156 ExplicitHeight = 156
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 374 Left = 540
Top = 52 Top = 64
Width = 317 Width = 317
Height = 9 Height = 9
ExplicitLeft = 374 ExplicitLeft = 540
ExplicitTop = 52 ExplicitTop = 64
ExplicitWidth = 317 ExplicitWidth = 317
ExplicitHeight = 9 ExplicitHeight = 9
end end
@ -35,28 +37,28 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 37 ExplicitTop = 37
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 445 Left = 611
Top = 87 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 13
ExplicitLeft = 445 ExplicitLeft = 611
ExplicitTop = 87 ExplicitTop = 84
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 374 Left = 540
Top = 141 Top = 138
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 16
ExplicitLeft = 374 ExplicitLeft = 540
ExplicitTop = 141 ExplicitTop = 138
ExplicitWidth = 90 ExplicitWidth = 90
Width = 90 Width = 90
end end
@ -72,19 +74,19 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 37 ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 374 Left = 540
Top = 87 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 12
ExplicitLeft = 374 ExplicitLeft = 540
ExplicitTop = 87 ExplicitTop = 84
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 374 Left = 540
Top = 10 Top = 10
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -92,32 +94,32 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 9
ExplicitLeft = 374 ExplicitLeft = 540
ExplicitTop = 10 ExplicitTop = 10
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 374 Left = 540
Top = 114 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 14
ExplicitLeft = 374 ExplicitLeft = 540
ExplicitTop = 114 ExplicitTop = 111
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 445 Left = 611
Top = 114 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 15
ExplicitLeft = 445 ExplicitLeft = 611
ExplicitTop = 114 ExplicitTop = 111
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 102 Left = 102
@ -156,10 +158,10 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 118 ExplicitTop = 118
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 128 Left = 294
Top = 118 Top = 118
TabOrder = 7 TabOrder = 7
ExplicitLeft = 128 ExplicitLeft = 294
ExplicitTop = 118 ExplicitTop = 118
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -240,6 +242,76 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
Height = 21 Height = 21
Width = 293 Width = 293
end end
object eComision: TcxDBSpinEdit [17]
Left = 540
Top = 37
AutoSize = False
DataBinding.DataField = 'COMISION'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.MinValue = True
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
Height = 21
Width = 65
end
object ImporteComision: TcxDBCurrencyEdit [18]
Left = 611
Top = 37
AutoSize = False
DataBinding.DataField = 'IMPORTE_COMISION'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Height = 21
Width = 203
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
CaptionOptions.Visible = False CaptionOptions.Visible = False
@ -283,6 +355,29 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
object dxLayoutControl1Group11: TdxLayoutGroup [1]
AlignHorz = ahClient
CaptionOptions.Text = 'New Group'
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item10: TdxLayoutItem
AlignHorz = ahLeft
CaptionOptions.Text = 'Comisi'#243'n (%):'
Control = eComision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item17: TdxLayoutItem
AlignHorz = ahClient
Enabled = False
Control = ImporteComision
ControlOptions.ShowBorder = False
end
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Offsets.Bottom = 0
Offsets.Top = 0
end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
inherited dxLayoutControl1Item5: TdxLayoutItem inherited dxLayoutControl1Item5: TdxLayoutItem
CaptionOptions.AlignHorz = taLeftJustify CaptionOptions.AlignHorz = taLeftJustify

5
Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas
View File

@ -18,6 +18,11 @@ type
dxLayoutControl1Item22: TdxLayoutItem; dxLayoutControl1Item22: TdxLayoutItem;
eImporteDto2: TcxDBCurrencyEdit; eImporteDto2: TcxDBCurrencyEdit;
dxLayoutControl1Group12: TdxLayoutGroup; dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
eComision: TcxDBSpinEdit;
dxLayoutControl1Item17: TdxLayoutItem;
ImporteComision: TcxDBCurrencyEdit;
dxLayoutControl1Group11: TdxLayoutGroup;
private private
{ Private declarations } { Private declarations }
public public

14
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm
View File

@ -139,19 +139,11 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 358 ExplicitWidth = 358
end end
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 902 ExplicitWidth = 902
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 328
DockPos = 275 DockPos = 275
ExplicitLeft = 328
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -179,9 +171,10 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
ExplicitHeight = 499 ExplicitHeight = 499
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 902 Width = 902
Height = 371 Height = 400
ExplicitTop = 73
ExplicitWidth = 902 ExplicitWidth = 902
ExplicitHeight = 371 ExplicitHeight = 400
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -225,6 +218,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 902 Width = 902
ExplicitWidth = 902 ExplicitWidth = 902
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 902 Width = 902
ExplicitWidth = 902 ExplicitWidth = 902

BIN
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas
View File

Binary file not shown.

26
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm
View File

@ -1,5 +1,7 @@
inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 73
Height = 294
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID' DataController.KeyFieldNames = 'RecID'
@ -111,7 +113,10 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Height = 73
ExplicitHeight = 73
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Height = 73
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -143,6 +148,26 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
Visible = False
end
inherited lgroupnum: TdxLayoutGroup
Visible = True
end
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
inherited tbxBotones: TSpTBXToolbar
inherited TBXItem2: TSpTBXItem
OnClick = nil
end
end
end
end
inherited ActionList1: TActionList
inherited actQuitarFiltro: TAction
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
end end
end end
end end
@ -155,7 +180,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end end
end end
inherited dxPSEngineController1: TdxPSEngineController inherited dxPSEngineController1: TdxPSEngineController
Active = True
Left = 328 Left = 328
Top = 160 Top = 160
end end

30
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas
View File

@ -51,10 +51,12 @@ type
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle); AStyle: TcxStyle);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
procedure AnadirFiltroAlmacenes; procedure AnadirFiltroAlmacenes;
procedure AnadirFiltroReferencias;
protected protected
FAlmacenes: IBizAlmacen; FAlmacenes: IBizAlmacen;
@ -93,12 +95,32 @@ begin
} }
end; end;
procedure TfrViewHistoricoMovimientos.AnadirFiltroReferencias;
var
Columna: TcxGridDBColumn;
Referencia1, Referencia2: Variant;
FFiltro : TcxFilterCriteriaItemList;
begin
Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value;
Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value;
if (Referencia1 <> 0) and (Referencia2 <> 0) then
begin
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
FFiltro := AddFilterGrid(fboAnd);
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA');
FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2));
end;
end;
procedure TfrViewHistoricoMovimientos.AnadirOtrosFiltros; procedure TfrViewHistoricoMovimientos.AnadirOtrosFiltros;
begin begin
inherited; inherited;
AnadirFiltroAlmacenes; AnadirFiltroAlmacenes;
AnadirFiltroReferencias;
//Finalmente activamos el filtro si tenemos algo //Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False then cxGridView.DataController.Filter.Active := False
@ -141,6 +163,12 @@ begin
inherited; inherited;
end; end;
procedure TfrViewHistoricoMovimientos.frViewFiltroBase1actQuitarFiltroExecute(
Sender: TObject);
begin
frViewFiltroBase1.LimpiarCampos;
end;
function TfrViewHistoricoMovimientos.GetAlmacenes: IBizAlmacen; function TfrViewHistoricoMovimientos.GetAlmacenes: IBizAlmacen;
begin begin
Result := FAlmacenes; Result := FAlmacenes;

16
Source/Modulos/Inventario/Inventario_Group.groupproj
View File

@ -18,6 +18,7 @@
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" /> <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Historico de movimientos\Views\HistoricoMovimientos_view.dproj" />
<Projects Include="..\Obras\Controller\Obras_controller.dproj" /> <Projects Include="..\Obras\Controller\Obras_controller.dproj" />
<Projects Include="..\Obras\Data\Obras_data.dproj" /> <Projects Include="..\Obras\Data\Obras_data.dproj" />
<Projects Include="..\Obras\Model\Obras_model.dproj" /> <Projects Include="..\Obras\Model\Obras_model.dproj" />
@ -261,14 +262,23 @@
<Target Name="AlbaranesCliente_view:Make"> <Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="HistoricoMovimientos_view">
<MSBuild Projects="..\Historico de movimientos\Views\HistoricoMovimientos_view.dproj" Targets="" />
</Target>
<Target Name="HistoricoMovimientos_view:Clean">
<MSBuild Projects="..\Historico de movimientos\Views\HistoricoMovimientos_view.dproj" Targets="Clean" />
</Target>
<Target Name="HistoricoMovimientos_view:Make">
<MSBuild Projects="..\Historico de movimientos\Views\HistoricoMovimientos_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model;AlbaranesCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model;AlbaranesCliente_view;HistoricoMovimientos_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean;AlbaranesCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean;AlbaranesCliente_view:Clean;HistoricoMovimientos_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make;AlbaranesCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make;AlbaranesCliente_view:Make;HistoricoMovimientos_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

62
Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm
View File

@ -5,12 +5,11 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 113 Top = 82
Width = 832 Width = 832
Caption = 'Lista de art'#237'culos' Caption = 'Lista de art'#237'culos'
Visible = False Visible = False
ExplicitLeft = 8 ExplicitTop = 113
ExplicitTop = 146
ExplicitWidth = 832 ExplicitWidth = 832
inherited Image1: TImage inherited Image1: TImage
Left = 805 Left = 805
@ -22,25 +21,22 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Top = 64 Top = 33
Width = 832 Width = 832
Height = 49 Height = 49
ExplicitTop = 91 ExplicitTop = 64
ExplicitWidth = 832 ExplicitWidth = 832
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
Align = alLeft Align = alLeft
DockPos = -6 DockPos = -6
ExplicitWidth = 427 ExplicitWidth = 284
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem4: TSpTBXItem inherited TBXItem4: TSpTBXItem
Visible = False Visible = False
end end
inherited TBXItem57: TSpTBXItem
Visible = False
end
inherited TBXItem6: TSpTBXItem inherited TBXItem6: TSpTBXItem
Visible = False Visible = False
end end
@ -49,12 +45,12 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
inherited tbxFiltro: TSpTBXToolbar inherited tbxFiltro: TSpTBXToolbar
Left = 427 Left = 284
Top = 23 Top = 23
Align = alLeft Align = alLeft
DockPos = 101 DockPos = 101
DockRow = 1 DockRow = 1
ExplicitLeft = 427 ExplicitLeft = 284
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TSpTBXItem inherited TBXItem34: TSpTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -64,14 +60,12 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
ExplicitWidth = 832 ExplicitWidth = 832
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 696 Left = 680
Top = 23 Top = 23
DockPos = 559 DockPos = 559
DockRow = 1 DockRow = 1
Visible = False ExplicitLeft = 680
ExplicitLeft = 696
ExplicitTop = 23 ExplicitTop = 23
ExplicitWidth = 36
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -126,7 +120,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
Left = 0 Left = 0
Top = 0 Top = 0
Width = 832 Width = 832
Height = 64 Height = 33
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
Color = clWhite Color = clWhite
@ -136,7 +130,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
@ -162,7 +155,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
Left = 50 Left = 50
Top = 29 Top = 29
Width = 757 Width = 757
Height = 24 Height = 1
Margins.Left = 25 Margins.Left = 25
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -172,17 +165,18 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
inherited frViewInventario1: TfrViewInventario [5] inherited frViewInventario1: TfrViewInventario [5]
Top = 140 Top = 109
Width = 832 Width = 832
Height = 332 Height = 363
ExplicitTop = 140 ExplicitTop = 140
ExplicitWidth = 832 ExplicitWidth = 832
ExplicitHeight = 332 ExplicitHeight = 332
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 832 Width = 832
Height = 163 Height = 223
ExplicitTop = 114
ExplicitWidth = 832 ExplicitWidth = 832
ExplicitHeight = 163 ExplicitHeight = 192
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -207,6 +201,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
Width = 832 Width = 832
ExplicitWidth = 832 ExplicitWidth = 832
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 832
ExplicitWidth = 832 ExplicitWidth = 832
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 832 Width = 832
@ -247,8 +242,8 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 832 Width = 822
ExplicitWidth = 832 ExplicitWidth = 822
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 822 Width = 822
ExplicitWidth = 822 ExplicitWidth = 822
@ -257,15 +252,16 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 306 Top = 337
Width = 832
ExplicitTop = 306 ExplicitTop = 306
ExplicitWidth = 832 ExplicitWidth = 832
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 832 Width = 832
ExplicitWidth = 832 ExplicitWidth = 832
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 822 Width = 832
ExplicitWidth = 822 ExplicitWidth = 832
end end
end end
end end
@ -283,6 +279,9 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item
@ -295,15 +294,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
Left = 112 Left = 112
Top = 192 Top = 192
inherited actRecibirPedido: TAction
Visible = False
end
inherited actTrasladar: TAction
Visible = False
end
inherited actReservados: TAction
Visible = False
end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
Top = 192 Top = 192

2
Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas
View File

@ -12,7 +12,7 @@ uses
JvNavigationPane, uViewBarraSeleccion, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorArticulos, uBizArticulos, uIEditorElegirArticulosAlmacen, uEditorArticulos, uBizArticulos, uIEditorElegirArticulosAlmacen,
JvExComCtrls, JvStatusBar, uEditorInventario, uViewInventario, uBizInventario, JvExComCtrls, JvStatusBar, uEditorInventario, uViewInventario, uBizInventario,
JSDialog, uDAInterfaces, dxGDIPlusClasses; JSDialog, uDAInterfaces, dxGDIPlusClasses, TntStdCtrls, SpTBXEditors;
type type
TfEditorElegirArticulosAlmacen = class(TfEditorInventario, IEditorElegirArticulosAlmacen) TfEditorElegirArticulosAlmacen = class(TfEditorInventario, IEditorElegirArticulosAlmacen)

15
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm
View File

@ -7,6 +7,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 82
Width = 697 Width = 697
ExplicitWidth = 697 ExplicitWidth = 697
inherited Image1: TImage inherited Image1: TImage
@ -15,6 +16,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Top = 33
Width = 697 Width = 697
ExplicitWidth = 697 ExplicitWidth = 697
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
@ -41,13 +43,16 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end end
inherited pnlHeader: TPanel inherited pnlHeader: TPanel
Width = 697 Width = 697
Height = 33
TabOrder = 5 TabOrder = 5
ExplicitWidth = 697
ExplicitHeight = 33
inherited lblTitle: TLabel inherited lblTitle: TLabel
Width = 647 Width = 647
end end
inherited lblComments: TLabel inherited lblComments: TLabel
Width = 622 Width = 622
Height = 24 Height = 1
end end
end end
inherited frViewBarraSeleccion1: TfrViewBarraSeleccion inherited frViewBarraSeleccion1: TfrViewBarraSeleccion
@ -70,9 +75,9 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end end
inline frViewElegirArticulosCatalogo1: TfrViewElegirArticulosCatalogo [5] inline frViewElegirArticulosCatalogo1: TfrViewElegirArticulosCatalogo [5]
Left = 0 Left = 0
Top = 140 Top = 109
Width = 697 Width = 697
Height = 369 Height = 400
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -87,7 +92,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
ExplicitHeight = 369 ExplicitHeight = 369
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 697 Width = 697
Height = 242 Height = 273
ExplicitWidth = 697 ExplicitWidth = 697
ExplicitHeight = 242 ExplicitHeight = 242
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -154,7 +159,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 344 Top = 375
Width = 697 Width = 697
ExplicitTop = 344 ExplicitTop = 344
ExplicitWidth = 697 ExplicitWidth = 697

155
Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm
View File

@ -5,6 +5,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
ClientHeight = 535 ClientHeight = 535
ClientWidth = 902 ClientWidth = 902
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitTop = -21
ExplicitWidth = 910 ExplicitWidth = 910
ExplicitHeight = 569 ExplicitHeight = 569
PixelsPerInch = 96 PixelsPerInch = 96
@ -14,7 +15,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Width = 902 Width = 902
Caption = 'Entrada de art'#237'culos en ' Caption = 'Entrada de art'#237'culos en '
ExplicitTop = 177 ExplicitTop = 177
ExplicitWidth = 908 ExplicitWidth = 902
inherited Image1: TImage inherited Image1: TImage
Left = 769 Left = 769
Picture.Data = { Picture.Data = {
@ -38,14 +39,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 804 Left = 804
ExplicitLeft = 810 ExplicitLeft = 804
AnchorX = 849 AnchorX = 849
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 902 Width = 902
ExplicitWidth = 908 ExplicitWidth = 902
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 164 ExplicitWidth = 164
object TBXItem7: TSpTBXItem [16] object TBXItem7: TSpTBXItem [16]
@ -67,19 +68,19 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Top = 295 Top = 289
Width = 896 Width = 896
Height = 218 Height = 224
MultiLine = True MultiLine = True
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
ExplicitTop = 295 ExplicitTop = 295
ExplicitWidth = 902 ExplicitWidth = 896
ExplicitHeight = 218 ExplicitHeight = 218
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 894 ExplicitWidth = 888
ExplicitHeight = 190 ExplicitHeight = 190
end end
end end
@ -89,65 +90,21 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Panels = < Panels = <
item item
Width = 200 Width = 200
end
item
Text =
'F1 - Realizar entrada Ctrl + F1 - Elegir Art'#237'culos Ctrl + ' +
'Del - Quitar art'#237'culo Esc - Cerrar'
Width = 50
end> end>
ExplicitTop = 516 ExplicitTop = 516
ExplicitWidth = 908 ExplicitWidth = 902
end
object ToolBar1: TToolBar [4]
AlignWithMargins = True
Left = 5
Top = 262
Width = 892
Height = 30
Margins.Left = 5
Margins.Top = 2
Margins.Right = 5
Margins.Bottom = 0
ButtonWidth = 119
Caption = 'ToolBar1'
EdgeInner = esNone
EdgeOuter = esNone
Flat = False
Images = SmallImages
List = True
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 3
Transparent = True
ExplicitWidth = 898
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = actAnadirInventario
AutoSize = True
end
object ToolButton2: TToolButton
Left = 112
Top = 0
Action = actEliminarInventario
AutoSize = True
end
object ToolButton6: TToolButton
Left = 235
Top = 0
Width = 8
Caption = 'ToolButton6'
ImageIndex = 2
Style = tbsSeparator
end
object ToolButton7: TToolButton
Left = 243
Top = 0
Action = actAnchoAuto
AutoSize = True
end
end end
inline frViewEntradaSalidaArticulos1: TfrViewEntradaSalidaArticulos [5] inline frViewEntradaSalidaArticulos1: TfrViewEntradaSalidaArticulos [5]
Left = 0 Left = 0
Top = 292 Top = 286
Width = 902 Width = 902
Height = 224 Height = 230
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -155,15 +112,15 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 292 ExplicitTop = 292
ExplicitWidth = 908 ExplicitWidth = 902
ExplicitHeight = 224 ExplicitHeight = 224
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 886 Width = 886
Height = 80 Height = 86
ExplicitWidth = 892 ExplicitWidth = 886
ExplicitHeight = 80 ExplicitHeight = 80
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID' DataController.KeyFieldNames = 'RecID'
@ -174,13 +131,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 902 Width = 902
ExplicitWidth = 908 ExplicitWidth = 902
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 902 Width = 902
ExplicitWidth = 908 ExplicitWidth = 902
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 902 Width = 902
ExplicitWidth = 908 ExplicitWidth = 902
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -216,25 +173,25 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 892 Width = 892
ExplicitWidth = 898 ExplicitWidth = 892
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 892 Width = 892
ExplicitWidth = 898 ExplicitWidth = 892
end end
end end
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 198 Top = 204
Width = 902 Width = 902
ExplicitTop = 198 ExplicitTop = 198
ExplicitWidth = 908 ExplicitWidth = 902
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 902 Width = 902
ExplicitWidth = 908 ExplicitWidth = 902
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 902 Width = 902
ExplicitWidth = 908 ExplicitWidth = 902
end end
end end
end end
@ -244,9 +201,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item
@ -268,7 +222,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
ExplicitWidth = 908
object Label3: TLabel object Label3: TLabel
Left = 202 Left = 202
Top = 17 Top = 17
@ -373,8 +326,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Height = 56 Height = 56
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 7 TabOrder = 6
ExplicitWidth = 908
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -384,10 +336,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitLeft = 8
ExplicitTop = 40
ExplicitWidth = 300
ExplicitHeight = 250
object Label1: TLabel object Label1: TLabel
Left = 250 Left = 250
Top = 10 Top = 10
@ -484,6 +432,40 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end end
end end
end end
object SpTBXDock1: TSpTBXDock [8]
Left = 0
Top = 260
Width = 902
Height = 26
BackgroundOnToolbars = False
ExplicitTop = 292
object SpTBXToolbar1: TSpTBXToolbar
Left = 0
Top = 0
DockPos = 0
TabOrder = 0
Caption = 'SpTBXToolbar1'
object SpTBXItem2: TSpTBXItem
Action = actAnadirInventario
DisplayMode = nbdmImageAndText
Images = SmallImages
end
object SpTBXSeparatorItem2: TSpTBXSeparatorItem
end
object SpTBXItem3: TSpTBXItem
Action = actEliminarInventario
DisplayMode = nbdmImageAndText
Images = SmallImages
end
object SpTBXSeparatorItem1: TSpTBXSeparatorItem
end
object SpTBXItem4: TSpTBXItem
Action = actAnchoAuto
DisplayMode = nbdmImageAndText
Images = SmallImages
end
end
end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item
@ -1819,7 +1801,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Left = 56 Left = 56
Top = 56 Top = 56
end end
inherited EditorActionList: TActionList [13] inherited EditorActionList: TActionList [14]
Top = 56 Top = 56
inherited actNuevo: TAction inherited actNuevo: TAction
Visible = False Visible = False
@ -1827,6 +1809,9 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
inherited actModificar: TAction inherited actModificar: TAction
Visible = False Visible = False
end end
inherited actGuardarCerrar: TAction
ShortCut = 112
end
inherited actGuardar: TAction inherited actGuardar: TAction
Visible = False Visible = False
end end
@ -1852,12 +1837,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Category = 'Inventario' Category = 'Inventario'
Caption = 'Elegir art'#237'culos...' Caption = 'Elegir art'#237'culos...'
ImageIndex = 24 ImageIndex = 24
ShortCut = 16496
OnExecute = actAnadirInventarioExecute OnExecute = actAnadirInventarioExecute
end end
object actEliminarInventario: TAction object actEliminarInventario: TAction
Category = 'Inventario' Category = 'Inventario'
Caption = 'Quitar este art'#237'culo' Caption = 'Quitar este art'#237'culo'
ImageIndex = 4 ImageIndex = 4
ShortCut = 16430
OnExecute = actEliminarInventarioExecute OnExecute = actEliminarInventarioExecute
OnUpdate = actEliminarInventarioUpdate OnUpdate = actEliminarInventarioUpdate
end end

18
Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxMemo, ToolWin, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxMemo, ToolWin,
dxLayoutControl, cxStyles, StdCtrls, Buttons, SpTBXDkPanels, uBizPedidosProveedor, dxLayoutControl, cxStyles, StdCtrls, Buttons, SpTBXDkPanels, uBizPedidosProveedor,
uDAInterfaces, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, uDAInterfaces, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters; dxLayoutcxEditAdapters, JvEnterTab;
type type
TfEditorEntradaSalidaArticulos = class(TfEditorDBItem, IEditorEntradaSalidaArticulos) TfEditorEntradaSalidaArticulos = class(TfEditorDBItem, IEditorEntradaSalidaArticulos)
@ -23,11 +23,6 @@ type
actEliminarInventario: TAction; actEliminarInventario: TAction;
actAnchoAuto: TAction; actAnchoAuto: TAction;
TBXItem7: TSpTBXItem; TBXItem7: TSpTBXItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
TBXItem33: TSpTBXItem; TBXItem33: TSpTBXItem;
pnlEntradaPedido: TSpTBXDockablePanel; pnlEntradaPedido: TSpTBXDockablePanel;
Label3: TLabel; Label3: TLabel;
@ -51,6 +46,13 @@ type
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
SpTBXDock1: TSpTBXDock;
SpTBXToolbar1: TSpTBXToolbar;
SpTBXItem2: TSpTBXItem;
SpTBXItem3: TSpTBXItem;
SpTBXItem4: TSpTBXItem;
SpTBXSeparatorItem1: TSpTBXSeparatorItem;
SpTBXSeparatorItem2: TSpTBXSeparatorItem;
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actAnadirInventarioExecute(Sender: TObject); procedure actAnadirInventarioExecute(Sender: TObject);
procedure actEliminarInventarioExecute(Sender: TObject); procedure actEliminarInventarioExecute(Sender: TObject);
@ -306,7 +308,7 @@ begin
tEntradaPedidoProveedor, tSalidaAlbaranCliente : tEntradaPedidoProveedor, tSalidaAlbaranCliente :
begin begin
if (FArticulos.TipoMovimiento = tEntradaPedidoProveedor) then if (FArticulos.TipoMovimiento = tEntradaPedidoProveedor) then
ToolBar1.Visible := False; SpTBXDock1.Visible := False;
actAnadirInventario.Enabled := False; actAnadirInventario.Enabled := False;
actAnadirInventario.Visible := False; actAnadirInventario.Visible := False;
@ -320,6 +322,8 @@ begin
end; end;
end; end;
eCausa.SetFocus;
end; end;
procedure TfEditorEntradaSalidaArticulos.actAnchoAutoExecute(Sender: TObject); procedure TfEditorEntradaSalidaArticulos.actAnchoAutoExecute(Sender: TObject);

20
Source/Modulos/Inventario/Views/uEditorInventario.dfm
View File

@ -83,7 +83,7 @@ inherited fEditorInventario: TfEditorInventario
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 576 ExplicitWidth = 490
object TBXSeparatorItem84: TSpTBXSeparatorItem [6] object TBXSeparatorItem84: TSpTBXSeparatorItem [6]
end end
object TBXItem54: TSpTBXItem [7] object TBXItem54: TSpTBXItem [7]
@ -104,25 +104,12 @@ inherited fEditorInventario: TfEditorInventario
Action = actReservar Action = actReservar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object SpTBXItem1: TSpTBXItem [14]
Action = actDetalleColores
DisplayMode = nbdmImageAndText
end
end
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem
Visible = False
end
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 669 ExplicitWidth = 669
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 328
DockPos = 264 DockPos = 264
Visible = True
ExplicitLeft = 328
object TBXItem38: TSpTBXItem object TBXItem38: TSpTBXItem
Action = actReservados Action = actReservados
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -154,7 +141,7 @@ inherited fEditorInventario: TfEditorInventario
ExplicitHeight = 419 ExplicitHeight = 419
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 669 Width = 669
Height = 250 Height = 279
TabOrder = 2 TabOrder = 2
ExplicitWidth = 669 ExplicitWidth = 669
ExplicitHeight = 250 ExplicitHeight = 250
@ -316,9 +303,6 @@ inherited fEditorInventario: TfEditorInventario
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item

8
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -32,7 +32,6 @@ type
TBXItem38: TSpTBXItem; TBXItem38: TSpTBXItem;
Image2: TImage; Image2: TImage;
actDetalleColores: TAction; actDetalleColores: TAction;
SpTBXItem1: TSpTBXItem;
procedure actModificarExecute(Sender: TObject); procedure actModificarExecute(Sender: TObject);
procedure actRecibirPedidoExecute(Sender: TObject); procedure actRecibirPedidoExecute(Sender: TObject);
procedure actTrasladarExecute(Sender: TObject); procedure actTrasladarExecute(Sender: TObject);
@ -52,6 +51,7 @@ type
procedure actReservarUpdate(Sender: TObject); procedure actReservarUpdate(Sender: TObject);
procedure actDetalleColoresExecute(Sender: TObject); procedure actDetalleColoresExecute(Sender: TObject);
procedure actDetalleColoresUpdate(Sender: TObject); procedure actDetalleColoresUpdate(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
private private
function Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant; function Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant;
@ -187,6 +187,12 @@ begin
(Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia; (Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia;
end; end;
procedure TfEditorInventario.actQuitarFiltroExecute(Sender: TObject);
begin
inherited;
frViewInventario1.frViewFiltroBase1actQuitarFiltroExecute(Sender);
end;
procedure TfEditorInventario.actReservadosExecute(Sender: TObject); procedure TfEditorInventario.actReservadosExecute(Sender: TObject);
begin begin
inherited; inherited;

26
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -5,9 +5,9 @@ inherited frViewInventario: TfrViewInventario
ExplicitWidth = 678 ExplicitWidth = 678
ExplicitHeight = 607 ExplicitHeight = 607
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 143 Top = 114
Width = 678 Width = 678
Height = 438 Height = 467
ExplicitTop = 143 ExplicitTop = 143
ExplicitWidth = 678 ExplicitWidth = 678
ExplicitHeight = 438 ExplicitHeight = 438
@ -183,9 +183,12 @@ inherited frViewInventario: TfrViewInventario
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 678 Width = 678
Height = 73
ExplicitWidth = 678 ExplicitWidth = 678
ExplicitHeight = 73
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 678 Width = 678
Height = 73
ExplicitWidth = 678 ExplicitWidth = 678
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 678 Width = 678
@ -218,6 +221,14 @@ inherited frViewInventario: TfrViewInventario
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 507
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
Visible = False
end
inherited lgroupnum: TdxLayoutGroup
Visible = True
end
end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 668 Width = 668
@ -228,6 +239,11 @@ inherited frViewInventario: TfrViewInventario
end end
end end
end end
inherited ActionList1: TActionList
inherited actQuitarFiltro: TAction
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
end
end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 581 Top = 581
@ -245,11 +261,12 @@ inherited frViewInventario: TfrViewInventario
end end
object pnlAlmacenes: TPanel [3] object pnlAlmacenes: TPanel [3]
Left = 0 Left = 0
Top = 102 Top = 73
Width = 678 Width = 678
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
ExplicitTop = 102
DesignSize = ( DesignSize = (
678 678
41) 41)
@ -286,9 +303,6 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]

30
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -69,10 +69,12 @@ type
procedure cxGridViewDataControllerCompare( procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
procedure AnadirFiltroAlmacenesObras; procedure AnadirFiltroAlmacenesObras;
procedure AnadirFiltroReferencias;
protected protected
FAlmacenes: TStringList; FAlmacenes: TStringList;
@ -115,12 +117,32 @@ begin
cxGridViewALMACEN.Visible := True; cxGridViewALMACEN.Visible := True;
end; end;
procedure TfrViewInventario.AnadirFiltroReferencias;
var
Columna: TcxGridDBColumn;
Referencia1, Referencia2: Variant;
FFiltro : TcxFilterCriteriaItemList;
begin
Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value;
Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value;
if (Referencia1 <> 0) and (Referencia2 <> 0) then
begin
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
FFiltro := AddFilterGrid(fboAnd);
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA');
FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2));
end;
end;
procedure TfrViewInventario.AnadirOtrosFiltros; procedure TfrViewInventario.AnadirOtrosFiltros;
begin begin
inherited; inherited;
AnadirFiltroAlmacenesObras; AnadirFiltroAlmacenesObras;
AnadirFiltroReferencias;
//Finalmente activamos el filtro si tenemos algo //Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False then cxGridView.DataController.Filter.Active := False
@ -195,6 +217,12 @@ begin
inherited; inherited;
end; end;
procedure TfrViewInventario.frViewFiltroBase1actQuitarFiltroExecute(
Sender: TObject);
begin
frViewFiltroBase1.LimpiarCampos;
end;
function TfrViewInventario.GetAlmacenes: TStringList; function TfrViewInventario.GetAlmacenes: TStringList;
begin begin
Result := FAlmacenes; Result := FAlmacenes;

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A4.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1261.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A2.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf125F.tmp */

Some files were not shown because too many files have changed in this diff Show More