AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio solicitado en capitulos por mónica

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@24 40301925-124e-1c4e-b97d-170ad7a8785b
This commit is contained in:
roberto 2020-06-16 09:38:56 +00:00
parent 9b5276f700
commit d90bbb0871
9 changed files with 39 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Cliente/FactuGES.dproj
View File

@ -52,8 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

14
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -884,7 +884,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA);
if (ACadena <> '') then if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena); AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', false, AContrato.Detalles);
end; end;
teArmario: teArmario:
begin begin
@ -898,8 +898,8 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
if (ACadena <> '') then if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena); AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', false, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', false, AContrato.Detalles);
end; end;
teBano: teBano:
begin begin
@ -913,7 +913,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO);
if (ACadena <> '') then if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena); AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', false, AContrato.Detalles);
end; end;
teElectrodomestico: teElectrodomestico:
begin begin
@ -927,7 +927,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
if (ACadena <> '') then if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena); AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', false, AContrato.Detalles);
end; end;
teObra: teObra:
begin begin
@ -941,7 +941,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
if (ACadena <> '') then if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena); AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', false, AContrato.Detalles);
end; end;
teVarios: teVarios:
begin begin
@ -955,7 +955,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS);
if (ACadena <> '') then if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena); AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', false, AContrato.Detalles);
end; end;
end; end;
end; end;

19
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -170,51 +170,50 @@ end;
procedure TfrViewDetallesContratoCliente.actCapituloArmarioFExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloArmarioFExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true); AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloArmarioIExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloArmarioIExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true); AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloBanoExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloBanoExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true); AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloCocinaExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloCocinaExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', true); AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloElectrodomesticosExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloElectrodomesticosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true); AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloEncimerasExecute( procedure TfrViewDetallesContratoCliente.actCapituloEncimerasExecute(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERAS ', true); AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERAS ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloImportesExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloImportesExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', true); AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloObraExecute( procedure TfrViewDetallesContratoCliente.actCapituloObraExecute(
Sender: TObject); Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true); AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ');
end; end;
procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject); procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true); AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
end; end;
function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

18
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -912,8 +912,8 @@ begin
if (ACadena <> '') then if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena); APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); // (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles); // (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
end; end;
teArmario: teArmario:
begin begin
@ -924,8 +924,8 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
if (ACadena <> '') then if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena); APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', false, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', false, APresupuesto.Detalles);
end; end;
teBano: teBano:
begin begin
@ -936,8 +936,8 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO);
if (ACadena <> '') then if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena); APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', false, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); // (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', false, APresupuesto.Detalles);
end; end;
teElectrodomestico: teElectrodomestico:
begin begin
@ -948,7 +948,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
if (ACadena <> '') then if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena); APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', false, APresupuesto.Detalles);
end; end;
teObra: teObra:
begin begin
@ -959,7 +959,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
if (ACadena <> '') then if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena); APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', false, APresupuesto.Detalles);
end; end;
teVarios: teVarios:
begin begin
@ -970,7 +970,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS);
if (ACadena <> '') then if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena); APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', false, APresupuesto.Detalles);
end; end;
end; end;
end; end;

18
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -166,46 +166,46 @@ end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioFExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioFExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true); AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioIExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioIExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true); AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloBanoExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloBanoExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true); AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True); AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloCocinaExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloCocinaExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA '); AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True); // AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR '); // AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloElectrodomesticosExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloElectrodomesticosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true); AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloImportesExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloImportesExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', true); AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloObraExecute( procedure TfrViewDetallesPresupuestoCliente.actCapituloObraExecute(
Sender: TObject); Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true); AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ');
end; end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject);
begin begin
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true); AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
end; end;
function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

2
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -606,6 +606,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
object dxLayoutControl1Item16: TdxLayoutItem object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'Ref. remesa:' Caption = 'Ref. remesa:'
Enabled = False
Visible = False
Control = eRemesa Control = eRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

1
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
View File

@ -149,6 +149,7 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Caption = 'Ref. remesa' Caption = 'Ref. remesa'
DataBinding.FieldName = 'REFERENCIA_REMESA' DataBinding.FieldName = 'REFERENCIA_REMESA'
Visible = False Visible = False
VisibleForCustomization = False
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2(Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 26 de mayo de 2020 11:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2(Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 05 de junio de 2020 18:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.