diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 1a7245a..a376e19 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas index 66d6135..a300189 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas @@ -9,10 +9,10 @@ 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_EmpresasTiendas = '{74B8F6E8-F54A-4CE5-8D8C-4793AD36775A}'; - RID_DarNombre = '{C31A013C-8C38-4E98-96C0-50DBC7D8B73E}'; - RID_Empresas = '{CEF1ACC5-4CC7-4A29-B512-532A1B0C2917}'; - RID_EmpresasDatosBanco = '{E1E6796F-5841-47B5-AFCF-5DEBE3A6C903}'; + RID_EmpresasTiendas = '{24354065-34FB-4D22-9253-5CC082F7F289}'; + RID_DarNombre = '{908C8404-6D2A-40FA-B291-D2E17BF5ED33}'; + RID_Empresas = '{1B9E49DD-EA45-4FDC-9438-299F6CD8D55F}'; + RID_EmpresasDatosBanco = '{281E9067-263E-447E-896F-E5D3C8B51D73}'; { Data table names } nme_EmpresasTiendas = 'EmpresasTiendas'; @@ -145,7 +145,7 @@ const type { IEmpresasTiendas } IEmpresasTiendas = interface(IDAStronglyTypedDataTable) - ['{C6667179-F2F3-48DA-97B4-03E67A6E087A}'] + ['{072C4F53-5CB8-42B1-8E7B-1B9F9566A489}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -360,7 +360,7 @@ type { IDarNombre } IDarNombre = interface(IDAStronglyTypedDataTable) - ['{5F2B65AC-C81D-4780-AEBE-C137CE4CADCA}'] + ['{36C6DE99-879C-4CD9-BAC2-86D29EA32BA0}'] { Property getters and setters } function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); @@ -395,7 +395,7 @@ type { IEmpresas } IEmpresas = interface(IDAStronglyTypedDataTable) - ['{20CF86F9-265B-450D-99B5-6F784684B3F0}'] + ['{E55587B7-F61A-4FE3-A87E-23B2937651C9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -742,7 +742,7 @@ type { IEmpresasDatosBanco } IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) - ['{FC451B78-DF0A-4C99-A5C8-F56B4C03C5FF}'] + ['{BE056627-D7CE-45E0-9C9B-9A8EEEE21DC7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas index c897e2b..0c0c565 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas @@ -9,15 +9,15 @@ 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_EmpresasTiendasDelta = '{A3CE7076-3DD1-413E-8A22-76E00907B3F8}'; - RID_DarNombreDelta = '{1A33D883-5482-424E-A458-406627B7C222}'; - RID_EmpresasDelta = '{3D30AB01-4425-491D-AF07-E6C3B9D4268E}'; - RID_EmpresasDatosBancoDelta = '{34696D9E-C399-422A-B9DC-7B4D3A0434DD}'; + RID_EmpresasTiendasDelta = '{C2DF8351-F4BD-45D9-B158-5B6229017A94}'; + RID_DarNombreDelta = '{E132F7C4-76CF-4381-A65F-3FE396C43927}'; + RID_EmpresasDelta = '{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}'; + RID_EmpresasDatosBancoDelta = '{8444CEF5-4F93-4913-ADC9-EA4151961E85}'; type { IEmpresasTiendasDelta } IEmpresasTiendasDelta = interface(IEmpresasTiendas) - ['{A3CE7076-3DD1-413E-8A22-76E00907B3F8}'] + ['{C2DF8351-F4BD-45D9-B158-5B6229017A94}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -232,7 +232,7 @@ type { IDarNombreDelta } IDarNombreDelta = interface(IDarNombre) - ['{1A33D883-5482-424E-A458-406627B7C222}'] + ['{E132F7C4-76CF-4381-A65F-3FE396C43927}'] { Property getters and setters } function GetOldNOMBREValue : String; @@ -266,7 +266,7 @@ type { IEmpresasDelta } IEmpresasDelta = interface(IEmpresas) - ['{3D30AB01-4425-491D-AF07-E6C3B9D4268E}'] + ['{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -614,7 +614,7 @@ type { IEmpresasDatosBancoDelta } IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) - ['{34696D9E-C399-422A-B9DC-7B4D3A0434DD}'] + ['{8444CEF5-4F93-4913-ADC9-EA4151961E85}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm index 7d66180..8c611e2 100644 --- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm +++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm @@ -594,7 +594,370 @@ object srvEmpresas: TsrvEmpresas end> JoinDataTables = <> UnionDataTables = <> - Commands = <> + Commands = < + item + Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_EMPRESAS_ID' + Value = '' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + Value = '' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + Value = '' + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'TELEFONO_2' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'MOVIL_2' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'FAX' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'EMAIL_2' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'NOTAS' + DataType = datMemo + Value = '' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + Value = '' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + Value = '' + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + Value = '' + end + item + Name = 'LOGOTIPO' + DataType = datBlob + Value = '' + end + item + Name = 'REGISTRO_MERCANTIL' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'ID_TIPO_IVA' + DataType = datInteger + Value = '' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + Value = '' + end + item + Name = 'VALIDEZ_PRESUPUESTOS' + DataType = datSmallInt + Value = '' + end + item + Name = 'PRECIO_PUNTO' + DataType = datCurrency + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'EMPRESAS' + SQL = + 'INSERT'#10' INTO EMPRESAS'#10' (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, C' + + 'ALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, TELEFONO_1, TELE' + + 'FONO_2, MOVIL_1, MOVIL_2, '#10' FAX, EMAIL_1, EMAIL_2, PAGINA_WE' + + 'B, NOTAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, LOGOTIP' + + 'O, REGISTRO_MERCANTIL, '#10' ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ' + + '_PRESUPUESTOS, PRECIO_PUNTO'#10' )'#10' VALUES'#10' (:ID, :NIF_CIF, ' + + ':NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION,'#10' :PROVINCIA, :CO' + + 'DIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVIL_2,' + + ' :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA_ALT' + + 'A, :FECHA_MODIFICACION, :USUARIO, '#10' :LOGOTIPO, :REGISTRO_MER' + + 'CANTIL, :ID_TIPO_IVA, :ID_FORMA_PAGO, '#10' :VALIDEZ_PRESUPUESTO' + + 'S, :PRECIO_PUNTO)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_Empresas' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datAutoInc + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'EMPRESAS' + SQL = 'DELETE '#10' FROM'#10' EMPRESAS'#10' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_Empresas' + end + item + Params = < + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + Value = '' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + Value = '' + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'TELEFONO_2' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'MOVIL_2' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'FAX' + DataType = datString + Size = 25 + Value = '' + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'EMAIL_2' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'NOTAS' + DataType = datMemo + Value = '' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + Value = '' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + Value = '' + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + Value = '' + end + item + Name = 'LOGOTIPO' + DataType = datBlob + Value = '' + end + item + Name = 'REGISTRO_MERCANTIL' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'ID_TIPO_IVA' + DataType = datInteger + Value = '' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + Value = '' + end + item + Name = 'VALIDEZ_PRESUPUESTOS' + DataType = datSmallInt + Value = '' + end + item + Name = 'PRECIO_PUNTO' + DataType = datCurrency + Value = '' + end + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'EMPRESAS' + SQL = + 'UPDATE EMPRESAS'#10' SET '#10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NO' + + 'MBRE, '#10' RAZON_SOCIAL = :RAZON_SOCIAL, '#10' CALLE = :CALLE, '#10' ' + + ' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' COD' + + 'IGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_1, '#10' ' + + ' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2' + + ' = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAI' + + 'L_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOT' + + 'AS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FE' + + 'CHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' LOGOTIPO = :LOGO' + + 'TIPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' ID_TIP' + + 'O_IVA = :ID_TIPO_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' ' + + 'VALIDEZ_PRESUPUESTOS = :VALIDEZ_PRESUPUESTOS, '#10' PRECIO_PUNTO ' + + '= :PRECIO_PUNTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_Empresas' + end> RelationShips = < item Name = 'FK_EmpresasTiendas_Empresas' @@ -962,4 +1325,15 @@ object srvEmpresas: TsrvEmpresas Left = 48 Top = 88 end + object bpEmpresas: TDABusinessProcessor + Schema = schEmpresas + InsertCommandName = 'Insert_Empresas' + DeleteCommandName = 'Delete_Empresas' + UpdateCommandName = 'Update_Empresas' + ReferencedDataset = 'Empresas' + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 264 + Top = 24 + end end diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas index e3c5ec3..b8dcf99 100644 --- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas +++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas @@ -24,6 +24,7 @@ type DABin2DataStreamer: TDABin2DataStreamer; schEmpresas: TDASchema; DataDictionary: TDADataDictionary; + bpEmpresas: TDABusinessProcessor; procedure DARemoteServiceCreate(Sender: TObject); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 9d7f06c..ab68290 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -65,55 +65,55 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 547af96..f44e3be 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3 index c396aa0..a9deb0b 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -23,13 +23,21 @@ - - - - - - + + + + + + + + + + + + + + diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3 index 017f8c4..df73445 100644 --- a/Source/Informes/2/InfAlbaranCliente.fr3 +++ b/Source/Informes/2/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -25,13 +25,22 @@ - - - - - - + + + + + + + + + + + + + + + diff --git a/Source/Informes/3/InfAlbaranCliente.fr3 b/Source/Informes/3/InfAlbaranCliente.fr3 index 017f8c4..efd75da 100644 --- a/Source/Informes/3/InfAlbaranCliente.fr3 +++ b/Source/Informes/3/InfAlbaranCliente.fr3 @@ -1,7 +1,8 @@ - + + @@ -25,13 +26,19 @@ - - - - - - + + + + + + + + + + + + @@ -59,5 +66,6 @@ + diff --git a/Source/Informes/4/InfAlbaranCliente.fr3 b/Source/Informes/4/InfAlbaranCliente.fr3 index c396aa0..219838d 100644 --- a/Source/Informes/4/InfAlbaranCliente.fr3 +++ b/Source/Informes/4/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -23,13 +23,19 @@ - - - - - - + + + + + + + + + + + + @@ -57,5 +63,7 @@ + + diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj index dac01d5..1491e59 100644 --- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj +++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj @@ -15,6 +15,7 @@ + @@ -171,14 +172,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 434fbc3..e6b8939 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -102,6 +102,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Name = 'OBSERVACIONES' DataType = datMemo end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency @@ -324,20 +340,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente 'CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFON' + 'O,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS' + ' MOVIL,'#10' ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENT' + - 'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' ALBARANES_' + - 'CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPR' + - 'ESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIA' + - 'L AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' ' + - 'EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBL' + - 'ACION AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EM' + - 'PRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.F' + - 'AX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPR' + - 'ESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA' + - '_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (' + - 'EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACT' + - 'OS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER' + - ' JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBAR' + - 'ANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10 + 'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARANES_C' + + 'LIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ALBAR' + + 'ANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10 + + ' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS ' + + 'NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS' + + '.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE' + + '_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' E' + + 'MPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS ' + + 'PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10 + + ' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMP' + + 'RESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_W' + + 'EB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN E' + + 'MPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER ' + + 'JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10 + + ' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONE' + + 'S.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.I' + + 'D = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -470,6 +489,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente DatasetField = 'REF_CLIENTE' TableField = '' SQLOrigin = 'REF_CLIENTE' + end + item + DatasetField = 'IMPORTE_NETO' + TableField = 'IMPORTE_NETO' + end + item + DatasetField = 'DESCUENTO' + TableField = 'DESCUENTO' + end + item + DatasetField = 'IMPORTE_DESCUENTO' + TableField = 'IMPORTE_DESCUENTO' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' end> end> Name = 'Informe_Cabecera' @@ -558,6 +593,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Name = 'OBSERVACIONES' DataType = datMemo end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency @@ -1097,7 +1148,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 40142.519712557870000000 + ReportOptions.LastChange = 41544.473509386570000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index 2af5b3f..76855e6 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -157,26 +157,27 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente end inherited pgPaginas: TPageControl Width = 781 - Height = 333 + Height = 418 TabOrder = 1 OnChanging = pgPaginasChanging ExplicitTop = 112 ExplicitWidth = 781 - ExplicitHeight = 333 + ExplicitHeight = 421 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 773 - ExplicitHeight = 305 + ExplicitHeight = 393 end object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 + ExplicitHeight = 393 inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente Left = 0 Top = 0 Width = 773 - Height = 305 + Height = 390 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -189,14 +190,50 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 773 - ExplicitHeight = 305 + ExplicitHeight = 393 inherited ToolBar1: TToolBar Width = 773 ExplicitWidth = 773 + inherited UpDown1: TUpDown + Left = 239 + ExplicitLeft = 239 + end + inherited ToolButton13: TToolButton + Left = 256 + ExplicitLeft = 256 + end + inherited ToolButton6: TToolButton + Left = 264 + ExplicitLeft = 264 + end + inherited ToolButton7: TToolButton + Left = 298 + ExplicitLeft = 298 + end + inherited ToolButton8: TToolButton + Left = 332 + ExplicitLeft = 332 + end + inherited ToolButton12: TToolButton + Left = 366 + ExplicitLeft = 366 + end + inherited ToolButton9: TToolButton + Left = 374 + ExplicitLeft = 374 + end + inherited ToolButton10: TToolButton + Left = 408 + ExplicitLeft = 408 + end + inherited ToolButton11: TToolButton + Left = 442 + ExplicitLeft = 442 + end end inherited cxGrid: TcxGrid Width = 773 - Height = 233 + Height = 318 ExplicitWidth = 773 ExplicitHeight = 321 end @@ -204,23 +241,23 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Width = 773 ExplicitWidth = 773 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 622 + ExplicitWidth = 719 end end + inherited cxRichEdit1: TcxRichEdit + Style.IsFontAssigned = True + end end end object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 + ExplicitHeight = 393 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 Width = 773 - Height = 305 + Height = 390 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -231,7 +268,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 773 - ExplicitHeight = 305 + ExplicitHeight = 393 inherited pnlSup: TPanel Width = 773 ExplicitWidth = 773 @@ -241,13 +278,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente end inherited GroupBox1: TGroupBox Width = 773 - Height = 277 + Height = 362 ExplicitWidth = 773 - ExplicitHeight = 277 + ExplicitHeight = 365 inherited eIncidencias: TcxDBMemo ExplicitWidth = 769 - ExplicitHeight = 260 - Height = 260 + ExplicitHeight = 348 + Height = 345 Width = 769 end end @@ -256,9 +293,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente end inline frViewTotales1: TfrViewTotales [4] Left = 0 - Top = 448 + Top = 533 Width = 787 - Height = 161 + Height = 76 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -268,16 +305,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ParentFont = False TabOrder = 5 ReadOnly = False - ExplicitTop = 448 + ExplicitTop = 533 ExplicitWidth = 787 - ExplicitHeight = 161 + ExplicitHeight = 76 inherited dxLayoutControl1: TdxLayoutControl Width = 787 - Height = 161 + Height = 76 Align = alClient LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 787 - ExplicitHeight = 161 + ExplicitHeight = 73 inherited Bevel3: TBevel Left = 377 Top = 11 @@ -395,6 +432,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited ePorte: TcxDBCurrencyEdit Left = 93 Top = 65 + Enabled = False Properties.OnValidate = frViewTotales1ePortePropertiesValidate Style.IsFontAssigned = True ExplicitLeft = 93 @@ -406,6 +444,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 93 Top = 92 DataBinding.DataField = '' + Enabled = False ExplicitLeft = 93 ExplicitTop = 92 ExplicitWidth = 121 @@ -414,6 +453,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited bTiposIVA: TButton Left = 229 Top = 92 + Enabled = False ExplicitLeft = 229 ExplicitTop = 92 end @@ -422,6 +462,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Top = 119 DataBinding.DataField = '' DataBinding.DataSource = nil + Enabled = False ExplicitLeft = 93 ExplicitTop = 119 ExplicitWidth = 259 @@ -434,9 +475,18 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Item9: TdxLayoutItem + Enabled = False Visible = False end end + inherited dxLayoutControl1Group6: TdxLayoutGroup + Enabled = False + Visible = False + end + inherited dxLayoutControl1Item16: TdxLayoutItem + Enabled = False + Visible = False + end end inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup @@ -445,6 +495,21 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Visible = False end end + inherited dxLayoutControl1Group9: TdxLayoutGroup + Enabled = False + Visible = False + end + inherited dxLayoutControl1Group1191: TdxLayoutGroup + Enabled = False + end + inherited dxLayoutControl1Group8: TdxLayoutGroup + Enabled = False + Visible = False + end + inherited dxLayoutControl1Item3: TdxLayoutItem + Enabled = False + Visible = False + end end end end @@ -455,6 +520,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Width = 787 ExplicitTop = 79 ExplicitWidth = 787 + inherited lbComentario: TLabel + Width = 777 + Height = 25 + end end inherited EditorActionList: TActionList [9] Left = 32 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index aa05c48..c0f2bdf 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm @@ -19,7 +19,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum Position = spFooter - Column = cxGridViewIMPORTE_TOTAL + Column = cxGridViewBASE_IMPONIBLE end> DataController.Summary.FooterSummaryItems = < item @@ -34,7 +34,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente item Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum - Column = cxGridViewIMPORTE_TOTAL + Column = cxGridViewBASE_IMPONIBLE end> OptionsCustomize.ColumnHidingOnGrouping = False OptionsView.GroupFooters = gfAlwaysVisible @@ -168,9 +168,25 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente BestFitMaxWidth = 25 VisibleForCustomization = False end - object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn - Caption = 'Importe total' - DataBinding.FieldName = 'IMPORTE_TOTAL' + object cxGridViewIMPORTE_NETO: TcxGridDBColumn + Caption = 'Importe neto' + DataBinding.FieldName = 'IMPORTE_NETO' + PropertiesClassName = 'TcxCurrencyEditProperties' + HeaderAlignmentHorz = taRightJustify + end + object cxGridViewDESCUENTO: TcxGridDBColumn + Caption = 'Dto' + DataBinding.FieldName = 'DESCUENTO' + HeaderAlignmentHorz = taRightJustify + end + object cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn + Caption = 'Importe descuento' + DataBinding.FieldName = 'IMPORTE_DESCUENTO' + HeaderAlignmentHorz = taRightJustify + end + object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn + Caption = 'Base imponible' + DataBinding.FieldName = 'BASE_IMPONIBLE' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify BestFitMaxWidth = 65 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas index 3e029de..b4705d7 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas @@ -49,7 +49,7 @@ type cxStylePENDIENTES: TcxStyle; cxStyleENVIADOS: TcxStyle; cxStyleSERVIDOS: TcxStyle; - cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; + cxGridViewBASE_IMPONIBLE: TcxGridDBColumn; actClientes: TAction; actAlmacenes: TAction; TBXItem2: TTBXItem; @@ -60,6 +60,9 @@ type cxStyleRETRASADOS: TcxStyle; cxGridViewTIENDA: TcxGridDBColumn; cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn; + cxGridViewIMPORTE_NETO: TcxGridDBColumn; + cxGridViewDESCUENTO: TcxGridDBColumn; + cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas index cb54e40..74b9d15 100644 --- a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas +++ b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas @@ -44,7 +44,7 @@ begin EditorRegistry.RegisterClass(TfEditorPersonal, 'EditorPersonalContacto'); EditorRegistry.RegisterClass(TfEditorElegirPersonaContacto, 'EditorElegirPersonaContacto'); - ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos'); +// ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos'); end; procedure UnregisterViews; @@ -73,7 +73,7 @@ begin EditorRegistry.UnRegisterClass(TfEditorPersonal); EditorRegistry.UnRegisterClass(TfEditorElegirPersonaContacto); - ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos); +// ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos); end; end. diff --git a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm index 209de27..ece9417 100644 --- a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm +++ b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm @@ -1,22 +1,25 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos - Height = 416 + Width = 586 + Height = 406 inherited Panel1: TPanel - ExplicitWidth = 424 + Width = 576 + ExplicitWidth = 422 inherited Label3: TLabel - Width = 429 + Width = 564 Caption = 'Configuraci'#243'n para clientes' ExplicitWidth = 166 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel + Width = 586 LabelCaption = 'Configuraci'#243'n para contactos' - ExplicitWidth = 434 + ExplicitWidth = 432 end object Panel3: TPanel AlignWithMargins = True Left = 5 Top = 68 - Width = 441 + Width = 576 Height = 133 Margins.Left = 5 Margins.Top = 0 @@ -26,7 +29,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos BevelOuter = bvNone ParentColor = True TabOrder = 2 - ExplicitWidth = 424 + ExplicitWidth = 422 object Label1: TLabel Left = 17 Top = 36 @@ -105,7 +108,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos AlignWithMargins = True Left = 5 Top = 223 - Width = 441 + Width = 576 Height = 130 Margins.Left = 5 Margins.Top = 0 @@ -115,7 +118,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos BevelOuter = bvNone ParentColor = True TabOrder = 3 - ExplicitWidth = 424 + ExplicitWidth = 422 object Label7: TLabel Left = 17 Top = 37 @@ -194,7 +197,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos AlignWithMargins = True Left = 5 Top = 201 - Width = 441 + Width = 576 Height = 22 Margins.Left = 5 Margins.Top = 0 @@ -218,11 +221,11 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos ParentBackground = False ParentFont = False TabOrder = 4 - ExplicitWidth = 424 + ExplicitWidth = 422 object Label6: TLabel Left = 6 Top = 4 - Width = 429 + Width = 564 Height = 14 Align = alTop Caption = 'Configuraci'#243'n para proveedores' diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 8c41e44..b27a421 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -325,6 +325,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 + end + item + Name = 'FACTURA_ASOCIADA' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 32f3940..437ae21 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_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_Valores = '{4E975748-969A-4FE9-BBD2-CC9D7B1CC40D}'; - RID_Propiedades = '{D68E9D8E-0FE2-47A8-A050-ACB95BF5AFAF}'; - RID_ListaAnosContratos = '{7D999AE9-F346-450E-AF32-20F0F0F25228}'; - RID_ContratosClienteBeneficios = '{15AA6996-23F8-4883-B18C-43F5168D8F3B}'; - RID_ContratosCliente = '{D19AE467-7980-4CF4-B273-2BDB037E7D84}'; - RID_TiposCapitulos = '{D18EC00D-ED0C-4BDD-BBC2-D2DE0794C1EF}'; - RID_ContratosCliente_Detalles = '{B7F0780D-5DEE-44BB-91E4-9D7B39A77425}'; + RID_Valores = '{85C69203-C88F-4A9D-AA12-DE1F6ACFD665}'; + RID_Propiedades = '{CB2E34C1-796F-448F-A4A6-846D624B852E}'; + RID_ListaAnosContratos = '{E6BA2538-34EE-4BC8-8856-A422852BFAAF}'; + RID_ContratosClienteBeneficios = '{38C0DE62-7B04-4DC8-8CD1-E58555EE0C8E}'; + RID_ContratosCliente = '{38FD388B-7CAE-48F3-B299-C815FDEFB7EC}'; + RID_TiposCapitulos = '{C6155131-527F-4917-9E35-588127E79C9F}'; + RID_ContratosCliente_Detalles = '{884DB417-09B0-45BE-98A0-BF118A908349}'; { Data table names } nme_Valores = 'Valores'; @@ -131,6 +131,7 @@ const fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; + fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA'; { ContratosCliente field indexes } idx_ContratosClienteID = 0; @@ -179,6 +180,7 @@ const idx_ContratosClientePERSONA_CONTACTO = 43; idx_ContratosClienteTIPO_CONTRATO = 44; idx_ContratosClienteREFERENCIA_CLIENTE = 45; + idx_ContratosClienteFACTURA_ASOCIADA = 46; { TiposCapitulos fields } fld_TiposCapitulosID = 'ID'; @@ -237,7 +239,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{E8AD85FE-0E64-418E-BA2A-9787E4F4F489}'] + ['{0189264B-8AD0-4068-8E27-FA6906AA8105}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -296,7 +298,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{69C96C55-8229-43B6-8D8C-5B5AD61C3165}'] + ['{29CC0CF4-C2C1-4C0D-B975-FAE4239194A8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -355,7 +357,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{F7CDB162-A98F-4A06-9412-29DC6A122C9E}'] + ['{06AFA59E-EE56-4C39-8BD3-3F12115F94A2}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -390,7 +392,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{01F28039-DF8B-4839-B3B0-8EE2E53D91E4}'] + ['{8EBBB0F4-9441-44BA-B2E3-1450D22BD87A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -581,7 +583,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{4960869A-BFBB-4CC7-85E1-86B6918D188F}'] + ['{56584CDC-67FF-4EE9-AED7-AA788EA382DA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -763,6 +765,10 @@ type procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetREFERENCIA_CLIENTEIsNull: Boolean; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); + function GetFACTURA_ASOCIADAValue: String; + procedure SetFACTURA_ASOCIADAValue(const aValue: String); + function GetFACTURA_ASOCIADAIsNull: Boolean; + procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); { Properties } @@ -858,6 +864,8 @@ type property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; + property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue; + property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; end; { TContratosClienteDataTableRules } @@ -1053,6 +1061,10 @@ type procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetFACTURA_ASOCIADAValue: String; virtual; + procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual; + function GetFACTURA_ASOCIADAIsNull: Boolean; virtual; + procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1147,6 +1159,8 @@ type property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; + property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue; + property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1159,7 +1173,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{BEF6D716-8772-4793-8AA9-E7C4C6426AFC}'] + ['{2376F69B-6893-4066-83C8-C5302031CB4C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1254,7 +1268,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{3EBE8691-1080-4B52-A2FC-67A44C2ACC76}'] + ['{0A8E4C29-8121-4FFF-BFCE-BCA46AB5F97E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2971,6 +2985,27 @@ begin DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null; end; +function TContratosClienteDataTableRules.GetFACTURA_ASOCIADAValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsString; +end; + +procedure TContratosClienteDataTableRules.SetFACTURA_ASOCIADAValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsString := aValue; +end; + +function TContratosClienteDataTableRules.GetFACTURA_ASOCIADAIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].IsNull; +end; + +procedure TContratosClienteDataTableRules.SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsVariant := Null; +end; + { TTiposCapitulosDataTableRules } constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index b60c10c..c17ce71 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_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_ValoresDelta = '{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}'; - RID_PropiedadesDelta = '{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}'; - RID_ListaAnosContratosDelta = '{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}'; - RID_ContratosClienteBeneficiosDelta = '{686A9966-2BF0-4D3B-A11D-77E9DEED5396}'; - RID_ContratosClienteDelta = '{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}'; - RID_TiposCapitulosDelta = '{4C4B88B8-967F-457E-BB65-9B3406F31242}'; - RID_ContratosCliente_DetallesDelta = '{336EDADB-89CC-4ABD-9861-C3441FA348C5}'; + RID_ValoresDelta = '{9149743D-AD7E-4B3D-BD91-811AA69C3A9D}'; + RID_PropiedadesDelta = '{BB4061A1-FBEA-4E8E-AF30-85D4DCAE4AB6}'; + RID_ListaAnosContratosDelta = '{35EDD3EF-F51E-4465-B7F8-17C52EE11522}'; + RID_ContratosClienteBeneficiosDelta = '{B057495F-3D21-47BA-B9A5-85BA36CDA2B0}'; + RID_ContratosClienteDelta = '{402BB40F-3E53-4941-A42D-3AFE9B181157}'; + RID_TiposCapitulosDelta = '{C3893479-3E86-4DFE-82F7-067CC2E61FB5}'; + RID_ContratosCliente_DetallesDelta = '{A169B5F1-0496-4515-98E8-A9BA0449FF62}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}'] + ['{9149743D-AD7E-4B3D-BD91-811AA69C3A9D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}'] + ['{BB4061A1-FBEA-4E8E-AF30-85D4DCAE4AB6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}'] + ['{35EDD3EF-F51E-4465-B7F8-17C52EE11522}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,7 +170,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{686A9966-2BF0-4D3B-A11D-77E9DEED5396}'] + ['{B057495F-3D21-47BA-B9A5-85BA36CDA2B0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -360,7 +360,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}'] + ['{402BB40F-3E53-4941-A42D-3AFE9B181157}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -408,6 +408,7 @@ type function GetOldPERSONA_CONTACTOValue : String; function GetOldTIPO_CONTRATOValue : String; function GetOldREFERENCIA_CLIENTEValue : String; + function GetOldFACTURA_ASOCIADAValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -456,6 +457,7 @@ type property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; + property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue; end; { TContratosClienteBusinessProcessorRules } @@ -743,6 +745,12 @@ type function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetFACTURA_ASOCIADAValue: String; virtual; + function GetFACTURA_ASOCIADAIsNull: Boolean; virtual; + function GetOldFACTURA_ASOCIADAValue: String; virtual; + function GetOldFACTURA_ASOCIADAIsNull: Boolean; virtual; + procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual; + procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -929,6 +937,10 @@ type property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; + property FACTURA_ASOCIADA : String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue; + property FACTURA_ASOCIADAIsNull : Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; + property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue; + property OldFACTURA_ASOCIADAIsNull : Boolean read GetOldFACTURA_ASOCIADAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -938,7 +950,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{4C4B88B8-967F-457E-BB65-9B3406F31242}'] + ['{C3893479-3E86-4DFE-82F7-067CC2E61FB5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -1032,7 +1044,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{336EDADB-89CC-4ABD-9861-C3441FA348C5}'] + ['{A169B5F1-0496-4515-98E8-A9BA0449FF62}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -3423,6 +3435,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null; end; +function TContratosClienteBusinessProcessorRules.GetFACTURA_ASOCIADAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA]; +end; + +function TContratosClienteBusinessProcessorRules.GetFACTURA_ASOCIADAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA]); +end; + +function TContratosClienteBusinessProcessorRules.GetOldFACTURA_ASOCIADAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFACTURA_ASOCIADA]; +end; + +function TContratosClienteBusinessProcessorRules.GetOldFACTURA_ASOCIADAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFACTURA_ASOCIADA]); +end; + +procedure TContratosClienteBusinessProcessorRules.SetFACTURA_ASOCIADAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := aValue; +end; + +procedure TContratosClienteBusinessProcessorRules.SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := Null; +end; + { TTiposCapitulosBusinessProcessorRules } constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index 038016f..8365446 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -455,6 +455,10 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'FACTURA_ASOCIADA' + TableField = 'FACTURA_ASOCIADA' end> end> Name = 'ContratosCliente' @@ -712,6 +716,11 @@ object srvContratosCliente: TsrvContratosCliente Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 + end + item + Name = 'FACTURA_ASOCIADA' + DataType = datString + Size = 255 end> end item diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm index 22d0c0e..561e1de 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm @@ -111,6 +111,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente HeaderAlignmentHorz = taRightJustify Width = 63 end + object cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn + Caption = 'Factura/s asociada/s' + DataBinding.FieldName = 'FACTURA_ASOCIADA' + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todos' @@ -471,17 +475,17 @@ inherited frViewContratosCliente: TfrViewContratosCliente inherited cxStyleRepository1: TcxStyleRepository Left = 216 Top = 160 - object cxStylePENDIENTES: TcxStyle + object cxStylePENDIENTESConFacturas: TcxStyle AssignedValues = [svTextColor] TextColor = clWindowText end - object cxStyleACEPTADO: TcxStyle - AssignedValues = [svTextColor] - TextColor = clGreen - end - object cxStyleRECHAZADO: TcxStyle + object cxStyleTERMINADO: TcxStyle AssignedValues = [svTextColor] TextColor = clGrayText end + object cxStylePENDIENTESSinFacturas: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end end end diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas index ae93cd8..61f94c4 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas @@ -31,16 +31,17 @@ type cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridLevelPendientes: TcxGridLevel; cxGridLevelTerminados: TcxGridLevel; - cxStylePENDIENTES: TcxStyle; - cxStyleACEPTADO: TcxStyle; + cxStylePENDIENTESConFacturas: TcxStyle; actCliente: TAction; TBXSeparatorItem2: TTBXSeparatorItem; TBXItem3: TTBXItem; cxGridViewNIF_CIF: TcxGridDBColumn; cxGridViewINCIDENCIAS: TcxGridDBColumn; - cxStyleRECHAZADO: TcxStyle; + cxStyleTERMINADO: TcxStyle; cxGridViewTIPO_CONTRATO: TcxGridDBColumn; cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn; + cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn; + cxStylePENDIENTESSinFacturas: TcxStyle; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; @@ -209,17 +210,26 @@ procedure TfrViewContratosCliente.cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableItem; out AStyle: TcxStyle); var IndiceCol: Integer; + IndiceCol2: Integer; ASituacion: string; + AFacturas: string; begin inherited; if Assigned(ARecord) then begin IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteSITUACION).Index; + IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteFACTURA_ASOCIADA).Index; ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); + AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]); if ASituacion = SITUACION_CONTRATO_PENDIENTE then - AStyle.TextColor := cxStylePENDIENTES.TextColor + begin + if (AFacturas = '') then + AStyle.TextColor := cxStylePENDIENTESSinFacturas.TextColor + else + AStyle.TextColor := cxStylePENDIENTESConFacturas.TextColor; + end else if ASituacion = SITUACION_CONTRATO_TERMINADO then - AStyle.TextColor := cxStyleRECHAZADO.TextColor + AStyle.TextColor := cxStyleTERMINADO.TextColor end; end; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index a71c14f..0b79af8 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -209,14 +209,22 @@ procedure TFacturasClienteController.ActualizarFormaDePago( var AFormasPago : IBizFormaPago; AFormasPagoController : IFormasPagoController; + bEnEdicion : Boolean; begin AFormasPagoController := TFormasPagoController.Create; AFormasPago := AFormasPagoController.Buscar(ID_FORMA_PAGO); AFormasPago.Open; + bEnEdicion := (AFactura.DataTable.State in dsEditModes); + if not bEnEdicion then + AFactura.Edit; + AFactura.ID_FORMA_PAGO := AFormasPago.ID; // AFactura.DataTable.FieldByName(fld_FacturasClienteFORMA_PAGO).AsString := AFormasPago.DESCRIPCION; + if not bEnEdicion then + AFactura.Post; + AFormasPago := NIL; AFormasPagoController := NIL; end; diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas index 6147255..04dff8b 100644 --- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas +++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas @@ -143,7 +143,7 @@ begin AFormasPago.DataTable.First; while not AFormasPago.DataTable.EOF do begin - Add(AFormasPago.DESCRIPCION); + Add(AFormasPago.REFERENCIA); AFormasPago.DataTable.Next; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index cc305b2..b5f7d2f 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -210,14 +210,22 @@ procedure TPresupuestosClienteController.ActualizarFormaDePago(APresupuesto: IBi var AFormasPago : IBizFormaPago; AFormasPagoController : IFormasPagoController; + bEnEdicion : Boolean; begin AFormasPagoController := TFormasPagoController.Create; AFormasPago := AFormasPagoController.Buscar(ID_FORMA_PAGO); AFormasPago.Open; + bEnEdicion := (APresupuesto.DataTable.State in dsEditModes); + if not bEnEdicion then + APresupuesto.Edit; + APresupuesto.ID_FORMA_PAGO := AFormasPago.ID; APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AFormasPago.DESCRIPCION; + if not bEnEdicion then + APresupuesto.Post; + AFormasPago := NIL; AFormasPagoController := NIL; end; diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas index 1cd3d7f..580db6d 100644 --- a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas +++ b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas @@ -66,14 +66,14 @@ begin AFactura.DESCUENTO := AContrato.DESCUENTO; AFactura.IMPORTE_DESCUENTO := AContrato.IMPORTE_DESCUENTO; AFactura.BASE_IMPONIBLE := AContrato.BASE_IMPONIBLE; -// AFactura.ID_TIPO_IVA := AContrato.ID_TIPO_IVA; -// AFactura.IVA := AContrato.IVA; -// AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA; + AFactura.ID_TIPO_IVA := AContrato.ID_TIPO_IVA; + AFactura.IVA := AContrato.IVA; + AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA; AFactura.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL; // AFactura.ID_VENDEDOR := AContrato.ID_VENDEDOR; -// AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA; -// AFactura.RE := AContrato.RE; -// AFactura.IMPORTE_RE := AContrato.IMPORTE_RE; + AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA; + AFactura.RE := AContrato.RE; + AFactura.IMPORTE_RE := AContrato.IMPORTE_RE; AFactura.ID_CONTRATO := AContrato.ID; AFactura.ID_FORMA_PAGO := AContrato.ID_FORMA_PAGO; end; @@ -201,7 +201,6 @@ begin AFactura.TIENDA := AppFactuGES.TiendaActiva.NOMBRE; CopiarContratoAFactura(AContrato, AFactura); AFactura.ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; //SIEMPRE SE ASIGNARÄ EL IVA DE LA EMPRESA ACTIVA - CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles); //Sustituir por if de guardar diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 5a48832..cc6259c 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -126,8 +126,6 @@ uses schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', - schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule}, uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule}, schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', @@ -140,6 +138,8 @@ uses schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', + schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', + schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas'; diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 44d51b1..d944488 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ