From 2b1d7f5eda544f338ed522c2a762d1350f777583 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 1 Jun 2016 10:06:28 +0000 Subject: [PATCH] Meter un campo de referencia libre en pedidos proveedor git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@644 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 59 +- Source/Base/Base.dproj | 96 +-- Source/Cliente/FactuGES.dproj | 3 +- Source/Cliente/FactuGES.rc | 2 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes Source/GUIBase/GUIBase.dproj | 56 +- Source/GUIBase/uEditorDBItem.dfm | 11 +- Source/Informes/InfPedidoProveedor.fr3 | 34 +- .../Model/schContactosClient_Intf.pas | 557 ++++++++++++++- .../Model/schContactosServer_Intf.pas | 655 +++++++++++++++++- .../Contactos/Servidor/srvContactos_Impl.dfm | 219 ++++++ .../Data/PedidosProveedor_data.dproj | 4 +- .../Data/uDataModulePedidosProveedor.dfm | 4 + .../Model/PedidosProveedor_model.dproj | 14 +- .../Model/schPedidosProveedorClient_Intf.pas | 43 +- .../Model/schPedidosProveedorServer_Intf.pas | 51 +- .../Reports/uRptPedidosProveedor_Server.dfm | 58 +- .../Servidor/srvPedidosProveedor_Impl.dfm | 93 ++- .../Views/uViewDireccionEntregaPedidoProv.dfm | 79 ++- .../Views/uViewDireccionEntregaPedidoProv.pas | 34 +- .../Views/uViewPedidoProveedor.dfm | 162 ++--- .../Views/uViewPedidosProveedor.dfm | 14 +- Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +- Source/Servidor/FactuGES_Server.res | Bin 23352 -> 23348 bytes 26 files changed, 1908 insertions(+), 358 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 66eb60b6..8d7a5948 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1313,7 +1313,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR ( ID_FORMA_PAGO TIPO_ID, FECHA_ENVIO DATE, ID_TIENDA TIPO_ID, - DESCRIPCION_GENERAL VARCHAR(255) COLLATE ES_ES + DESCRIPCION_GENERAL VARCHAR(255) COLLATE ES_ES, + ID_DIRECCION_CLIENTE TIPO_ID ); @@ -2065,6 +2066,56 @@ SELECT CONTACTOS.ID, LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTACTOS.ID_TIENDA) ; +/* View: V_CONTACTOS_DIRECCIONES */ +create view V_CONTACTOS_DIRECCIONES ( + ID_CONTACTO, + ID_DIRECCION, + NOMBRE, + NIF_CIF, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + TELEFONO, + MOVIL, + FAX, + EMAIL, + PERSONA_CONTACTO +) +as +select + CONTACTOS.ID AS ID_CONTACTO, + 0 AS ID, + CONTACTOS.NOMBRE, + CONTACTOS.NIF_CIF, + CONTACTOS.CALLE, + CONTACTOS.POBLACION, + CONTACTOS.PROVINCIA, + CONTACTOS.CODIGO_POSTAL, + CONTACTOS.TELEFONO_1, + CONTACTOS.MOVIL_1, + CONTACTOS.FAX, + CONTACTOS.EMAIL_1, + CONTACTOS.PERSONA_CONTACTO +from CONTACTOS +union +select + CONTACTOS_DIRECCIONES.ID_CONTACTO, + CONTACTOS_DIRECCIONES.ID, + CONTACTOS_DIRECCIONES.NOMBRE, + CONTACTOS_DIRECCIONES.NIF_CIF, + CONTACTOS_DIRECCIONES.CALLE, + CONTACTOS_DIRECCIONES.POBLACION, + CONTACTOS_DIRECCIONES.PROVINCIA, + CONTACTOS_DIRECCIONES.CODIGO_POSTAL, + CONTACTOS_DIRECCIONES.TELEFONO, + CONTACTOS_DIRECCIONES.MOVIL, + CONTACTOS_DIRECCIONES.FAX, + CONTACTOS_DIRECCIONES.EMAIL, + CONTACTOS_DIRECCIONES.PERSONA_CONTACTO +from CONTACTOS_DIRECCIONES; + +/* View: V_CONTACTOS_NOMBRES_DIRECCIONES */ create view V_CONTACTOS_NOMBRES_DIRECCIONES( ID, LISTA_NOMBRES) @@ -3783,7 +3834,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR( ID_FORMA_PAGO, ID_TIENDA, TIENDA, - DESCRIPCION_GENERAL) + DESCRIPCION_GENERAL, + ID_DIRECCION_CLIENTE) AS SELECT PEDIDOS_PROVEEDOR.ID, @@ -3826,7 +3878,8 @@ SELECT PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, PEDIDOS_PROVEEDOR.ID_TIENDA, COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, - PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL + PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL, + PEDIDOS_PROVEEDOR.ID_DIRECCION_CLIENTE FROM PEDIDOS_PROVEEDOR INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index bd1cde21..81cc26e9 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,54 +58,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index d0fdc004..fd04568e 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,8 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2720FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.2.0FactuGESFactuGES2.7.2.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2730FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.3.0FactuGESFactuGES2.7.3.0 + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 7fb45489..9390f219 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.7.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.7.2.0\0" + VALUE "ProductVersion", "2.7.3.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index bd7d3c2a29e706a178c0fdbec683dfc74c63a1af..788e748ccb8bcc75ae5dedfb8ecb2356b220a448 100644 GIT binary patch delta 488 zcmY+9yGjE=6o$WN5VlD+Z63f@ zw6wIew(}hV@yyP~;DOnhpZ{|H{d{w#?@sSYz3Akq>$*;kzft6HT~K6bq|9xRM&X-LG#V~~X;o@cp922wHdm`GZhVln1cU@1nztx}amrIH~%HVz?6xopv(0uHsB zMU!V(rq_#=8B-L78u7tw=E_m>f+C9_8tUMCq<7a7vQ(r}`5@Amx+dxWOoRPU7t~ka zhq}7CCA{K_q{#c*>0yU{bng9R* delta 318 zcmY+9v1-C#5XXPt88xONS%i!M5gj_j(yf$=li=duZrpqeGdTDF!Z#T^`T*VAv7^t> zxq}ZN*h>=<{KIkIkN@3wch@iP{OKiI^C8Y*6Zu}7Qie9Z4~BqsJAx()^+r_d(G`@Dn0XPSE(%RZz@CcWV=UsvFD@2 J`X0T@>< MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index 0467683b..b86815a9 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem Width = 650 ExplicitWidth = 650 inherited tbxMain: TTBXToolbar - ExplicitWidth = 605 + ExplicitWidth = 650 inherited TBXItem26: TTBXItem Visible = False end @@ -77,14 +77,12 @@ inherited fEditorDBItem: TfEditorDBItem object pgPaginas: TPageControl [3] AlignWithMargins = True Left = 3 - Top = 109 + Top = 118 Width = 644 - Height = 328 + Height = 319 ActivePage = pagGeneral Align = alClient TabOrder = 2 - ExplicitTop = 118 - ExplicitHeight = 319 object pagGeneral: TTabSheet Caption = 'General' ExplicitLeft = 0 @@ -95,7 +93,7 @@ inherited fEditorDBItem: TfEditorDBItem end object PnlComentario: TPanel [4] Left = 0 - Top = 76 + Top = 85 Width = 650 Height = 30 Align = alTop @@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem ParentBackground = False TabOrder = 4 VerticalAlignment = taAlignTop - ExplicitTop = 85 object lbComentario: TLabel AlignWithMargins = True Left = 6 diff --git a/Source/Informes/InfPedidoProveedor.fr3 b/Source/Informes/InfPedidoProveedor.fr3 index 78e2d629..e1ede75a 100644 --- a/Source/Informes/InfPedidoProveedor.fr3 +++ b/Source/Informes/InfPedidoProveedor.fr3 @@ -1,14 +1,14 @@ - + - - - - - + + + + + - + @@ -18,29 +18,31 @@ - - + + - + - - + + - - + + - - + + + + diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index f7c14f79..cff72542 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,21 +9,22 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarEmpresasContacto = '{09803035-EC1E-47D5-A44A-009646FD810D}'; - RID_PersonalContacto = '{9189C512-E42F-4A70-8091-BCB24B5EBDB3}'; - RID_DarTiendaDeUsuario = '{205D95B2-634E-4887-85A6-48C018B77CA7}'; - RID_SubCuentasContacto = '{86A29408-F7FB-4C21-BEEA-95E6A6176398}'; - RID_Contactos = '{95D8B1E2-A325-44C9-A3DC-F05D03116753}'; - RID_GruposCliente = '{12CC2A2C-509B-4174-A817-B16E0B957461}'; - RID_DatosBancarios = '{048A41E8-4348-4713-B083-FE719C79C9F4}'; - RID_Clientes = '{1109FEE2-1CF8-43B7-9773-345F3C36E79F}'; - RID_Proveedores = '{AA7D0872-D624-4727-A3C5-E0F1241A2FD6}'; - RID_Vendedores = '{6A7D49D7-5C67-4FF9-B93D-EFB25F042DC3}'; - RID_DireccionesContacto = '{453DA476-B83F-4A42-B884-B7F8D4F60349}'; - RID_ClientesDescuentos = '{39BC1677-2432-4545-BF77-D0188412AA86}'; - RID_ProcedenciasCliente = '{DC1F0246-260A-407D-BA81-7AF544932A02}'; - RID_GruposProveedor = '{A887BBFA-2DFE-4770-9EB3-4681435D7634}'; - RID_Contactos_Refresh = '{FDA7E99C-3497-43F5-85A6-EAEE0F1D54DE}'; + RID_DarEmpresasContacto = '{472CACD6-0E6A-41FE-9ED2-537C64ACA52C}'; + RID_PersonalContacto = '{E4677356-21EF-4ED1-8CB8-6E007EDC4768}'; + RID_DarTiendaDeUsuario = '{F51C8AFF-D2D5-4027-B7F1-4F2F18EE55DA}'; + RID_SubCuentasContacto = '{7386C05F-4BB8-4D5D-9840-421780DC9022}'; + RID_Contactos = '{904DED01-45A4-45B9-BD55-F4259DD90889}'; + RID_GruposCliente = '{6A6AF3F2-8FBC-40EE-BF53-F4FD0E8CD717}'; + RID_DatosBancarios = '{A5772889-F9BD-4947-8932-6F7537464FCA}'; + RID_ContactosDirecciones = '{1B5F181A-13BF-46E9-BAAE-0A86D07849F7}'; + RID_Clientes = '{517433C7-D932-4116-A80B-5F3FEF6C70AA}'; + RID_Proveedores = '{4A22961C-9423-43DF-A93F-46B2BD116C1B}'; + RID_Vendedores = '{1CBABDE6-D012-4FB9-A474-9258FCA38D25}'; + RID_DireccionesContacto = '{1E9A1687-E932-46C5-A964-59E06D2ADC6C}'; + RID_ClientesDescuentos = '{596AA9EC-5E5B-4049-BB5C-BA3375D822AB}'; + RID_ProcedenciasCliente = '{BD34109C-D29B-4E5B-8B19-BA583DF88C1A}'; + RID_GruposProveedor = '{24E55CF0-80E1-4754-87E4-440DFCDE8732}'; + RID_Contactos_Refresh = '{41366B21-52A6-4C32-82C7-A20158D2DDFC}'; { Data table names } nme_DarEmpresasContacto = 'DarEmpresasContacto'; @@ -33,6 +34,7 @@ const nme_Contactos = 'Contactos'; nme_GruposCliente = 'GruposCliente'; nme_DatosBancarios = 'DatosBancarios'; + nme_ContactosDirecciones = 'ContactosDirecciones'; nme_Clientes = 'Clientes'; nme_Proveedores = 'Proveedores'; nme_Vendedores = 'Vendedores'; @@ -178,6 +180,36 @@ const idx_DatosBancariosFECHA_ALTA = 7; idx_DatosBancariosFECHA_MODIFICACION = 8; + { ContactosDirecciones fields } + fld_ContactosDireccionesID_CONTACTO = 'ID_CONTACTO'; + fld_ContactosDireccionesID_DIRECCION = 'ID_DIRECCION'; + fld_ContactosDireccionesNOMBRE = 'NOMBRE'; + fld_ContactosDireccionesNIF_CIF = 'NIF_CIF'; + fld_ContactosDireccionesCALLE = 'CALLE'; + fld_ContactosDireccionesPOBLACION = 'POBLACION'; + fld_ContactosDireccionesPROVINCIA = 'PROVINCIA'; + fld_ContactosDireccionesCODIGO_POSTAL = 'CODIGO_POSTAL'; + fld_ContactosDireccionesTELEFONO = 'TELEFONO'; + fld_ContactosDireccionesMOVIL = 'MOVIL'; + fld_ContactosDireccionesFAX = 'FAX'; + fld_ContactosDireccionesEMAIL = 'EMAIL'; + fld_ContactosDireccionesPERSONA_CONTACTO = 'PERSONA_CONTACTO'; + + { ContactosDirecciones field indexes } + idx_ContactosDireccionesID_CONTACTO = 0; + idx_ContactosDireccionesID_DIRECCION = 1; + idx_ContactosDireccionesNOMBRE = 2; + idx_ContactosDireccionesNIF_CIF = 3; + idx_ContactosDireccionesCALLE = 4; + idx_ContactosDireccionesPOBLACION = 5; + idx_ContactosDireccionesPROVINCIA = 6; + idx_ContactosDireccionesCODIGO_POSTAL = 7; + idx_ContactosDireccionesTELEFONO = 8; + idx_ContactosDireccionesMOVIL = 9; + idx_ContactosDireccionesFAX = 10; + idx_ContactosDireccionesEMAIL = 11; + idx_ContactosDireccionesPERSONA_CONTACTO = 12; + { Clientes fields } fld_ClientesID = 'ID'; fld_ClientesID_CATEGORIA = 'ID_CATEGORIA'; @@ -529,7 +561,7 @@ const type { IDarEmpresasContacto } IDarEmpresasContacto = interface(IDAStronglyTypedDataTable) - ['{15184075-B134-4220-9D05-92A49F766EEE}'] + ['{8BB5E061-F364-4E04-9A15-3AF7CD963D9A}'] { Property getters and setters } function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); @@ -564,7 +596,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{0859C40F-90F2-4929-8D50-2265CA86A830}'] + ['{751C15E3-B72F-45A3-ACA6-EE5536294AB2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -707,7 +739,7 @@ type { IDarTiendaDeUsuario } IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) - ['{22E99E1B-0398-4E25-A39B-2957E583DB52}'] + ['{3FA2CF6E-3BD5-4061-8939-28C8FF90948F}'] { Property getters and setters } function GetID_TIENDAValue: Integer; procedure SetID_TIENDAValue(const aValue: Integer); @@ -742,7 +774,7 @@ type { ISubCuentasContacto } ISubCuentasContacto = interface(IDAStronglyTypedDataTable) - ['{63F82DF4-9976-41A1-8FF3-BAF5E027E3BF}'] + ['{9B286C57-728E-4B5D-B2B5-155391D6FFFD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -837,7 +869,7 @@ type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{B5B0B727-28C1-4323-836F-036FC3860F72}'] + ['{069DC5F3-C775-4E5D-8F1B-0AB17E4A0D95}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1160,7 +1192,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{03F52C3C-90E8-4BBD-9087-BB76E72521D3}'] + ['{ABBC4C99-5BB7-4AF5-A0E8-AC0330A292DB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1207,7 +1239,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{7B95F875-C61F-418B-B145-C0790E885DFF}'] + ['{E86958FB-3553-4826-92AD-E05BB763F327}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1336,9 +1368,188 @@ type end; + { IContactosDirecciones } + IContactosDirecciones = interface(IDAStronglyTypedDataTable) + ['{7B0624ED-DAFE-4E73-8133-20B2F470DF6D}'] + { Property getters and setters } + function GetID_CONTACTOValue: Integer; + procedure SetID_CONTACTOValue(const aValue: Integer); + function GetID_CONTACTOIsNull: Boolean; + procedure SetID_CONTACTOIsNull(const aValue: Boolean); + function GetID_DIRECCIONValue: Integer; + procedure SetID_DIRECCIONValue(const aValue: Integer); + function GetID_DIRECCIONIsNull: Boolean; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetNIF_CIFValue: String; + procedure SetNIF_CIFValue(const aValue: String); + function GetNIF_CIFIsNull: Boolean; + procedure SetNIF_CIFIsNull(const aValue: Boolean); + function GetCALLEValue: String; + procedure SetCALLEValue(const aValue: String); + function GetCALLEIsNull: Boolean; + procedure SetCALLEIsNull(const aValue: Boolean); + function GetPOBLACIONValue: String; + procedure SetPOBLACIONValue(const aValue: String); + function GetPOBLACIONIsNull: Boolean; + procedure SetPOBLACIONIsNull(const aValue: Boolean); + function GetPROVINCIAValue: String; + procedure SetPROVINCIAValue(const aValue: String); + function GetPROVINCIAIsNull: Boolean; + procedure SetPROVINCIAIsNull(const aValue: Boolean); + function GetCODIGO_POSTALValue: String; + procedure SetCODIGO_POSTALValue(const aValue: String); + function GetCODIGO_POSTALIsNull: Boolean; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); + function GetTELEFONOValue: String; + procedure SetTELEFONOValue(const aValue: String); + function GetTELEFONOIsNull: Boolean; + procedure SetTELEFONOIsNull(const aValue: Boolean); + function GetMOVILValue: String; + procedure SetMOVILValue(const aValue: String); + function GetMOVILIsNull: Boolean; + procedure SetMOVILIsNull(const aValue: Boolean); + function GetFAXValue: String; + procedure SetFAXValue(const aValue: String); + function GetFAXIsNull: Boolean; + procedure SetFAXIsNull(const aValue: Boolean); + function GetEMAILValue: String; + procedure SetEMAILValue(const aValue: String); + function GetEMAILIsNull: Boolean; + procedure SetEMAILIsNull(const aValue: Boolean); + function GetPERSONA_CONTACTOValue: String; + procedure SetPERSONA_CONTACTOValue(const aValue: String); + function GetPERSONA_CONTACTOIsNull: Boolean; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); + + + { Properties } + property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; + property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; + property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; + property MOVIL: String read GetMOVILValue write SetMOVILValue; + property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull; + property FAX: String read GetFAXValue write SetFAXValue; + property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; + property EMAIL: String read GetEMAILValue write SetEMAILValue; + property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; + property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + end; + + { TContactosDireccionesDataTableRules } + TContactosDireccionesDataTableRules = class(TIntfObjectDADataTableRules, IContactosDirecciones) + private + protected + { Property getters and setters } + function GetID_CONTACTOValue: Integer; virtual; + procedure SetID_CONTACTOValue(const aValue: Integer); virtual; + function GetID_CONTACTOIsNull: Boolean; virtual; + procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + function GetCALLEIsNull: Boolean; virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetTELEFONOValue: String; virtual; + procedure SetTELEFONOValue(const aValue: String); virtual; + function GetTELEFONOIsNull: Boolean; virtual; + procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; + function GetMOVILValue: String; virtual; + procedure SetMOVILValue(const aValue: String); virtual; + function GetMOVILIsNull: Boolean; virtual; + procedure SetMOVILIsNull(const aValue: Boolean); virtual; + function GetFAXValue: String; virtual; + procedure SetFAXValue(const aValue: String); virtual; + function GetFAXIsNull: Boolean; virtual; + procedure SetFAXIsNull(const aValue: Boolean); virtual; + function GetEMAILValue: String; virtual; + procedure SetEMAILValue(const aValue: String); virtual; + function GetEMAILIsNull: Boolean; virtual; + procedure SetEMAILIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTOValue: String; virtual; + procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; + function GetPERSONA_CONTACTOIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; + property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; + property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; + property MOVIL: String read GetMOVILValue write SetMOVILValue; + property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull; + property FAX: String read GetFAXValue write SetFAXValue; + property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; + property EMAIL: String read GetEMAILValue write SetEMAILValue; + property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; + property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{907442E0-5E45-4C9E-8C47-A97FA8009258}'] + ['{16982591-D076-457A-A0CF-96642B3A2A21}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1865,7 +2076,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{E1E5CFA4-89CC-438A-B220-4A140E5FE96D}'] + ['{6F8A315F-FC5F-44A3-AC1E-1179292FD039}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2392,7 +2603,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{DC80840F-D2B9-4F7A-9544-8A6903CAC9DC}'] + ['{CFAFE9D4-4031-4014-A6A2-8666FD35CBF0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2739,7 +2950,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{7D5F30E6-D2B7-4059-A9CC-9B91F1F8EC8F}'] + ['{C823E331-ED12-4669-B813-1C1F53612042}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2966,7 +3177,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{3FB8ABE8-0F32-4524-8CBF-5DA9A4660799}'] + ['{55FA6AE2-4570-49F3-8C7C-8AA2FB3E1ABA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3049,7 +3260,7 @@ type { IProcedenciasCliente } IProcedenciasCliente = interface(IDAStronglyTypedDataTable) - ['{C22BEAD6-90E2-4476-84D8-5FC9FB8101CF}'] + ['{45E13CDC-38AE-4866-8BF1-3DEDEC2C0A0A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3096,7 +3307,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{02C2EFE2-2CD9-421A-86AD-4CFC9ABA08CF}'] + ['{931D5150-8A05-4D86-890A-45F275BEE459}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3143,7 +3354,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{E63F3A20-96A8-466F-AF91-59759697CC5A}'] + ['{47929F64-100A-45C5-A6CD-2A57178A1818}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -4645,6 +4856,291 @@ begin end; +{ TContactosDireccionesDataTableRules } +constructor TContactosDireccionesDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TContactosDireccionesDataTableRules.Destroy; +begin + inherited; +end; + +function TContactosDireccionesDataTableRules.GetID_CONTACTOValue: Integer; +begin + result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger; +end; + +procedure TContactosDireccionesDataTableRules.SetID_CONTACTOValue(const aValue: Integer); +begin + DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger := aValue; +end; + +function TContactosDireccionesDataTableRules.GetID_CONTACTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetID_DIRECCIONValue: Integer; +begin + result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger; +end; + +procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger := aValue; +end; + +function TContactosDireccionesDataTableRules.GetID_DIRECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetNIF_CIFValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetNIF_CIFValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetNIF_CIFIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetCALLEValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesCALLE].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetCALLEValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesCALLE].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetCALLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesCALLE].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesCALLE].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetPOBLACIONValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetPOBLACIONValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetPOBLACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetPROVINCIAValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetPROVINCIAValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetPROVINCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetCODIGO_POSTALValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetCODIGO_POSTALIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetTELEFONOValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetTELEFONOValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetTELEFONOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetMOVILValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetMOVILValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetMOVILIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesMOVIL].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetMOVILIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesMOVIL].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetFAXValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesFAX].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetFAXValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesFAX].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetFAXIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesFAX].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetFAXIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesFAX].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetEMAILValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetEMAILValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetEMAILIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesEMAIL].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetEMAILIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesEMAIL].AsVariant := Null; +end; + +function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOValue: String; +begin + result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString; +end; + +procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString := aValue; +end; + +function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].IsNull; +end; + +procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsVariant := Null; +end; + + { TClientesDataTableRules } constructor TClientesDataTableRules.Create(aDataTable: TDADataTable); var @@ -8102,6 +8598,7 @@ initialization RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); + RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules); RegisterDataTableRules(RID_Clientes, TClientesDataTableRules); RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules); RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 916efd27..01ffb2eb 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,26 +9,27 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarEmpresasContactoDelta = '{A6433122-90DA-40E1-A8E3-B5153BDF9037}'; - RID_PersonalContactoDelta = '{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}'; - RID_DarTiendaDeUsuarioDelta = '{F78868ED-F8C1-43B2-8954-448FD9605F08}'; - RID_SubCuentasContactoDelta = '{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}'; - RID_ContactosDelta = '{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}'; - RID_GruposClienteDelta = '{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}'; - RID_DatosBancariosDelta = '{889D270E-ED85-4856-9C7E-C499F12F76F4}'; - RID_ClientesDelta = '{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}'; - RID_ProveedoresDelta = '{63D99AC7-1B5F-42AE-91EC-107B40310F49}'; - RID_VendedoresDelta = '{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}'; - RID_DireccionesContactoDelta = '{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}'; - RID_ClientesDescuentosDelta = '{475BA059-0898-4AC0-AAFD-5DEB00D99626}'; - RID_ProcedenciasClienteDelta = '{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}'; - RID_GruposProveedorDelta = '{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}'; - RID_Contactos_RefreshDelta = '{332B4E11-5924-4DE0-B89C-937B51D7E7A9}'; + RID_DarEmpresasContactoDelta = '{CA69F10E-9B4E-4274-90F7-56E33D84418F}'; + RID_PersonalContactoDelta = '{A14FBDB3-92F5-40ED-986A-D4461994FB85}'; + RID_DarTiendaDeUsuarioDelta = '{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}'; + RID_SubCuentasContactoDelta = '{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}'; + RID_ContactosDelta = '{DC868481-1C6B-408A-B9D9-86DD141BEFD9}'; + RID_GruposClienteDelta = '{47223648-73F6-483B-971C-00C1AC17E65F}'; + RID_DatosBancariosDelta = '{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}'; + RID_ContactosDireccionesDelta = '{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}'; + RID_ClientesDelta = '{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}'; + RID_ProveedoresDelta = '{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}'; + RID_VendedoresDelta = '{C12214F4-2ED0-4099-AECB-945D42A72EDC}'; + RID_DireccionesContactoDelta = '{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}'; + RID_ClientesDescuentosDelta = '{56F5AE71-33E1-4D3B-AE18-8C1F47582366}'; + RID_ProcedenciasClienteDelta = '{47DFCD94-B340-485F-90B1-C9E217F3810D}'; + RID_GruposProveedorDelta = '{7DBF3455-38E2-45DE-BABC-280D7B6309AF}'; + RID_Contactos_RefreshDelta = '{7A25AA92-54F4-4D92-AD08-3382DDC351B6}'; type { IDarEmpresasContactoDelta } IDarEmpresasContactoDelta = interface(IDarEmpresasContacto) - ['{A6433122-90DA-40E1-A8E3-B5153BDF9037}'] + ['{CA69F10E-9B4E-4274-90F7-56E33D84418F}'] { Property getters and setters } function GetOldID_EMPRESAValue : Integer; @@ -62,7 +63,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}'] + ['{A14FBDB3-92F5-40ED-986A-D4461994FB85}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -204,7 +205,7 @@ type { IDarTiendaDeUsuarioDelta } IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) - ['{F78868ED-F8C1-43B2-8954-448FD9605F08}'] + ['{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}'] { Property getters and setters } function GetOldID_TIENDAValue : Integer; @@ -238,7 +239,7 @@ type { ISubCuentasContactoDelta } ISubCuentasContactoDelta = interface(ISubCuentasContacto) - ['{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}'] + ['{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -332,7 +333,7 @@ type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}'] + ['{DC868481-1C6B-408A-B9D9-86DD141BEFD9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -655,7 +656,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}'] + ['{47223648-73F6-483B-971C-00C1AC17E65F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -701,7 +702,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{889D270E-ED85-4856-9C7E-C499F12F76F4}'] + ['{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -829,9 +830,187 @@ type end; + { IContactosDireccionesDelta } + IContactosDireccionesDelta = interface(IContactosDirecciones) + ['{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}'] + { Property getters and setters } + function GetOldID_CONTACTOValue : Integer; + function GetOldID_DIRECCIONValue : Integer; + function GetOldNOMBREValue : String; + function GetOldNIF_CIFValue : String; + function GetOldCALLEValue : String; + function GetOldPOBLACIONValue : String; + function GetOldPROVINCIAValue : String; + function GetOldCODIGO_POSTALValue : String; + function GetOldTELEFONOValue : String; + function GetOldMOVILValue : String; + function GetOldFAXValue : String; + function GetOldEMAILValue : String; + function GetOldPERSONA_CONTACTOValue : String; + + { Properties } + property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldCALLE : String read GetOldCALLEValue; + property OldPOBLACION : String read GetOldPOBLACIONValue; + property OldPROVINCIA : String read GetOldPROVINCIAValue; + property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; + property OldTELEFONO : String read GetOldTELEFONOValue; + property OldMOVIL : String read GetOldMOVILValue; + property OldFAX : String read GetOldFAXValue; + property OldEMAIL : String read GetOldEMAILValue; + property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; + end; + + { TContactosDireccionesBusinessProcessorRules } + TContactosDireccionesBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosDirecciones, IContactosDireccionesDelta) + private + protected + { Property getters and setters } + function GetID_CONTACTOValue: Integer; virtual; + function GetID_CONTACTOIsNull: Boolean; virtual; + function GetOldID_CONTACTOValue: Integer; virtual; + function GetOldID_CONTACTOIsNull: Boolean; virtual; + procedure SetID_CONTACTOValue(const aValue: Integer); virtual; + procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + function GetOldID_DIRECCIONValue: Integer; virtual; + function GetOldID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + function GetOldNIF_CIFValue: String; virtual; + function GetOldNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + function GetCALLEIsNull: Boolean; virtual; + function GetOldCALLEValue: String; virtual; + function GetOldCALLEIsNull: Boolean; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + function GetOldPOBLACIONValue: String; virtual; + function GetOldPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + function GetOldPROVINCIAValue: String; virtual; + function GetOldPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + function GetOldCODIGO_POSTALValue: String; virtual; + function GetOldCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetTELEFONOValue: String; virtual; + function GetTELEFONOIsNull: Boolean; virtual; + function GetOldTELEFONOValue: String; virtual; + function GetOldTELEFONOIsNull: Boolean; virtual; + procedure SetTELEFONOValue(const aValue: String); virtual; + procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; + function GetMOVILValue: String; virtual; + function GetMOVILIsNull: Boolean; virtual; + function GetOldMOVILValue: String; virtual; + function GetOldMOVILIsNull: Boolean; virtual; + procedure SetMOVILValue(const aValue: String); virtual; + procedure SetMOVILIsNull(const aValue: Boolean); virtual; + function GetFAXValue: String; virtual; + function GetFAXIsNull: Boolean; virtual; + function GetOldFAXValue: String; virtual; + function GetOldFAXIsNull: Boolean; virtual; + procedure SetFAXValue(const aValue: String); virtual; + procedure SetFAXIsNull(const aValue: Boolean); virtual; + function GetEMAILValue: String; virtual; + function GetEMAILIsNull: Boolean; virtual; + function GetOldEMAILValue: String; virtual; + function GetOldEMAILIsNull: Boolean; virtual; + procedure SetEMAILValue(const aValue: String); virtual; + procedure SetEMAILIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTOValue: String; virtual; + function GetPERSONA_CONTACTOIsNull: Boolean; virtual; + function GetOldPERSONA_CONTACTOValue: String; virtual; + function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; + property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; + property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue; + property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull; + property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; + property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; + property CALLE : String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; + property OldCALLE : String read GetOldCALLEValue; + property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; + property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property OldPOBLACION : String read GetOldPOBLACIONValue; + property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; + property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property OldPROVINCIA : String read GetOldPROVINCIAValue; + property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; + property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; + property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; + property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; + property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; + property OldTELEFONO : String read GetOldTELEFONOValue; + property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; + property MOVIL : String read GetMOVILValue write SetMOVILValue; + property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull; + property OldMOVIL : String read GetOldMOVILValue; + property OldMOVILIsNull : Boolean read GetOldMOVILIsNull; + property FAX : String read GetFAXValue write SetFAXValue; + property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull; + property OldFAX : String read GetOldFAXValue; + property OldFAXIsNull : Boolean read GetOldFAXIsNull; + property EMAIL : String read GetEMAILValue write SetEMAILValue; + property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull; + property OldEMAIL : String read GetOldEMAILValue; + property OldEMAILIsNull : Boolean read GetOldEMAILIsNull; + property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; + property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + { IClientesDelta } IClientesDelta = interface(IClientes) - ['{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}'] + ['{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1358,7 +1537,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{63D99AC7-1B5F-42AE-91EC-107B40310F49}'] + ['{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1885,7 +2064,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}'] + ['{C12214F4-2ED0-4099-AECB-945D42A72EDC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2232,7 +2411,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}'] + ['{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2459,7 +2638,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{475BA059-0898-4AC0-AAFD-5DEB00D99626}'] + ['{56F5AE71-33E1-4D3B-AE18-8C1F47582366}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2541,7 +2720,7 @@ type { IProcedenciasClienteDelta } IProcedenciasClienteDelta = interface(IProcedenciasCliente) - ['{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}'] + ['{47DFCD94-B340-485F-90B1-C9E217F3810D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2587,7 +2766,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}'] + ['{7DBF3455-38E2-45DE-BABC-280D7B6309AF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2633,7 +2812,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{332B4E11-5924-4DE0-B89C-937B51D7E7A9}'] + ['{7A25AA92-54F4-4D92-AD08-3382DDC351B6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -4677,6 +4856,421 @@ begin end; +{ TContactosDireccionesBusinessProcessorRules } +constructor TContactosDireccionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TContactosDireccionesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetCALLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetTELEFONOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetTELEFONOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetMOVILValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetMOVILIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldMOVILValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldMOVILIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetMOVILValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetFAXValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetFAXIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldFAXValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldFAXIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetFAXValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetEMAILValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetEMAILIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldEMAILValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldEMAILIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetEMAILValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := Null; +end; + +function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]); +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]; +end; + +function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]); +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := aValue; +end; + +procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := Null; +end; + + { TClientesBusinessProcessorRules } constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var @@ -9719,6 +10313,7 @@ initialization RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules); diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index cf6d4de6..07d4dcc3 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -655,6 +655,151 @@ object srvContactos: TsrvContactos DataType = datDateTime end> end + item + Params = <> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'V_CONTACTOS_DIRECCIONES' + Name = 'IBX' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID_CONTACTO' + TableField = 'ID_CONTACTO' + end + item + DatasetField = 'ID_DIRECCION' + TableField = 'ID_DIRECCION' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'NIF_CIF' + TableField = 'NIF_CIF' + end + item + DatasetField = 'CALLE' + TableField = 'CALLE' + end + item + DatasetField = 'POBLACION' + TableField = 'POBLACION' + end + item + DatasetField = 'PROVINCIA' + TableField = 'PROVINCIA' + end + item + DatasetField = 'CODIGO_POSTAL' + TableField = 'CODIGO_POSTAL' + end + item + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' + end + item + DatasetField = 'MOVIL' + TableField = 'MOVIL' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'EMAIL' + TableField = 'EMAIL' + end + item + DatasetField = 'PERSONA_CONTACTO' + TableField = 'PERSONA_CONTACTO' + end> + end> + Name = 'ContactosDirecciones' + Fields = < + item + Name = 'ID_CONTACTO' + DataType = datInteger + DictionaryEntry = 'ContactosDirecciones_ID_CONTACTO' + InPrimaryKey = True + end + item + Name = 'ID_DIRECCION' + DataType = datInteger + DictionaryEntry = 'ContactosDirecciones_ID_DIRECCION' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'ContactosDirecciones_NOMBRE' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'ContactosDirecciones_NIF_CIF' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + DictionaryEntry = 'ContactosDirecciones_CALLE' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'ContactosDirecciones_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'ContactosDirecciones_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DictionaryEntry = 'ContactosDirecciones_CODIGO_POSTAL' + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + DictionaryEntry = 'ContactosDirecciones_TELEFONO' + end + item + Name = 'MOVIL' + DataType = datString + Size = 25 + DictionaryEntry = 'ContactosDirecciones_MOVIL' + end + item + Name = 'FAX' + DataType = datString + Size = 25 + DictionaryEntry = 'ContactosDirecciones_FAX' + end + item + Name = 'EMAIL' + DataType = datString + Size = 255 + DictionaryEntry = 'ContactosDirecciones_EMAIL' + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + DictionaryEntry = 'ContactosDirecciones_PERSONA_CONTACTO' + end> + ReadOnly = True + end item Params = <> Statements = < @@ -4840,6 +4985,80 @@ object srvContactos: TsrvContactos item Name = 'PersonalContacto_FECHA_MODIFICACION' DataType = datDateTime + end + item + Name = 'ContactosDirecciones_ID_CONTACTO' + DataType = datInteger + end + item + Name = 'ContactosDirecciones_ID_DIRECCION' + DataType = datInteger + end + item + Name = 'ContactosDirecciones_NOMBRE' + DataType = datString + Size = 255 + DisplayLabel = 'Nombre' + end + item + Name = 'ContactosDirecciones_NIF_CIF' + DataType = datString + Size = 15 + DisplayLabel = 'NIF/CIF' + end + item + Name = 'ContactosDirecciones_CALLE' + DataType = datString + Size = 255 + DisplayLabel = 'Calle' + end + item + Name = 'ContactosDirecciones_POBLACION' + DataType = datString + Size = 255 + DisplayLabel = 'Poblaci'#243'n' + end + item + Name = 'ContactosDirecciones_PROVINCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Provincia' + end + item + Name = 'ContactosDirecciones_CODIGO_POSTAL' + DataType = datString + Size = 10 + DisplayLabel = 'C'#243'digo Postal' + end + item + Name = 'ContactosDirecciones_TELEFONO' + DataType = datString + Size = 25 + DisplayLabel = 'Tel'#233'fono' + end + item + Name = 'ContactosDirecciones_MOVIL' + DataType = datString + Size = 25 + DisplayLabel = 'M'#243'vil' + end + item + Name = 'ContactosDirecciones_FAX' + DataType = datString + Size = 25 + DisplayLabel = 'Fax' + end + item + Name = 'ContactosDirecciones_EMAIL' + DataType = datString + Size = 255 + DisplayLabel = 'Email' + end + item + Name = 'ContactosDirecciones_PERSONA_CONTACTO' + DataType = datString + Size = 255 + DisplayLabel = 'Persona de contacto' end> Left = 126 Top = 14 diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj index 79aae8f3..4d9b92fc 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj +++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj @@ -48,8 +48,8 @@ MainSource - - + +
DataModulePedidosProveedor
 diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm index e9ca852c..38fa154f 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -217,6 +217,10 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'DESCRIPCION_GENERAL' DataType = datString Size = 255 + end + item + Name = 'ID_DIRECCION_CLIENTE' + DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj index 231cd2a7..255a3a3d 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj +++ b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj @@ -42,14 +42,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 PedidosProveedor_model.dpk @@ -59,9 +51,9 @@ MainSource - - - + + + diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 476a4d92..2677ac31 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -9,8 +9,8 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidosProveedor = '{4E661347-2977-484B-A6B0-80499514DECB}'; - RID_PedidosProveedor_Detalles = '{4C0745E8-E202-4453-B100-9488446601CE}'; + RID_PedidosProveedor = '{F9A04E72-CC9B-404C-B543-59DC545248DE}'; + RID_PedidosProveedor_Detalles = '{B001B59E-8710-467D-879E-63C7BE102CD6}'; { Data table names } nme_PedidosProveedor = 'PedidosProveedor'; @@ -58,6 +58,7 @@ const fld_PedidosProveedorID_VENDEDOR = 'ID_VENDEDOR'; fld_PedidosProveedorVENDEDOR = 'VENDEDOR'; fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL'; + fld_PedidosProveedorID_DIRECCION_CLIENTE = 'ID_DIRECCION_CLIENTE'; { PedidosProveedor field indexes } idx_PedidosProveedorID = 0; @@ -101,6 +102,7 @@ const idx_PedidosProveedorID_VENDEDOR = 38; idx_PedidosProveedorVENDEDOR = 39; idx_PedidosProveedorDESCRIPCION_GENERAL = 40; + idx_PedidosProveedorID_DIRECCION_CLIENTE = 41; { PedidosProveedor_Detalles fields } fld_PedidosProveedor_DetallesID = 'ID'; @@ -133,7 +135,7 @@ const type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{F47C3279-7242-45E8-9365-036E76E6F64B}'] + ['{D09B45C4-717B-4D44-B535-0ABAAE743DBD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -297,6 +299,10 @@ type procedure SetDESCRIPCION_GENERALValue(const aValue: String); function GetDESCRIPCION_GENERALIsNull: Boolean; procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); + function GetID_DIRECCION_CLIENTEValue: Integer; + procedure SetID_DIRECCION_CLIENTEValue(const aValue: Integer); + function GetID_DIRECCION_CLIENTEIsNull: Boolean; + procedure SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); { Properties } @@ -382,6 +388,8 @@ type property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; + property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue; + property ID_DIRECCION_CLIENTEIsNull: Boolean read GetID_DIRECCION_CLIENTEIsNull write SetID_DIRECCION_CLIENTEIsNull; end; { TPedidosProveedorDataTableRules } @@ -555,6 +563,10 @@ type procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual; function GetDESCRIPCION_GENERALIsNull: Boolean; virtual; procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCION_CLIENTEValue: Integer; virtual; + procedure SetID_DIRECCION_CLIENTEValue(const aValue: Integer); virtual; + function GetID_DIRECCION_CLIENTEIsNull: Boolean; virtual; + procedure SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -639,6 +651,8 @@ type property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; + property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue; + property ID_DIRECCION_CLIENTEIsNull: Boolean read GetID_DIRECCION_CLIENTEIsNull write SetID_DIRECCION_CLIENTEIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -648,7 +662,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{B77F2CC6-6AAD-48DE-BF15-411FD2067FA1}'] + ['{64CF9676-7BE9-4830-A7C1-CB33770836E1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1701,6 +1715,27 @@ begin DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsVariant := Null; end; +function TPedidosProveedorDataTableRules.GetID_DIRECCION_CLIENTEValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetID_DIRECCION_CLIENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetID_DIRECCION_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].AsVariant := Null; +end; + { TPedidosProveedor_DetallesDataTableRules } constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index 9b92bad6..8f52f89e 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -9,13 +9,13 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidosProveedorDelta = '{2B5BA176-7B75-49EB-80AB-ADC962C1A41D}'; - RID_PedidosProveedor_DetallesDelta = '{F832D085-05C3-43CF-9354-9CC5A1A1CEF0}'; + RID_PedidosProveedorDelta = '{89722FDC-B6E6-4109-8393-E2204281481F}'; + RID_PedidosProveedor_DetallesDelta = '{F7F93BEC-E7C5-40A0-AD03-62DA49D17ABC}'; type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{2B5BA176-7B75-49EB-80AB-ADC962C1A41D}'] + ['{89722FDC-B6E6-4109-8393-E2204281481F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -58,6 +58,7 @@ type function GetOldID_VENDEDORValue : Integer; function GetOldVENDEDORValue : String; function GetOldDESCRIPCION_GENERALValue : String; + function GetOldID_DIRECCION_CLIENTEValue : Integer; { Properties } property OldID : Integer read GetOldIDValue; @@ -101,6 +102,7 @@ type property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; property OldVENDEDOR : String read GetOldVENDEDORValue; property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue; + property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue; end; { TPedidosProveedorBusinessProcessorRules } @@ -356,6 +358,12 @@ type function GetOldDESCRIPCION_GENERALIsNull: Boolean; virtual; procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual; procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCION_CLIENTEValue: Integer; virtual; + function GetID_DIRECCION_CLIENTEIsNull: Boolean; virtual; + function GetOldID_DIRECCION_CLIENTEValue: Integer; virtual; + function GetOldID_DIRECCION_CLIENTEIsNull: Boolean; virtual; + procedure SetID_DIRECCION_CLIENTEValue(const aValue: Integer); virtual; + procedure SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -522,6 +530,10 @@ type property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue; property OldDESCRIPCION_GENERALIsNull : Boolean read GetOldDESCRIPCION_GENERALIsNull; + property ID_DIRECCION_CLIENTE : Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue; + property ID_DIRECCION_CLIENTEIsNull : Boolean read GetID_DIRECCION_CLIENTEIsNull write SetID_DIRECCION_CLIENTEIsNull; + property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue; + property OldID_DIRECCION_CLIENTEIsNull : Boolean read GetOldID_DIRECCION_CLIENTEIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -531,7 +543,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{F832D085-05C3-43CF-9354-9CC5A1A1CEF0}'] + ['{F7F93BEC-E7C5-40A0-AD03-62DA49D17ABC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -1996,6 +2008,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := Null; end; +function TPedidosProveedorBusinessProcessorRules.GetID_DIRECCION_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_DIRECCION_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_DIRECCION_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_DIRECCION_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_DIRECCION_CLIENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE] := Null; +end; + { TPedidosProveedor_DetallesBusinessProcessorRules } constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm index 4007c41e..55e864bf 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm @@ -91,29 +91,30 @@ object RptPedidosProveedor: TRptPedidosProveedor 'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' + ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' + #10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.FECHA_EN' + - 'VIO,'#10' PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' VENDEDORES.NOMBRE as V' + - 'ENDEDOR,'#10' PROVEEDOR.NOMBRE,'#10' PROVEEDOR.FAX,'#10#10' CONTRATOS_CLIEN' + - 'TE.referencia as referencia_contrato,'#10' CONTRATOS_CLIENTE.refere' + - 'ncia_CLIENTE,'#10' CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10' '#10' PEDIDOS_' + - 'PROVEEDOR.ID_ALMACEN,'#10' '#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = ' + - '0), PEDIDOS_PROVEEDOR.CALLE, ALMACENES.CALLE) AS CALLE,'#10' IIF ((' + - 'PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.POBLACION, ' + - 'ALMACENES.POBLACION) AS POBLACION,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_' + - 'ALMACEN = 0), PEDIDOS_PROVEEDOR.PROVINCIA, ALMACENES.PROVINCIA) ' + - 'AS PROVINCIA,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS' + - '_PROVEEDOR.CODIGO_POSTAL, ALMACENES.CODIGO_POSTAL) AS CODIGO_POS' + - 'TAL,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDO' + - 'R.PERSONA_CONTACTO, ALMACENES.PERSONA_CONTACTO) AS PERSONA_CONTA' + - 'CTO,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDO' + - 'R.TELEFONO, ALMACENES.TELEFONO) AS TELEFONO'#10#10'FROM'#10' PEDIDOS_PROV' + - 'EEDOR'#10' LEFT OUTER JOIN CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = ' + - 'PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS VEND' + - 'EDORES ON (VENDEDORES.ID = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10' LEFT' + - ' OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS' + - '_PROVEEDOR.ID_CONTRATO_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS CLIE' + - 'NTES ON (CLIENTES.ID = CONTRATOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTE' + - 'R JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN' + - ')'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10 + 'VIO,'#10' PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL,'#10' PEDIDOS_PROVEEDO' + + 'R.OBSERVACIONES,'#10' VENDEDORES.NOMBRE as VENDEDOR,'#10' PROVEEDOR.NO' + + 'MBRE,'#10' PROVEEDOR.FAX,'#10#10' CONTRATOS_CLIENTE.referencia as refere' + + 'ncia_contrato,'#10' CONTRATOS_CLIENTE.referencia_CLIENTE,'#10' CLIENTE' + + 'S.NOMBRE AS NOMBRE_CLIENTE,'#10' '#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' ' + + ' '#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.C' + + 'ALLE, ALMACENES.CALLE) AS CALLE,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_AL' + + 'MACEN = 0), PEDIDOS_PROVEEDOR.POBLACION, ALMACENES.POBLACION) AS' + + ' POBLACION,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_P' + + 'ROVEEDOR.PROVINCIA, ALMACENES.PROVINCIA) AS PROVINCIA,'#10' IIF ((P' + + 'EDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.CODIGO_POSTA' + + 'L, ALMACENES.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' IIF ((PEDIDOS_PR' + + 'OVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, ALM' + + 'ACENES.PERSONA_CONTACTO) AS PERSONA_CONTACTO,'#10' IIF ((PEDIDOS_PR' + + 'OVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.TELEFONO, ALMACENES.T' + + 'ELEFONO) AS TELEFONO'#10#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN' + + ' CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = PEDIDOS_PROVEEDOR.ID_PR' + + 'OVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS VENDEDORES ON (VENDEDORES.I' + + 'D = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10' LEFT OUTER JOIN CONTRATOS_C' + + 'LIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_CONTRATO_' + + 'CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ' + + 'CONTRATOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN ALMACENES ON (AL' + + 'MACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEED' + + 'OR.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -201,6 +202,10 @@ object RptPedidosProveedor: TRptPedidosProveedor item DatasetField = 'ID_ALMACEN' TableField = 'ID_ALMACEN' + end + item + DatasetField = 'DESCRIPCION_GENERAL' + TableField = 'DESCRIPCION_GENERAL' end> end> Name = 'Informe_Cabecera' @@ -230,6 +235,11 @@ object RptPedidosProveedor: TRptPedidosProveedor Name = 'FECHA_ENVIO' DataType = datDateTime end + item + Name = 'DESCRIPCION_GENERAL' + DataType = datString + Size = 255 + end item Name = 'OBSERVACIONES' DataType = datMemo @@ -455,7 +465,7 @@ object RptPedidosProveedor: TRptPedidosProveedor PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 42300.581549502310000000 + ReportOptions.LastChange = 42481.774581759260000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index 5e61d703..e390acbd 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -183,6 +183,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor item DatasetField = 'VENDEDOR' TableField = 'VENDEDOR' + end + item + DatasetField = 'ID_DIRECCION_CLIENTE' + TableField = 'ID_DIRECCION_CLIENTE' end> end> Name = 'PedidosProveedor' @@ -217,164 +221,206 @@ object srvPedidosProveedor: TsrvPedidosProveedor DataType = datString Size = 255 ServerAutoRefresh = True + DictionaryEntry = 'PedidosProveedor_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 9 + DictionaryEntry = 'PedidosProveedor_SITUACION' end item Name = 'FECHA_ENVIO' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' end item Name = 'FECHA_PEDIDO' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO' end item Name = 'FECHA_CONFIRMACION' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' end item Name = 'FECHA_ENTREGA' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA' end item Name = 'ID_ALMACEN' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' end item Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' end item Name = 'OBSERVACIONES' DataType = datMemo + DictionaryEntry = 'PedidosProveedor_OBSERVACIONES' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL' end item Name = 'INCIDENCIAS' DataType = datMemo + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS' end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datSmallInt + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' end item Name = 'CALLE' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_CALLE' end item Name = 'POBLACION' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 + DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO' end item Name = 'TELEFONO' DataType = datString Size = 25 + DictionaryEntry = 'PedidosProveedor_TELEFONO' end item Name = 'FECHA_ALTA' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 30 + DictionaryEntry = 'PedidosProveedor_USUARIO' end item Name = 'ID_CONTRATO_CLIENTE' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_CONTRATO_CLIENTE' end item Name = 'REF_CON_CLIENTE' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_REF_CON_CLIENTE' end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_NOMBRE_CLIENTE' end item Name = 'IMPORTE_NETO' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE' end item Name = 'DESCUENTO' DataType = datFloat + DictionaryEntry = 'PedidosProveedor_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE' end item Name = 'IVA' DataType = datFloat + DictionaryEntry = 'PedidosProveedor_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA' end item Name = 'ID_FORMA_PAGO' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' end item Name = 'ID_TIENDA' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_TIENDA' end item Name = 'ID_VENDEDOR' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_VENDEDOR' end item Name = 'VENDEDOR' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_VENDEDOR' end item Name = 'DESCRIPCION_GENERAL' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_DESCRIPCION_GENERAL' + end + item + Name = 'ID_DIRECCION_CLIENTE' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_DIRECCION_CLIENTE' end> end item @@ -1252,7 +1298,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor end item Name = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' - DataType = datInteger + DataType = datSmallInt DisplayLabel = 'INCIDENCIAS_ACTIVAS' end item @@ -1268,7 +1314,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor item Name = 'PedidosProveedor_USUARIO' DataType = datString - Size = 20 + Size = 30 DisplayLabel = 'USUARIO' end item @@ -1425,7 +1471,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor item Name = 'PedidosProveedor_SITUACION' DataType = datString - Size = 255 + Size = 9 DisplayLabel = 'Situaci'#243'n' end item @@ -1458,6 +1504,47 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'PedidosProveedor_REF_PED_CLIENTE' DataType = datString Size = 255 + end + item + Name = 'PedidosProveedor_ID_DIRECCION_CLIENTE' + DataType = datInteger + end + item + Name = 'PedidosProveedor_ID_CONTRATO_CLIENTE' + DataType = datInteger + end + item + Name = 'PedidosProveedor_REF_CON_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'PedidosProveedor_NOMBRE_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'PedidosProveedor_ID_TIENDA' + DataType = datInteger + end + item + Name = 'PedidosProveedor_TIENDA' + DataType = datString + Size = 255 + end + item + Name = 'PedidosProveedor_ID_VENDEDOR' + DataType = datInteger + end + item + Name = 'PedidosProveedor_VENDEDOR' + DataType = datString + Size = 255 + end + item + Name = 'PedidosProveedor_DESCRIPCION_GENERAL' + DataType = datString + Size = 255 end> Left = 88 Top = 152 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm index 6fa0c52e..7e720225 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm @@ -23,15 +23,14 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv Height = 17 Action = actLista TabOrder = 0 - TabStop = True end object rdxDestino2: TRadioButton Left = 10 - Top = 60 + Top = 110 Width = 287 Height = 17 Action = actOtro - TabOrder = 2 + TabOrder = 4 end object cbLista: TcxDBLookupComboBox Left = 25 @@ -70,19 +69,61 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv Width = 128 Height = 25 Caption = 'Modificar la direcci'#243'n...' - TabOrder = 4 + TabOrder = 6 OnClick = bModificarClick end object txtDireccion: TStaticText Left = 25 - Top = 83 + Top = 133 Width = 551 Height = 177 AutoSize = False BevelKind = bkFlat - TabOrder = 3 + TabOrder = 5 OnDblClick = txtDireccionDblClick end + object rdxDestinoCliente: TRadioButton + Left = 10 + Top = 60 + Width = 566 + Height = 17 + Action = actLista + Caption = 'Enviar a esta direcci'#243'n del cliente:' + Enabled = False + TabOrder = 2 + end + object cbListaDireccionesCliente: TcxDBLookupComboBox + Left = 25 + Top = 83 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'ID_DIRECCION_CLIENTE' + DataBinding.DataSource = dsPedido + Enabled = False + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.KeyFieldNames = 'ID' + Properties.ListColumns = < + item + FieldName = 'NOMBRE' + end> + Properties.ListOptions.AnsiSort = True + Properties.ListOptions.GridLines = glNone + Properties.ListOptions.ShowHeader = False + Properties.ListOptions.SyncMode = True + Properties.ListSource = dsAlmacenes + Properties.PostPopupValueOnTab = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 3 + Width = 551 + end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True @@ -101,6 +142,18 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv Control = cbLista ControlOptions.ShowBorder = False end + object dxLayoutControl1Item4: TdxLayoutItem + ShowCaption = False + Control = rdxDestinoCliente + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item6: TdxLayoutItem + Offsets.Left = 15 + ShowCaption = False + Control = cbListaDireccionesCliente + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'New Item' ShowCaption = False @@ -129,8 +182,8 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv end end object ActionList1: TActionList - Left = 80 - Top = 16 + Left = 248 + Top = 8 object actLista: TAction Caption = 'Recibir el pedido en el almac'#233'n:' Checked = True @@ -144,11 +197,15 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv end end object dsPedido: TDADataSource - Left = 40 + Left = 280 Top = 8 end object dsAlmacenes: TDADataSource - Left = 8 - Top = 40 + Left = 312 + Top = 8 + end + object dsDireccionesCliente: TDADataSource + Left = 344 + Top = 8 end end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas index 787c1c92..b360b76b 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas @@ -8,7 +8,8 @@ uses cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable, ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController, - Buttons, uDAInterfaces; + Buttons, uDAInterfaces, uClientesController, uDireccionesContactoController, + uBizDireccionesContacto; type IViewDireccionEntregaPedidoProv = interface(IViewBase) @@ -36,19 +37,29 @@ type bModificar: TBitBtn; txtDireccion: TStaticText; dxLayoutControl1Item5: TdxLayoutItem; + dxLayoutControl1Item4: TdxLayoutItem; + rdxDestinoCliente: TRadioButton; + dxLayoutControl1Item6: TdxLayoutItem; + cbListaDireccionesCliente: TcxDBLookupComboBox; + dsDireccionesCliente: TDADataSource; procedure actListaExecute(Sender: TObject); procedure actOtroExecute(Sender: TObject); procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure cbListaDireccionesClientePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure bModificarClick(Sender: TObject); procedure txtDireccionDblClick(Sender: TObject); protected FAlmacenesController : IAlmacenesController; FAlmacenes: IBizAlmacen; + FClientesController: IClientesController; + FDireccionesClienteController : IDireccionesContactoController; + FDireccionesCliente : IBizDireccionesContacto; FPedido : IBizPedidoProveedor; FController : IPedidosProveedorController; function GetPedidoProveedor: IBizPedidoProveedor; procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); procedure CambioDireccionAlmacen; + procedure CambioDireccionCliente; procedure RefrescarDireccion; procedure SetReadOnly(Value: Boolean); override; @@ -112,6 +123,20 @@ begin end; end; +procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionCliente; +begin + // +end; + +procedure TfrViewDireccionEntregaPedidoProv.cbListaDireccionesClientePropertiesValidate( + Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; + var Error: Boolean); +begin + if Assigned(FPedido) and Assigned(FDireccionesCliente) + and (FPedido.ID_DIRECCION_CLIENTE <> FDireccionesCliente.ID) then + CambioDireccionCliente; +end; + procedure TfrViewDireccionEntregaPedidoProv.cbListaPropertiesValidate( Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); @@ -129,10 +154,15 @@ begin FAlmacenes := FAlmacenesController.BuscarTodos; FAlmacenes.DataTable.Active := True; dsAlmacenes.DataTable := FAlmacenes.DataTable; + + FDireccionesClienteController := TDireccionesContactoController.Create; + FDireccionesCliente := NIL; +// dsDireccionesCliente.DataTable := FDireccionesCliente.DataTable; end; destructor TfrViewDireccionEntregaPedidoProv.Destroy; begin + cbListaDireccionesCliente.Properties.OnValidate := Nil; cbLista.Properties.OnValidate := Nil; FAlmacenesController := Nil; FAlmacenes := Nil; @@ -178,12 +208,14 @@ procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor( const Value: IBizPedidoProveedor); begin cbLista.Properties.OnValidate := NIL; + cbListaDireccionesCliente.Properties.OnValidate := NIL; dsPedido.DataTable := nil; FPedido := Value; dsPedido.DataTable := FPedido.DataTable; cbLista.Properties.OnValidate := cbListaPropertiesValidate; + cbListaDireccionesCliente.Properties.OnValidate := cbListaDireccionesClientePropertiesValidate; if (FPedido.ID_ALMACEN < 1) then actOtro.Checked := True diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm index 17c559fd..824ee14f 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm @@ -39,54 +39,30 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 357 Height = 215 Align = alClient - ExplicitWidth = 357 + ExplicitWidth = 335 ExplicitHeight = 215 inherited edtlNombre: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtNIFCIF: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtCalle: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtPoblacion: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 176 Width = 176 end inherited edtProvincia: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end inherited edtCodigoPostal: TcxDBTextEdit Left = 254 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 254 ExplicitWidth = 71 Width = 71 @@ -99,7 +75,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end object edtFechaPedido: TcxDBDateEdit Left = 158 - Top = 55 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PEDIDO' DataBinding.DataSource = DADataSource @@ -109,18 +85,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 1 + TabOrder = 2 Width = 158 end object edtFechaConfirmacion: TcxDBDateEdit @@ -135,23 +107,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' TabOrder = 12 Width = 158 end object edtFechaEntrega: TcxDBDateEdit Left = 158 - Top = 205 + Top = 136 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENTREGA' DataBinding.DataSource = DADataSource @@ -160,15 +128,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' TabOrder = 4 Width = 158 end @@ -186,15 +150,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 158 end @@ -218,8 +178,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited dxLayoutControl1: TdxLayoutControl Width = 273 Height = 166 - ExplicitWidth = 273 - ExplicitHeight = 166 + ExplicitWidth = 525 + ExplicitHeight = 116 inherited rdxDestino1: TRadioButton Width = 255 ExplicitWidth = 255 @@ -233,10 +193,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 425 end inherited bModificar: TBitBtn - Left = 370 - Top = 109 - ExplicitLeft = 370 - ExplicitTop = 109 + Left = 366 + Top = 159 + ExplicitLeft = 366 + ExplicitTop = 159 + end + inherited txtDireccion: TStaticText + Height = 177 + ExplicitHeight = 177 end end inherited ActionList1: TActionList @@ -250,7 +214,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end object cbFormaPago: TcxDBLookupComboBox Left = 158 - Top = 259 + Top = 163 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Enabled = False @@ -268,29 +232,25 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 6 + TabOrder = 5 Width = 20 end object bFormasPago: TButton Left = 415 - Top = 259 + Top = 163 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' Enabled = False - TabOrder = 7 + TabOrder = 6 OnClick = bFormasPagoClick end object edtFechaEnvio: TcxDBDateEdit @@ -305,23 +265,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 Width = 158 end object eReferenciaContratoCli: TcxTextEdit Left = 158 - Top = 286 + Top = 190 Anchors = [akLeft, akTop, akRight] Properties.ReadOnly = False Properties.ValidateOnEnter = True @@ -331,27 +287,23 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 8 + TabOrder = 7 Width = 20 end object Button1: TButton Left = 415 - Top = 286 + Top = 190 Width = 132 Height = 23 Action = actVerContratoCli - TabOrder = 9 + TabOrder = 8 end inline frViewTienda1: TfrViewTienda Left = 577 @@ -374,18 +326,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor ExplicitHeight = 46 inherited dxLayoutControl1: TdxLayoutControl Width = 357 - ExplicitWidth = 357 - inherited cbTienda: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - end + ExplicitWidth = 335 end end inline frViewObservaciones1: TfrViewObservaciones Left = 158 - Top = 109 + Top = 246 Width = 422 Height = 90 Align = alClient @@ -396,16 +342,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 3 + TabOrder = 10 ReadOnly = False ExplicitLeft = 158 - ExplicitTop = 109 + ExplicitTop = 246 ExplicitWidth = 422 ExplicitHeight = 90 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource - ExplicitWidth = 422 + ExplicitWidth = 389 ExplicitHeight = 90 Height = 90 Width = 422 @@ -413,7 +359,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end object edtlDescripcion: TcxDBTextEdit Left = 158 - Top = 232 + Top = 55 Anchors = [akLeft, akTop, akRight] AutoSize = False DataBinding.DataField = 'DESCRIPCION_GENERAL' @@ -425,21 +371,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 5 + TabOrder = 1 Height = 21 Width = 283 end object edtFechaEnvio2: TcxDBDateEdit Left = 158 - Top = 82 + Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataSource = DADataSource @@ -449,23 +391,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 2 + TabOrder = 3 Width = 257 end object cbVendedor: TcxDBLookupComboBox Left = 158 - Top = 315 + Top = 219 DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -490,7 +428,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 9 Width = 250 end object dxLayoutControl1Group_Root: TdxLayoutGroup @@ -513,6 +451,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Control = eReferencia ControlOptions.ShowBorder = False end + object dxLayoutControl1Item14: TdxLayoutItem + Caption = 'Referencia 2:' + Control = edtlDescripcion + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha del pedido:' Control = edtFechaPedido @@ -523,24 +466,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Control = edtFechaEnvio2 ControlOptions.ShowBorder = False end - object dxLayoutControl1Item6: TdxLayoutItem - AutoAligns = [] - AlignHorz = ahClient - Caption = 'Obervaciones:' - Control = frViewObservaciones1 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end object dxLayoutControl1Item5: TdxLayoutItem Caption = 'Fecha de recepci'#243'n:' Control = edtFechaEntrega ControlOptions.ShowBorder = False end - object dxLayoutControl1Item14: TdxLayoutItem - Caption = 'Descripci'#243'n:' - Control = edtlDescripcion - ControlOptions.ShowBorder = False - end object dxLayoutControl1Group4: TdxLayoutGroup ShowCaption = False Hidden = True @@ -596,6 +526,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Control = cbVendedor ControlOptions.ShowBorder = False end + object dxLayoutControl1Item6: TdxLayoutItem + AutoAligns = [] + AlignHorz = ahClient + Caption = 'Observaciones:' + Control = frViewObservaciones1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end end end end @@ -664,16 +602,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end end object DADataSource: TDADataSource - Left = 24 - Top = 40 + Left = 88 + Top = 8 end object dsFormaPago: TDADataSource Left = 56 Top = 8 end object ActionList1: TActionList - Left = 24 - Top = 72 + Left = 120 + Top = 8 object actVerContratoCli: TAction Caption = 'Ver contrato de cliente...' OnExecute = actVerContratoCliExecute diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm index 24546358..a06af394 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm @@ -77,7 +77,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor Width = 56 end object cxGridViewDESCRIPCION_GENERAL: TcxGridDBColumn - Caption = 'Descripci'#243'n' + Caption = 'Referencia 2' DataBinding.FieldName = 'DESCRIPCION_GENERAL' PropertiesClassName = 'TcxTextEditProperties' end @@ -197,27 +197,15 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor Width = 596 ExplicitWidth = 596 inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 273 Width = 273 end inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 121 Width = 121 end inherited edtFechaFinFiltro: TcxDateEdit Left = 251 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 251 ExplicitWidth = 294 Width = 294 diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 1184c394..c6070a36 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -86,8 +86,6 @@ uses uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas', srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService}, uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas', - schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', - schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas', schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas', uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule}, @@ -138,7 +136,9 @@ uses uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule}, uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule}, schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', + schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', + schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b1221bea..b6fa7469 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse2720FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.2.0FactuGES (Servidor)2.7.2.0lunes, 25 de enero de 2016 15:45 + FalseTrueFalseTrueFalse2730FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.3.0FactuGES (Servidor)2.7.3.0miércoles, 01 de junio de 2016 9:42 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index ccc404d3..6c4bcbe3 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,7,2,0 -PRODUCTVERSION 2,7,2,0 +FILEVERSION 2,7,3,0 +PRODUCTVERSION 2,7,3,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.7.2.0\0" + VALUE "FileVersion", "2.7.3.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.7.2.0\0" - VALUE "CompileDate", "miércoles, 09 de marzo de 2016 18:07\0" + VALUE "ProductVersion", "2.7.3.0\0" + VALUE "CompileDate", "miércoles, 01 de junio de 2016 9:47\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index abcd0279d4b05d5097b30482378d1fa15ed61278..b2a718185ec48e1e6c9ff25ec5974f109375dcfd 100644 GIT binary patch delta 103 zcmdn7jd9C1#tnBO7%e8>jgSYDe3usm?v9D$}-NF92u$1STeabvYpX* zGHX;dw=shrg8@)JgF$6-ca*81A%g-#3PUQ8%wi~I$YaQyd@)Lt-IBqI!Gytl^2aE5 E00_GqO8@`> delta 107 zcmdn8jd8~|#tnBO7;PrsjgSYDe3usm?m3C$}-NH92u$1ST?yfvYpXr zGHX;dw-JLLg8@)Ji$QgAca*81C4&M(3PUQ8%w