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/>
<variables>
<project_path>
<![CDATA[C:\Codigo Noviseda]]>
<![CDATA[C:\Codigo noviseda]]>
</project_path>
</variables>
<properties>

111
Database/scripts/factuges.sql
View File

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

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,0,3,0
PRODUCTVERSION 1,0,3,0
FILEVERSION 1,0,4,0
PRODUCTVERSION 1,0,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.0.3.0\0"
VALUE "ProductVersion", "1.0.4.0\0"
END
END
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxExtCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPScxPCProdD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Controller\View\vclx.dcp" />
<DCCReference Include="..\Modulos\Inventario\Base.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPScxExtCommonD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPScxPCProdD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\frx11.dcp" />
<DCCReference Include="..\Modulos\Inventario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Inventario\fs11.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
<DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
<DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

11
Source/GUIBase/uEditorBase.dfm
View File

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

2
Source/GUIBase/uEditorBase.pas
View File

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

10
Source/GUIBase/uEditorColores.dfm
View File

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

1
Source/GUIBase/uEditorColores.pas
View File

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

12
Source/GUIBase/uEditorDBItem.dfm
View File

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

3
Source/GUIBase/uEditorDBItem.pas
View File

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

12
Source/GUIBase/uEditorGridBase.dfm
View File

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

65
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -1,26 +1,25 @@
inherited frViewFiltroBase: TfrViewFiltroBase
Width = 549
Height = 109
Width = 629
Height = 136
Visible = False
ExplicitWidth = 549
ExplicitHeight = 109
ExplicitWidth = 629
ExplicitHeight = 136
object TBXDockablePanel1: TSpTBXDockablePanel
Left = 0
Top = 0
Width = 549
Height = 109
Width = 629
Height = 136
Caption = 'TBXDockablePanel1'
Align = alClient
DockMode = dmCannotFloatOrChangeDocks
TabOrder = 0
ShowCaption = False
ShowCaptionWhenDocked = False
ExplicitHeight = 105
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 549
Height = 73
Width = 629
Height = 97
Align = alTop
ParentBackground = True
TabOrder = 0
@ -67,7 +66,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100
end
object edtFechaFinFiltro: TcxDateEdit
Left = 198
Left = 225
Top = 37
Properties.OnChange = OnCamposFiltroChange
Style.HotTrack = False
@ -87,7 +86,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100
end
object eLista: TcxComboBox
Left = 332
Left = 375
Top = 37
Properties.DropDownListStyle = lsEditFixedList
Properties.OnChange = OnCamposFiltroChange
@ -99,6 +98,27 @@ inherited frViewFiltroBase: TfrViewFiltroBase
TabOrder = 3
Width = 215
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
AlignHorz = ahParentManaged
AlignVert = avParentManaged
@ -137,13 +157,30 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ControlOptions.ShowBorder = False
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
object TBXAlignmentPanel1: TSpTBXDockablePanel
AlignWithMargins = True
Left = 10
Top = 73
Width = 539
Top = 97
Width = 619
Height = 30
Margins.Left = 10
Margins.Top = 0
@ -156,7 +193,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
object tbxBotones: TSpTBXToolbar
Left = 0
Top = 0
Width = 539
Width = 619
Height = 30
Align = alTop
AutoResize = False

25
Source/GUIBase/uViewFiltroBase.pas
View File

@ -8,7 +8,7 @@ uses
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, uDMBase,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, cxSpinEdit;
type
IViewFiltroBase = interface(IViewBase)
@ -45,6 +45,11 @@ type
TBXAlignmentPanel1: TSpTBXDockablePanel;
dxLayoutControl1Item4: TdxLayoutItem;
eLista: TcxComboBox;
edtNumFinFiltro: TcxSpinEdit;
dxLayoutControl1Item5: TdxLayoutItem;
edtNumIniFiltro: TcxSpinEdit;
dxLayoutControl1Item6: TdxLayoutItem;
lgroupnum: TdxLayoutGroup;
procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
@ -59,10 +64,10 @@ type
procedure SetTexto(const Value: String);
protected
procedure LimpiarCampos; virtual;
function ValidarCampos: Boolean; virtual;
public
procedure LimpiarCampos; virtual;
function GetModified: Boolean;
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros;
@ -108,6 +113,9 @@ begin
txtFiltroTodo.Clear;
edtFechaIniFiltro.Clear;
edtFechaFinFiltro.Clear;
eLista.Clear;
edtNumIniFiltro.Clear;
edtNumFinFiltro.Clear;
end;
procedure TfrViewFiltroBase.OnCamposFiltroChange(Sender: TObject);
@ -129,7 +137,18 @@ begin
edtFechaIniFiltro.SetFocus;
Result := False;
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;
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_view.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxCoreD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Views\vclx.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form>

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

@ -4,8 +4,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
ExplicitWidth = 802
ExplicitHeight = 490
inherited cxGrid: TcxGrid
Top = 65
Width = 802
Height = 362
Height = 399
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 802
@ -193,9 +194,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 802
Height = 65
ExplicitWidth = 802
ExplicitHeight = 65
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 802
Height = 65
ExplicitWidth = 802
inherited dxLayoutControl1: TdxLayoutControl
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\Views\FacturasCliente_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="Controller\Articulos_controller.dproj" />
<Projects Include="Data\Articulos_data.dproj" />
@ -161,14 +162,23 @@
<Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

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

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

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

@ -45,25 +45,28 @@ inherited fEditorArticulo: TfEditorArticulo
Width = 905
ExplicitWidth = 905
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330
ExplicitWidth = 331
inherited TBXItem2: TSpTBXItem
Visible = False
end
inherited SpTBXItem1: TSpTBXItem
DisplayMode = nbdmImageAndText
end
inherited TBXItem5: TSpTBXItem
Visible = False
end
inherited TBXItem23: TSpTBXItem
Visible = False
end
inherited TBXItem3: TSpTBXItem
Visible = False
end
object TBXSeparatorItem6: TSpTBXSeparatorItem [11]
end
object TBXItem33: TSpTBXItem [12]
Action = actFamilias
DisplayMode = nbdmImageAndText
end
inherited TBXItem3: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TSpTBXToolbar
DockPos = 0
@ -111,6 +114,146 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitTop = 24
ExplicitWidth = 891
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
inherited StatusBar: TJvStatusBar
@ -119,6 +262,12 @@ inherited fEditorArticulo: TfEditorArticulo
Panels = <
item
Width = 200
end
item
Text =
'F1 - Guardar y nuevo Ctrl + F1 - Guardar Ctrl + Del - El' +
'iminar Esc - Cerrar'
Width = 50
end>
ExplicitTop = 486
ExplicitWidth = 905
@ -126,6 +275,55 @@ inherited fEditorArticulo: TfEditorArticulo
inherited EditorActionList: TActionList
Left = 40
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
Category = 'Acciones'
Caption = 'Familias'
@ -136,7 +334,18 @@ inherited fEditorArticulo: TfEditorArticulo
OnExecute = actFamiliasExecute
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 = <
item
PngImage.Data = {
@ -642,17 +851,6 @@ inherited fEditorArticulo: TfEditorArticulo
Top = 112
Bitmap = {}
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
Left = 432
Top = 152

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

@ -19,17 +19,19 @@ uses
cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico,
uViewArticulosProveedores, dxLayoutControl, cxContainer,
cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit, cxLabel,
cxLookAndFeels, cxLookAndFeelPainters;
cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
type
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
TBXItem33: TSpTBXItem;
actFamilias: TAction;
TBXSeparatorItem6: TSpTBXSeparatorItem;
frViewArticulo1: TfrViewArticulo;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actFamiliasExecute(Sender: TObject);
procedure actGuardarYNuevoExecute(Sender: TObject);
protected
FController : IArticulosController;
FArticulo: IBizArticulo;
@ -86,7 +88,19 @@ end;
procedure TfEditorArticulo.GuardarInterno;
begin
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;
end;
@ -172,11 +186,22 @@ begin
end;
end;
procedure TfEditorArticulo.actGuardarYNuevoExecute(Sender: TObject);
begin
ShowHourglassCursor;
try
if actGuardar.Execute then
FController.Anadir(Articulo);
finally
HideHourglassCursor;
end;
end;
procedure TfEditorArticulo.AsignarVista;
var
AViewArticulo: TfrViewArticulo;
begin
AViewArticulo := TfrViewArticulo.create(Self);
AViewArticulo := frViewArticulo1;
with AViewArticulo do
begin
Parent := pagGeneral;

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

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

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

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

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

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

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

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

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

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

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

@ -58,13 +58,15 @@ type
procedure actFabricanteUpdate(Sender: TObject);
procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private
procedure AnadirFiltroReferencias;
protected
FArticulos: IBizArticulo;
FController: IArticulosController;
@ -154,10 +156,31 @@ begin
(Sender as TAction).Checked := not (cxGridViewFAMILIA.GroupIndex < 0);
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;
begin
inherited;
AnadirFiltroReferencias;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False
@ -197,14 +220,7 @@ end;
procedure TfrViewArticulos.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
begin
frViewFiltroBase1.txtFiltroTodo.Clear;
frViewFiltroBase1.eLista.Clear;
end;
procedure TfrViewArticulos.frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
begin
inherited;
RefrescarFiltro;
frViewFiltroBase1.LimpiarCampos;
end;
end.

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

@ -2,52 +2,99 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ParentBiDiMode = False
OnShow = CustomViewShow
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
Top = 22
Width = 42
ExplicitTop = 22
ExplicitWidth = 42
end
inherited UpDown1: TUpDown
Left = 187
Top = 22
Width = 17
ExplicitLeft = 187
ExplicitTop = 22
ExplicitWidth = 17
end
inherited ToolButton13: TToolButton
Left = 204
Top = 22
ExplicitLeft = 204
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 212
Top = 22
ExplicitLeft = 212
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 278
Top = 22
ExplicitLeft = 278
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 345
Top = 22
ExplicitLeft = 345
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 428
ExplicitLeft = 428
Left = 0
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton9: TToolButton
Left = 436
ExplicitLeft = 436
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton10: TToolButton
Left = 581
ExplicitLeft = 581
Left = 145
Top = 49
ExplicitLeft = 145
ExplicitTop = 49
end
inherited ToolButton11: TToolButton
Left = 706
ExplicitLeft = 706
Left = 270
Top = 49
ExplicitLeft = 270
ExplicitTop = 49
end
end
inherited cxGrid: TcxGrid
ExplicitTop = 121
Top = 99
Height = 205
ExplicitTop = 99
ExplicitHeight = 205
inherited cxGridView: TcxGridDBTableView
OptionsSelection.CellMultiSelect = True
inherited cxGridViewTIPO: TcxGridDBColumn
MinWidth = 69
Width = 69
@ -135,7 +182,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end
end
inherited TBXDock1: TSpTBXDock
ExplicitTop = 100
Top = 73
inherited TBXToolbar1: TSpTBXToolbar
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
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;
while not ACliente.DatosBancarios.DataTable.EOF do
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]);
Add(Format('%s=%d', [Aux, ACliente.DatosBancarios.ID]));
ACliente.DatosBancarios.DataTable.Next;

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

@ -124,7 +124,7 @@ begin
AProveedor.DatosBancarios.DataTable.First;
while not AProveedor.DatosBancarios.DataTable.EOF do
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]);
Add(Format('%s=%d', [Aux, AProveedor.DatosBancarios.ID]));
AProveedor.DatosBancarios.DataTable.Next;

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

@ -49,23 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\..\Comisiones\Data\adortl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\ApplicationBase.dcp" />
<DCCReference Include="..\..\Comisiones\Data\Base.dcp" />
<DCCReference Include="..\..\Comisiones\Data\Contactos_model.dcp" />
<DCCReference Include="..\..\Comisiones\Data\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dbrtl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dsnap.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxCoreD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxThemeD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\GUIBase.dcp" />
<DCCReference Include="..\..\Comisiones\Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\rtl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vcl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vcldb.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vclx.dcp" />
<DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form>
<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'
DataType = datInteger
end
item
Name = 'COMISION'
DataType = datCurrency
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString

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

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

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

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

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

@ -821,6 +821,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'COMISION'
TableField = 'COMISION'
end>
end>
Name = 'Clientes'
@ -969,6 +973,10 @@ object srvContactos: TsrvContactos
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'COMISION'
DataType = datCurrency
end
item
Name = 'GRUPO_CLIENTE'
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
Scaled = False
ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -110,18 +109,6 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar
Width = 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
@ -153,18 +140,6 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar
Width = 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
@ -174,12 +149,15 @@ inherited fEditorContacto: TfEditorContacto
Panels = <
item
Width = 200
end
item
Text =
'F1 - Guardar y cerrar Ctrl + F1 - Guardar Ctrl + Del - Eli' +
'minar Esc - Cerrar'
Width = 50
end>
ExplicitWidth = 632
end
inherited EditorActionList: TActionList
Top = 128
end
inherited dsDataTable: TDADataSource [5]
Left = 168
Top = 120
@ -189,7 +167,7 @@ inherited fEditorContacto: TfEditorContacto
end
inherited StatusBarImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
inherited JvFormStorage: TJvFormStorage
Top = 144
end
inherited LargeImages: TPngImageList [9]
@ -198,4 +176,16 @@ inherited fEditorContacto: TfEditorContacto
inherited SmallImages: TPngImageList [10]
Top = 112
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

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

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

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

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

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

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

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

@ -81,7 +81,7 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited TBXSeparatorItem2: TSpTBXSeparatorItem [8]
end
inherited TBXItem23: TSpTBXItem [9]
inherited TBXSeparatorItem3: TSpTBXSeparatorItem [10]
end
end
inherited tbxMenu: TSpTBXToolbar
@ -174,8 +174,6 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited cbProvincia: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
@ -184,8 +182,6 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited cbPoblacion: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
@ -228,8 +224,6 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited cbGrupoProveedor: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
@ -238,14 +232,20 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited cbDescripcionProveedor: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 366
Width = 366
end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 385
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385
end
inherited eTlfParticular: TcxDBTextEdit
Left = 593
Style.LookAndFeel.SkinName = ''
@ -266,13 +266,15 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 171
Width = 171
end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 385
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 486
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385
ExplicitLeft = 486
ExplicitWidth = 236
Width = 236
end
inherited eTlfMovil: TcxDBTextEdit
Left = 593
@ -302,16 +304,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366
Width = 366
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
Left = 258
Style.LookAndFeel.SkinName = ''
@ -417,6 +409,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 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
@ -581,6 +585,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 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
@ -588,66 +604,19 @@ inherited fEditorProveedor: TfEditorProveedor
inherited StatusBar: TJvStatusBar
Top = 601
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
ExplicitWidth = 830
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
PngImages = <
item
@ -2540,4 +2509,70 @@ inherited fEditorProveedor: TfEditorProveedor
end>
Bitmap = {}
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

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

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

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

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

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

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

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

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

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

@ -3,6 +3,7 @@ inherited frViewProveedor: TfrViewProveedor
Height = 492
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 799
ExplicitHeight = 492
inherited dxLayoutControlContacto: TdxLayoutControl
@ -168,6 +169,28 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 3
Width = 330
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
Left = 569
Style.LookAndFeel.SkinName = ''
@ -190,13 +213,14 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 171
Width = 171
end
object cxDBCheckBox3: TcxDBCheckBox [15]
Left = 361
Top = 109
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
object cxDBCheckBox1: TcxDBCheckBox [16]
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
@ -209,8 +233,8 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 83
TabOrder = 21
Width = 236
end
inherited eTlfMovil: TcxDBTextEdit
Left = 569
@ -244,29 +268,6 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 330
Width = 330
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
Left = 231
Style.LookAndFeel.SkinName = ''

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

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

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

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

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

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

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

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

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

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

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

@ -1,5 +1,6 @@
unit schFacturasClienteClient_Intf;
{$D-}
interface
uses
@ -9,9 +10,9 @@ 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_ListaAnosFacturas = '{18E3B38E-05CB-4C64-875A-E3E8DD826B4A}';
RID_FacturasCliente = '{72415424-F8B7-4DD5-9212-36B4CD96E0E5}';
RID_FacturasCliente_Detalles = '{9C3C3304-5F29-463A-8363-DF71466BD707}';
RID_ListaAnosFacturas = '{417C7922-1E31-4AC9-8DCD-A1E97B76BE3E}';
RID_FacturasCliente = '{795BCC34-AE4B-4403-822E-A0963AE1F148}';
RID_FacturasCliente_Detalles = '{FC869CD0-FEAC-4C31-BA20-15AFF27A234B}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -67,6 +68,8 @@ const
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteDESCUENTO2 = 'DESCUENTO2';
fld_FacturasClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
fld_FacturasClienteCOMISION = 'COMISION';
fld_FacturasClienteIMPORTE_COMISION = 'IMPORTE_COMISION';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -111,6 +114,8 @@ const
idx_FacturasClienteIMPORTE_RETENCION = 39;
idx_FacturasClienteDESCUENTO2 = 40;
idx_FacturasClienteIMPORTE_DESCUENTO2 = 41;
idx_FacturasClienteCOMISION = 42;
idx_FacturasClienteIMPORTE_COMISION = 43;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -149,7 +154,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{C395660C-71FF-4520-ACB6-39D23260DDB9}']
['{EF2E146E-265A-42B4-B242-5EB46370FCBC}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -184,7 +189,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{BEC23A5E-4807-4786-937F-D27547B1A4EF}']
['{68797463-BDFE-41BD-8919-EA62A465EEE8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -337,22 +342,30 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
function GetRETENCIONValue: Currency;
procedure SetRETENCIONValue(const aValue: Currency);
function GetRETENCIONValue: Float;
procedure SetRETENCIONValue(const aValue: Float);
function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
function GetDESCUENTO2Value: Currency;
procedure SetDESCUENTO2Value(const aValue: Currency);
function GetDESCUENTO2Value: Float;
procedure SetDESCUENTO2Value(const aValue: Float);
function GetDESCUENTO2IsNull: Boolean;
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
function GetIMPORTE_DESCUENTO2Value: Currency;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
function GetIMPORTE_DESCUENTO2IsNull: 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 }
@ -432,14 +445,18 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
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 IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
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 IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
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;
{ TFacturasClienteDataTableRules }
@ -600,22 +617,30 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Currency; virtual;
procedure SetRETENCIONValue(const aValue: Currency); virtual;
function GetRETENCIONValue: Float; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
function GetDESCUENTO2Value: Float; virtual;
procedure SetDESCUENTO2Value(const aValue: Float); virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTO2IsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -694,14 +719,18 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
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 IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
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 IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
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
constructor Create(aDataTable: TDADataTable); override;
@ -711,7 +740,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{5F50A8F3-8EE1-4976-8180-A2DC77231CDC}']
['{23E28948-6C54-4B46-9DB4-51D215927995}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1765,14 +1794,14 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency;
function TFacturasClienteDataTableRules.GetRETENCIONValue: Float;
begin
result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency;
result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat;
end;
procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency);
procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue;
DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue;
end;
function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean;
@ -1807,14 +1836,14 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Currency;
function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Float;
begin
result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency;
result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsFloat;
end;
procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency);
procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float);
begin
DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency := aValue;
DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsFloat := aValue;
end;
function TFacturasClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
@ -1849,6 +1878,48 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsVariant := Null;
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 }
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 CalcularIVA;
procedure CalcularRE;
procedure CalcularComision;
procedure CalcularBaseImponible;
procedure AsignarTipoIVA (IDTipoIVA : Integer);
@ -68,6 +69,7 @@ type
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure DESCUENTO2OnChange(Sender: TDACustomField);
procedure COMISIONOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
@ -138,7 +140,14 @@ begin
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/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;
{procedure TBizFacturaCliente.CalcularDescuento;
@ -156,6 +165,7 @@ begin
CalcularBaseImponible;
CalcularIVA;
CalcularRE;
CalcularComision;
if not Self.DataTable.Editing then
Edit;
@ -180,6 +190,11 @@ begin
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
end;
procedure TBizFacturaCliente.COMISIONOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
constructor TBizFacturaCliente.Create(aDataTable: TDADataTable);
begin
inherited;
@ -194,6 +209,7 @@ begin
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;
@ -323,7 +339,9 @@ begin
ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
DESCUENTO := FCliente.DESCUENTO;
DESCUENTO2 := FCliente.DESCUENTO2;
DESCUENTO2 := FCliente.DESCUENTO2;
COMISION := FCliente.COMISION;
Post;
if bEnEdicion then

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

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

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

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

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

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

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

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

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

@ -1,24 +1,26 @@
inherited frViewTotalesFactura: TfrViewTotalesFactura
Height = 221
ExplicitHeight = 221
Width = 829
Height = 379
ExplicitHeight = 379
inherited dxLayoutControl1: TdxLayoutControl
Height = 221
ExplicitHeight = 221
Width = 829
Height = 379
ExplicitHeight = 379
inherited Bevel3: TBevel
Left = 276
Left = 442
Top = 10
Height = 156
ExplicitLeft = 276
ExplicitLeft = 442
ExplicitTop = 10
ExplicitHeight = 156
end
inherited Bevel4: TBevel
Left = 374
Top = 52
Left = 540
Top = 64
Width = 317
Height = 9
ExplicitLeft = 374
ExplicitTop = 52
ExplicitLeft = 540
ExplicitTop = 64
ExplicitWidth = 317
ExplicitHeight = 9
end
@ -35,28 +37,28 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 37
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 445
Top = 87
Left = 611
Top = 84
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 445
ExplicitTop = 87
TabOrder = 13
ExplicitLeft = 611
ExplicitTop = 84
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 374
Top = 141
Left = 540
Top = 138
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 374
ExplicitTop = 141
TabOrder = 16
ExplicitLeft = 540
ExplicitTop = 138
ExplicitWidth = 90
Width = 90
end
@ -72,19 +74,19 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 37
end
inherited edtIVA: TcxDBSpinEdit
Left = 374
Top = 87
Left = 540
Top = 84
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 374
ExplicitTop = 87
TabOrder = 12
ExplicitLeft = 540
ExplicitTop = 84
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 374
Left = 540
Top = 10
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -92,32 +94,32 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 374
ExplicitLeft = 540
ExplicitTop = 10
end
inherited edtRE: TcxDBSpinEdit
Left = 374
Top = 114
Left = 540
Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 374
ExplicitTop = 114
TabOrder = 14
ExplicitLeft = 540
ExplicitTop = 111
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 445
Top = 114
Left = 611
Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 445
ExplicitTop = 114
TabOrder = 15
ExplicitLeft = 611
ExplicitTop = 111
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 102
@ -156,10 +158,10 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
ExplicitTop = 118
end
inherited bTiposIVA: TButton
Left = 128
Left = 294
Top = 118
TabOrder = 7
ExplicitLeft = 128
ExplicitLeft = 294
ExplicitTop = 118
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -240,6 +242,76 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
Height = 21
Width = 293
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 dxLayoutControl1Group1: TdxLayoutGroup
CaptionOptions.Visible = False
@ -283,6 +355,29 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura
end
inherited dxLayoutControl1Group5: 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 dxLayoutControl1Item5: TdxLayoutItem
CaptionOptions.AlignHorz = taLeftJustify

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

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

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

@ -139,19 +139,11 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 358
end
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 902
end
inherited TBXTMain2: TSpTBXToolbar
Left = 328
DockPos = 275
ExplicitLeft = 328
end
end
inherited StatusBar: TJvStatusBar
@ -179,9 +171,10 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
ExplicitHeight = 499
inherited cxGrid: TcxGrid
Width = 902
Height = 371
Height = 400
ExplicitTop = 73
ExplicitWidth = 902
ExplicitHeight = 371
ExplicitHeight = 400
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -225,6 +218,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 902
ExplicitWidth = 902
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl
Width = 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 cxGrid: TcxGrid
Top = 73
Height = 294
OnActiveTabChanged = cxGridActiveTabChanged
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID'
@ -111,7 +113,10 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Height = 73
ExplicitHeight = 73
inherited TBXDockablePanel1: TSpTBXDockablePanel
Height = 73
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
@ -143,6 +148,26 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
ExplicitWidth = 215
Width = 215
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
@ -155,7 +180,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
Left = 328
Top = 160
end

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

@ -51,10 +51,12 @@ type
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
private
//Filtros relativos a la vista
procedure AnadirFiltroAlmacenes;
procedure AnadirFiltroReferencias;
protected
FAlmacenes: IBizAlmacen;
@ -93,12 +95,32 @@ begin
}
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;
begin
inherited;
AnadirFiltroAlmacenes;
AnadirFiltroReferencias;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False
@ -141,6 +163,12 @@ begin
inherited;
end;
procedure TfrViewHistoricoMovimientos.frViewFiltroBase1actQuitarFiltroExecute(
Sender: TObject);
begin
frViewFiltroBase1.LimpiarCampos;
end;
function TfrViewHistoricoMovimientos.GetAlmacenes: IBizAlmacen;
begin
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\Views\Articulos_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\Data\Obras_data.dproj" />
<Projects Include="..\Obras\Model\Obras_model.dproj" />
@ -261,14 +262,23 @@
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

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

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

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

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

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

@ -5,6 +5,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
ClientHeight = 535
ClientWidth = 902
OnClose = CustomEditorClose
ExplicitTop = -21
ExplicitWidth = 910
ExplicitHeight = 569
PixelsPerInch = 96
@ -14,7 +15,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Width = 902
Caption = 'Entrada de art'#237'culos en '
ExplicitTop = 177
ExplicitWidth = 908
ExplicitWidth = 902
inherited Image1: TImage
Left = 769
Picture.Data = {
@ -38,14 +39,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end
inherited lblDesbloquear: TcxLabel
Left = 804
ExplicitLeft = 810
ExplicitLeft = 804
AnchorX = 849
AnchorY = 14
end
end
inherited TBXDock: TSpTBXDock
Width = 902
ExplicitWidth = 908
ExplicitWidth = 902
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 164
object TBXItem7: TSpTBXItem [16]
@ -67,19 +68,19 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end
end
inherited pgPaginas: TPageControl
Top = 295
Top = 289
Width = 896
Height = 218
Height = 224
MultiLine = True
TabOrder = 1
Visible = False
ExplicitTop = 295
ExplicitWidth = 902
ExplicitWidth = 896
ExplicitHeight = 218
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 894
ExplicitWidth = 888
ExplicitHeight = 190
end
end
@ -89,65 +90,21 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Panels = <
item
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>
ExplicitTop = 516
ExplicitWidth = 908
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
ExplicitWidth = 902
end
inline frViewEntradaSalidaArticulos1: TfrViewEntradaSalidaArticulos [5]
Left = 0
Top = 292
Top = 286
Width = 902
Height = 224
Height = 230
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -155,15 +112,15 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
TabOrder = 4
ReadOnly = False
ExplicitTop = 292
ExplicitWidth = 908
ExplicitWidth = 902
ExplicitHeight = 224
inherited cxGrid: TcxGrid
Width = 886
Height = 80
ExplicitWidth = 892
Height = 86
ExplicitWidth = 886
ExplicitHeight = 80
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID'
@ -174,13 +131,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 902
ExplicitWidth = 908
ExplicitWidth = 902
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 902
ExplicitWidth = 908
ExplicitWidth = 902
inherited dxLayoutControl1: TdxLayoutControl
Width = 902
ExplicitWidth = 908
ExplicitWidth = 902
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -216,25 +173,25 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 892
ExplicitWidth = 898
ExplicitWidth = 892
inherited tbxBotones: TSpTBXToolbar
Width = 892
ExplicitWidth = 898
ExplicitWidth = 892
end
end
end
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 198
Top = 204
Width = 902
ExplicitTop = 198
ExplicitWidth = 908
ExplicitWidth = 902
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 902
ExplicitWidth = 908
ExplicitWidth = 902
inherited TBXToolbar1: TSpTBXToolbar
Width = 902
ExplicitWidth = 908
ExplicitWidth = 902
end
end
end
@ -244,9 +201,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
@ -268,7 +222,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
TabOrder = 0
Visible = False
ShowCaptionWhenDocked = False
ExplicitWidth = 908
object Label3: TLabel
Left = 202
Top = 17
@ -373,8 +326,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Height = 56
Align = alTop
BevelOuter = bvNone
TabOrder = 7
ExplicitWidth = 908
TabOrder = 6
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
@ -384,10 +336,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
ParentBackground = True
TabOrder = 0
TabStop = False
ExplicitLeft = 8
ExplicitTop = 40
ExplicitWidth = 300
ExplicitHeight = 250
object Label1: TLabel
Left = 250
Top = 10
@ -484,6 +432,40 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
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
PngImages = <
item
@ -1819,7 +1801,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Left = 56
Top = 56
end
inherited EditorActionList: TActionList [13]
inherited EditorActionList: TActionList [14]
Top = 56
inherited actNuevo: TAction
Visible = False
@ -1827,6 +1809,9 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
inherited actModificar: TAction
Visible = False
end
inherited actGuardarCerrar: TAction
ShortCut = 112
end
inherited actGuardar: TAction
Visible = False
end
@ -1852,12 +1837,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Category = 'Inventario'
Caption = 'Elegir art'#237'culos...'
ImageIndex = 24
ShortCut = 16496
OnExecute = actAnadirInventarioExecute
end
object actEliminarInventario: TAction
Category = 'Inventario'
Caption = 'Quitar este art'#237'culo'
ImageIndex = 4
ShortCut = 16430
OnExecute = actEliminarInventarioExecute
OnUpdate = actEliminarInventarioUpdate
end

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

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

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

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

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

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

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

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

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

@ -69,10 +69,12 @@ type
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
private
//Filtros relativos a la vista
procedure AnadirFiltroAlmacenesObras;
procedure AnadirFiltroReferencias;
protected
FAlmacenes: TStringList;
@ -115,12 +117,32 @@ begin
cxGridViewALMACEN.Visible := True;
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;
begin
inherited;
AnadirFiltroAlmacenesObras;
AnadirFiltroReferencias;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False
@ -195,6 +217,12 @@ begin
inherited;
end;
procedure TfrViewInventario.frViewFiltroBase1actQuitarFiltroExecute(
Sender: TObject);
begin
frViewFiltroBase1.LimpiarCampos;
end;
function TfrViewInventario.GetAlmacenes: TStringList;
begin
Result := FAlmacenes;

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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\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