Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 2.1.5 repaso final con logo final de musaeda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1137 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2016-04-06 16:54:14 +00:00
parent d4a22d911d
commit ab28e20daa
34 changed files with 3599 additions and 2372 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/firma1-musaeda.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 57 KiB

BIN
Resources/Firmas Tecsitel/firma2-musaeda.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 49 KiB

BIN
Resources/Logotipos Tecsitel/MUSAEDA.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 24 KiB

BIN
Resources/Logotipos Tecsitel/logo-portada.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 98 KiB

BIN
Resources/Logotipos Tecsitel/logo-tecsitel-servicios-integrales.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 61 KiB

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,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">4</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.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></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">5</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.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,4,0 FILEVERSION 2,1,5,0
PRODUCTVERSION 2,1,4,0 PRODUCTVERSION 2,1,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.4.0\0" VALUE "FileVersion", "2.1.5.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.4.0\0" VALUE "ProductVersion", "2.1.5.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Informes/4/AlbaranCliente.rdx
View File

Binary file not shown.

BIN
Source/Informes/4/AlbaranProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/4/FacturaCliente.rdx
View File

Binary file not shown.

4
Source/Informes/4/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfAlbaranProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

9
Source/Informes/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/4/PedidoProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/4/Presupuesto.rdx
View File

Binary file not shown.

4
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -308,9 +308,9 @@ begin
end; end;
end; end;
//Solo para la empresa de azacan se debe elegir uno u otra firma //Solo para la empresa de azacan y musaeda se debe elegir uno u otra firma
//esto es un poco parche pero bueno //esto es un poco parche pero bueno
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) then if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) or (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 4) then
begin begin
if (FVerSello = 1) then if (FVerSello = 1) then
ReplaceBookmark('Firma2', '') ReplaceBookmark('Firma2', '')

2280
Source/Modulos/Presupuestos de cliente/Views/Copia de uDialogOpcionesImpresionPresupuestosCliente.dfm
View File

File diff suppressed because it is too large Load Diff

3
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -71,6 +71,7 @@ contains
uEditorVariarPrecios in 'uEditorVariarPrecios.pas' {fEditorVariarPrecios}, uEditorVariarPrecios in 'uEditorVariarPrecios.pas' {fEditorVariarPrecios},
uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail}, uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail},
uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente}, uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente},
uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan}; uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan},
uDialogOpcionesImpresionPresupuestosClienteMusaeda in 'uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas' {fDialogOpcionesImpresionPresupuestosClienteMusaeda};
end. end.

3
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -78,8 +78,9 @@
<Form>fDialogOpcionesImpresionPresupuestosCliente</Form> <Form>fDialogOpcionesImpresionPresupuestosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas"> <DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas">
<Form>fDialogOpcionesImpresionPresupuestosClienteAzaca</Form> <Form>fDialogOpcionesImpresionPresupuestosClienteAzacan</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas"> <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form> <Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

3476
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteMusaeda.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

22
Source/Modulos/Presupuestos de cliente/Views/Copia de uDialogOpcionesImpresionPresupuestosCliente.pas → Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas
View File

@ -1,4 +1,4 @@
unit uDialogOpcionesImpresionPresupuestosCliente; unit uDialogOpcionesImpresionPresupuestosClienteMusaeda;
interface interface
@ -7,7 +7,7 @@ uses
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses; Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses;
type type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase) TfDialogOpcionesImpresionPresupuestosClienteMusaeda = class(TfDialogBase)
Image1: TImage; Image1: TImage;
Image2: TImage; Image2: TImage;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
@ -19,17 +19,17 @@ type
FVerSello: Integer; FVerSello: Integer;
end; end;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean; function ElegirOpcionesImpresionPresupuestoClienteMusaeda(var AVerSello : Integer): Boolean;
implementation implementation
{$R *.dfm} {$R *.dfm}
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean; function ElegirOpcionesImpresionPresupuestoClienteMusaeda(var AVerSello : Integer): Boolean;
var var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente; AEditor : TfDialogOpcionesImpresionPresupuestosClienteMusaeda;
begin begin
AEditor := TfDialogOpcionesImpresionPresupuestosCliente.Create(NIL); AEditor := TfDialogOpcionesImpresionPresupuestosClienteMusaeda.Create(NIL);
try try
Result := (AEditor.ShowModal = mrOk); Result := (AEditor.ShowModal = mrOk);
if Result then if Result then
@ -41,26 +41,26 @@ begin
end; end;
end; end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.actAceptarExecute(Sender: TObject); procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.actAceptarExecute(Sender: TObject);
begin begin
inherited; inherited;
ModalResult := mrOk ModalResult := mrOk
end; end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.actCancelarExecute(Sender: TObject); procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.actCancelarExecute(Sender: TObject);
begin begin
inherited; inherited;
ModalResult := mrCancel; ModalResult := mrCancel;
end; end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.FormCreate( procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.FormCreate(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
FVerSello := 1; FVerSello := 1;
end; end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick( procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.Image1DblClick(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
@ -68,7 +68,7 @@ begin
actAceptar.Execute; actAceptar.Execute;
end; end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.Image2DblClick( procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.Image2DblClick(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;

94
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -224,72 +224,71 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton9: TToolButton
Left = 0
ExplicitLeft = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 145
ExplicitLeft = 145
end
inherited UpDown1: TUpDown
Left = 290
ExplicitLeft = 290
end
inherited ToolButton13: TToolButton
Left = 307
Wrap = False
ExplicitLeft = 307
ExplicitHeight = 22
end
inherited ToolButton6: TToolButton
Left = 315
Top = 22 Top = 22
ExplicitLeft = 315
ExplicitTop = 22 ExplicitTop = 22
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 381
Top = 22 Top = 22
Width = 200 Width = 200
ExplicitLeft = 381
ExplicitTop = 22 ExplicitTop = 22
ExplicitWidth = 200 ExplicitWidth = 200
end end
inherited UpDown1: TUpDown
Left = 345
Top = 22
ExplicitLeft = 345
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 362
Top = 22
ExplicitLeft = 362
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 370
Top = 22
ExplicitLeft = 370
ExplicitTop = 22
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 581 Left = 436
Top = 22 Top = 22
ExplicitLeft = 581 ExplicitLeft = 436
ExplicitTop = 22
end
inherited ToolButton11: TToolButton
Left = 648
Top = 22
ExplicitLeft = 648
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 789
Top = 22
Wrap = False
ExplicitLeft = 789
ExplicitTop = 22
ExplicitHeight = 22
end
inherited ToolButton10: TToolButton
Left = 797
Top = 22
ExplicitLeft = 797
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 922 Left = 503
Top = 22 Top = 22
ExplicitLeft = 922 ExplicitLeft = 503
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 586
Top = 22
ExplicitLeft = 586
ExplicitTop = 22
end
inherited ToolButton9: TToolButton
Left = 594
Top = 22
ExplicitLeft = 594
ExplicitTop = 22
end
inherited ToolButton10: TToolButton
Left = 739
Top = 22
ExplicitLeft = 739
ExplicitTop = 22
end
inherited ToolButton11: TToolButton
Left = 864
Top = 22
ExplicitLeft = 864
ExplicitTop = 22 ExplicitTop = 22
end end
end end
@ -304,7 +303,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 46
Width = 750 Width = 750
ExplicitTop = 73
ExplicitWidth = 750 ExplicitWidth = 750
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 750 ExplicitWidth = 750

8
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -110,7 +110,8 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils, uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils,
uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan; uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda;
{$R *.dfm} {$R *.dfm}
@ -395,6 +396,11 @@ begin
//solo para empresa Azacan //solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello); bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar and Assigned(FPresupuesto) then if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then if not Modified then
FController.Preview(FPresupuesto, False, AVerSello); FController.Preview(FPresupuesto, False, AVerSello);

1
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente' Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805 ClientWidth = 805
ExplicitWidth = 813 ExplicitWidth = 813
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

17
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -105,6 +105,7 @@ uses
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs, uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
uDBSelectionListUtils, uGridStatusUtils, uDialogOpcionesImpresionPresupuestosCliente, uDBSelectionListUtils, uGridStatusUtils, uDialogOpcionesImpresionPresupuestosCliente,
uDialogOpcionesImpresionPresupuestosClienteAzacan, uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda,
uGenerarFacturasCliPreCliUtils, uEditorFechaDecision, uGenerarFacturasCliPreCliUtils, uEditorFechaDecision,
// uBizAlbaranesCliente, uAlbaranesClienteController, // uBizAlbaranesCliente, uAlbaranesClienteController,
// uFacturasClienteController, uBizFacturasCliente, // uFacturasClienteController, uBizFacturasCliente,
@ -246,6 +247,12 @@ begin
if not ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello) then if not ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello) then
exit; exit;
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
if (AppFactuGES.EmpresaActiva.ID = 4) then
if not ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello) then
exit;
if ViewGrid.NumSeleccionados = 1 then if ViewGrid.NumSeleccionados = 1 then
FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello) FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
// FController.EnviarPresupuestoPorEMail(FPresupuestos) // FController.EnviarPresupuestoPorEMail(FPresupuestos)
@ -558,6 +565,11 @@ begin
//solo para empresa Azacan //solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello); bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then if bPrevisualizar and Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems, AVerSello); FController.Print(APresupuestos, AllItems, AVerSello);
end; end;
@ -640,6 +652,11 @@ begin
//solo para empresa Azacan //solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello); bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then if bPrevisualizar and Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems, AVerSello); FController.Preview(APresupuestos, AllItems, AVerSello);
end; end;

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm
View File

@ -1,5 +1,7 @@
inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview
Caption = 'Previsualizar el pedidos proveedor' Caption = 'Previsualizar el pedidos proveedor'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

8
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
View File

@ -25,7 +25,8 @@ implementation
uses uses
uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils, uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils,
uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan; uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda;
procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObject); procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObject);
var var
@ -51,6 +52,11 @@ begin
//solo para empresa Azacan //solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello); bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Muesaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar then if bPrevisualizar then
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,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 Name="RunParams">/standalone</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">4</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.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 17 de marzo de 2016 12:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</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">5</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.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 06 de abril de 2016 18:08</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,4,0 FILEVERSION 2,1,5,0
PRODUCTVERSION 2,1,4,0 PRODUCTVERSION 2,1,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.4.0\0" VALUE "FileVersion", "2.1.5.0\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.4.0\0" VALUE "ProductVersion", "2.1.5.0\0"
VALUE "CompileDate", "jueves, 31 de marzo de 2016 13:52\0" VALUE "CompileDate", "miércoles, 06 de abril de 2016 18:32\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"