diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 3df9276..4baa6d6 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index e114aa4..30cceca 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -51,27 +51,6 @@ - - - - - - - - - - - - - - - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components diff --git a/Source/Base/Configuracion/uTypesConstConfiguration.pas b/Source/Base/Configuracion/uTypesConstConfiguration.pas new file mode 100644 index 0000000..e72a310 --- /dev/null +++ b/Source/Base/Configuracion/uTypesConstConfiguration.pas @@ -0,0 +1,74 @@ +unit uTypesConstConfiguration; + +interface + +const + CTE_COCINA = 'Cocina'; + CTE_BANO = 'Baño'; + CTE_ARMARIO = 'Armarios'; + CTE_ELECTRODOMESTICO = 'Electrodomésticos'; + CTE_VARIOS = 'Varios'; + + + CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA'; + CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA'; + CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA'; + CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA'; + + CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO'; + CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO'; + CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO'; + CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO'; + + CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO'; + CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO'; + CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO'; + CTE_CONDICIONES_BANO = 'CONDICIONES_BANO'; + + CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO'; + CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO'; + CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO'; + CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO'; + + CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS'; + CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS'; + CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS'; + CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS'; + + CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA'; + CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA'; + CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA'; + CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA'; + + CTE_FORMA_PAGO_PRESUPUESTOS = 'FORMA_PAGO_PRESUPUESTOS'; + CTE_PLAZOS_ENTREGA_PRESUPUESTOS = 'PLAZOS_ENTREGA_PRESUPUESTOS'; + CTE_OBSERVACIONES_PRESUPUESTOS = 'OBSERVACIONES_PRESUPUESTOS'; + CTE_CONDICIONES_PRESUPUESTOS = 'CONDICIONES_PRESUPUESTOS'; + + CTE_FORMA_PAGO_CONTRATOS = 'FORMA_PAGO_CONTRATOS'; + CTE_PLAZOS_ENTREGA_CONTRATOS = 'PLAZOS_ENTREGA_CONTRATOS'; + CTE_OBSERVACIONES_CONTRATOS = 'OBSERVACIONES_CONTRATOS'; + CTE_CONDICIONES_CONTRATOS = 'CONDICIONES_CONTRATOS'; + + CTE_FORMA_PAGO_ALBARANES = 'FORMA_PAGO_ALBARANES'; + CTE_PLAZOS_ENTREGA_ALBARANES = 'PLAZOS_ENTREGA_ALBARANES'; + CTE_OBSERVACIONES_ALBARANES = 'OBSERVACIONES_ALBARANES'; + CTE_CONDICIONES_ALBARANES = 'CONDICIONES_ALBARANES'; + + CTE_FORMA_PAGO_FACTURAS = 'FORMA_PAGO_FACTURAS'; + CTE_PLAZOS_ENTREGA_FACTURAS = 'PLAZOS_ENTREGA_FACTURAS'; + CTE_OBSERVACIONES_FACTURAS = 'OBSERVACIONES_FACTURAS'; + CTE_CONDICIONES_FACTURAS = 'CONDICIONES_FACTURAS'; + + CTE_FORMA_PAGO_PEDIDOS = 'FORMA_PAGO_PEDIDOS'; + CTE_PLAZOS_ENTREGA_PEDIDOS = 'PLAZOS_ENTREGA_PEDIDOS'; + CTE_OBSERVACIONES_PEDIDOS = 'OBSERVACIONES_PEDIDOS'; + CTE_CONDICIONES_PEDIDOS = 'CONDICIONES_PEDIDOS'; + +type + TEnumAlmacen = (teXML, teBD); + TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios); + +implementation + +end. diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 750ee0c..5d31da4 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\TrueFalse3500FalseFalseFalseFalseFalse30821252Rodax Software S.L.3.5.0.0FactuGESFactuGES3.5.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse3600FalseFalseFalseFalseFalse30821252Rodax Software S.L.3.6.0.0FactuGESFactuGES3.6.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 5744347..11a9186 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Informes/1/InformeIVAProveedores.fr3 b/Source/Informes/1/InformeIVAProveedores.fr3 index 9a5973d..01b2d23 100644 --- a/Source/Informes/1/InformeIVAProveedores.fr3 +++ b/Source/Informes/1/InformeIVAProveedores.fr3 @@ -1,5 +1,5 @@ - + @@ -13,46 +13,48 @@ - - - - - - - + + + + + + + - - - - - + + + + + + - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - + + + + + - - + + @@ -85,7 +87,7 @@ - + diff --git a/Source/Informes/1/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/1/InformeIVAProveedoresDesglosado.fr3 index 72a690c..8f459af 100644 --- a/Source/Informes/1/InformeIVAProveedoresDesglosado.fr3 +++ b/Source/Informes/1/InformeIVAProveedoresDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -15,31 +15,32 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - + + + + + - + @@ -73,7 +74,7 @@ - + @@ -93,18 +94,19 @@ - - - - - - - - - - - - + + + + + + + + + + + + + diff --git a/Source/Informes/1/InformeListadoFacturasProveedor.fr3 b/Source/Informes/1/InformeListadoFacturasProveedor.fr3 index 4ecc85e..3f6707e 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedor.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -23,7 +23,7 @@ - + @@ -43,7 +43,7 @@ - + diff --git a/Source/Informes/InformeIVAProveedores.fr3 b/Source/Informes/InformeIVAProveedores.fr3 index db748c1..2aabfd2 100644 --- a/Source/Informes/InformeIVAProveedores.fr3 +++ b/Source/Informes/InformeIVAProveedores.fr3 @@ -1,5 +1,5 @@ - + @@ -7,52 +7,54 @@ - + - - - - - - - + + + + + + + - - - - - + + + + + + - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - + + + + + - - + + @@ -85,7 +87,7 @@ - + diff --git a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/InformeIVAProveedoresDesglosado.fr3 index 8d941a5..38b347f 100644 --- a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 +++ b/Source/Informes/InformeIVAProveedoresDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -15,32 +15,33 @@ - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - + + + + + - - + + @@ -73,7 +74,7 @@ - + @@ -93,18 +94,19 @@ - - - - - - - - - - - - + + + + + + + + + + + + + diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas index 54fadaa..cf5d78c 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas @@ -13,11 +13,17 @@ type procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; + + procedure SetPrecioPunto (const AValue: Currency); + function GetPrecioPunto: Currency; + property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto; end; TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController) private FDataModule : IDataModuleAlbaranesCliente; + FPrecioPunto: Currency; + protected // procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; @@ -30,11 +36,15 @@ type procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; + function GetPrecioPunto: Currency; + procedure SetPrecioPunto(const Value: Currency); + public procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; constructor Create; override; destructor Destroy; override; + property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto; end; implementation @@ -114,6 +124,7 @@ constructor TDetallesAlbaranClienteController.Create; begin inherited; FDataModule := TDataModuleAlbaranesCliente.Create(Nil); + FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO; end; function TDetallesAlbaranClienteController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; @@ -134,6 +145,11 @@ begin end; +function TDetallesAlbaranClienteController.GetPrecioPunto: Currency; +begin + Result := FPrecioPunto; +end; + procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); var ACadena : String; @@ -152,6 +168,12 @@ begin ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0; end; +procedure TDetallesAlbaranClienteController.SetPrecioPunto(const Value: Currency); +begin + FPrecioPunto := Value; + FArticulosController.PrecioPunto := FPrecioPunto; +end; + procedure TDetallesAlbaranClienteController.ValidarCampos(DataTable: TDADataTable); begin inherited; @@ -162,7 +184,7 @@ procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStron begin if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then - ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO) + ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * FPrecioPunto) else ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; end; diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj index 18e6430..f1892d5 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj @@ -43,6 +43,14 @@ 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 @@ -54,32 +62,39 @@ MainSource - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + +
frDialogOpcionesImpresionAlbaranesCliente
T - + +
frDialogOpcionesImpresionEtiquetasAlbaranesCliente
+ T +
fEditorAlbaranCliente
TfEditorAlbaranCliente @@ -144,10 +159,6 @@
frViewElegirArticulosAlbaranesCliente
TFrame - - - -