diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index dcf8392..5cb61da 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 14d0b2f..e12df29 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -51,7 +51,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2840FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.4.0FactuGESFactuGES2.8.4.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2900FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.9.0.0FactuGESFactuGES2.9.0.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 17126f5..3cf2b51 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 175a673..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 5062650..c091a7d 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,15 +1,17 @@ - + - - - - - + + + + + + + - + @@ -17,7 +19,7 @@ - + @@ -28,14 +30,14 @@ - - + + - + diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3 index bca7342..58d7b7d 100644 --- a/Source/Informes/1/InfContratoCliente.fr3 +++ b/Source/Informes/1/InfContratoCliente.fr3 @@ -1,18 +1,20 @@ - + - - - - + + + + - + + + - + - + @@ -20,7 +22,7 @@ - + @@ -28,7 +30,7 @@ - + @@ -38,7 +40,7 @@ - + @@ -60,13 +62,13 @@ - - + + - + diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3 index 5a1b13d..340be7d 100644 --- a/Source/Informes/2/InfAlbaranCliente.fr3 +++ b/Source/Informes/2/InfAlbaranCliente.fr3 @@ -1,16 +1,18 @@ - + - - - - - + + + + + + + - + @@ -18,7 +20,7 @@ - + @@ -29,13 +31,13 @@ - - + + - + diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3 index b6cec21..ef34522 100644 --- a/Source/Informes/2/InfContratoCliente.fr3 +++ b/Source/Informes/2/InfContratoCliente.fr3 @@ -1,19 +1,21 @@ - + - - - + + + - - + + + + - + - + @@ -21,7 +23,7 @@ - + @@ -29,7 +31,7 @@ - + @@ -39,7 +41,7 @@ - + @@ -59,29 +61,29 @@ - + - + - + - + - + - + - - - + + + diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3 index fbb7249..278264b 100644 --- a/Source/Informes/2/InfPresupuestoCliente.fr3 +++ b/Source/Informes/2/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -58,7 +58,7 @@ - + @@ -72,16 +72,16 @@ - + - + - + - - - + + + diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3 index b6cec21..8928150 100644 --- a/Source/Informes/3/InfContratoCliente.fr3 +++ b/Source/Informes/3/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -59,7 +59,7 @@ - + @@ -72,16 +72,16 @@ - + - + - + - - - + + + diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3 index 7ffada8..278264b 100644 --- a/Source/Informes/3/InfPresupuestoCliente.fr3 +++ b/Source/Informes/3/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -58,7 +58,7 @@ - + @@ -72,16 +72,16 @@ - + - + - + - - - + + + diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3 index 40813c8..8928150 100644 --- a/Source/Informes/4/InfContratoCliente.fr3 +++ b/Source/Informes/4/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -39,48 +39,49 @@ - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - + - - + - + - + - - - + + + diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3 index dbb3375..278264b 100644 --- a/Source/Informes/4/InfPresupuestoCliente.fr3 +++ b/Source/Informes/4/InfPresupuestoCliente.fr3 @@ -1,9 +1,9 @@ - + - + @@ -39,48 +39,49 @@ - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - + - - + - + - + - - - + + + diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj index d43cb0c..11afccc 100644 --- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj +++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj @@ -11,6 +11,8 @@ + + @@ -191,14 +193,32 @@ + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index 43a9dfe..4e654aa 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -92,7 +92,7 @@ type implementation uses - SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, + SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils, uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas; { TBizAlbaranCliente } @@ -101,7 +101,7 @@ procedure TBizAlbaranCliente.CalcularBaseImponible; begin if not Self.DataTable.Editing then Edit; - IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); + IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100)); BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; end; @@ -126,7 +126,7 @@ procedure TBizAlbaranCliente.CalcularIVA; begin if not Self.DataTable.Editing then Edit; - IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); + IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE)); end; constructor TBizAlbaranCliente.Create(aDataTable: TDADataTable); @@ -242,9 +242,17 @@ begin if FCliente.ID_FORMA_PAGO > 0 then ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; -// Se establece un descuento especial general a petición de angelica + // Se establece un descuento especial general a petición de angelica DESCUENTO := FCliente.DESCUENTO; + CALLE := FCliente.CALLE; + POBLACION := FCliente.POBLACION; + CODIGO_POSTAL := FCliente.CODIGO_POSTAL; + PROVINCIA := FCliente.PROVINCIA; + PERSONA_CONTACTO := FCliente.NOMBRE; + TELEFONO := FCliente.TELEFONO_1; + + DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles //si se quita el id de la cabecera y los detalles se desincroniza if bEnEdicion then diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk index 8fe2fd5..a01738c 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk @@ -34,7 +34,21 @@ requires Almacenes_controller, AlbCli_FacCli_relation, rtl, - vcl; + vcl, + dbrtl, + vcldb, + DataAbstract_Core_D11, + dsnap, + adortl, + RemObjects_Core_D11, + cxLibraryD11, + dxThemeD11, + dxGDIPlusD11, + dxCoreD11, + vclx, + cxEditorsD11, + cxDataD11, + vcljpg; contains uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas', @@ -53,6 +67,7 @@ contains uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor}, uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView}, uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}, - uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: TForm}; + uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: T}, + uEditorDireccionEntregaAlbaranCliente in 'uEditorDireccionEntregaAlbaranCliente.pas' {fEditorDireccionEntregaAlbaranCliente: TCustomEditor}; end. diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj index 7623b2b..c4acd1d 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj @@ -43,26 +43,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - - - - - - - - - - - - - File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found @@ -74,16 +54,26 @@ MainSource - - - - - - - - - - + + + + + + + + + + + + + + + + + + + +
frDialogOpcionesImpresionAlbaranesCliente
@@ -109,6 +99,10 @@
fEditorAlbaranesDevCliente
TCustomEditor + +
fEditorDireccionEntregaAlbaraCliente
+ TCustomEditor +
fEditorElegirAlbaranesCliente
TfEditorElegirAlbaranesCliente @@ -149,6 +143,10 @@
frViewElegirArticulosAlbaranesCliente
TFrame + + + +