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

Mensaje de confirmación después de exportar un documento a Word.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@581 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-08 16:13:20 +00:00
parent 1603210f50
commit 76fdc13308
11 changed files with 74 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
Source/Base/Base.dproj
View File

@ -53,58 +53,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\Informes\adortl.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\Informes\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\Informes\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" /> <DCCReference Include="..\Informes\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Informes\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" /> <DCCReference Include="..\Informes\cxGridD11.dcp" />
<DCCReference Include="..\cxIntl6D11.dcp" /> <DCCReference Include="..\Informes\cxIntl6D11.dcp" />
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Informes\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\Informes\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" /> <DCCReference Include="..\Informes\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Informes\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\Informes\dbrtl.dcp" />
<DCCReference Include="..\dclIndyCore.dcp" /> <DCCReference Include="..\Informes\dclIndyCore.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\Informes\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\Informes\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Informes\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" /> <DCCReference Include="..\Informes\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\Informes\dxThemeD11.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" /> <DCCReference Include="..\Informes\GUISDK_D11.dcp" />
<DCCReference Include="..\IndyCore.dcp" /> <DCCReference Include="..\Informes\IndyCore.dcp" />
<DCCReference Include="..\IndyProtocols.dcp" /> <DCCReference Include="..\Informes\IndyProtocols.dcp" />
<DCCReference Include="..\IndySystem.dcp" /> <DCCReference Include="..\Informes\IndySystem.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="..\Informes\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="..\Informes\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" /> <DCCReference Include="..\Informes\JSDialog100.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" /> <DCCReference Include="..\Informes\JvCmpD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="..\Informes\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvDlgsD11R.dcp" /> <DCCReference Include="..\Informes\JvDlgsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" /> <DCCReference Include="..\Informes\JvMMD11R.dcp" />
<DCCReference Include="..\JvNetD11R.dcp" /> <DCCReference Include="..\Informes\JvNetD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Informes\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Informes\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="..\Informes\JvSystemD11R.dcp" />
<DCCReference Include="..\pckMD5.dcp" /> <DCCReference Include="..\Informes\pckMD5.dcp" />
<DCCReference Include="..\pckUCDataConnector.dcp" /> <DCCReference Include="..\Informes\pckUCDataConnector.dcp" />
<DCCReference Include="..\pckUserControl_RT.dcp" /> <DCCReference Include="..\Informes\pckUserControl_RT.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="..\Informes\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="..\Informes\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Informes\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Informes\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\Informes\rtl.dcp" />
<DCCReference Include="..\Informes\TB2k_D10.dcp" />
<DCCReference Include="..\Informes\tbx_d10.dcp" />
<DCCReference Include="..\Informes\vcl.dcp" />
<DCCReference Include="..\Informes\vclactnband.dcp" />
<DCCReference Include="..\Informes\vcldb.dcp" />
<DCCReference Include="..\Informes\vcljpg.dcp" />
<DCCReference Include="..\Informes\VclSmp.dcp" />
<DCCReference Include="..\Informes\vclx.dcp" />
<DCCReference Include="..\Informes\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\TB2k_D10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,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">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</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">1.2.8.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">1.2.8.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">1</VersionInfo><VersionInfo Name="MinorVer">3</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">1.3.0.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">1.3.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

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 1,2,8,0 FILEVERSION 1,3,0,0
PRODUCTVERSION 1,2,8,0 PRODUCTVERSION 1,3,0,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", "1.2.8.0\0" VALUE "FileVersion", "1.3.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.2.8.0\0" VALUE "ProductVersion", "1.3.0.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
View File

@ -26,7 +26,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uAlbaranesClienteReportController; uAlbaranesClienteReportController, uDialogUtils;
procedure TfEditorAlbaranesClientePreview.actExportarRTFExecute( procedure TfEditorAlbaranesClientePreview.actExportarRTFExecute(
Sender: TObject); Sender: TObject);
@ -39,6 +39,8 @@ begin
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]); (Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]);
ShowInfoMessage('El albar n se ha exportado correctamente.');
end; end;
end. end.

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
View File

@ -32,7 +32,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uFacturasClienteReportController, uIntegerListUtils; uFacturasClienteReportController, uIntegerListUtils, uDialogUtils;
procedure TfEditorFacturasClientePreview.actExportarRTFExecute(Sender: TObject); procedure TfEditorFacturasClientePreview.actExportarRTFExecute(Sender: TObject);
var var
@ -44,6 +44,8 @@ begin
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]); (Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]);
ShowInfoMessage('La factura se ha exportado correctamente.');
end; end;
end. end.

4
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
View File

@ -28,7 +28,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uPedidosProveedorReportController; uPedidosProveedorReportController, uDialogUtils;
procedure TfEditorPedidosProveedorPreview.actExportarRTFExecute( procedure TfEditorPedidosProveedorPreview.actExportarRTFExecute(
Sender: TObject); Sender: TObject);
@ -41,6 +41,8 @@ begin
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I]); (Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I]);
ShowInfoMessage('El pedido se ha exportado correctamente.');
end; end;
end. end.

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

@ -24,7 +24,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uPresupuestosClienteReportController, uIntegerListUtils; uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils;
procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute( procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(
Sender: TObject); Sender: TObject);
@ -37,6 +37,8 @@ begin
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]); (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]);
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end; end;
end. end.

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">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 04 de septiembre de 2008 16:37</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></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">1</VersionInfo><VersionInfo Name="MinorVer">3</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.3.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.3.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 05 de septiembre de 2008 19:22</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>

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 1,2,8,0 FILEVERSION 1,3,0,0
PRODUCTVERSION 1,2,8,0 PRODUCTVERSION 1,3,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.2.8.0\0" VALUE "FileVersion", "1.3.0.0\0"
VALUE "ProductVersion", "1.2.8.0\0" VALUE "ProductVersion", "1.3.0.0\0"
VALUE "CompileDate", "lunes, 08 de septiembre de 2008 16:32\0" VALUE "CompileDate", "lunes, 08 de septiembre de 2008 17:18\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"