diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 426db58..a7992d3 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -58,55 +58,55 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3
index adcf576..0817ed3 100644
--- a/Source/Informes/1/InfContratoCliente.fr3
+++ b/Source/Informes/1/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -62,12 +62,14 @@
-
+
+
+
diff --git a/Source/Informes/1/InfReciboCliente.fr3 b/Source/Informes/1/InfReciboCliente.fr3
index ac32424..f566830 100644
--- a/Source/Informes/1/InfReciboCliente.fr3
+++ b/Source/Informes/1/InfReciboCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -14,21 +14,19 @@
-
-
-
-
+
+
-
-
+
+
-
-
+
+
@@ -40,27 +38,27 @@
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
@@ -68,7 +66,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
index 17bf0c1..39cd2d2 100644
--- a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
+++ b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
@@ -1,63 +1,63 @@
-
+
-
-
+
+
-
+
-
+
-
-
+
+
-
+
-
+
-
+
-
-
+
+
-
+
-
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
-
-
+
+
-
-
-
+
+
+
-
+
diff --git a/Source/Informes/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/InformeListadoRecibosCliPendientes.fr3
index 30fabe9..78408ac 100644
--- a/Source/Informes/InformeListadoRecibosCliPendientes.fr3
+++ b/Source/Informes/InformeListadoRecibosCliPendientes.fr3
@@ -1,5 +1,5 @@
-
+
@@ -17,24 +17,26 @@
-
-
-
-
+
+
+
+
+
-
-
-
-
+
+
+
+
-
+
+
-
-
+
+
diff --git a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
index db3f151..29fe803 100644
--- a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
+++ b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -17,24 +17,26 @@
-
-
+
+
-
+
+
-
+
-
-
+
+
-
+
+
-
-
+
+
diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
index 99f86d0..b9fa832 100644
--- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
@@ -387,7 +387,6 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos para facturaci'#243'n'
- Visible = False
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
index c1239d3..c085391 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
@@ -84,7 +84,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
+ Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
end;
function TBizContratosClienteServer.IncrementarReferencia: Boolean;
@@ -99,7 +99,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
+ Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
end;
initialization
diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
index fdf47b8..186aa91 100644
--- a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
+++ b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
@@ -66,7 +66,6 @@ object fEditorFormaPago: TfEditorFormaPago
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
- Visible = False
end
object Bevel3: TBevel
Left = 113
@@ -74,7 +73,6 @@ object fEditorFormaPago: TfEditorFormaPago
Width = 272
Height = 10
Shape = bsBottomLine
- Visible = False
end
object Bevel4: TBevel
Left = 8
@@ -134,7 +132,6 @@ object fEditorFormaPago: TfEditorFormaPago
Height = 23
Action = actAnadir
TabOrder = 2
- Visible = False
end
object bEliminar: TButton
Left = 290
@@ -143,7 +140,6 @@ object fEditorFormaPago: TfEditorFormaPago
Height = 23
Action = actEliminar
TabOrder = 3
- Visible = False
end
object ListaFormasPago: TcxGrid
Left = 32
@@ -151,7 +147,6 @@ object fEditorFormaPago: TfEditorFormaPago
Width = 252
Height = 150
TabOrder = 1
- Visible = False
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
object ListaFormasPagoDBTableView1: TcxGridDBTableView
diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
index 6f1606d..e54cf23 100644
--- a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
+++ b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
@@ -155,7 +155,7 @@ procedure TfEditorFormaPago.actAceptarExecute(Sender: TObject);
begin
if (ListaFormasPago.ActiveView.DataController.RecordCount = 0) then
if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then
- Exit;
+ Exit;
if FController.Guardar(FFormaPago) then
actCerrar.Execute;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
index c22a839..256ca25 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
@@ -84,7 +84,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
+ Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
end;
function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
@@ -99,7 +99,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
+ Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
end;
initialization
diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
index c0e363a..429f68b 100644
--- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
+++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
@@ -272,8 +272,10 @@ object RptRecibosCliente: TRptRecibosCliente
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF ' +
'as NIF_CIF_CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TO' +
- 'TAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by ANO, MES, NOM' +
- 'BRE_CLIENTE'#10
+ 'TAL, COALESCE(ENTIDAD_CLIENTE || '#39'-'#39' || SUCURSAL_CLIENTE || '#39'-'#39' ' +
+ '|| DC_CLIENTE || '#39'-'#39' || CUENTA_CLIENTE,'#39'SIN DATOS'#39') as CUENTA_CL' +
+ 'IENTE'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by ANO, MES, N' +
+ 'OMBRE_CLIENTE'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -323,6 +325,10 @@ object RptRecibosCliente: TRptRecibosCliente
item
DatasetField = 'ANO'
TableField = 'ANO'
+ end
+ item
+ DatasetField = 'CUENTA_CLIENTE'
+ TableField = 'CUENTA_CLIENTE'
end>
end>
Name = 'InformeListadoRecibos'
@@ -379,6 +385,11 @@ object RptRecibosCliente: TRptRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 63
end>
end
item
@@ -913,21 +924,15 @@ object RptRecibosCliente: TRptRecibosCliente
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'
+ PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
- ReportOptions.CreateDate = 37871.995398692100000000
- ReportOptions.Description.Strings = (
- 'Demonstrates how to create simple list report.')
- ReportOptions.LastChange = 39638.693800335650000000
- ReportOptions.VersionBuild = '1'
- ReportOptions.VersionMajor = '12'
- ReportOptions.VersionMinor = '13'
- ReportOptions.VersionRelease = '1'
+ ReportOptions.CreateDate = 37800.807714351900000000
+ ReportOptions.LastChange = 41421.674181423610000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
+ OnStartReport = 'frxReportOnStartReport'
Left = 169
Top = 16
end
@@ -998,6 +1003,10 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ANO'
+ DataType = datSmallInt
+ end
item
Name = 'MES'
DataType = datSmallInt
@@ -1042,6 +1051,11 @@ object RptRecibosCliente: TRptRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
+ end
+ item
+ Name = 'CUENTA_CLIENTE'
+ DataType = datString
+ Size = 63
end>
Params = <>
LogChanges = False
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 40010fb..b0f0992 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -30,7 +30,6 @@
FalseTrueFalseTrueFalse2580FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.8.0FactuGES (Servidor)2.5.8.0lunes, 20 de mayo de 2013 10:48
-
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES_Server.dpr