diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index d7b8fb98..41146033 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -3512,13 +3512,14 @@ SELECT
EMPRESAS_DATOS_BANCO.CUENTA,
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
- SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
+ SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0)) as IMPORTE_TOTAL
+/* SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL */
FROM
REMESAS_CLIENTE
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
- LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
+/* LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)*/
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17
;
@@ -3560,13 +3561,14 @@ SELECT
EMPRESAS_DATOS_BANCO.CUENTA,
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
- SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
+ SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0)) as IMPORTE_TOTAL
+/* SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL */
FROM
REMESAS_PROVEEDOR
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
- LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
+/* LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) */
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17
;
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 178ea54e..34adf172 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2160FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.6.0FactuGESFactuGES2.1.6.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2190FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.9.0FactuGESFactuGES2.1.9.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index a3f4148b..dafb16bb 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,1,6,0
-PRODUCTVERSION 2,1,6,0
+FILEVERSION 2,1,9,0
+PRODUCTVERSION 2,1,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.1.6.0\0"
+ VALUE "FileVersion", "2.1.9.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.1.6.0\0"
+ VALUE "ProductVersion", "2.1.9.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index fdd5115c..0fde2b86 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/5/AlbaranCliente.rdx b/Source/Informes/5/AlbaranCliente.rdx
new file mode 100644
index 00000000..f60b1e7f
Binary files /dev/null and b/Source/Informes/5/AlbaranCliente.rdx differ
diff --git a/Source/Informes/5/AlbaranProveedor.rdx b/Source/Informes/5/AlbaranProveedor.rdx
new file mode 100644
index 00000000..47425c71
Binary files /dev/null and b/Source/Informes/5/AlbaranProveedor.rdx differ
diff --git a/Source/Informes/5/FacturaCliente.rdx b/Source/Informes/5/FacturaCliente.rdx
new file mode 100644
index 00000000..dbc50fc7
Binary files /dev/null and b/Source/Informes/5/FacturaCliente.rdx differ
diff --git a/Source/Informes/5/InfAlbaranCliente.fr3 b/Source/Informes/5/InfAlbaranCliente.fr3
index 17a452c6..b8d07bb1 100644
--- a/Source/Informes/5/InfAlbaranCliente.fr3
+++ b/Source/Informes/5/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -19,7 +19,7 @@
-
+
diff --git a/Source/Informes/5/InfAlbaranProveedor.fr3 b/Source/Informes/5/InfAlbaranProveedor.fr3
index 24b22172..3c6fc3af 100644
--- a/Source/Informes/5/InfAlbaranProveedor.fr3
+++ b/Source/Informes/5/InfAlbaranProveedor.fr3
@@ -1,12 +1,12 @@
-
+
-
+
-
+
@@ -22,9 +22,9 @@
-
+
-
+
@@ -50,9 +50,7 @@
-
-
-
+
diff --git a/Source/Informes/5/InfFacturaCliente.fr3 b/Source/Informes/5/InfFacturaCliente.fr3
index 13f2fc95..438129dc 100644
--- a/Source/Informes/5/InfFacturaCliente.fr3
+++ b/Source/Informes/5/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -15,7 +15,7 @@
-
+
diff --git a/Source/Informes/5/InfPresupuestoCliente.fr3 b/Source/Informes/5/InfPresupuestoCliente.fr3
index 60b966ec..f42563fd 100644
--- a/Source/Informes/5/InfPresupuestoCliente.fr3
+++ b/Source/Informes/5/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -14,11 +14,11 @@
-
+
-
+
@@ -37,7 +37,7 @@
-
+
@@ -71,7 +71,7 @@
-
+
@@ -87,7 +87,7 @@
-
+
@@ -96,7 +96,7 @@
-
+
diff --git a/Source/Informes/5/PedidoProveedor.rdx b/Source/Informes/5/PedidoProveedor.rdx
new file mode 100644
index 00000000..3f214d1b
Binary files /dev/null and b/Source/Informes/5/PedidoProveedor.rdx differ
diff --git a/Source/Informes/5/Presupuesto.rdx b/Source/Informes/5/Presupuesto.rdx
new file mode 100644
index 00000000..620b6331
Binary files /dev/null and b/Source/Informes/5/Presupuesto.rdx differ
diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas
index d9f36e2c..600c818b 100644
--- a/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas
@@ -247,18 +247,29 @@ begin
ReplaceBookmark('NotasAlbaran', FieldByName('OBSERVACIONES').AsString);
- if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
- begin
+ if BookmarkExists('NombreEmpresa') then
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+
+ if BookmarkExists('NombreEmpresa2') then
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
+
+ if BookmarkExists('CifEmpresa') then
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+
+ if BookmarkExists('DireccionEmpresa') then
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
+
+ if BookmarkExists('TelefonoEmpresa') then
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
+
+ if BookmarkExists('FaxEmpresa') then
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
+
+ if BookmarkExists('CorreoEmpresa') then
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_2').AsString); // En el email_2 est la direccin que se usar para proveedores (ticket #1433)
- end;
+
end;
Result := True;
end;
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
index c7145a5b..7b0232ba 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
@@ -241,18 +241,29 @@ begin
ReplaceBookmark('NotasPedido', FieldByName('OBSERVACIONES').AsString);
- if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
- begin
+ if BookmarkExists('NombreEmpresa') then
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+
+ if BookmarkExists('NombreEmpresa2') then
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
- ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+
+ if BookmarkExists('CifEmpresa') then
+ ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+
+ if BookmarkExists('DireccionEmpresa') then
ReplaceBookmark('DireccionEmpresa',
- Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
- tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
- ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
- ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
- ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_2').AsString); // En el email_2 est la direccin que se usar para proveedores (ticket #1433)
- end;
+ Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
+ tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
+
+ if BookmarkExists('TelefonoEmpresa') then
+ ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
+
+ if BookmarkExists('FaxEmpresa') then
+ ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
+
+ if BookmarkExists('CorreoEmpresa') then
+ ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_2').AsString); // En el email_2 est la direccin que se usar para proveedores (ticket #1433)
+
end;
Result := True;
end;
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
index aad7a367..c9be0e6a 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
@@ -483,6 +483,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Compensado en recibo'
+ Visible = False
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Ref. recibo:'
Control = rRefReciboCompensado
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
index c3f5dfc6..bd8991eb 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
@@ -540,6 +540,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
object dxLayoutControl1Group9: TdxLayoutGroup
Caption = 'Compensado en recibo'
+ Visible = False
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Ref. recibo:'
Control = rRefReciboCompensado
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index e4cafb8c..2ab04a7a 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 51ea9bbf..fa3012bb 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse2170FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.7.0FactuGES Servidor2.1.7.0jueves, 02 de febrero de 2017 17:52
+ FalseTrueFalse/standaloneTrueFalse2190FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.9.0FactuGES Servidor2.1.9.0miércoles, 31 de enero de 2018 15:23
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index f798368a..16b6920a 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
-FILEVERSION 2,1,7,0
-PRODUCTVERSION 2,1,7,0
+FILEVERSION 2,1,9,0
+PRODUCTVERSION 2,1,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.1.7.0\0"
+ VALUE "FileVersion", "2.1.9.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
- VALUE "ProductVersion", "2.1.7.0\0"
- VALUE "CompileDate", "martes, 13 de junio de 2017 16:20\0"
+ VALUE "ProductVersion", "2.1.9.0\0"
+ VALUE "CompileDate", "jueves, 22 de febrero de 2018 11:44\0"
END
END
BLOCK "VarFileInfo"