Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios en articulos para que se calcule el Precio PVP, cambios en empleados

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@447 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-09 17:08:55 +00:00
parent 0f41ff0a60
commit b7e51b4e3d
31 changed files with 1894 additions and 705 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Database/scripts/factuges.sql
View File

@ -403,7 +403,11 @@ CREATE TABLE ARTICULOS (
FECHA_MODIFICACION TIMESTAMP, FECHA_MODIFICACION TIMESTAMP,
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
INVENTARIABLE TIPO_BOOLEANO, INVENTARIABLE TIPO_BOOLEANO,
ELIMINADO TIPO_BOOLEANO ELIMINADO TIPO_BOOLEANO,
TIEMPO INTEGER,
PARAM_TIEMPO FLOAT,
MANO_OBRA TIPO_IMPORTE,
PRECIO_PVP TIPO_IMPORTE
); );
@ -1479,7 +1483,6 @@ WHERE ALMACENES.TIPO_ALMACEN = 'ALMACEN'
; ;
/* View: V_ARTICULOS */ /* View: V_ARTICULOS */
CREATE VIEW V_ARTICULOS( CREATE VIEW V_ARTICULOS(
ID, ID,
@ -1503,7 +1506,11 @@ CREATE VIEW V_ARTICULOS(
NOMBRE_PROVEEDOR, NOMBRE_PROVEEDOR,
ELIMINADO, ELIMINADO,
FABRICANTE, FABRICANTE,
REFERENCIA_FABR) REFERENCIA_FABR,
TIEMPO,
PARAM_TIEMPO,
MANO_OBRA,
PRECIO_PVP)
AS AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
@ -1519,7 +1526,11 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
ARTICULOS.ELIMINADO, ARTICULOS.ELIMINADO,
ARTICULOS.FABRICANTE, ARTICULOS.FABRICANTE,
ARTICULOS.REFERENCIA_FABR ARTICULOS.REFERENCIA_FABR,
ARTICULOS.TIEMPO,
ARTICULOS.PARAM_TIEMPO,
ARTICULOS.MANO_OBRA,
ARTICULOS.PRECIO_PVP
FROM ARTICULOS FROM ARTICULOS
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
WHERE (ARTICULOS.ELIMINADO = 0) WHERE (ARTICULOS.ELIMINADO = 0)

102
Source/Base/Base.dproj
View File

@ -53,57 +53,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de proveedor\adortl.dcp" /> <DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\designide.dcp" /> <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dsnap.dcp" /> <DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Jcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

4
Source/GUIBase/uEditorDBItem.dfm
View File

@ -47,6 +47,10 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2 TabOrder = 2
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

68
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -1,8 +1,8 @@
object frViewFiltroBase: TfrViewFiltroBase object frViewFiltroBase: TfrViewFiltroBase
Left = 0 Left = 0
Top = 0 Top = 0
Width = 565 Width = 666
Height = 102 Height = 105
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
object TBXDockablePanel1: TTBXDockablePanel object TBXDockablePanel1: TTBXDockablePanel
@ -20,19 +20,16 @@ object frViewFiltroBase: TfrViewFiltroBase
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0 TabOrder = 0
ExplicitWidth = 128
ExplicitHeight = 98
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 565 Width = 666
Height = 68 Height = 73
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 128
object txtFiltroTodo: TcxTextEdit object txtFiltroTodo: TcxTextEdit
Left = 87 Left = 87
Top = 10 Top = 10
@ -42,18 +39,14 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 273 Width = 569
end end
object edtFechaIniFiltro: TcxDateEdit object edtFechaIniFiltro: TcxDateEdit
Left = 87 Left = 87
@ -64,23 +57,19 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 121 Width = 150
end end
object edtFechaFinFiltro: TcxDateEdit object edtFechaFinFiltro: TcxDateEdit
Left = 350 Left = 254
Top = 37 Top = 37
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -88,20 +77,29 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 121 Width = 150
end
object eLista: TcxComboBox
Left = 441
Top = 37
Properties.DropDownListStyle = lsEditFixedList
Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
TabOrder = 3
Width = 215
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -119,25 +117,31 @@ object frViewFiltroBase: TfrViewFiltroBase
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Entre la fecha:' Caption = 'Entre la fecha:'
Control = edtFechaIniFiltro Control = edtFechaIniFiltro
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'y' Caption = 'y'
Control = edtFechaFinFiltro Control = edtFechaFinFiltro
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Lista:'
Visible = False
Control = eLista
ControlOptions.ShowBorder = False
end
end end
end end
end end
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0 Left = 0
Top = 68 Top = 73
Width = 565 Width = 666
Height = 30 Height = 30
Margins.Left = 10 Margins.Left = 10
Align = alTop Align = alTop
@ -145,7 +149,7 @@ object frViewFiltroBase: TfrViewFiltroBase
object tbxBotones: TTBXToolbar object tbxBotones: TTBXToolbar
Left = 10 Left = 10
Top = 0 Top = 0
Width = 555 Width = 656
Height = 30 Height = 30
Align = alTop Align = alTop
AutoResize = False AutoResize = False
@ -173,8 +177,8 @@ object frViewFiltroBase: TfrViewFiltroBase
end end
object ActionList1: TActionList object ActionList1: TActionList
Images = PngImageList Images = PngImageList
Left = 384 Left = 280
Top = 72 Top = 24
object actQuitarFiltro: TAction object actQuitarFiltro: TAction
Caption = 'Quitar filtros y ver todo' Caption = 'Quitar filtros y ver todo'
ImageIndex = 0 ImageIndex = 0
@ -204,8 +208,8 @@ object frViewFiltroBase: TfrViewFiltroBase
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end> end>
Left = 424 Left = 312
Top = 72 Top = 24
Bitmap = {} Bitmap = {}
end end
end end

4
Source/GUIBase/uViewFiltroBase.pas
View File

@ -13,7 +13,7 @@ uses
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter; dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter, cxGraphics;
type type
IViewFiltroBase = interface IViewFiltroBase = interface
@ -49,6 +49,8 @@ type
tbxBotones: TTBXToolbar; tbxBotones: TTBXToolbar;
TBXItem2: TTBXItem; TBXItem2: TTBXItem;
TBXAlignmentPanel1: TTBXAlignmentPanel; TBXAlignmentPanel1: TTBXAlignmentPanel;
dxLayoutControl1Item4: TdxLayoutItem;
eLista: TcxComboBox;
procedure OnCamposFiltroChange(Sender: TObject); procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject);

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

@ -10,6 +10,9 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<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="Controller\Articulos_controller.dproj" /> <Projects Include="Controller\Articulos_controller.dproj" />
<Projects Include="Data\Articulos_data.dproj" /> <Projects Include="Data\Articulos_data.dproj" />
<Projects Include="Model\Articulos_model.dproj" /> <Projects Include="Model\Articulos_model.dproj" />
@ -121,14 +124,41 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_model">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_model:Clean">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_model:Make">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="Inventario_view">
<MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="" />
</Target>
<Target Name="Inventario_view:Clean">
<MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="Clean" />
</Target>
<Target Name="Inventario_view:Make">
<MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" /> <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" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <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" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <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" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -34,6 +34,7 @@ type
procedure ElegirProveedor(AArticulo : IBizArticulo); procedure ElegirProveedor(AArticulo : IBizArticulo);
procedure AnadirProveedor(AArticulo : IBizArticulo); procedure AnadirProveedor(AArticulo : IBizArticulo);
procedure VerProveedor(AArticulo : IBizArticulo); procedure VerProveedor(AArticulo : IBizArticulo);
function DarListaProveedoresConArticulos: TStringList;
function ExtraerSeleccionados(AArticulos: IBizArticulo) : IBizArticulo; function ExtraerSeleccionados(AArticulos: IBizArticulo) : IBizArticulo;
function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo;
@ -92,6 +93,7 @@ type
procedure ElegirProveedor(AArticulo : IBizArticulo); procedure ElegirProveedor(AArticulo : IBizArticulo);
procedure AnadirProveedor(AArticulo : IBizArticulo); procedure AnadirProveedor(AArticulo : IBizArticulo);
procedure VerProveedor(AArticulo : IBizArticulo); procedure VerProveedor(AArticulo : IBizArticulo);
function DarListaProveedoresConArticulos: TStringList;
end; end;
implementation implementation
@ -322,6 +324,11 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end; end;
function TArticulosController.DarListaProveedoresConArticulos: TStringList;
begin
Result := (FDataModule as IDataModuleArticulos).DarListaProveedoresConArticulos(AppFactuGES.EmpresaActiva.ID);
end;
procedure TArticulosController.DescartarCambios(AArticulo: IBizArticulo); procedure TArticulosController.DescartarCambios(AArticulo: IBizArticulo);
begin begin
if not Assigned(AArticulo) then if not Assigned(AArticulo) then

66
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -1,6 +1,6 @@
inherited DataModuleArticulos: TDataModuleArticulos inherited DataModuleArticulos: TDataModuleArticulos
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 219 Height = 289
Width = 518 Width = 518
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
@ -164,6 +164,22 @@ inherited DataModuleArticulos: TDataModuleArticulos
Size = 255 Size = 255
DisplayLabel = 'Ref. fabricante' DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'TIEMPO'
DataType = datInteger
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -172,8 +188,8 @@ inherited DataModuleArticulos: TDataModuleArticulos
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Articulos' LogicalName = 'Articulos'
IndexDefs = <> IndexDefs = <>
Left = 232 Left = 224
Top = 112 Top = 120
end end
object ds_Articulos: TDADataSource object ds_Articulos: TDADataSource
DataSet = tbl_Articulos.Dataset DataSet = tbl_Articulos.Dataset
@ -322,6 +338,22 @@ inherited DataModuleArticulos: TDataModuleArticulos
Size = 255 Size = 255
DisplayLabel = 'Ref. fabricante' DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'TIEMPO'
DataType = datInteger
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end> end>
Params = < Params = <
item item
@ -344,4 +376,32 @@ inherited DataModuleArticulos: TDataModuleArticulos
Left = 400 Left = 400
Top = 32 Top = 32
end end
object tbl_ProveedoresConArticulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ProveedoresConArticulos'
IndexDefs = <>
Left = 304
Top = 208
end
object ds_ProveedoresConArticulos: TDADataSource
DataSet = tbl_ProveedoresConArticulos.Dataset
DataTable = tbl_ProveedoresConArticulos
Left = 304
Top = 152
end
end end

9
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -19,6 +19,8 @@ type
ds_Articulos: TDADataSource; ds_Articulos: TDADataSource;
tbl_ArticulosParaCliente: TDAMemDataTable; tbl_ArticulosParaCliente: TDAMemDataTable;
ds_ArticulosParaCliente: TDADataSource; ds_ArticulosParaCliente: TDADataSource;
tbl_ProveedoresConArticulos: TDAMemDataTable;
ds_ProveedoresConArticulos: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
protected protected
@ -29,6 +31,7 @@ type
function GetItems (IDCliente: Integer) : IBizArticulo; overload; function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo; function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo; function NewItem : IBizArticulo;
function DarListaProveedoresConArticulos(const IDEmpresa: Integer) : TStringList;
end; end;
implementation implementation
@ -52,6 +55,12 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleArticulos.DarListaProveedoresConArticulos(const IDEmpresa: Integer): TStringList;
begin
Result := TStringList.Create;
Result.LoadFromStream((RORemoteService as IsrvArticulos).DarListaProveedoresConArticulos(IDEmpresa));
end;
function TDataModuleArticulos.NewItem: IBizArticulo; function TDataModuleArticulos.NewItem: IBizArticulo;
begin begin
Result := GetItem(ID_NULO) Result := GetItem(ID_NULO)

3
Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas
View File

@ -3,7 +3,7 @@ unit uIDataModuleArticulos;
interface interface
uses uses
uBizArticulos; uBizArticulos, Classes;
type type
IDataModuleArticulos = interface IDataModuleArticulos = interface
@ -12,6 +12,7 @@ type
function GetItems (IDCliente: Integer) : IBizArticulo; overload; function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo; function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo; function NewItem : IBizArticulo;
function DarListaProveedoresConArticulos(const IDEmpresa: Integer) : TStringList;
end; end;
implementation implementation

294
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Articulos = '{D722C372-EBBB-4076-B05F-7D3D558AD018}'; RID_Articulos = '{7AF29D8D-9759-4857-A440-E0AE2002CA7F}';
RID_ArticulosParaCliente = '{BD605A42-7AE2-464B-941D-FB4EB1C60932}'; RID_ArticulosParaCliente = '{5FDF1300-DD2E-45E9-88DF-CA220201A815}';
{ Data table names } { Data table names }
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
@ -39,6 +39,10 @@ const
fld_ArticulosELIMINADO = 'ELIMINADO'; fld_ArticulosELIMINADO = 'ELIMINADO';
fld_ArticulosFABRICANTE = 'FABRICANTE'; fld_ArticulosFABRICANTE = 'FABRICANTE';
fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR'; fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosTIEMPO = 'TIEMPO';
fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosMANO_OBRA = 'MANO_OBRA';
fld_ArticulosPRECIO_PVP = 'PRECIO_PVP';
{ Articulos field indexes } { Articulos field indexes }
idx_ArticulosID = 0; idx_ArticulosID = 0;
@ -63,6 +67,10 @@ const
idx_ArticulosELIMINADO = 19; idx_ArticulosELIMINADO = 19;
idx_ArticulosFABRICANTE = 20; idx_ArticulosFABRICANTE = 20;
idx_ArticulosREFERENCIA_FABR = 21; idx_ArticulosREFERENCIA_FABR = 21;
idx_ArticulosTIEMPO = 22;
idx_ArticulosPARAM_TIEMPO = 23;
idx_ArticulosMANO_OBRA = 24;
idx_ArticulosPRECIO_PVP = 25;
{ ArticulosParaCliente fields } { ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID'; fld_ArticulosParaClienteID = 'ID';
@ -87,6 +95,10 @@ const
fld_ArticulosParaClienteELIMINADO = 'ELIMINADO'; fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE'; fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR'; fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosParaClienteTIEMPO = 'TIEMPO';
fld_ArticulosParaClientePARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosParaClienteMANO_OBRA = 'MANO_OBRA';
fld_ArticulosParaClientePRECIO_PVP = 'PRECIO_PVP';
{ ArticulosParaCliente field indexes } { ArticulosParaCliente field indexes }
idx_ArticulosParaClienteID = 0; idx_ArticulosParaClienteID = 0;
@ -111,11 +123,15 @@ const
idx_ArticulosParaClienteELIMINADO = 19; idx_ArticulosParaClienteELIMINADO = 19;
idx_ArticulosParaClienteFABRICANTE = 20; idx_ArticulosParaClienteFABRICANTE = 20;
idx_ArticulosParaClienteREFERENCIA_FABR = 21; idx_ArticulosParaClienteREFERENCIA_FABR = 21;
idx_ArticulosParaClienteTIEMPO = 22;
idx_ArticulosParaClientePARAM_TIEMPO = 23;
idx_ArticulosParaClienteMANO_OBRA = 24;
idx_ArticulosParaClientePRECIO_PVP = 25;
type type
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{7054C4D6-0703-46ED-90A8-66909C04B767}'] ['{688FF0B4-9CA5-4C09-B82C-4D288BCF418F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -204,6 +220,22 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean; function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetTIEMPOValue: Integer;
procedure SetTIEMPOValue(const aValue: Integer);
function GetTIEMPOIsNull: Boolean;
procedure SetTIEMPOIsNull(const aValue: Boolean);
function GetPARAM_TIEMPOValue: Float;
procedure SetPARAM_TIEMPOValue(const aValue: Float);
function GetPARAM_TIEMPOIsNull: Boolean;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
function GetMANO_OBRAValue: Currency;
procedure SetMANO_OBRAValue(const aValue: Currency);
function GetMANO_OBRAIsNull: Boolean;
procedure SetMANO_OBRAIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -251,10 +283,18 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
end; end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos) TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
private private
f_IMAGEN: IROStream; f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject); procedure IMAGEN_OnChange(Sender: TObject);
@ -347,6 +387,22 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual; function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual;
function GetTIEMPOIsNull: Boolean; virtual;
procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Float; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetMANO_OBRAValue: Currency; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
function GetMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -393,6 +449,14 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -405,7 +469,7 @@ type
} }
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{5D823EDE-5BC4-4583-A5B1-B571570AF822}'] ['{74039390-BC6A-4257-9DAC-63898C73E1A6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -494,6 +558,22 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean; function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetTIEMPOValue: Integer;
procedure SetTIEMPOValue(const aValue: Integer);
function GetTIEMPOIsNull: Boolean;
procedure SetTIEMPOIsNull(const aValue: Boolean);
function GetPARAM_TIEMPOValue: Float;
procedure SetPARAM_TIEMPOValue(const aValue: Float);
function GetPARAM_TIEMPOIsNull: Boolean;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
function GetMANO_OBRAValue: Currency;
procedure SetMANO_OBRAValue(const aValue: Currency);
function GetMANO_OBRAIsNull: Boolean;
procedure SetMANO_OBRAIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -541,10 +621,18 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
end; end;
{ TArticulosParaClienteDataTableRules } { TArticulosParaClienteDataTableRules }
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente) TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
private private
f_IMAGEN: IROStream; f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject); procedure IMAGEN_OnChange(Sender: TObject);
@ -637,6 +725,22 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual; function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual;
function GetTIEMPOIsNull: Boolean; virtual;
procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Float; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetMANO_OBRAValue: Currency; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
function GetMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -683,6 +787,14 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1178,6 +1290,90 @@ begin
DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null; DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null;
end; end;
function TArticulosDataTableRules.GetTIEMPOValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosTIEMPO].AsInteger;
end;
procedure TArticulosDataTableRules.SetTIEMPOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosTIEMPO].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetTIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosTIEMPO].IsNull;
end;
procedure TArticulosDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosTIEMPO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPARAM_TIEMPOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat;
end;
procedure TArticulosDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat := aValue;
end;
function TArticulosDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].IsNull;
end;
procedure TArticulosDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetMANO_OBRAValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency;
end;
procedure TArticulosDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetMANO_OBRAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosMANO_OBRA].IsNull;
end;
procedure TArticulosDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosMANO_OBRA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsVariant := Null;
end;
{ TArticulosParaClienteDataTableRules } { TArticulosParaClienteDataTableRules }
constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
@ -1663,6 +1859,90 @@ begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetTIEMPOValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetTIEMPOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetTIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTIEMPO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPARAM_TIEMPOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].AsFloat;
end;
procedure TArticulosParaClienteDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].AsFloat := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePARAM_TIEMPO].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetMANO_OBRAValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetMANO_OBRAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules); RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);

352
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{2FE9AA89-2E24-415F-BDC4-C0DB800D978E}'; RID_ArticulosDelta = '{E90664CD-974B-4763-AFDF-9B682888F975}';
RID_ArticulosParaClienteDelta = '{9C8B3982-229A-489A-A29D-51F44D852F92}'; RID_ArticulosParaClienteDelta = '{20B7D734-5B3C-4B7E-9731-398937C0E081}';
type type
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{2FE9AA89-2E24-415F-BDC4-C0DB800D978E}'] ['{E90664CD-974B-4763-AFDF-9B682888F975}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -39,6 +39,10 @@ type
function GetOldELIMINADOValue : SmallInt; function GetOldELIMINADOValue : SmallInt;
function GetOldFABRICANTEValue : String; function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String; function GetOldREFERENCIA_FABRValue : String;
function GetOldTIEMPOValue : Integer;
function GetOldPARAM_TIEMPOValue : Float;
function GetOldMANO_OBRAValue : Currency;
function GetOldPRECIO_PVPValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -63,6 +67,10 @@ type
property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldTIEMPO : Integer read GetOldTIEMPOValue;
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
end; end;
{ TArticulosBusinessProcessorRules } { TArticulosBusinessProcessorRules }
@ -203,6 +211,30 @@ type
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual; function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual;
function GetTIEMPOIsNull: Boolean; virtual;
function GetOldTIEMPOValue: Integer; virtual;
function GetOldTIEMPOIsNull: Boolean; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual;
procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Float; virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
function GetOldPARAM_TIEMPOValue: Float; virtual;
function GetOldPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetMANO_OBRAValue: Currency; virtual;
function GetMANO_OBRAIsNull: Boolean; virtual;
function GetOldMANO_OBRAValue: Currency; virtual;
function GetOldMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -293,6 +325,22 @@ type
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull; property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
property TIEMPO : Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull : Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property OldTIEMPO : Integer read GetOldTIEMPOValue;
property OldTIEMPOIsNull : Boolean read GetOldTIEMPOIsNull;
property PARAM_TIEMPO : Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull : Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldPARAM_TIEMPOIsNull : Boolean read GetOldPARAM_TIEMPOIsNull;
property MANO_OBRA : Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull : Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldMANO_OBRAIsNull : Boolean read GetOldMANO_OBRAIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -302,7 +350,7 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{9C8B3982-229A-489A-A29D-51F44D852F92}'] ['{20B7D734-5B3C-4B7E-9731-398937C0E081}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -326,6 +374,10 @@ type
function GetOldELIMINADOValue : SmallInt; function GetOldELIMINADOValue : SmallInt;
function GetOldFABRICANTEValue : String; function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String; function GetOldREFERENCIA_FABRValue : String;
function GetOldTIEMPOValue : Integer;
function GetOldPARAM_TIEMPOValue : Float;
function GetOldMANO_OBRAValue : Currency;
function GetOldPRECIO_PVPValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -350,6 +402,10 @@ type
property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldTIEMPO : Integer read GetOldTIEMPOValue;
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
end; end;
{ TArticulosParaClienteBusinessProcessorRules } { TArticulosParaClienteBusinessProcessorRules }
@ -490,6 +546,30 @@ type
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual; function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual;
function GetTIEMPOIsNull: Boolean; virtual;
function GetOldTIEMPOValue: Integer; virtual;
function GetOldTIEMPOIsNull: Boolean; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual;
procedure SetTIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Float; virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
function GetOldPARAM_TIEMPOValue: Float; virtual;
function GetOldPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetMANO_OBRAValue: Currency; virtual;
function GetMANO_OBRAIsNull: Boolean; virtual;
function GetOldMANO_OBRAValue: Currency; virtual;
function GetOldMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -580,6 +660,22 @@ type
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull; property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
property TIEMPO : Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull : Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property OldTIEMPO : Integer read GetOldTIEMPOValue;
property OldTIEMPOIsNull : Boolean read GetOldTIEMPOIsNull;
property PARAM_TIEMPO : Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull : Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldPARAM_TIEMPOIsNull : Boolean read GetOldPARAM_TIEMPOIsNull;
property MANO_OBRA : Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull : Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldMANO_OBRAIsNull : Boolean read GetOldMANO_OBRAIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1297,6 +1393,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := Null;
end; end;
function TArticulosBusinessProcessorRules.GetTIEMPOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO];
end;
function TArticulosBusinessProcessorRules.GetTIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO]);
end;
function TArticulosBusinessProcessorRules.GetOldTIEMPOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIEMPO];
end;
function TArticulosBusinessProcessorRules.GetOldTIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIEMPO]);
end;
procedure TArticulosBusinessProcessorRules.SetTIEMPOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO] := Null;
end;
function TArticulosBusinessProcessorRules.GetPARAM_TIEMPOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO];
end;
function TArticulosBusinessProcessorRules.GetPARAM_TIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO]);
end;
function TArticulosBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_TIEMPO];
end;
function TArticulosBusinessProcessorRules.GetOldPARAM_TIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_TIEMPO]);
end;
procedure TArticulosBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO] := Null;
end;
function TArticulosBusinessProcessorRules.GetMANO_OBRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA];
end;
function TArticulosBusinessProcessorRules.GetMANO_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA]);
end;
function TArticulosBusinessProcessorRules.GetOldMANO_OBRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosMANO_OBRA];
end;
function TArticulosBusinessProcessorRules.GetOldMANO_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosMANO_OBRA]);
end;
procedure TArticulosBusinessProcessorRules.SetMANO_OBRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := Null;
end;
{ TArticulosParaClienteBusinessProcessorRules } { TArticulosParaClienteBusinessProcessorRules }
constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2003,6 +2223,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetTIEMPOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIEMPO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetTIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIEMPO]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldTIEMPOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTIEMPO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldTIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTIEMPO]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetTIEMPOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIEMPO] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetTIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIEMPO] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetPARAM_TIEMPOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_TIEMPO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPARAM_TIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_TIEMPO]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePARAM_TIEMPO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPARAM_TIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePARAM_TIEMPO]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_TIEMPO] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_TIEMPO] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetMANO_OBRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteMANO_OBRA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetMANO_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteMANO_OBRA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldMANO_OBRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteMANO_OBRA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldMANO_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteMANO_OBRA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetMANO_OBRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteMANO_OBRA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetMANO_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteMANO_OBRA] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);

BIN
Source/Modulos/Articulos/Model/uBizArticulos.pas
View File

Binary file not shown.

166
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -144,6 +144,47 @@ object srvArticulos: TsrvArticulos
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary DataDictionary = DataDictionary
Datasets = < Datasets = <
item
Params = <
item
Name = 'ID_EMPRESA'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_ARTICULOS'
Name = 'IBX'
SQL =
'select distinct ID_PROVEEDOR, NOMBRE'#10'from V_articulos'#10'inner join' +
' contactos on (contactos.ID = V_articulos.ID_PROVEEDOR)'#10'where ID' +
'_EMPRESA = :ID_EMPRESA'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end>
end>
Name = 'ProveedoresConArticulos'
Fields = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -239,6 +280,22 @@ object srvArticulos: TsrvArticulos
item item
DatasetField = 'REFERENCIA_FABR' DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR' TableField = 'REFERENCIA_FABR'
end
item
DatasetField = 'TIEMPO'
TableField = 'TIEMPO'
end
item
DatasetField = 'PARAM_TIEMPO'
TableField = 'PARAM_TIEMPO'
end
item
DatasetField = 'MANO_OBRA'
TableField = 'MANO_OBRA'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end> end>
end> end>
Name = 'Articulos' Name = 'Articulos'
@ -364,6 +421,22 @@ object srvArticulos: TsrvArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'TIEMPO'
DataType = datInteger
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end> end>
end end
item item
@ -387,10 +460,12 @@ object srvArticulos: TsrvArticulos
'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' + 'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' +
'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' + 'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' +
'_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' + '_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' +
'NCIA_FABR'#10' FROM'#10' V_ARTICULOS'#10' LEFT OUTER JOIN CLIENTES_DTOS' + 'NCIA_FABR,'#10#9'V_ARTICULOS.TIEMPO, V_ARTICULOS.PARAM_TIEMPO, V_ARTI' +
'_PROVEEDORES'#10#9'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = V_AR' + 'CULOS.MANO_OBRA,'#10' V_ARTICULOS.PRECIO_PVP'#10' FROM'#10' V_ART' +
'TICULOS.ID_PROVEEDOR)'#10#9#9'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENT' + 'ICULOS'#10' LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10#9'ON ((CLIENTE' +
'E = :ID_CLIENTE))'#10' WHERE {Where}'#10 'S_DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10#9#9'AN' +
'D (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10' WHERE ' +
'{Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -480,6 +555,22 @@ object srvArticulos: TsrvArticulos
item item
DatasetField = 'REFERENCIA_FABR' DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR' TableField = 'REFERENCIA_FABR'
end
item
DatasetField = 'TIEMPO'
TableField = 'TIEMPO'
end
item
DatasetField = 'PARAM_TIEMPO'
TableField = 'PARAM_TIEMPO'
end
item
DatasetField = 'MANO_OBRA'
TableField = 'MANO_OBRA'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end> end>
end> end>
Name = 'ArticulosParaCliente' Name = 'ArticulosParaCliente'
@ -608,6 +699,22 @@ object srvArticulos: TsrvArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'TIEMPO'
DataType = datInteger
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -700,6 +807,22 @@ object srvArticulos: TsrvArticulos
item item
Name = 'REFERENCIA_FABR' Name = 'REFERENCIA_FABR'
Value = '' Value = ''
end
item
Name = 'TIEMPO'
Value = ''
end
item
Name = 'PARAM_TIEMPO'
Value = ''
end
item
Name = 'MANO_OBRA'
Value = ''
end
item
Name = 'PRECIO_PVP'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -710,12 +833,14 @@ object srvArticulos: TsrvArticulos
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' + 'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' + 'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' +
'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' + 'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' +
' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10' REFERENCIA_FABR)'#10' V' + ' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10' REFERENCIA_FABR, TIE' +
'ALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_' + 'MPO, PARAM_TIEMPO, MANO_OBRA, PRECIO_PVP)'#10' VALUES'#10' (:ID, :ID' +
'MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FEC' + '_EMPRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' ' +
'HA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :' + ' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' ' +
'DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10 + ' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :I' +
' :INVENTARIABLE, :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR)'#10 'D_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE' +
', :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :TIEMPO, :PARAM_TIE' +
'MPO,'#10' :MANO_OBRA, :PRECIO_PVP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -821,6 +946,22 @@ object srvArticulos: TsrvArticulos
Name = 'REFERENCIA_FABR' Name = 'REFERENCIA_FABR'
Value = '' Value = ''
end end
item
Name = 'TIEMPO'
Value = ''
end
item
Name = 'PARAM_TIEMPO'
Value = ''
end
item
Name = 'MANO_OBRA'
Value = ''
end
item
Name = 'PRECIO_PVP'
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -840,8 +981,9 @@ object srvArticulos: TsrvArticulos
'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' + 'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' +
'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' + 'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' +
'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10 + 'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10 +
' REFERENCIA_FABR = :REFERENCIA_FABR'#10' WHERE'#10' (ID = :OLD_ID' + ' REFERENCIA_FABR = :REFERENCIA_FABR,'#10' TIEMPO = :TIEMPO,'#10' ' +
')'#10 ' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBRA = :MANO_OBRA,'#10' ' +
'PRECIO_PVP = :PRECIO_PVP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

32
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
View File

@ -30,14 +30,16 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string); var aConnectionName: string);
function DarListaProveedoresConArticulos(Const IDEmpresa: Integer): Binary;
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uses
{Generated:} FactuGES_Invk, uDataModuleServer, {Generated:} FactuGES_Invk, uDataModuleServer, Variants, uStringsUtils,
uDatabaseUtils, schArticulosClient_Intf, uRestriccionesUsuarioUtils; uDatabaseUtils, schArticulosClient_Intf, uRestriccionesUsuarioUtils, dialogs;
procedure Create_srvArticulos(out anInstance : IUnknown); procedure Create_srvArticulos(out anInstance : IUnknown);
begin begin
@ -63,6 +65,32 @@ begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
end; end;
function TsrvArticulos.DarListaProveedoresConArticulos(Const IDEmpresa: Integer): Binary;
var
dsProveedores : IDADataset;
Aux : TStringList;
begin
Result := Binary.Create;
Aux := TStringList.Create;
dsProveedores := schArticulos.NewDataset(Connection, 'ProveedoresConArticulos', ['ID_EMPRESA'], [IDEmpresa], True);
try
while not dsProveedores.EOF do
begin
if not VarIsNull(dsProveedores.Fields[0].AsVariant) then
Aux.Add(Format('%s=%d', [dsProveedores.Fields[1].AsString, dsProveedores.Fields[0].AsInteger]));
dsProveedores.Next;
end;
Aux.SaveToStream(Result);
finally
dsProveedores.Close;
dsProveedores := NIL;
FreeAndNil(Aux);
end;
end;
procedure TsrvArticulos.DataAbstractServiceBeforeAcquireConnection( procedure TsrvArticulos.DataAbstractServiceBeforeAcquireConnection(
aSender: TObject; var aConnectionName: string); aSender: TObject; var aConnectionName: string);
begin begin

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

@ -9,6 +9,7 @@ inherited fEditorArticulos: TfEditorArticulos
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 657 Width = 657
Caption = 'Lista de articulos' Caption = 'Lista de articulos'
ExplicitWidth = 657
inherited Image1: TImage inherited Image1: TImage
Left = 630 Left = 630
Picture.Data = { Picture.Data = {
@ -30,29 +31,25 @@ inherited fEditorArticulos: TfEditorArticulos
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 657 Width = 657
ExplicitWidth = 657
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 632
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end
inherited TBXItem37: TTBXItem
Visible = False
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 657 ExplicitWidth = 657
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 269
DockPos = 267 DockPos = 267
ExplicitLeft = 269
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 657 Width = 657
ExplicitWidth = 657
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actNuevo: TAction inherited actNuevo: TAction

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

@ -125,6 +125,9 @@ end;
procedure TfEditorArticulos.SetController(const Value: IArticulosController); procedure TfEditorArticulos.SetController(const Value: IArticulosController);
begin begin
FController := Value; FController := Value;
if Assigned(ViewGrid) then
(ViewGrid as IViewArticulos).Controller := FController;
end; end;
destructor TfEditorArticulos.Destroy; destructor TfEditorArticulos.Destroy;

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

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 451 Width = 897
Height = 304 Height = 427
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,20 +10,20 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 897
Height = 425 Height = 425
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 986 ExplicitWidth = 451
DesignSize = ( DesignSize = (
451 897
425) 425)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 270 Left = 405
Top = 304 Top = 388
Width = 23 Width = 23
Height = 22 Height = 22
Action = actAnadir Action = actAnadir
@ -49,8 +49,8 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 270 Left = 405
Top = 332 Top = 416
Width = 23 Width = 23
Height = 22 Height = 22
Action = actEliminar Action = actEliminar
@ -68,18 +68,14 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 164 Width = 171
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 122 Left = 122
@ -92,18 +88,14 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 132 Width = 171
end end
object eNoComisionable: TcxDBCheckBox object eNoComisionable: TcxDBCheckBox
Left = 122 Left = 122
@ -120,22 +112,18 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 144 Width = 171
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 28 Left = 28
Top = 304 Top = 388
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = [] Properties.PopupMenuLayout.MenuItems = []
@ -145,19 +133,15 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 12
TabOrder = 8
Height = 98 Height = 98
Width = 621 Width = 236
end end
object cbFamilia: TcxDBComboBox object cbFamilia: TcxDBComboBox
Left = 122 Left = 122
@ -172,25 +156,21 @@ inherited frViewArticulo: TfrViewArticulo
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 383 Width = 171
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 323 Left = 458
Top = 28 Top = 28
Width = 526 Width = 167
Height = 202 Height = 202
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -198,68 +178,46 @@ inherited frViewArticulo: TfrViewArticulo
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 13
ReadOnly = False ReadOnly = False
ExplicitLeft = 323 ExplicitLeft = 458
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 526 ExplicitWidth = 167
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 526 Width = 167
ExplicitWidth = 526 ExplicitWidth = 526
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 221
StyleDisabled.LookAndFeel.SkinName = '' Width = 221
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 221
StyleDisabled.LookAndFeel.SkinName = '' Width = 221
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 562
Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 221
StyleDisabled.LookAndFeel.SkinName = '' Width = 221
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 113
Width = 113
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 103
StyleDisabled.LookAndFeel.SkinName = '' Width = 103
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 49
Width = 49
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 221
StyleDisabled.LookAndFeel.SkinName = '' Width = 221
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 327
Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 203 Left = 308
Style.LookAndFeel.SkinName = '' ExplicitLeft = 308
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 203
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 87 Left = 192
ExplicitLeft = 87 ExplicitLeft = 192
end end
end end
end end
object eReferenciaProv: TcxDBTextEdit object eReferenciaProv: TcxDBTextEdit
Left = 404 Left = 539
Top = 266 Top = 266
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
@ -269,18 +227,14 @@ inherited frViewArticulo: TfrViewArticulo
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 14
TabOrder = 10 Width = 86
Width = 164
end end
object ePrecioCoste: TcxDBCurrencyEdit object ePrecioCoste: TcxDBCurrencyEdit
Left = 404 Left = 539
Top = 293 Top = 293
DataBinding.DataField = 'PRECIO_COSTE' DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -290,21 +244,17 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 15
TabOrder = 11 Width = 254
Width = 176
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 404 Left = 539
Top = 320 Top = 320
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -316,22 +266,18 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 16
TabOrder = 12 Width = 313
Width = 120
end end
object ePrecioNeto: TcxDBCurrencyEdit object ePrecioNeto: TcxDBCurrencyEdit
Left = 404 Left = 539
Top = 347 Top = 347
DataBinding.DataField = 'PRECIO_NETO' DataBinding.DataField = 'PRECIO_NETO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -344,23 +290,19 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleFocused.TextColor = clWindowText StyleFocused.TextColor = clWindowText
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 17
TabOrder = 13 Width = 86
Width = 152
end end
object ePrecioPorte: TcxDBCurrencyEdit object ePrecioPorte: TcxDBCurrencyEdit
Left = 404 Left = 539
Top = 374 Top = 374
DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -370,18 +312,14 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 18
TabOrder = 14 Width = 86
Width = 152
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 122 Left = 122
@ -398,18 +336,14 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 148 Width = 171
end end
object cbUnidadMedida: TcxDBComboBox object cbUnidadMedida: TcxDBComboBox
Left = 122 Left = 122
@ -424,24 +358,20 @@ inherited frViewArticulo: TfrViewArticulo
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 511 Width = 171
end end
object cbFabricante: TcxDBComboBox object cbFabricante: TcxDBComboBox
Left = 122 Left = 122
Top = 220 Top = 304
DataBinding.DataField = 'FABRICANTE' DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16 Properties.DropDownRows = 16
@ -452,24 +382,20 @@ inherited frViewArticulo: TfrViewArticulo
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 10
TabOrder = 6 Width = 171
Width = 479
end end
object eReferenciaFabr: TcxDBTextEdit object eReferenciaFabr: TcxDBTextEdit
Left = 122 Left = 122
Top = 247 Top = 331
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FABR' DataBinding.DataField = 'REFERENCIA_FABR'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -479,20 +405,110 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.Color = clWindow StyleFocused.Color = clWindow
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 11
TabOrder = 7
Width = 171 Width = 171
end end
object eParamTiempo: TcxDBSpinEdit
Left = 322
Top = 220
DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
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 = 8
Width = 100
end
object eTiempo: TcxDBSpinEdit
Left = 122
Top = 220
DataBinding.DataField = 'TIEMPO'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
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 = 6
Width = 50
end
object ePrecioPvp: TcxDBSpinEdit
Left = 322
Top = 247
DataBinding.DataField = 'PRECIO_PVP'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
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 = 9
Width = 100
end
object eManoObra: TcxDBSpinEdit
Left = 122
Top = 247
DataBinding.DataField = 'MANO_OBRA'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
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 = 7
Width = 100
end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -569,6 +585,40 @@ inherited frViewArticulo: TfrViewArticulo
end end
end end
end end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup
Caption = 'C'#225'lculo precio PVP'
LayoutDirection = ldHorizontal
object dxLayoutControlArticuloGroup15: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControlArticuloItem13: TdxLayoutItem
Caption = 'Tiempo:'
Control = eTiempo
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem21: TdxLayoutItem
Caption = 'Mano de obra:'
Control = eManoObra
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup9: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControlArticuloItem12: TdxLayoutItem
Caption = 'Parametro tiempo:'
Control = eParamTiempo
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem20: TdxLayoutItem
Caption = 'Precio PVP:'
Control = ePrecioPvp
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControlArticuloGroup10: TdxLayoutGroup object dxLayoutControlArticuloGroup10: TdxLayoutGroup
Caption = 'Datos del fabricante' Caption = 'Datos del fabricante'
object dxLayoutControlArticuloItem10: TdxLayoutItem object dxLayoutControlArticuloItem10: TdxLayoutItem

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

@ -84,6 +84,17 @@ type
dxLayoutControlArticuloGroup10: TdxLayoutGroup; dxLayoutControlArticuloGroup10: TdxLayoutGroup;
dxLayoutControlArticuloGroup14: TdxLayoutGroup; dxLayoutControlArticuloGroup14: TdxLayoutGroup;
dxLayoutControlArticuloGroup7: TdxLayoutGroup; dxLayoutControlArticuloGroup7: TdxLayoutGroup;
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem12: TdxLayoutItem;
eParamTiempo: TcxDBSpinEdit;
dxLayoutControlArticuloItem13: TdxLayoutItem;
eTiempo: TcxDBSpinEdit;
dxLayoutControlArticuloItem20: TdxLayoutItem;
ePrecioPvp: TcxDBSpinEdit;
dxLayoutControlArticuloItem21: TdxLayoutItem;
eManoObra: TcxDBSpinEdit;
dxLayoutControlArticuloGroup9: TdxLayoutGroup;
dxLayoutControlArticuloGroup15: TdxLayoutGroup;
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject); procedure cbFamiliaPropertiesInitPopup(Sender: TObject);

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

@ -1,12 +1,14 @@
inherited frViewArticulos: TfrViewArticulos inherited frViewArticulos: TfrViewArticulos
Width = 924 Width = 715
Height = 462 Height = 462
ExplicitWidth = 924 OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 715
ExplicitHeight = 462 ExplicitHeight = 462
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 924 Width = 715
Height = 334 Height = 334
ExplicitWidth = 924 ExplicitWidth = 715
ExplicitHeight = 334 ExplicitHeight = 334
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
@ -162,52 +164,82 @@ inherited frViewArticulos: TfrViewArticulos
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewPRECIO_PVP: TcxGridDBColumn
Caption = 'Precio P.V.P'
DataBinding.FieldName = 'PRECIO_PVP'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'ID_PROVEEDOR'
Visible = False
VisibleForCustomization = False
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos los proveedores'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 924 Width = 715
ExplicitWidth = 924 ExplicitWidth = 715
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 924 ExplicitWidth = 715
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 924 Width = 715
ExplicitWidth = 924 ExplicitWidth = 715
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 827 ExplicitWidth = 618
Width = 827 Width = 618
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited eLista: TcxComboBox
ExplicitWidth = 462 Properties.DropDownRows = 20
Width = 462 Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
ExplicitWidth = 71
Width = 71
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited dxLayoutControl1Group_Root: TdxLayoutGroup
Left = 566 inherited dxLayoutControl1Group1: TdxLayoutGroup
ExplicitLeft = 566 inherited dxLayoutControl1Item2: TdxLayoutItem
ExplicitWidth = 348 Visible = False
Width = 348 end
inherited dxLayoutControl1Item3: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = True
end
end
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 924 Width = 715
ExplicitWidth = 924 ExplicitWidth = 715
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 914 Width = 705
ExplicitWidth = 914 ExplicitWidth = 705
end end
end end
end end
inherited ActionList1: TActionList
inherited actQuitarFiltro: TAction
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
end
end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 436 Top = 436
Visible = True Visible = True
ExplicitTop = 436 ExplicitTop = 436
ExplicitWidth = 924 ExplicitWidth = 715
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 924 Width = 715
ExplicitWidth = 924 ExplicitWidth = 715
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 914 Width = 705
ExplicitWidth = 914 ExplicitWidth = 705
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem3: TTBXItem object TBXItem3: TTBXItem

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

@ -20,7 +20,7 @@ uses
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinXmas2008Blue, dxSkinscxPCPainter, uArticulosController;
type type
IViewArticulos = interface(IViewGrid) IViewArticulos = interface(IViewGrid)
@ -28,6 +28,10 @@ type
function GetArticulos: IBizArticulo; function GetArticulos: IBizArticulo;
procedure SetArticulos(const Value: IBizArticulo); procedure SetArticulos(const Value: IBizArticulo);
property Articulos: IBizArticulo read GetArticulos write SetArticulos; property Articulos: IBizArticulo read GetArticulos write SetArticulos;
function GetController : IArticulosController;
procedure SetController (const Value : IArticulosController);
property Controller : IArticulosController read GetController write SetController;
end; end;
TfrViewArticulos = class(TfrViewGrid, IViewArticulos) TfrViewArticulos = class(TfrViewGrid, IViewArticulos)
@ -48,6 +52,8 @@ type
TBXSeparatorItem3: TTBXSeparatorItem; TBXSeparatorItem3: TTBXSeparatorItem;
actFabricante: TAction; actFabricante: TAction;
cxGridViewREFERENCIA_FABR: TcxGridDBColumn; cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
cxGridViewPRECIO_PVP: TcxGridDBColumn;
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
procedure actProveedorExecute(Sender: TObject); procedure actProveedorExecute(Sender: TObject);
procedure actProveedorUpdate(Sender: TObject); procedure actProveedorUpdate(Sender: TObject);
procedure actFamiliaExecute(Sender: TObject); procedure actFamiliaExecute(Sender: TObject);
@ -57,12 +63,28 @@ type
procedure cxGridViewDataControllerCompare( procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
private
FListaProveedores: TStringList;
//Filtros relativos a la vista
procedure AnadirFiltroProveedores;
protected protected
FArticulos: IBizArticulo; FArticulos: IBizArticulo;
FController: IArticulosController;
function GetArticulos: IBizArticulo; virtual; function GetArticulos: IBizArticulo; virtual;
procedure SetArticulos(const Value: IBizArticulo); virtual; procedure SetArticulos(const Value: IBizArticulo); virtual;
function GetController : IArticulosController;
procedure SetController (const Value : IArticulosController);
public public
property Articulos: IBizArticulo read GetArticulos write SetArticulos; property Articulos: IBizArticulo read GetArticulos write SetArticulos;
property Controller : IArticulosController read GetController write SetController;
procedure AnadirOtrosFiltros; override;
end; end;
implementation implementation
@ -82,6 +104,11 @@ begin
Result := FArticulos; Result := FArticulos;
end; end;
function TfrViewArticulos.GetController: IArticulosController;
begin
Result := FController;
end;
procedure TfrViewArticulos.SetArticulos(const Value: IBizArticulo); procedure TfrViewArticulos.SetArticulos(const Value: IBizArticulo);
begin begin
FArticulos := Value; FArticulos := Value;
@ -90,6 +117,34 @@ begin
end; end;
procedure TfrViewArticulos.SetController(const Value: IArticulosController);
var
i: Integer;
begin
FController := Value;
//Rellenamos la lista de proveedores con articulos
if Assigned(FController) then
begin
FListaProveedores := FController.DarListaProveedoresConArticulos;
with frViewFiltroBase1.eLista.Properties.Items do
begin
BeginUpdate;
try
Clear;
Add('Todos');
for i := 0 to FListaProveedores.Count - 1 do
Add(FListaProveedores.Names[i]);
frViewFiltroBase1.eLista.ItemIndex := 0;
finally
EndUpdate;
end;
end;
end;
end;
procedure TfrViewArticulos.actFabricanteExecute(Sender: TObject); procedure TfrViewArticulos.actFabricanteExecute(Sender: TObject);
begin begin
if (cxGridViewFABRICANTE.GroupIndex < 0) then if (cxGridViewFABRICANTE.GroupIndex < 0) then
@ -151,6 +206,57 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0);
end; end;
procedure TfrViewArticulos.AnadirFiltroProveedores;
var
FFiltro : TcxFilterCriteriaItemList;
CodigoProveedor: Variant;
Index: Integer;
begin
//Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
if frViewFiltroBase1.Visible then
begin
if VarIsNull(frViewFiltroBase1.eLista.EditValue) then
CodigoProveedor := frViewFiltroBase1.eLista.EditValue
else
CodigoProveedor := FListaProveedores.Values[frViewFiltroBase1.eLista.EditValue];
if not VarIsNull(CodigoProveedor)
and (VarToStr(CodigoProveedor) <> '') then
begin
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, CodigoProveedor, CodigoProveedor);
cxGridViewNOMBRE_PROVEEDOR.Visible := False;
end
else
cxGridViewNOMBRE_PROVEEDOR.Visible := True;
end;
end;
procedure TfrViewArticulos.AnadirOtrosFiltros;
begin
inherited;
AnadirFiltroProveedores;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False
else cxGridView.DataController.Filter.Active := True;
cxGrid.ActiveLevel.GridView := cxGridView;
end;
procedure TfrViewArticulos.CustomViewCreate(Sender: TObject);
begin
inherited;
FListaProveedores := Nil;
end;
procedure TfrViewArticulos.CustomViewDestroy(Sender: TObject);
begin
inherited;
FreeAndNil(FListaProveedores);
end;
procedure TfrViewArticulos.cxGridViewDataControllerCompare( procedure TfrViewArticulos.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
@ -163,4 +269,16 @@ begin
Compare := VarCompare(V1, V2); Compare := VarCompare(V1, V2);
end; end;
procedure TfrViewArticulos.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
begin
frViewFiltroBase1.txtFiltroTodo.Clear;
frViewFiltroBase1.eLista.Clear;
end;
procedure TfrViewArticulos.frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
begin
inherited;
RefrescarFiltro;
end;
end. end.

154
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -1,22 +1,25 @@
inherited frViewEmpleado: TfrViewEmpleado inherited frViewEmpleado: TfrViewEmpleado
Height = 391 Width = 673
Height = 424
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitHeight = 391 ExplicitWidth = 673
ExplicitHeight = 424
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Height = 391 Width = 673
Height = 424
ExplicitHeight = 391 ExplicitHeight = 391
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 612 Left = 628
ExplicitLeft = 612 ExplicitLeft = 628
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 612 Left = 628
ExplicitLeft = 612 ExplicitLeft = 628
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 612 Left = 628
ExplicitLeft = 612 ExplicitLeft = 628
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121 Left = 121
@ -24,8 +27,8 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 6 TabOrder = 6
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 226 ExplicitTop = 226
ExplicitWidth = 260 ExplicitWidth = 183
Width = 260 Width = 183
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 121 Left = 121
@ -33,8 +36,8 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 9 TabOrder = 9
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 280 ExplicitTop = 280
ExplicitWidth = 260 ExplicitWidth = 183
Width = 260 Width = 183
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 121 Left = 121
@ -42,22 +45,24 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 7 TabOrder = 7
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 253 ExplicitTop = 253
ExplicitWidth = 159 ExplicitWidth = 82
Width = 159 Width = 82
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 239 Left = 247
Top = 253 Top = 253
TabOrder = 8 TabOrder = 8
ExplicitLeft = 239 ExplicitLeft = 247
ExplicitTop = 253 ExplicitTop = 253
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 364 Top = 364
TabOrder = 20 TabOrder = 20
ExplicitTop = 364 ExplicitTop = 364
ExplicitWidth = 613
ExplicitHeight = 20 ExplicitHeight = 20
Height = 20 Height = 20
Width = 613
end end
object eFechaNacimiento: TcxDBDateEdit [8] object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121 Left = 121
@ -74,7 +79,7 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 3
Width = 121 Width = 183
end end
object eFechaAltaEmpresa: TcxDBDateEdit [9] object eFechaAltaEmpresa: TcxDBDateEdit [9]
Left = 121 Left = 121
@ -91,7 +96,7 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 4
Width = 235 Width = 183
end end
object cbCategoria: TcxDBComboBox [10] object cbCategoria: TcxDBComboBox [10]
Left = 121 Left = 121
@ -115,20 +120,10 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 225 Width = 183
end end
inherited eTlfParticular: TcxDBTextEdit object cbContrato: TcxDBComboBox [11]
Left = 429 Left = 437
TabOrder = 12
ExplicitLeft = 429
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 429
TabOrder = 11
ExplicitLeft = 429
end
object cbContrato: TcxDBComboBox [13]
Left = 429
Top = 280 Top = 280
DataBinding.DataField = 'CONTRATO' DataBinding.DataField = 'CONTRATO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -149,48 +144,44 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 18 TabOrder = 18
Width = 292 Width = 206
end
inherited eTlfParticular: TcxDBTextEdit
Left = 437
TabOrder = 12
ExplicitLeft = 437
ExplicitWidth = 206
Width = 206
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 437
TabOrder = 11
ExplicitLeft = 437
ExplicitWidth = 206
Width = 206
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 429 Left = 437
TabOrder = 13 TabOrder = 13
ExplicitLeft = 429 ExplicitLeft = 437
ExplicitWidth = 206
Width = 206
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 429 Left = 437
TabOrder = 14 TabOrder = 14
ExplicitLeft = 429 ExplicitLeft = 437
ExplicitWidth = 206
Width = 206
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 121 Left = 121
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitWidth = 263 ExplicitWidth = 183
Width = 263 Width = 183
end end
inherited eNIFCIF: TcxDBTextEdit object eDuracionContrato: TcxDBTextEdit [17]
Left = 198 Left = 437
ExplicitLeft = 198
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 429
Properties.Prefix = 'mailto:'
TabOrder = 15
ExplicitLeft = 429
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 429
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 429
ExplicitWidth = 165
Width = 165
end
object eDuracionContrato: TcxDBTextEdit [20]
Left = 429
Top = 307 Top = 307
DataBinding.DataField = 'DURACION' DataBinding.DataField = 'DURACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -205,18 +196,42 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19 TabOrder = 19
Width = 114 Width = 206
end
inherited eNIFCIF: TcxDBTextEdit
Left = 202
ExplicitLeft = 202
ExplicitWidth = 106
Width = 106
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 437
Properties.Prefix = 'mailto:'
TabOrder = 15
ExplicitLeft = 437
ExplicitWidth = 177
Width = 177
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 437
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 437
ExplicitWidth = 177
Width = 177
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 429 Left = 437
TabOrder = 17 TabOrder = 17
ExplicitLeft = 429 ExplicitLeft = 437
ExplicitWidth = 165 ExplicitWidth = 177
Width = 165 Width = 177
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 121 Left = 121
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitWidth = 44
Width = 44
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 121 Left = 121
@ -224,6 +239,8 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 10 TabOrder = 10
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 307 ExplicitTop = 307
ExplicitWidth = 183
Width = 183
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
@ -267,6 +284,7 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited dxLayoutControlContactoGroup2: TdxLayoutGroup inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
inherited dxLayoutControlContactoItem10: TdxLayoutItem inherited dxLayoutControlContactoItem10: TdxLayoutItem
Caption = 'Tlf. trabajo:' Caption = 'Tlf. trabajo:'
Visible = False
end end
inherited dxLayoutControlContactoItem9: TdxLayoutItem inherited dxLayoutControlContactoItem9: TdxLayoutItem
Caption = 'Tlf. particular:' Caption = 'Tlf. particular:'

18
Source/Modulos/Contactos/Views/uViewEmpleados.dfm
View File

@ -17,6 +17,10 @@ inherited frViewEmpleados: TfrViewEmpleados
inherited cxGridViewNOMBRE: TcxGridDBColumn inherited cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre y apellidos' Caption = 'Nombre y apellidos'
end end
inherited cxGridViewTELEFONO_1: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewTELEFONO_2: TcxGridDBColumn inherited cxGridViewTELEFONO_2: TcxGridDBColumn
Visible = True Visible = True
end end
@ -28,26 +32,12 @@ inherited frViewEmpleados: TfrViewEmpleados
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 238 ExplicitWidth = 238
Width = 238 Width = 238
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 342 Left = 342
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 342 ExplicitLeft = 342
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205

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

@ -203,90 +203,82 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Height = 51 Height = 51
ExplicitWidth = 815 ExplicitWidth = 815
ExplicitHeight = 51 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited FontName: TJvFontComboBox [3]
Wrap = False Left = 279
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0 Top = 0
ExplicitLeft = 278 ExplicitLeft = 279
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton [4]
Left = 334 Left = 424
Top = 0 Top = 0
Wrap = False ExplicitLeft = 424
ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontSize: TEdit [5]
Left = 399 Left = 489
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0 Top = 0
Width = 104 Width = 104
ExplicitLeft = 544 ExplicitLeft = 489
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 104 ExplicitWidth = 104
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown [6]
Left = 0 Left = 593
Top = 0 Top = 0
Wrap = True ExplicitLeft = 593
ExplicitLeft = 0
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited ToolButton13: TToolButton [7]
Top = 0
ExplicitTop = 0
end
inherited ToolButton11: TToolButton [8]
Left = 0 Left = 0
Top = 27 Top = 27
Wrap = False
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton3: TToolButton [9]
Left = 17 Left = 141
Top = 27 Top = 27
ExplicitLeft = 17 Wrap = False
end
inherited ToolButton12: TToolButton [10]
Left = 196
Top = 27
ExplicitLeft = 196
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton9: TToolButton [11]
Left = 83 Left = 204
Top = 27 Top = 27
ExplicitLeft = 83 ExplicitLeft = 204
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton10: TToolButton [12]
Left = 150 Left = 349
Top = 27 Top = 27
ExplicitLeft = 150 ExplicitLeft = 349
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton6: TToolButton [13]
Left = 233 Left = 474
Top = 27 Top = 27
ExplicitLeft = 233 ExplicitLeft = 474
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton7: TToolButton [14]
Left = 241 Left = 540
Top = 27 Top = 27
ExplicitLeft = 241 ExplicitLeft = 540
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton8: TToolButton [15]
Left = 386 Left = 607
Top = 27 Top = 27
ExplicitLeft = 386 ExplicitLeft = 607
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 511
Top = 27
ExplicitLeft = 511
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -352,9 +344,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 829 ExplicitWidth = 829
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 111 Top = 111
Width = 73
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 375 Left = 375
@ -367,10 +357,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 487 Left = 487
Top = 111 Top = 111
Width = 192
ExplicitLeft = 487 ExplicitLeft = 487
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 192
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Top = 131 Top = 131

8
Source/Servicios/FactuGES.RODL
View File

@ -162,6 +162,14 @@
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}"> <Interface Name="Default" UID="{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}">
<Operations> <Operations>
<Operation Name="DarListaProveedoresConArticulos" UID="{4CD15997-51CA-40A6-902B-3ADAC05E250D}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="IDEmpresa" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -363,6 +363,7 @@ type
{ IsrvArticulos } { IsrvArticulos }
IsrvArticulos = interface(IDataAbstractService) IsrvArticulos = interface(IDataAbstractService)
['{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}'] ['{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}']
function DarListaProveedoresConArticulos(const IDEmpresa: Integer): Binary;
end; end;
{ CosrvArticulos } { CosrvArticulos }
@ -375,6 +376,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function DarListaProveedoresConArticulos(const IDEmpresa: Integer): Binary;
end; end;
{ IsrvRecibosCliente } { IsrvRecibosCliente }
@ -1199,11 +1201,30 @@ begin
result := TsrvArticulos_Proxy.Create(aMessage, aTransportChannel); result := TsrvArticulos_Proxy.Create(aMessage, aTransportChannel);
end; end;
{ TsrvArticulos_Proxy }
function TsrvArticulos_Proxy.__GetInterfaceName:string; function TsrvArticulos_Proxy.__GetInterfaceName:string;
begin begin
result := 'srvArticulos'; result := 'srvArticulos';
end; end;
function TsrvArticulos_Proxy.DarListaProveedoresConArticulos(const IDEmpresa: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaProveedoresConArticulos');
__Message.Write('IDEmpresa', TypeInfo(Integer), IDEmpresa, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvRecibosCliente } { CosrvRecibosCliente }
class function CosrvRecibosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecibosCliente; class function CosrvRecibosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecibosCliente;

31
Source/Servicios/FactuGES_Invk.pas
View File

@ -98,6 +98,7 @@ type
private private
protected protected
published published
procedure Invoke_DarListaProveedoresConArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvRecibosCliente_Invoker = class(TDataAbstractService_Invoker) TsrvRecibosCliente_Invoker = class(TDataAbstractService_Invoker)
@ -386,6 +387,36 @@ begin
end; end;
end; end;
{ TsrvArticulos_Invoker }
procedure TsrvArticulos_Invoker.Invoke_DarListaProveedoresConArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaProveedoresConArticulos(const IDEmpresa: Integer): Binary; }
var
IDEmpresa: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('IDEmpresa', TypeInfo(Integer), IDEmpresa, []);
lResult := (__Instance as IsrvArticulos).DarListaProveedoresConArticulos(IDEmpresa);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvArticulos', 'DarListaProveedoresConArticulosResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvRecibosCliente_Invoker } { TsrvRecibosCliente_Invoker }
procedure TsrvRecibosCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvRecibosCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -100,8 +100,6 @@ uses
srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService}, srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService},
schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas', schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas',
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas', schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule}, uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule}, uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas', srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
@ -124,7 +122,9 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule}, uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

550
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,279 +1,279 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</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.5.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.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de junio de 2008 19:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</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.5.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.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de junio de 2008 19:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]