diff --git a/Build/BuildRoberto.fbl5 b/Build/BuildRoberto.fbl5 index 43428c5b..2eed09bb 100644 Binary files a/Build/BuildRoberto.fbl5 and b/Build/BuildRoberto.fbl5 differ diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index 70ab42ff..094f1d13 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index ed1d636b..22c538a8 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -884,6 +884,7 @@ CREATE VIEW V_ALBARANES_CLIENTE( NOMBRE, FECHA_ALBARAN, REFERENCIA, + REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN, @@ -924,6 +925,7 @@ SELECT V_CLIENTES.NOMBRE, ALBARANES_CLIENTE.FECHA_ALBARAN, ALBARANES_CLIENTE.REFERENCIA, + ALBARANES_CLIENTE.REFERENCIA_CLIENTE, CASE WHEN (ALBARANES_CLIENTE.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO, V_ALB_CLI_SITUACION.SITUACION, ALBARANES_CLIENTE.ID_ALMACEN, @@ -1433,6 +1435,7 @@ CREATE VIEW V_PEDIDOS_CLIENTE( ID_CLIENTE, NOMBRE, REFERENCIA, + REFERENCIA_CLIENTE, SITUACION, FECHA_PEDIDO, CALLE, @@ -1465,6 +1468,7 @@ SELECT PEDIDOS_CLIENTE.ID_CLIENTE, V_CLIENTES.NOMBRE, PEDIDOS_CLIENTE.REFERENCIA, + PEDIDOS_CLIENTE.REFERENCIA_CLIENTE, V_PED_CLI_SITUACION.SITUACION, PEDIDOS_CLIENTE.FECHA_PEDIDO, PEDIDOS_CLIENTE.CALLE, diff --git a/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 b/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 index 0bb9e959..063206e7 100644 --- a/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,21 +7,21 @@ - + - + - - - - + + + + @@ -30,10 +30,10 @@ - - - - + + + + diff --git a/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 b/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 index 2d0b1614..aa120be2 100644 --- a/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 +++ b/Output/Debug/Servidor/Informes/InfAlbaranProveedor.fr3 @@ -1,5 +1,5 @@ - + diff --git a/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 b/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 index 1ee12e68..56106720 100644 --- a/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfPedidoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 9e141470..698350c7 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,0,6,0 -PRODUCTVERSION 2,0,6,0 +FILEVERSION 2,0,7,0 +PRODUCTVERSION 2,0,7,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,7 +13,7 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.0.6.0\0" + VALUE "FileVersion", "2.0.7.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" VALUE "ProductVersion", "2.0.6\0" diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index 4ced4cf6..8dbc3304 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -152,6 +152,20 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'AlbaranesCliente_REFERENCIA_CLIENTE' + Alignment = taLeftJustify + DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'TIPO' DataType = datString diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 8fd61ed1..7183ab43 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -9,11 +9,11 @@ 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_DarReferencia = '{590A1246-5E78-48C9-B8AD-032D7A61111D}'; - RID_AlbaranesCliente = '{0EA92BE8-055B-4966-89A1-FCEB192DA37F}'; - RID_AlbaranesCliente_Detalles = '{5184DDF5-9E5A-4260-9622-2E34053ECF9E}'; - RID_AlbaranesCliente_Detalles_Refresh = '{34915424-0535-4F25-9E25-99DDB0399852}'; - RID_AlbaranesCliente_Refresh = '{B5BBE37C-F1CB-46BD-8496-99260FF7EDE3}'; + RID_DarReferencia = '{8FF21D79-2A38-49A1-9920-59BF9D1A3761}'; + RID_AlbaranesCliente = '{286BA8B4-1D1A-4A28-92AD-EE389E49F82F}'; + RID_AlbaranesCliente_Detalles = '{204AB55B-DFB6-4C06-97FE-ACE0073003D9}'; + RID_AlbaranesCliente_Detalles_Refresh = '{DD2DF7C8-E7A8-4460-8124-A68A24FA8708}'; + RID_AlbaranesCliente_Refresh = '{613B4A25-BE5C-4641-920A-A2928969F49C}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -35,6 +35,7 @@ const fld_AlbaranesClienteREFERENCIA = 'REFERENCIA'; fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO'; + fld_AlbaranesClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_AlbaranesClienteTIPO = 'TIPO'; fld_AlbaranesClienteSITUACION = 'SITUACION'; fld_AlbaranesClienteID_ALMACEN = 'ID_ALMACEN'; @@ -75,38 +76,39 @@ const idx_AlbaranesClienteREFERENCIA = 3; idx_AlbaranesClienteFECHA_ALBARAN = 4; idx_AlbaranesClienteID_PEDIDO = 5; - idx_AlbaranesClienteTIPO = 6; - idx_AlbaranesClienteSITUACION = 7; - idx_AlbaranesClienteID_ALMACEN = 8; - idx_AlbaranesClienteNOMBRE_ALMACEN = 9; - idx_AlbaranesClienteID_FACTURA = 10; - idx_AlbaranesClienteREF_PEDIDO = 11; - idx_AlbaranesClienteCALLE = 12; - idx_AlbaranesClienteREF_FACTURA = 13; - idx_AlbaranesClienteCODIGO_POSTAL = 14; - idx_AlbaranesClientePOBLACION = 15; - idx_AlbaranesClientePROVINCIA = 16; - idx_AlbaranesClientePERSONA_CONTACTO = 17; - idx_AlbaranesClienteTELEFONO = 18; - idx_AlbaranesClienteBASE_IMPONIBLE = 19; - idx_AlbaranesClienteIMPORTE_NETO = 20; - idx_AlbaranesClienteIMPORTE_PORTE = 21; - idx_AlbaranesClienteDESCUENTO = 22; - idx_AlbaranesClienteIMPORTE_DESCUENTO = 23; - idx_AlbaranesClienteIVA = 24; - idx_AlbaranesClienteIMPORTE_IVA = 25; - idx_AlbaranesClienteIMPORTE_TOTAL = 26; - idx_AlbaranesClienteOBSERVACIONES = 27; - idx_AlbaranesClienteINCIDENCIAS = 28; - idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 29; - idx_AlbaranesClienteFECHA_ALTA = 30; - idx_AlbaranesClienteFECHA_MODIFICACION = 31; - idx_AlbaranesClienteUSUARIO = 32; - idx_AlbaranesClienteNOMBRE = 33; - idx_AlbaranesClienteID_FORMA_PAGO = 34; - idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 35; - idx_AlbaranesClienteFECHA_ENVIO = 36; - idx_AlbaranesClienteFECHA_RECEPCION = 37; + idx_AlbaranesClienteREFERENCIA_CLIENTE = 6; + idx_AlbaranesClienteTIPO = 7; + idx_AlbaranesClienteSITUACION = 8; + idx_AlbaranesClienteID_ALMACEN = 9; + idx_AlbaranesClienteNOMBRE_ALMACEN = 10; + idx_AlbaranesClienteID_FACTURA = 11; + idx_AlbaranesClienteREF_PEDIDO = 12; + idx_AlbaranesClienteCALLE = 13; + idx_AlbaranesClienteREF_FACTURA = 14; + idx_AlbaranesClienteCODIGO_POSTAL = 15; + idx_AlbaranesClientePOBLACION = 16; + idx_AlbaranesClientePROVINCIA = 17; + idx_AlbaranesClientePERSONA_CONTACTO = 18; + idx_AlbaranesClienteTELEFONO = 19; + idx_AlbaranesClienteBASE_IMPONIBLE = 20; + idx_AlbaranesClienteIMPORTE_NETO = 21; + idx_AlbaranesClienteIMPORTE_PORTE = 22; + idx_AlbaranesClienteDESCUENTO = 23; + idx_AlbaranesClienteIMPORTE_DESCUENTO = 24; + idx_AlbaranesClienteIVA = 25; + idx_AlbaranesClienteIMPORTE_IVA = 26; + idx_AlbaranesClienteIMPORTE_TOTAL = 27; + idx_AlbaranesClienteOBSERVACIONES = 28; + idx_AlbaranesClienteINCIDENCIAS = 29; + idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 30; + idx_AlbaranesClienteFECHA_ALTA = 31; + idx_AlbaranesClienteFECHA_MODIFICACION = 32; + idx_AlbaranesClienteUSUARIO = 33; + idx_AlbaranesClienteNOMBRE = 34; + idx_AlbaranesClienteID_FORMA_PAGO = 35; + idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36; + idx_AlbaranesClienteFECHA_ENVIO = 37; + idx_AlbaranesClienteFECHA_RECEPCION = 38; { AlbaranesCliente_Detalles fields } fld_AlbaranesCliente_DetallesID = 'ID'; @@ -179,6 +181,7 @@ const fld_AlbaranesCliente_RefreshREFERENCIA = 'REFERENCIA'; fld_AlbaranesCliente_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesCliente_RefreshID_PEDIDO = 'ID_PEDIDO'; + fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_AlbaranesCliente_RefreshTIPO = 'TIPO'; fld_AlbaranesCliente_RefreshSITUACION = 'SITUACION'; fld_AlbaranesCliente_RefreshID_ALMACEN = 'ID_ALMACEN'; @@ -219,43 +222,44 @@ const idx_AlbaranesCliente_RefreshREFERENCIA = 3; idx_AlbaranesCliente_RefreshFECHA_ALBARAN = 4; idx_AlbaranesCliente_RefreshID_PEDIDO = 5; - idx_AlbaranesCliente_RefreshTIPO = 6; - idx_AlbaranesCliente_RefreshSITUACION = 7; - idx_AlbaranesCliente_RefreshID_ALMACEN = 8; - idx_AlbaranesCliente_RefreshNOMBRE_ALMACEN = 9; - idx_AlbaranesCliente_RefreshID_FACTURA = 10; - idx_AlbaranesCliente_RefreshREF_PEDIDO = 11; - idx_AlbaranesCliente_RefreshCALLE = 12; - idx_AlbaranesCliente_RefreshREF_FACTURA = 13; - idx_AlbaranesCliente_RefreshCODIGO_POSTAL = 14; - idx_AlbaranesCliente_RefreshPOBLACION = 15; - idx_AlbaranesCliente_RefreshPROVINCIA = 16; - idx_AlbaranesCliente_RefreshPERSONA_CONTACTO = 17; - idx_AlbaranesCliente_RefreshTELEFONO = 18; - idx_AlbaranesCliente_RefreshBASE_IMPONIBLE = 19; - idx_AlbaranesCliente_RefreshIMPORTE_NETO = 20; - idx_AlbaranesCliente_RefreshIMPORTE_PORTE = 21; - idx_AlbaranesCliente_RefreshDESCUENTO = 22; - idx_AlbaranesCliente_RefreshIMPORTE_DESCUENTO = 23; - idx_AlbaranesCliente_RefreshIVA = 24; - idx_AlbaranesCliente_RefreshIMPORTE_IVA = 25; - idx_AlbaranesCliente_RefreshIMPORTE_TOTAL = 26; - idx_AlbaranesCliente_RefreshOBSERVACIONES = 27; - idx_AlbaranesCliente_RefreshINCIDENCIAS = 28; - idx_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS = 29; - idx_AlbaranesCliente_RefreshFECHA_ALTA = 30; - idx_AlbaranesCliente_RefreshFECHA_MODIFICACION = 31; - idx_AlbaranesCliente_RefreshUSUARIO = 32; - idx_AlbaranesCliente_RefreshNOMBRE = 33; - idx_AlbaranesCliente_RefreshID_FORMA_PAGO = 34; - idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 35; - idx_AlbaranesCliente_RefreshFECHA_ENVIO = 36; - idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 37; + idx_AlbaranesCliente_RefreshREFERENCIA_CLIENTE = 6; + idx_AlbaranesCliente_RefreshTIPO = 7; + idx_AlbaranesCliente_RefreshSITUACION = 8; + idx_AlbaranesCliente_RefreshID_ALMACEN = 9; + idx_AlbaranesCliente_RefreshNOMBRE_ALMACEN = 10; + idx_AlbaranesCliente_RefreshID_FACTURA = 11; + idx_AlbaranesCliente_RefreshREF_PEDIDO = 12; + idx_AlbaranesCliente_RefreshCALLE = 13; + idx_AlbaranesCliente_RefreshREF_FACTURA = 14; + idx_AlbaranesCliente_RefreshCODIGO_POSTAL = 15; + idx_AlbaranesCliente_RefreshPOBLACION = 16; + idx_AlbaranesCliente_RefreshPROVINCIA = 17; + idx_AlbaranesCliente_RefreshPERSONA_CONTACTO = 18; + idx_AlbaranesCliente_RefreshTELEFONO = 19; + idx_AlbaranesCliente_RefreshBASE_IMPONIBLE = 20; + idx_AlbaranesCliente_RefreshIMPORTE_NETO = 21; + idx_AlbaranesCliente_RefreshIMPORTE_PORTE = 22; + idx_AlbaranesCliente_RefreshDESCUENTO = 23; + idx_AlbaranesCliente_RefreshIMPORTE_DESCUENTO = 24; + idx_AlbaranesCliente_RefreshIVA = 25; + idx_AlbaranesCliente_RefreshIMPORTE_IVA = 26; + idx_AlbaranesCliente_RefreshIMPORTE_TOTAL = 27; + idx_AlbaranesCliente_RefreshOBSERVACIONES = 28; + idx_AlbaranesCliente_RefreshINCIDENCIAS = 29; + idx_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS = 30; + idx_AlbaranesCliente_RefreshFECHA_ALTA = 31; + idx_AlbaranesCliente_RefreshFECHA_MODIFICACION = 32; + idx_AlbaranesCliente_RefreshUSUARIO = 33; + idx_AlbaranesCliente_RefreshNOMBRE = 34; + idx_AlbaranesCliente_RefreshID_FORMA_PAGO = 35; + idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 36; + idx_AlbaranesCliente_RefreshFECHA_ENVIO = 37; + idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38; type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{D4EFE1A1-72D1-4902-A125-742D749115A9}'] + ['{C690B03E-DC7C-40EA-AD23-A11C074ED29D}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -284,7 +288,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{C88E52AA-F397-4FE2-A28C-6DAA7A6DE98B}'] + ['{FE25F44D-23C6-4BBB-8352-80D4C8666E2B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -298,6 +302,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetSITUACIONValue: String; @@ -371,6 +377,7 @@ type property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; @@ -422,6 +429,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; function GetID_PEDIDOValue: Integer; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; @@ -494,6 +503,7 @@ type property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; @@ -535,7 +545,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{DC0799E6-7893-45C8-8554-55D2B78A451A}'] + ['{E58F6EA5-0A62-40F4-9E09-6F6D91F8A46D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -642,7 +652,7 @@ type { IAlbaranesCliente_Detalles_Refresh } IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{AA29A021-C937-4FE8-B6C1-3A4CACD4A7E8}'] + ['{A088060C-CE4F-486A-9311-0DCDCE6216CE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -749,7 +759,7 @@ type { IAlbaranesCliente_Refresh } IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{1D148A3E-FF60-47FB-9781-8E5D0A365697}'] + ['{BF8BA7D7-C0A1-47D8-9D69-65EC70584C39}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -763,6 +773,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetSITUACIONValue: String; @@ -836,6 +848,7 @@ type property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; @@ -887,6 +900,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; function GetID_PEDIDOValue: Integer; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; @@ -959,6 +974,7 @@ type property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; @@ -1095,6 +1111,16 @@ begin DataTable.Fields[idx_AlbaranesClienteID_PEDIDO].AsInteger := aValue; end; +function TAlbaranesClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_AlbaranesClienteREFERENCIA_CLIENTE].AsString; +end; + +procedure TAlbaranesClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesClienteREFERENCIA_CLIENTE].AsString := aValue; +end; + function TAlbaranesClienteDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_AlbaranesClienteTIPO].AsString; @@ -1793,6 +1819,16 @@ begin DataTable.Fields[idx_AlbaranesCliente_RefreshID_PEDIDO].AsInteger := aValue; end; +function TAlbaranesCliente_RefreshDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_CLIENTE].AsString; +end; + +procedure TAlbaranesCliente_RefreshDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_CLIENTE].AsString := aValue; +end; + function TAlbaranesCliente_RefreshDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_AlbaranesCliente_RefreshTIPO].AsString; diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 13f4dd60..2c242300 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{9B703BFE-242D-4740-9A37-03C081F04EFD}'; - RID_AlbaranesClienteDelta = '{32F0DEA0-BCFD-411D-BDEF-A299146842C0}'; - RID_AlbaranesCliente_DetallesDelta = '{3671C82E-7B99-4933-A18A-D11907979114}'; - RID_AlbaranesCliente_Detalles_RefreshDelta = '{514E893B-716C-45E1-8064-49DA981DC228}'; - RID_AlbaranesCliente_RefreshDelta = '{41EE8ACF-4199-47CA-A562-705466E472D6}'; + RID_DarReferenciaDelta = '{D519E3C7-849C-4730-A2B7-6319C0AD5448}'; + RID_AlbaranesClienteDelta = '{303FA8ED-65F6-4DCB-8037-55544878855F}'; + RID_AlbaranesCliente_DetallesDelta = '{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}'; + RID_AlbaranesCliente_Detalles_RefreshDelta = '{2CFAF206-0220-4452-A453-B1B90592A487}'; + RID_AlbaranesCliente_RefreshDelta = '{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{9B703BFE-242D-4740-9A37-03C081F04EFD}'] + ['{D519E3C7-849C-4730-A2B7-6319C0AD5448}'] { Property getters and setters } function GetOldVALORValue : String; @@ -47,7 +47,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{32F0DEA0-BCFD-411D-BDEF-A299146842C0}'] + ['{303FA8ED-65F6-4DCB-8037-55544878855F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -55,6 +55,7 @@ type function GetOldREFERENCIAValue : String; function GetOldFECHA_ALBARANValue : DateTime; function GetOldID_PEDIDOValue : Integer; + function GetOldREFERENCIA_CLIENTEValue : String; function GetOldTIPOValue : String; function GetOldSITUACIONValue : String; function GetOldID_ALMACENValue : Integer; @@ -95,6 +96,7 @@ type property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldTIPO : String read GetOldTIPOValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; @@ -152,6 +154,9 @@ type function GetID_PEDIDOValue: Integer; virtual; function GetOldID_PEDIDOValue: Integer; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + function GetOldREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; @@ -262,6 +267,8 @@ type property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; @@ -335,7 +342,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{3671C82E-7B99-4933-A18A-D11907979114}'] + ['{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -455,7 +462,7 @@ type { IAlbaranesCliente_Detalles_RefreshDelta } IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh) - ['{514E893B-716C-45E1-8064-49DA981DC228}'] + ['{2CFAF206-0220-4452-A453-B1B90592A487}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -575,7 +582,7 @@ type { IAlbaranesCliente_RefreshDelta } IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh) - ['{41EE8ACF-4199-47CA-A562-705466E472D6}'] + ['{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -583,6 +590,7 @@ type function GetOldREFERENCIAValue : String; function GetOldFECHA_ALBARANValue : DateTime; function GetOldID_PEDIDOValue : Integer; + function GetOldREFERENCIA_CLIENTEValue : String; function GetOldTIPOValue : String; function GetOldSITUACIONValue : String; function GetOldID_ALMACENValue : Integer; @@ -623,6 +631,7 @@ type property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldTIPO : String read GetOldTIPOValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; @@ -680,6 +689,9 @@ type function GetID_PEDIDOValue: Integer; virtual; function GetOldID_PEDIDOValue: Integer; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + function GetOldREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; @@ -790,6 +802,8 @@ type property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; @@ -994,6 +1008,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_PEDIDO] := aValue; end; +function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE]; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE] := aValue; +end; + function TAlbaranesClienteBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIPO]; @@ -2024,6 +2053,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_PEDIDO] := aValue; end; +function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE]; +end; + +function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE]; +end; + +procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE] := aValue; +end; + function TAlbaranesCliente_RefreshBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshTIPO]; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index be14b3a5..5a4b04f0 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -104,21 +104,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente 'SELECT'#10' V_ALBARANES_CLIENTE.ID,'#10' V_ALBARANES_CLIENTE.ID_EMPRES' + 'A,'#10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.NOMBR' + 'E,'#10' V_CLIENTES.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.FECHA_AL' + - 'BARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.I' + - 'D_PEDIDO,'#10' V_ALBARANES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENT' + - 'E.CODIGO_POSTAL,'#10' V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_' + - 'CLIENTE.PROVINCIA,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_A' + - 'LBARANES_CLIENTE.TELEFONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBA' + - 'RANES_CLIENTE.OBSERVACIONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL' + - ','#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NO' + - 'MBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' ' + - ' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FA' + - 'X_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMA' + - 'IL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMP' + - 'RESA'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES O' + - 'N (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER ' + - 'JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10 + - 'WHERE V_ALBARANES_CLIENTE.ID = :ID' + 'BARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.R' + + 'EFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARANE' + + 'S_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' V_A' + + 'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' + + '_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' + + 'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' + + 'IONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' EMPRESAS.NIF_CIF A' + + 'S NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRES' + + 'AS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 A' + + 'S TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.' + + 'MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRES' + + 'A,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARA' + + 'NES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_A' + + 'LBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' + + 'ESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIE' + + 'NTE.ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -220,6 +221,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'Informe_Cabecera' @@ -303,6 +308,18 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'OBSERVACIONES' DataType = datMemo @@ -1024,136 +1041,93 @@ object RptAlbaranesCliente: TRptAlbaranesCliente EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] - PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' - ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39251.761203159720000000 - ReportOptions.VersionBuild = '1' - ReportOptions.VersionMajor = '12' - ReportOptions.VersionMinor = '13' - ReportOptions.VersionRelease = '1' + PrintOptions.Printer = 'Por defecto' + ReportOptions.CreateDate = 39065.872423495400000000 + ReportOptions.LastChange = 39255.584318750000000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' DatosCliente.Lines.Clear;' - ' DatosCliente.Lines.Add();' - '' - ' if ( <> '#39#39')' - ' or ( <> '#39#39') then' - - ' DatosCliente.Lines.Add( + '#39' ' + - #39' + );' - 'end;' - '' - 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' BandaDetalles.StartNewPage := False;' - ' BandaDetalles.Visible := True;' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' RichConcepto.Visible := True;' - '' - ' case of' - ' '#39'Salto'#39': begin' - ' BandaDetalles.StartNewPage := True;' - ' RichConcepto.Visible := False;' - ' end;' - ' '#39'Titulo'#39': begin' - ' MemPrecio.Style := '#39'Concepto titulo'#39';' - ' MemCantidad.Style := '#39'Concepto titulo'#39';' - ' MemImpTotal.Style := '#39'Concepto titulo'#39';' - ' end;' - ' '#39'Concepto'#39': begin' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' end;' - ' '#39'Subtotal'#39': begin' - ' MemPrecio.Style := '#39'Concepto subtotal'#39';' - ' MemCantidad.Style := '#39'Concepto subtotal'#39';' - ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' - ' end;' - ' '#39'Descuento'#39': begin' - ' BandaDetalles.Visible := False;' - ' RichConcepto.Color := clNone;' - ' end;' - ' end;' - '' - ' RichConcepto.Color := MemImpTotal.Color;' - ' RichConcepto.Frame := MemImpTotal.Frame;' - 'end;' - '' - 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - - ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' + - '.Height - 1;' - 'end;' '' 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' ' DatosEmpresa.Lines.Clear;' - ' DatosEmpresa.Lines.Add();' - ' DatosEmpresa.Lines.Add();' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := ;' - ' if ( <> '#39#39') then' + ' if ( <> '#39#39') then' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' - ' Cadena := Cadena + '#39' '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' - '#39' + ;' + ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' 'end;' '' - 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' + 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' 'begin' - ' Memo15.Lines.Clear;' - ' if (StrToFloat() < 0) then' - ' Memo15.Lines.Add('#39'ABONO'#39')' - ' else' - ' Memo15.Lines.Add('#39'FACTURA'#39')' + ' NombreEmpresa.Lines.Clear;' + ' NombreEmpresa.Lines.Add();' 'end;' '' - 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (StrToFloat() = 0) then' - ' begin' - ' Memo20.Lines.Clear;' - ' Memo28.Lines.Clear;' - ' Memo21.Lines.Clear;' - ' Memo29.Lines.Clear;' - ' end;' - '' - 'end;' - '' - 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' + 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' 'var' - ' Cadena : String;' + ' ACadena : String;' 'begin' - ' if ( <> '#39#39') then' + ' ACadena := '#39#39';' + ' DireccionEnvio.Lines.Clear;' + '' + ' if ( <> '#39#39') then' + ' ACadena := ;' + ' if ( <> '#39#39') then' + + ' ACadena := ACadena + '#39' '#39' + ;' + ' if ( <> '#39#39') then' + + ' ACadena := ACadena + '#39' (tlf: '#39' + ' + + ' + '#39' )'#39';' + '' + ' DireccionEnvio.Lines.Add(ACadena);' + ' ACadena := '#39#39';' + ' DireccionEnvio.Lines.Add(ACadena);' + '' + ' DireccionEnvio.Lines.Add();' + ' if ( <> '#39#39') then' + ' ACadena := + '#39' '#39';' + ' if ( <> '#39#39') then' + ' ACadena := ACadena + ;' + '' + ' if (ACadena <> '#39#39') then' + ' DireccionEnvio.Lines.Add(ACadena);' + '' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' + 'end;' + '' + 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' Memo2.Lines.Clear;' + ' if (StrToFloat() < 0) then' + ' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')' + ' else' + ' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')' + 'end;' + '' + 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if (StrToFloat() < 0) then' ' begin' - ' Cadena := Memo11.Lines.Text;' - ' Memo11.Lines.Clear;' - ' Memo11.Lines.Add();' - ' Memo11.Lines.Add(Cadena);' - ' end' + ' Memo5.Lines.Clear;' + ' Memo5.Lines.Add('#39'N'#186' orden:'#39');' + ' end;' + 'end;' + '' + 'procedure Memo9OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if (StrToFloat() < 0) then' + ' begin' + ' Memo9.Lines.Clear;' + ' Memo9.Lines.Add('#39'Fecha orden:'#39');' + ' end;' 'end;' '' 'begin' @@ -1171,49 +1145,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item DataSet = frxDBDetalles DataSetName = 'frxDBDetalles' - end - item - DataSetName = 'frxDBVencimientos' end> Variables = <> - Style = < - item - Name = 'Concepto normal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [] - end - item - Name = 'Concepto subtotal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end - item - Name = 'Cabecera de columna' - Color = 15790320 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] - end - item - Name = 'Concepto titulo' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end> + Style = <> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index 49657660..16e77333 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -25,9 +25,9 @@ type frxChartObject1: TfrxChartObject; frxDBCabecera: TfrxDBDataset; frxDBDetalles: TfrxDBDataset; + frxReport: TfrxReport; schReport: TDASchema; DataDictionary: TDADataDictionary; - frxReport: TfrxReport; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 5139173b..b9ca15b1 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -71,14 +71,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente TargetTable = 'ALBARANES_CLIENTE' SQL = 'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 + - ' REFERENCIA, TIPO, SITUACION, ID_ALMACEN, NOMBRE_ALMACEN,'#10' ' + - ' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACTURA,'#10' CALLE, CODI' + - 'GO_POSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO' + - ', IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' ' + - ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES' + - ', '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' FECHA_M' + - 'ODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' + - '_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALBARANES_CLIENTE' + ' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' + + ' NOMBRE_ALMACEN,'#10' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACT' + + 'URA,'#10' CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA, PERSONA_CON' + + 'TACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IM' + + 'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' + + 'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + + 'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' + + 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' + + 'ARANES_CLIENTE' StatementType = stSQL ColumnMappings = < item @@ -232,6 +233,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'TIPO' TableField = 'TIPO' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'AlbaranesCliente' @@ -297,6 +302,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'TIPO' DataType = datString @@ -1124,15 +1140,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente TargetTable = 'ALBARANES_CLIENTE' SQL = 'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 + - ' REFERENCIA, TIPO, SITUACION, ID_ALMACEN, NOMBRE_ALMACEN,'#10' ' + - ' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACTURA,'#10' CALLE, CODI' + - 'GO_POSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO' + - ', IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' ' + - ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES' + - ', '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' FECHA_M' + - 'ODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' + - '_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHE' + - 'RE V_ALBARANES_CLIENTE.ID = :ID' + ' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' + + ' NOMBRE_ALMACEN,'#10' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACT' + + 'URA,'#10' CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA, PERSONA_CON' + + 'TACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IM' + + 'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' + + 'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + + 'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' + + 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' + + 'ARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -1286,6 +1302,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'TIPO' TableField = 'TIPO' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'AlbaranesCliente_Refresh' @@ -1353,6 +1373,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'TIPO' DataType = datString @@ -2031,6 +2063,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Value = '' ParamType = daptInput end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'FECHA_ALBARAN' DataType = datDateTime @@ -2240,21 +2280,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente TargetTable = 'ALBARANES_CLIENTE' SQL = 'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' + - ' REFERENCIA, FECHA_ALBARAN,'#10' ID_PEDIDO, ID_ALMACEN, ID_FACTU' + - 'RA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PROVINCIA, PERSONA_CON' + - 'TACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPORTE_NETO, IMPORTE_POR' + - 'TE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, IMPORT' + - 'E_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, ' + - 'FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO,'#10' ' + - ' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_RECEPCION)'#10' VALUES'#10 + - ' (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFERENCIA, :FECHA_ALBARAN,' + - #10' :ID_PEDIDO, :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO' + - '_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEF' + - 'ONO, :BASE_IMPONIBLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESC' + - 'UENTO, :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TO' + - 'TAL, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :' + - 'FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, ' + - ':FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)' + ' REFERENCIA, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PEDIDO, ' + + 'ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' + + 'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPOR' + + 'TE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA,' + + ' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' + + 'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' + + 'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' + + 'RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFEREN' + + 'CIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO, :ID_A' + + 'LMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :P' + + 'ROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONIBLE, :' + + 'IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_DESCUEN' + + 'TO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :I' + + 'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECHA_MODI' + + 'FICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' + + ':FECHA_ENVIO, :FECHA_RECEPCION)' StatementType = stSQL ColumnMappings = <> end> @@ -2284,6 +2325,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Value = '' ParamType = daptInput end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'FECHA_ALBARAN' DataType = datDateTime @@ -2501,22 +2550,23 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente SQL = 'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ' + ' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' FECHA_ALBARAN = :FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ' + - ' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' ' + - 'CALLE = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLAC' + - 'ION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONT' + - 'ACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_I' + - 'MPONIBLE = :BASE_IMPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 + - ' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' + - ' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10 + - ' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TO' + - 'TAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :IN' + - 'CIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ' + - ' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODI' + - 'FICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORM' + - 'A_PAGO,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FE' + - 'CHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCIO' + - 'N'#10' WHERE'#10' (ID = :OLD_ID)' + ' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN = :' + + 'FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ALMACEN = :I' + + 'D_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' CALLE = :CALLE, '#10' ' + + ' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, ' + + #10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CO' + + 'NTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_IMPONIBLE = :BASE_I' + + 'MPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' + + '= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' + + 'UENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA = ' + + ':IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVAC' + + 'IONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IN' + + 'CIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FEC' + + 'HA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USU' + + 'ARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' FECHA_' + + 'PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_ENVIO = :FECHA' + + '_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' WHERE'#10' (ID ' + + '= :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> @@ -3083,6 +3133,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DisplayWidth = 0 DisplayLabel = 'Tipo' Alignment = taLeftJustify + end + item + Name = 'AlbaranesCliente_REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify end> Left = 48 Top = 152 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index bb1fc4c3..fa5b1391 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -19,7 +19,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente 486) object Label1: TLabel Left = 22 - Top = 423 + Top = 450 Width = 299 Height = 26 Caption = @@ -29,7 +29,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object edtFechaAlbaran: TcxDBDateEdit Left = 116 - Top = 55 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataSource = DADataSource @@ -50,11 +50,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 + TabOrder = 2 Width = 119 end object memObservaciones: TcxDBMemo - Left = 430 + Left = 432 Top = 414 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' @@ -67,7 +67,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 21 + TabOrder = 22 Height = 253 Width = 186 end @@ -98,7 +98,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 143 end inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente - Left = 430 + Left = 432 Top = 28 Width = 350 Height = 212 @@ -110,9 +110,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 16 + TabOrder = 17 ReadOnly = False - ExplicitLeft = 430 + ExplicitLeft = 432 ExplicitTop = 28 inherited dxLayoutControl1: TdxLayoutControl Align = alTop @@ -137,12 +137,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 278 - ExplicitLeft = 278 + Left = 259 + ExplicitLeft = 259 end inherited Button3: TBitBtn - Left = 168 - ExplicitLeft = 168 + Left = 149 + ExplicitLeft = 149 end end inherited DADataSource: TDADataSource @@ -164,7 +164,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eCalle: TcxDBTextEdit Left = 116 - Top = 197 + Top = 224 DataBinding.DataField = 'CALLE' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -178,12 +178,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 + TabOrder = 8 Width = 263 end object ePoblacion: TcxDBTextEdit Left = 116 - Top = 224 + Top = 251 DataBinding.DataField = 'POBLACION' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -197,12 +197,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 + TabOrder = 9 Width = 162 end object eCodigoPostal: TcxDBTextEdit - Left = 335 - Top = 224 + Left = 337 + Top = 251 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -216,12 +216,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 10 Width = 65 end object eProvincia: TcxDBTextEdit Left = 116 - Top = 251 + Top = 278 DataBinding.DataField = 'PROVINCIA' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -235,12 +235,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Width = 263 end object ePersonaContacto: TcxDBTextEdit Left = 116 - Top = 278 + Top = 305 DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -255,12 +255,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 + TabOrder = 12 Width = 84 end object eTlfTrabajo: TcxDBTextEdit Left = 116 - Top = 305 + Top = 332 DataBinding.DataField = 'TELEFONO' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -274,29 +274,29 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 13 Width = 122 end object bElegirDireccion: TBitBtn - Left = 228 - Top = 332 + Left = 230 + Top = 359 Width = 172 Height = 23 Action = actElegirDireccion Caption = 'Elegir una direcci'#243'n de env'#237'o...' - TabOrder = 13 + TabOrder = 14 end object Button1: TButton - Left = 268 - Top = 111 + Left = 270 + Top = 138 Width = 132 Height = 23 Action = actVerPedidoCli - TabOrder = 5 + TabOrder = 6 end object eReferenciaPedidoCli: TcxTextEdit Left = 116 - Top = 111 + Top = 138 Anchors = [akLeft, akTop, akRight] Enabled = False Properties.ReadOnly = False @@ -314,12 +314,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 + TabOrder = 5 Width = 16 end object cbFormaPago: TcxDBLookupComboBox Left = 116 - Top = 82 + Top = 109 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -343,20 +343,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 + TabOrder = 3 Width = 32 end object bFormasPago: TButton - Left = 268 - Top = 82 + Left = 270 + Top = 109 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' - TabOrder = 3 + TabOrder = 4 OnClick = bFormasPagoClick end object eFechaRecepcion: TcxDBDateEdit - Left = 581 + Left = 583 Top = 357 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_RECEPCION' @@ -375,11 +375,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 20 + TabOrder = 21 Width = 123 end object eFechaEnvio: TcxDBTextEdit - Left = 581 + Left = 583 Top = 303 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' @@ -400,21 +400,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 18 + TabOrder = 19 Width = 122 end object cbConAlmacen: TCheckBox Left = 32 - Top = 391 + Top = 418 Width = 179 Height = 21 Caption = 'Asociar este albar'#225'n al almac'#233'n:' - TabOrder = 14 + TabOrder = 15 OnClick = cbConAlmacenClick end object cbAlmacen: TcxDBLookupComboBox Left = 217 - Top = 391 + Top = 418 DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -438,21 +438,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 + TabOrder = 16 Width = 69 end object cbFechaRecepcion: TCheckBox - Left = 440 + Left = 442 Top = 330 Width = 340 Height = 21 Caption = 'El cliente ha recibido y firmado este albar'#225'n el d'#237'a:' - TabOrder = 19 + TabOrder = 20 OnClick = cbFechaRecepcionClick end object eRefFacturaCli: TcxDBTextEdit Left = 116 - Top = 140 + Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REF_FACTURA' DataBinding.DataSource = DADataSource @@ -473,11 +473,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 + TabOrder = 7 Width = 207 end object eFechaPrevista: TcxDBDateEdit - Left = 581 + Left = 583 Top = 276 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' @@ -499,9 +499,34 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 + TabOrder = 18 Width = 122 end + object eRefCliente: TcxDBTextEdit + Left = 116 + Top = 55 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_CLIENTE' + DataBinding.DataSource = DADataSource + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 284 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -518,10 +543,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente AlignHorz = ahClient Caption = 'Datos del albar'#225'n' object dxLayoutControl1Item3: TdxLayoutItem - Caption = 'Ref. albar'#225'n:' + Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end + object dxLayoutControl1Item23: TdxLayoutItem + Caption = 'Ref. cliente:' + Control = eRefCliente + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha del albar'#225'n:' Control = edtFechaAlbaran diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index d3a0c348..f6aa7a36 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -96,6 +96,8 @@ type dxLayoutControl1Group15: TdxLayoutGroup; dxLayoutControl1Item24: TdxLayoutItem; eFechaPrevista: TcxDBDateEdit; + dxLayoutControl1Item23: TdxLayoutItem; + eRefCliente: TcxDBTextEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject); diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm index 9eaf4c0f..b3501335 100644 --- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm @@ -135,7 +135,21 @@ object DataModulePedidosCliente: TDataModulePedidosCliente DisplayWidth = 0 DisplayLabel = 'Referencia' Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'PedidosCliente_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False @@ -149,7 +163,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente DisplayWidth = 0 DisplayLabel = 'Situaci'#243'n' Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'PedidosCliente_SITUACION' InPrimaryKey = False Calculated = False Lookup = False @@ -449,6 +463,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify + DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB' InPrimaryKey = False Calculated = False Lookup = False @@ -459,7 +474,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 - DisplayLabel = 'Fecha prevista de env'#237'o' + DisplayLabel = 'Fecha de entrega prevista' Alignment = taLeftJustify DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO' InPrimaryKey = False diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas index fdeea484..18fccfac 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas @@ -9,13 +9,13 @@ 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_PedidoCliente_ArticulosPendientesPedirAProv = '{6F84DC2B-AB56-42E0-B384-7B800C7702EB}'; - RID_DarReferencia = '{B5B33AC2-9A3C-4F5F-B7BC-CDBA0AF7B050}'; - RID_PedidosCliente = '{29043AA6-18D0-41F5-964C-369ADF23DB9D}'; - RID_PedidosCliente_Detalles = '{409919C4-F7F2-4C11-8EBE-1F6358C7731B}'; - RID_PedidosCliente_Refresh = '{C9324676-85BA-4A02-934C-8C2DC79EA157}'; - RID_PedidosCliente_Detalles_Refresh = '{8BA724CB-130C-4C3A-A1C1-D2F952A32DDD}'; - RID_PedidoCliente_Articulos_Pendientes = '{F83BD5DE-AD34-406A-8510-7C0AE4C15091}'; + RID_PedidoCliente_ArticulosPendientesPedirAProv = '{C1999334-468B-4FBC-BBF4-C42B5EDD082A}'; + RID_DarReferencia = '{49BABE0B-7F00-4B69-BDF2-1EEB55541733}'; + RID_PedidosCliente = '{AA507B71-8CC4-44D0-A83A-598C0F731BB0}'; + RID_PedidosCliente_Detalles = '{245CC401-9C4E-471E-B814-187C95EF45F1}'; + RID_PedidosCliente_Refresh = '{16964D63-320B-460C-93B5-1ACD6A05C101}'; + RID_PedidosCliente_Detalles_Refresh = '{DD5D0403-B1AB-45D9-8B59-D1F8F035B22F}'; + RID_PedidoCliente_Articulos_Pendientes = '{445F176E-9207-4925-8CE6-CBB4A66C4861}'; { Data table names } nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv'; @@ -54,6 +54,7 @@ const fld_PedidosClienteID_CLIENTE = 'ID_CLIENTE'; fld_PedidosClienteNOMBRE = 'NOMBRE'; fld_PedidosClienteREFERENCIA = 'REFERENCIA'; + fld_PedidosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_PedidosClienteSITUACION = 'SITUACION'; fld_PedidosClienteFECHA_PEDIDO = 'FECHA_PEDIDO'; fld_PedidosClienteCALLE = 'CALLE'; @@ -86,31 +87,32 @@ const idx_PedidosClienteID_CLIENTE = 2; idx_PedidosClienteNOMBRE = 3; idx_PedidosClienteREFERENCIA = 4; - idx_PedidosClienteSITUACION = 5; - idx_PedidosClienteFECHA_PEDIDO = 6; - idx_PedidosClienteCALLE = 7; - idx_PedidosClienteCODIGO_POSTAL = 8; - idx_PedidosClientePOBLACION = 9; - idx_PedidosClientePROVINCIA = 10; - idx_PedidosClientePERSONA_CONTACTO = 11; - idx_PedidosClienteTELEFONO = 12; - idx_PedidosClienteOBSERVACIONES = 13; - idx_PedidosClienteINCIDENCIAS = 14; - idx_PedidosClienteINCIDENCIAS_ACTIVAS = 15; - idx_PedidosClienteFECHA_ALTA = 16; - idx_PedidosClienteFECHA_MODIFICACION = 17; - idx_PedidosClienteUSUARIO = 18; - idx_PedidosClienteIMPORTE_NETO = 19; - idx_PedidosClienteIMPORTE_PORTE = 20; - idx_PedidosClienteDESCUENTO = 21; - idx_PedidosClienteIMPORTE_DESCUENTO = 22; - idx_PedidosClienteBASE_IMPONIBLE = 23; - idx_PedidosClienteIVA = 24; - idx_PedidosClienteIMPORTE_IVA = 25; - idx_PedidosClienteIMPORTE_TOTAL = 26; - idx_PedidosClienteID_FORMA_PAGO = 27; - idx_PedidosClienteREF_TIENDA_WEB = 28; - idx_PedidosClienteFECHA_PREVISTA_ENVIO = 29; + idx_PedidosClienteREFERENCIA_CLIENTE = 5; + idx_PedidosClienteSITUACION = 6; + idx_PedidosClienteFECHA_PEDIDO = 7; + idx_PedidosClienteCALLE = 8; + idx_PedidosClienteCODIGO_POSTAL = 9; + idx_PedidosClientePOBLACION = 10; + idx_PedidosClientePROVINCIA = 11; + idx_PedidosClientePERSONA_CONTACTO = 12; + idx_PedidosClienteTELEFONO = 13; + idx_PedidosClienteOBSERVACIONES = 14; + idx_PedidosClienteINCIDENCIAS = 15; + idx_PedidosClienteINCIDENCIAS_ACTIVAS = 16; + idx_PedidosClienteFECHA_ALTA = 17; + idx_PedidosClienteFECHA_MODIFICACION = 18; + idx_PedidosClienteUSUARIO = 19; + idx_PedidosClienteIMPORTE_NETO = 20; + idx_PedidosClienteIMPORTE_PORTE = 21; + idx_PedidosClienteDESCUENTO = 22; + idx_PedidosClienteIMPORTE_DESCUENTO = 23; + idx_PedidosClienteBASE_IMPONIBLE = 24; + idx_PedidosClienteIVA = 25; + idx_PedidosClienteIMPORTE_IVA = 26; + idx_PedidosClienteIMPORTE_TOTAL = 27; + idx_PedidosClienteID_FORMA_PAGO = 28; + idx_PedidosClienteREF_TIENDA_WEB = 29; + idx_PedidosClienteFECHA_PREVISTA_ENVIO = 30; { PedidosCliente_Detalles fields } fld_PedidosCliente_DetallesID = 'ID'; @@ -150,6 +152,7 @@ const fld_PedidosCliente_RefreshID_CLIENTE = 'ID_CLIENTE'; fld_PedidosCliente_RefreshNOMBRE = 'NOMBRE'; fld_PedidosCliente_RefreshREFERENCIA = 'REFERENCIA'; + fld_PedidosCliente_RefreshREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_PedidosCliente_RefreshSITUACION = 'SITUACION'; fld_PedidosCliente_RefreshFECHA_PEDIDO = 'FECHA_PEDIDO'; fld_PedidosCliente_RefreshCALLE = 'CALLE'; @@ -182,31 +185,32 @@ const idx_PedidosCliente_RefreshID_CLIENTE = 2; idx_PedidosCliente_RefreshNOMBRE = 3; idx_PedidosCliente_RefreshREFERENCIA = 4; - idx_PedidosCliente_RefreshSITUACION = 5; - idx_PedidosCliente_RefreshFECHA_PEDIDO = 6; - idx_PedidosCliente_RefreshCALLE = 7; - idx_PedidosCliente_RefreshCODIGO_POSTAL = 8; - idx_PedidosCliente_RefreshPOBLACION = 9; - idx_PedidosCliente_RefreshPROVINCIA = 10; - idx_PedidosCliente_RefreshPERSONA_CONTACTO = 11; - idx_PedidosCliente_RefreshTELEFONO = 12; - idx_PedidosCliente_RefreshOBSERVACIONES = 13; - idx_PedidosCliente_RefreshINCIDENCIAS = 14; - idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 15; - idx_PedidosCliente_RefreshFECHA_ALTA = 16; - idx_PedidosCliente_RefreshFECHA_MODIFICACION = 17; - idx_PedidosCliente_RefreshUSUARIO = 18; - idx_PedidosCliente_RefreshIMPORTE_NETO = 19; - idx_PedidosCliente_RefreshIMPORTE_PORTE = 20; - idx_PedidosCliente_RefreshDESCUENTO = 21; - idx_PedidosCliente_RefreshIMPORTE_DESCUENTO = 22; - idx_PedidosCliente_RefreshBASE_IMPONIBLE = 23; - idx_PedidosCliente_RefreshIVA = 24; - idx_PedidosCliente_RefreshIMPORTE_IVA = 25; - idx_PedidosCliente_RefreshIMPORTE_TOTAL = 26; - idx_PedidosCliente_RefreshID_FORMA_PAGO = 27; - idx_PedidosCliente_RefreshREF_TIENDA_WEB = 28; - idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 29; + idx_PedidosCliente_RefreshREFERENCIA_CLIENTE = 5; + idx_PedidosCliente_RefreshSITUACION = 6; + idx_PedidosCliente_RefreshFECHA_PEDIDO = 7; + idx_PedidosCliente_RefreshCALLE = 8; + idx_PedidosCliente_RefreshCODIGO_POSTAL = 9; + idx_PedidosCliente_RefreshPOBLACION = 10; + idx_PedidosCliente_RefreshPROVINCIA = 11; + idx_PedidosCliente_RefreshPERSONA_CONTACTO = 12; + idx_PedidosCliente_RefreshTELEFONO = 13; + idx_PedidosCliente_RefreshOBSERVACIONES = 14; + idx_PedidosCliente_RefreshINCIDENCIAS = 15; + idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 16; + idx_PedidosCliente_RefreshFECHA_ALTA = 17; + idx_PedidosCliente_RefreshFECHA_MODIFICACION = 18; + idx_PedidosCliente_RefreshUSUARIO = 19; + idx_PedidosCliente_RefreshIMPORTE_NETO = 20; + idx_PedidosCliente_RefreshIMPORTE_PORTE = 21; + idx_PedidosCliente_RefreshDESCUENTO = 22; + idx_PedidosCliente_RefreshIMPORTE_DESCUENTO = 23; + idx_PedidosCliente_RefreshBASE_IMPONIBLE = 24; + idx_PedidosCliente_RefreshIVA = 25; + idx_PedidosCliente_RefreshIMPORTE_IVA = 26; + idx_PedidosCliente_RefreshIMPORTE_TOTAL = 27; + idx_PedidosCliente_RefreshID_FORMA_PAGO = 28; + idx_PedidosCliente_RefreshREF_TIENDA_WEB = 29; + idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 30; { PedidosCliente_Detalles_Refresh fields } fld_PedidosCliente_Detalles_RefreshID = 'ID'; @@ -255,7 +259,7 @@ const type { IPedidoCliente_ArticulosPendientesPedirAProv } IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) - ['{6FE1A049-F3FB-4A90-8AFC-65B1CFE8A79F}'] + ['{972D4859-B3C6-4A05-90D5-B81E5B0221BF}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -314,7 +318,7 @@ type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{54166B3A-781F-47CC-A3BD-DD4DEA5045D4}'] + ['{653123F4-C264-46AF-BEFE-CD2CF048FBEA}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -343,7 +347,7 @@ type { IPedidosCliente } IPedidosCliente = interface(IDAStronglyTypedDataTable) - ['{942279DC-C378-4D7C-939C-A5F3D0BF0501}'] + ['{05AC916D-59B2-4E42-AD09-1A0B413BFA1B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -355,6 +359,8 @@ type procedure SetNOMBREValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetSITUACIONValue: String; procedure SetSITUACIONValue(const aValue: String); function GetFECHA_PEDIDOValue: DateTime; @@ -413,6 +419,7 @@ type property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; property CALLE: String read GetCALLEValue write SetCALLEValue; @@ -455,6 +462,8 @@ type procedure SetNOMBREValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetFECHA_PEDIDOValue: DateTime; virtual; @@ -512,6 +521,7 @@ type property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; property CALLE: String read GetCALLEValue write SetCALLEValue; @@ -546,7 +556,7 @@ type { IPedidosCliente_Detalles } IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{08D6C93B-AF10-4FF2-B990-6450BF6AC6DE}'] + ['{B9BEFE7C-50C5-41A4-9C1E-69F82E33B239}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -653,7 +663,7 @@ type { IPedidosCliente_Refresh } IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{5497A314-3CE4-4383-B0E3-5459EFE32BAB}'] + ['{B791EB7F-8133-4E13-8E65-9D728AEF936C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -665,6 +675,8 @@ type procedure SetNOMBREValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetSITUACIONValue: String; procedure SetSITUACIONValue(const aValue: String); function GetFECHA_PEDIDOValue: DateTime; @@ -723,6 +735,7 @@ type property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; property CALLE: String read GetCALLEValue write SetCALLEValue; @@ -765,6 +778,8 @@ type procedure SetNOMBREValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; function GetFECHA_PEDIDOValue: DateTime; virtual; @@ -822,6 +837,7 @@ type property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; property CALLE: String read GetCALLEValue write SetCALLEValue; @@ -856,7 +872,7 @@ type { IPedidosCliente_Detalles_Refresh } IPedidosCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{AF5168D8-3EEC-4C73-A548-8E63FA84179B}'] + ['{3FA4269B-0776-41DE-9F4A-78033659716B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -963,7 +979,7 @@ type { IPedidoCliente_Articulos_Pendientes } IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{739C33F2-D35D-427A-AAF8-2BE577A00D6C}'] + ['{64E773A4-B774-4521-801B-50E465070510}'] { Property getters and setters } function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); @@ -1167,6 +1183,16 @@ begin DataTable.Fields[idx_PedidosClienteREFERENCIA].AsString := aValue; end; +function TPedidosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_PedidosClienteREFERENCIA_CLIENTE].AsString; +end; + +procedure TPedidosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosClienteREFERENCIA_CLIENTE].AsString := aValue; +end; + function TPedidosClienteDataTableRules.GetSITUACIONValue: String; begin result := DataTable.Fields[idx_PedidosClienteSITUACION].AsString; @@ -1633,6 +1659,16 @@ begin DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsString := aValue; end; +function TPedidosCliente_RefreshDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA_CLIENTE].AsString; +end; + +procedure TPedidosCliente_RefreshDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA_CLIENTE].AsString := aValue; +end; + function TPedidosCliente_RefreshDataTableRules.GetSITUACIONValue: String; begin result := DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsString; diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas index 377c40fa..2a53b466 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas @@ -9,18 +9,18 @@ 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_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{8CAA1451-5418-4A49-8092-77D662FCFEBB}'; - RID_DarReferenciaDelta = '{3195925E-F00F-40F9-85C6-6E9AA20FF8D3}'; - RID_PedidosClienteDelta = '{F2845970-3ECE-403D-A2B5-8514282DB50B}'; - RID_PedidosCliente_DetallesDelta = '{7191CDD7-4BC8-4B02-B9AE-35A8A30B4AAD}'; - RID_PedidosCliente_RefreshDelta = '{D92463E8-0736-4F66-A1E4-46F944A8D16C}'; - RID_PedidosCliente_Detalles_RefreshDelta = '{9EAD80F8-F99D-4B79-9B4C-D9050CF9EF8B}'; - RID_PedidoCliente_Articulos_PendientesDelta = '{63091BDF-3A9C-41C0-A8AD-FD6485B695BE}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{EE8CBDDC-104A-4492-8D5C-08135D131450}'; + RID_DarReferenciaDelta = '{7E08AFA3-C994-4B1E-B289-148BCA112E05}'; + RID_PedidosClienteDelta = '{20C24610-4E5A-4CFE-8564-8D56B08C897A}'; + RID_PedidosCliente_DetallesDelta = '{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}'; + RID_PedidosCliente_RefreshDelta = '{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}'; + RID_PedidosCliente_Detalles_RefreshDelta = '{33C8CC54-33ED-45F4-BD3F-60676CD997BF}'; + RID_PedidoCliente_Articulos_PendientesDelta = '{E0181E92-9467-4BCF-8C06-53C4F301B7E6}'; type { IPedidoCliente_ArticulosPendientesPedirAProvDelta } IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) - ['{8CAA1451-5418-4A49-8092-77D662FCFEBB}'] + ['{EE8CBDDC-104A-4492-8D5C-08135D131450}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldID_ARTICULOValue : Integer; @@ -84,7 +84,7 @@ type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{3195925E-F00F-40F9-85C6-6E9AA20FF8D3}'] + ['{7E08AFA3-C994-4B1E-B289-148BCA112E05}'] { Property getters and setters } function GetOldVALORValue : String; @@ -113,13 +113,14 @@ type { IPedidosClienteDelta } IPedidosClienteDelta = interface(IPedidosCliente) - ['{F2845970-3ECE-403D-A2B5-8514282DB50B}'] + ['{20C24610-4E5A-4CFE-8564-8D56B08C897A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldID_CLIENTEValue : Integer; function GetOldNOMBREValue : String; function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_CLIENTEValue : String; function GetOldSITUACIONValue : String; function GetOldFECHA_PEDIDOValue : DateTime; function GetOldCALLEValue : String; @@ -152,6 +153,7 @@ type property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; property OldCALLE : String read GetOldCALLEValue; @@ -199,6 +201,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + function GetOldREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; @@ -286,6 +291,8 @@ type property OldNOMBRE : String read GetOldNOMBREValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; @@ -345,7 +352,7 @@ type { IPedidosCliente_DetallesDelta } IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) - ['{7191CDD7-4BC8-4B02-B9AE-35A8A30B4AAD}'] + ['{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -465,13 +472,14 @@ type { IPedidosCliente_RefreshDelta } IPedidosCliente_RefreshDelta = interface(IPedidosCliente_Refresh) - ['{D92463E8-0736-4F66-A1E4-46F944A8D16C}'] + ['{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldID_CLIENTEValue : Integer; function GetOldNOMBREValue : String; function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_CLIENTEValue : String; function GetOldSITUACIONValue : String; function GetOldFECHA_PEDIDOValue : DateTime; function GetOldCALLEValue : String; @@ -504,6 +512,7 @@ type property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; property OldCALLE : String read GetOldCALLEValue; @@ -551,6 +560,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + function GetOldREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; @@ -638,6 +650,8 @@ type property OldNOMBRE : String read GetOldNOMBREValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue; property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; @@ -697,7 +711,7 @@ type { IPedidosCliente_Detalles_RefreshDelta } IPedidosCliente_Detalles_RefreshDelta = interface(IPedidosCliente_Detalles_Refresh) - ['{9EAD80F8-F99D-4B79-9B4C-D9050CF9EF8B}'] + ['{33C8CC54-33ED-45F4-BD3F-60676CD997BF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -817,7 +831,7 @@ type { IPedidoCliente_Articulos_PendientesDelta } IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes) - ['{63091BDF-3A9C-41C0-A8AD-FD6485B695BE}'] + ['{E0181E92-9467-4BCF-8C06-53C4F301B7E6}'] { Property getters and setters } function GetOldID_ARTICULOValue : Integer; function GetOldCANTIDAD_PEDValue : Integer; @@ -1085,6 +1099,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA] := aValue; end; +function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]; +end; + +function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]; +end; + +procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE] := aValue; +end; + function TPedidosClienteBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION]; @@ -1773,6 +1802,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA] := aValue; end; +function TPedidosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE]; +end; + +function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE]; +end; + +procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE] := aValue; +end; + function TPedidosCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshSITUACION]; diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm index c2919d88..5576c854 100644 --- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm +++ b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm @@ -104,24 +104,24 @@ object RptPedidosCliente: TRptPedidosCliente 'SELECT'#10' V_PEDIDOS_CLIENTE.ID,'#10' V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' + ' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10' V_PEDIDOS_CLIENTE.NOMBRE,'#10' V_C' + 'LIENTES.NOMBRE_COMERCIAL,'#10' V_PEDIDOS_CLIENTE.REFERENCIA,'#10' V_PE' + - 'DIDOS_CLIENTE.SITUACION,'#10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_P' + - 'EDIDOS_CLIENTE.CALLE,'#10' V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10' V_PED' + - 'IDOS_CLIENTE.POBLACION,'#10' V_PEDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDID' + - 'OS_CLIENTE.PERSONA_CONTACTO,'#10' V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_P' + - 'EDIDOS_CLIENTE.OBSERVACIONES,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' ' + - ' V_PEDIDOS_CLIENTE.INCIDENCIAS_ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECH' + - 'A_ALTA,'#10' V_PEDIDOS_CLIENTE.FECHA_MODIFICACION,'#10' V_PEDIDOS_CLIE' + - 'NTE.USUARIO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLIEN' + - 'TE.IMPORTE_PORTE,'#10' V_PEDIDOS_CLIENTE.DESCUENTO,'#10' V_PEDIDOS_CLI' + - 'ENTE.IMPORTE_DESCUENTO,'#10' V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_' + - 'PEDIDOS_CLIENTE.IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDO' + - 'S_CLIENTE.IMPORTE_TOTAL,'#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EM' + - 'PRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFO' + - 'NO_1_EMPRESA,'#10' EMPRESAS.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLI' + - 'ENTE'#10' LEFT OUTER JOIN EMPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA' + - ' = EMPRESAS.ID)'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID =' + - ' V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :I' + - 'D' + 'DIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' V_PEDIDOS_CLIENTE.SITUACION,' + + #10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_PEDIDOS_CLIENTE.CALLE,'#10' ' + + 'V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10' V_PEDIDOS_CLIENTE.POBLACION,'#10 + + ' V_PEDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDIDOS_CLIENTE.PERSONA_CONTA' + + 'CTO,'#10' V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_PEDIDOS_CLIENTE.OBSERVACI' + + 'ONES,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' V_PEDIDOS_CLIENTE.INCID' + + 'ENCIAS_ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10' V_PEDIDOS_CLIE' + + 'NTE.FECHA_MODIFICACION,'#10' V_PEDIDOS_CLIENTE.USUARIO,'#10' V_PEDIDOS' + + '_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10' V_PE' + + 'DIDOS_CLIENTE.DESCUENTO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10 + + ' V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_PEDIDOS_CLIENTE.IVA,'#10' V' + + '_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' + + #10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' + + 'EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS' + + '.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN E' + + 'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT O' + + 'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' + + 'IENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -251,6 +251,10 @@ object RptPedidosCliente: TRptPedidosCliente item DatasetField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'Informe_Cabecera' @@ -323,6 +327,18 @@ object RptPedidosCliente: TRptPedidosCliente Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'SITUACION' DataType = datString @@ -844,7 +860,7 @@ object RptPedidosCliente: TRptPedidosCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39226.524119641200000000 + ReportOptions.LastChange = 39255.590290254630000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' @@ -869,20 +885,35 @@ object RptPedidosCliente: TRptPedidosCliente 'end;' '' 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' ACadena : String;' 'begin' + ' ACadena := '#39#39';' ' DireccionEnvio.Lines.Clear;' + ' if ( <> '#39#39') then' + ' ACadena := ;' + '' + ' if ( <> '#39#39') then' + + ' ACadena := ACadena + '#39' '#39' + ;' + '' + ' DireccionEnvio.Lines.Add(ACadena);' + ' ACadena := '#39#39';' ' DireccionEnvio.Lines.Add();' + ' if ( <> '#39#39') then' + ' ACadena := + '#39' '#39';' + ' if ( <> '#39#39') then' + ' ACadena := ACadena + ;' '' - ' if ( <> '#39#39')' - ' or ( <> '#39#39') then' - - ' DireccionEnvio.Lines.Add( + ' + - ');' + ' if (ACadena <> '#39#39') then' + ' DireccionEnvio.Lines.Add(ACadena);' '' - ' DireccionEnvio.Lines.Add();' - - '// DireccionEnvio.Lines.Add( ' + - '+ '#39' '#39' + );' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' + '' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' 'end;' '' 'begin' diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm index 97d35636..180f47dc 100644 --- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm +++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm @@ -178,15 +178,16 @@ object srvPedidosCliente: TsrvPedidosCliente TargetTable = 'PEDIDOS_CLIENTE' SQL = 'SELECT ID,'#10' ID_EMPRESA,'#10' ID_CLIENTE,'#10' NOMBRE,'#10 + - ' REFERENCIA,'#10' SITUACION,'#10' FECHA_PEDIDO,'#10' ' + - ' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA' + - ','#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' OBSERVACIONES' + - ','#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FECHA_A' + - 'LTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' IMPORTE_N' + - 'ETO,'#10' IMPORTE_PORTE,'#10' DESCUENTO,'#10' IMPORTE_DESC' + - 'UENTO,'#10' BASE_IMPONIBLE,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' + - ' IMPORTE_TOTAL,'#10' ID_FORMA_PAGO,'#10' REF_TIENDA_WEB,' + - #10' FECHA_PREVISTA_ENVIO'#10'FROM V_PEDIDOS_CLIENTE' + ' REFERENCIA,'#10' REFERENCIA_CLIENTE,'#10' SITUACION,'#10 + + ' FECHA_PEDIDO,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' ' + + 'POBLACION,'#10' PROVINCIA,'#10' PERSONA_CONTACTO,'#10' TEL' + + 'EFONO,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENC' + + 'IAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + + ' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' + + 'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' + + 'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' + + 'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO'#10'FROM V_P' + + 'EDIDOS_CLIENTE' StatementType = stSQL ColumnMappings = < item @@ -308,6 +309,10 @@ object srvPedidosCliente: TsrvPedidosCliente item DatasetField = 'FECHA_PREVISTA_ENVIO' TableField = 'FECHA_PREVISTA_ENVIO' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'PedidosCliente' @@ -358,10 +363,18 @@ object srvPedidosCliente: TsrvPedidosCliente DataType = datString Size = 255 BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Referencia' - Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'PedidosCliente_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False @@ -372,10 +385,7 @@ object srvPedidosCliente: TsrvPedidosCliente DataType = datString Size = 255 BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Situaci'#243'n' - Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'PedidosCliente_SITUACION' InPrimaryKey = False Calculated = False Lookup = False @@ -612,8 +622,7 @@ object srvPedidosCliente: TsrvPedidosCliente Name = 'REF_TIENDA_WEB' DataType = datInteger BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify + DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB' InPrimaryKey = False Calculated = False Lookup = False @@ -882,16 +891,16 @@ object srvPedidosCliente: TsrvPedidosCliente TargetTable = 'PEDIDOS_CLIENTE' SQL = 'SELECT ID,'#10' ID_EMPRESA,'#10' ID_CLIENTE,'#10' NOMBRE,'#10 + - ' REFERENCIA,'#10' SITUACION,'#10' FECHA_PEDIDO,'#10' ' + - ' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA' + - ','#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' OBSERVACIONES' + - ','#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FECHA_A' + - 'LTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' IMPORTE_N' + - 'ETO,'#10' IMPORTE_PORTE,'#10' DESCUENTO,'#10' IMPORTE_DESC' + - 'UENTO,'#10' BASE_IMPONIBLE,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' + - ' IMPORTE_TOTAL,'#10' ID_FORMA_PAGO,'#10' REF_TIENDA_WEB,' + - #10' FECHA_PREVISTA_ENVIO'#10'FROM V_PEDIDOS_CLIENTE'#10'WHERE'#10' I' + - 'D = :ID' + ' REFERENCIA,'#10' REFERENCIA_CLIENTE,'#10' SITUACION,'#10 + + ' FECHA_PEDIDO,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' ' + + 'POBLACION,'#10' PROVINCIA,'#10' PERSONA_CONTACTO,'#10' TEL' + + 'EFONO,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENC' + + 'IAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + + ' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' + + 'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' + + 'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' + + 'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO'#10'FROM V_P' + + 'EDIDOS_CLIENTE'#10'WHERE'#10' ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -1013,6 +1022,10 @@ object srvPedidosCliente: TsrvPedidosCliente item DatasetField = 'FECHA_PREVISTA_ENVIO' TableField = 'FECHA_PREVISTA_ENVIO' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' end> end> Name = 'PedidosCliente_Refresh' @@ -1071,6 +1084,18 @@ object srvPedidosCliente: TsrvPedidosCliente Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'SITUACION' DataType = datString @@ -2030,6 +2055,14 @@ object srvPedidosCliente: TsrvPedidosCliente Value = '' ParamType = daptInput end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'IMPORTE_TOTAL' DataType = datFloat @@ -2149,19 +2182,19 @@ object srvPedidosCliente: TsrvPedidosCliente SQL = 'INSERT'#10' INTO PEDIDOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, U' + 'SUARIO, FECHA_PEDIDO, '#10' CALLE, CODIGO_POSTAL, POBLACION, PRO' + - 'VINCIA, PERSONA_CONTACTO, '#10' TELEFONO, REFERENCIA, IMPORTE_TO' + - 'TAL, INCIDENCIAS, INCIDENCIAS_ACTIVAS, '#10' OBSERVACIONES, FECH' + - 'A_ALTA, FECHA_MODIFICACION,'#10' IMPORTE_NETO, IMPORTE_PORTE, DE' + - 'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' + - 'A, '#10' ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA_PREVISTA_ENVIO)'#10' ' + - 'VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :USUARIO, :FECHA_PEDI' + - 'DO, '#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSO' + - 'NA_CONTACTO, '#10' :TELEFONO, :REFERENCIA, :IMPORTE_TOTAL, :INCI' + - 'DENCIAS, '#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA' + - ','#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' ' + - ':DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, '#10' :IM' + - 'PORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_ENVI' + - 'O)' + 'VINCIA, PERSONA_CONTACTO, '#10' TELEFONO, REFERENCIA, REFERENCIA' + + '_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS, ' + + 'OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' IMPORTE_NETO' + + ', IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIB' + + 'LE, IVA, IMPORTE_IVA, '#10' ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA' + + '_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :U' + + 'SUARIO, :FECHA_PEDIDO, '#10' :CALLE, :CODIGO_POSTAL, :POBLACION,' + + ' :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :REFERENCIA, :R' + + 'EFERENCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCI' + + 'AS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACIO' + + 'N, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESC' + + 'UENTO, :BASE_IMPONIBLE, :IVA, '#10' :IMPORTE_IVA, :ID_FORMA_PAGO' + + ', :REF_TIENDA_WEB, :FECHA_PREVISTA_ENVIO)' StatementType = stSQL ColumnMappings = <> end> @@ -2273,6 +2306,14 @@ object srvPedidosCliente: TsrvPedidosCliente Value = '' ParamType = daptInput end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'IMPORTE_TOTAL' DataType = datFloat @@ -2402,17 +2443,18 @@ object srvPedidosCliente: TsrvPedidosCliente 'DIDO = :FECHA_PEDIDO, '#10' CALLE = :CALLE, '#10' CODIGO_POSTAL = ' + ':CODIGO_POSTAL, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :P' + 'ROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFO' + - 'NO = :TELEFONO, '#10' REFERENCIA = :REFERENCIA, '#10' IMPORTE_TOTA' + - 'L = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDE' + - 'NCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSERVACIONES = :OBSE' + - 'RVACIONES, '#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION' + - ' = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IM' + - 'PORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ' + - 'IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :B' + - 'ASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA,' + - ' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_' + - 'TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO'#10' W' + - 'HERE'#10' (ID = :OLD_ID)' + 'NO = :TELEFONO, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_C' + + 'LIENTE = :REFERENCIA_CLIENTE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL' + + ', '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :I' + + 'NCIDENCIAS_ACTIVAS, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' FE' + + 'CHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICA' + + 'CION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMP' + + 'ORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO ' + + '= :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ' + + ' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAG' + + 'O = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIENDA_WEB,'#10' FE' + + 'CHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO'#10' WHERE'#10' (ID = :OL' + + 'D_ID)' StatementType = stSQL ColumnMappings = <> end> @@ -2923,6 +2965,42 @@ object srvPedidosCliente: TsrvPedidosCliente DisplayWidth = 0 DisplayLabel = 'Fecha de entrega prevista' Alignment = taLeftJustify + end + item + Name = 'PedidosCliente_REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Referencia' + Alignment = taLeftJustify + ServerAutoRefresh = True + end + item + Name = 'PedidosCliente_REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + end + item + Name = 'PedidosCliente_SITUACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Situaci'#243'n' + Alignment = taLeftJustify + ServerAutoRefresh = True + end + item + Name = 'PedidosCliente_REF_TIENDA_WEB' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'REF_TIENDA_WEB' + Alignment = taLeftJustify end> Left = 48 Top = 152 diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm index 5beff59c..1595b1f9 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm @@ -19,7 +19,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente 407) object edtFechaPedido: TcxDBDateEdit Left = 116 - Top = 55 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PEDIDO' DataBinding.DataSource = DADataSource @@ -37,12 +37,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 + TabOrder = 2 Width = 119 end object memObservaciones: TcxDBMemo Left = 22 - Top = 362 + Top = 389 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -54,7 +54,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 + TabOrder = 14 Height = 253 Width = 186 end @@ -85,7 +85,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente Width = 143 end inline frViewClientePedido: TfrViewDatosYSeleccionCliente - Left = 362 + Left = 353 Top = 28 Width = 350 Height = 212 @@ -95,9 +95,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 12 + TabOrder = 13 ReadOnly = False - ExplicitLeft = 362 + ExplicitLeft = 353 ExplicitTop = 28 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit @@ -121,12 +121,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 212 - ExplicitLeft = 212 + Left = 204 + ExplicitLeft = 204 end inherited Button3: TBitBtn - Left = 102 - ExplicitLeft = 102 + Left = 94 + ExplicitLeft = 94 end end inherited DADataSource: TDADataSource @@ -141,7 +141,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente end object eCalle: TcxDBTextEdit Left = 116 - Top = 166 + Top = 193 DataBinding.DataField = 'CALLE' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -155,12 +155,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 + TabOrder = 6 Width = 263 end object ePoblacion: TcxDBTextEdit Left = 116 - Top = 193 + Top = 220 DataBinding.DataField = 'POBLACION' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -174,12 +174,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 + TabOrder = 7 Width = 162 end object eCodigoPostal: TcxDBTextEdit - Left = 267 - Top = 193 + Left = 258 + Top = 220 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -193,12 +193,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 + TabOrder = 8 Width = 65 end object eProvincia: TcxDBTextEdit Left = 116 - Top = 220 + Top = 247 DataBinding.DataField = 'PROVINCIA' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -212,12 +212,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 + TabOrder = 9 Width = 263 end object ePersonaContacto: TcxDBTextEdit Left = 116 - Top = 247 + Top = 274 DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -232,12 +232,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 10 Width = 84 end object eTlfTrabajo: TcxDBTextEdit Left = 116 - Top = 274 + Top = 301 DataBinding.DataField = 'TELEFONO' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -251,21 +251,21 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Width = 122 end object bElegirDireccion: TBitBtn - Left = 160 - Top = 301 + Left = 151 + Top = 328 Width = 172 Height = 25 Action = actElegirDireccion Caption = 'Elegir una direcci'#243'n de env'#237'o...' - TabOrder = 11 + TabOrder = 12 end object cbFormaPago: TcxDBLookupComboBox Left = 116 - Top = 109 + Top = 136 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -289,21 +289,21 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 + TabOrder = 4 Width = 101 end object bFormasPago: TButton - Left = 200 - Top = 109 + Left = 191 + Top = 136 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' - TabOrder = 4 + TabOrder = 5 OnClick = bFormasPagoClick end object edtFechaPrevistaEnvio: TcxDBDateEdit Left = 116 - Top = 82 + Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataSource = DADataSource @@ -320,7 +320,32 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 + TabOrder = 3 + Width = 216 + end + object eRefCliente: TcxDBTextEdit + Left = 116 + Top = 55 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_CLIENTE' + DataBinding.DataSource = DADataSource + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 Width = 216 end object dxLayoutControl1Group_Root: TdxLayoutGroup @@ -343,10 +368,15 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente AlignHorz = ahClient Caption = 'Datos del pedido' object dxLayoutControl1Item3: TdxLayoutItem - Caption = 'C'#243'digo:' + Caption = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end + object dxLayoutControl1Item15: TdxLayoutItem + Caption = 'Ref. cliente:' + Control = eRefCliente + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha del pedido:' Control = edtFechaPedido diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas index 66954222..901c837c 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas @@ -69,6 +69,8 @@ type dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Item7: TdxLayoutItem; edtFechaPrevistaEnvio: TcxDBDateEdit; + dxLayoutControl1Item15: TdxLayoutItem; + eRefCliente: TcxDBTextEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject); diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.rc b/Source/Modulos/Referencias/Controller/Referencias_controller.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Referencias/Data/Referencias_data.rc b/Source/Modulos/Referencias/Data/Referencias_data.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Referencias/Model/Referencias_model.rc b/Source/Modulos/Referencias/Model/Referencias_model.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Referencias/Plugin/Referencias_plugin.rc b/Source/Modulos/Referencias/Plugin/Referencias_plugin.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Referencias/Views/Referencias_view.rc b/Source/Modulos/Referencias/Views/Referencias_view.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 61e1f4e3..786a5afd 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -54,8 +54,6 @@ uses srvAlbaranesCliente_Impl in '..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas' {srvAlbaranesCliente: TDARemoteService}, srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDARemoteService}, uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas' {RptAlbaranesCliente: TDataModule}, - schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', - schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas' {srvFormasPago: TDARemoteService}, srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDARemoteService}, schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas', @@ -104,8 +102,6 @@ uses schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', - schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', - schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService}, @@ -120,7 +116,11 @@ uses schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService}, schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', - schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas'; + schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', + schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', + schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', + schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', + schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index b95f9880..76c70393 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,0,6,0 -PRODUCTVERSION 2,0,6,0 +FILEVERSION 2,0,7,0 +PRODUCTVERSION 2,0,7,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0904E4" BEGIN - VALUE "FileVersion", "2.0.6.0\0" - VALUE "ProductVersion", "2.0.6.0\0" - VALUE "CompileDate", "martes, 19 de junio de 2007 17:52\0" + VALUE "FileVersion", "2.0.7.0\0" + VALUE "ProductVersion", "2.0.7.0\0" + VALUE "CompileDate", "viernes, 22 de junio de 2007 14:16\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 4748437d..9bb465d2 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ