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

Version 1.9.4

Browse Source 
Peticiones relacionadas
Tareas #802: No se guarda la información de grupo de proveedor en proveedores
Tareas #803: Al impirimir un presupuesto, preguntar si se imprime el anagrama de la ISO
Tareas #804: Al imprimir un pedido de proveedor, imprimir con sello y firma

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1055 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2012-02-16 17:08:42 +00:00
parent 9386166f6b
commit 8325ba3b6d
39 changed files with 344 additions and 261 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/firma_mantenimiento_carlos.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 51 KiB

BIN
Resources/Firmas Tecsitel/firma_mantenimiento_carlos.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
Resources/Firmas Tecsitel/firma_tecsitel_carlos.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 67 KiB

BIN
Resources/Firmas Tecsitel/firma_tecsitel_carlos.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

104
Source/Base/Base.dproj
View File

@ -47,8 +47,6 @@
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -58,57 +56,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Gestor de informes\adortl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\designide.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dsnap.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Jcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\rtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcldb.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vclx.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">9</VersionInfo><VersionInfo Name="Release">3</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.9.3.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.9.3.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">1</VersionInfo><VersionInfo Name="MinorVer">9</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">1.9.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">1.9.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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

5
Source/Informes/1/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/1/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

Binary file not shown.

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

Binary file not shown.

7
Source/Informes/2/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

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

Binary file not shown.

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

106
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -47,6 +47,8 @@ inherited fEditorProveedor: TfEditorProveedor
inherited lblDesbloquear: TcxLabel
Left = 705
ExplicitLeft = 705
AnchorX = 750
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
@ -118,6 +120,8 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 824
ExplicitHeight = 519
inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 816
ExplicitHeight = 491
inline frViewProveedor1: TfrViewProveedor
@ -161,10 +165,10 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 162
end
inherited Label1: TLabel
Left = 485
Left = 468
Top = 251
Width = 342
ExplicitLeft = 485
ExplicitLeft = 468
ExplicitTop = 251
ExplicitWidth = 342
end
@ -199,13 +203,13 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 403
Left = 386
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 403
ExplicitLeft = 386
ExplicitTop = 294
end
inherited eObservaciones: TcxDBMemo
@ -270,50 +274,72 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366
Width = 366
end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 368
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 368
ExplicitTop = 138
end
inherited eTlfParticular: TcxDBTextEdit
Left = 591
Left = 574
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 57
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 591
Left = 574
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 30
ExplicitWidth = 171
Width = 171
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 468
Top = 283
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 468
ExplicitTop = 283
ExplicitWidth = 236
Width = 236
end
inherited eTlfMovil: TcxDBTextEdit
Left = 591
Left = 574
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 84
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 591
Left = 574
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 111
ExplicitWidth = 171
Width = 171
@ -328,74 +354,60 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366
Width = 366
end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 385
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385
ExplicitTop = 138
inherited cbFelicitacion: TcxDBCheckBox
Left = 479
Top = 329
ExplicitLeft = 479
ExplicitTop = 329
ExplicitWidth = 352
Width = 352
end
inherited eNIFCIF: TcxDBTextEdit
Left = 258
Left = 251
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 258
ExplicitLeft = 251
ExplicitTop = 30
ExplicitWidth = 229
Width = 229
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 591
Left = 574
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 162
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 591
Left = 574
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 190
ExplicitWidth = 142
Width = 142
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 485
Top = 283
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485
ExplicitTop = 283
ExplicitWidth = 236
Width = 236
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 591
Left = 574
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 591
ExplicitLeft = 574
ExplicitTop = 217
ExplicitWidth = 142
Width = 142
@ -607,6 +619,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 816
ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end

2
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

@ -66,7 +66,7 @@ implementation
{ TfEditorProveedor }
uses
uDialogUtils, uGruposProveedorController, uBizGruposProveedor,
uDialogUtils, dialogs, uGruposProveedorController, uBizGruposProveedor,
uProveedoresController;
procedure TfEditorProveedor.actDocumentosAlbaranesExecute(Sender: TObject);

78
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -221,6 +221,30 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 171
Width = 171
end
object cxDBCheckBox3: TcxDBCheckBox [16]
Left = 343
Top = 136
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 83
end
inherited eTlfMovil: TcxDBTextEdit
Left = 551
Style.LookAndFeel.SkinName = ''
@ -253,13 +277,14 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 330
Width = 330
end
object cxDBCheckBox3: TcxDBCheckBox [19]
Left = 343
Top = 136
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
object cxDBCheckBox1: TcxDBCheckBox [20]
Left = 444
Top = 294
Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
@ -274,8 +299,8 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 83
TabOrder = 21
Width = 236
end
inherited eNIFCIF: TcxDBTextEdit
Left = 224
@ -311,14 +336,13 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 142
Width = 142
end
object cxDBCheckBox1: TcxDBCheckBox [23]
Left = 444
Top = 294
Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
object cbFelicitacion: TcxDBCheckBox [24]
Left = 456
Top = 339
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este proveedor'
DataBinding.DataField = 'FELICITACION'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
@ -333,8 +357,8 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 21
Width = 236
TabOrder = 22
Width = 352
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 551
@ -370,30 +394,6 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 330
Width = 330
end
object cbFelicitacion: TcxDBCheckBox [27]
Left = 456
Top = 339
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este proveedor'
DataBinding.DataField = 'FELICITACION'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 22
Width = 352
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup

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

@ -57,8 +57,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -140,8 +140,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1049,7 +1049,7 @@ begin
}
end;
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@ -1075,14 +1075,14 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos, AVerSello);
AReportController.Preview(ID_Presupuestos, AVerSello, AVerISO);
finally
AReportController := NIL;
FreeAndNil(ID_Presupuestos);
end;
end;
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1);
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1; Const AVerISO: Integer = 1);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@ -1107,7 +1107,7 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos, AVerSello);
AReportController.Print(ID_Presupuestos, AVerSello, AVerISO);
finally
AReportController := NIL;

32
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -10,10 +10,10 @@ uses
type
IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
end;
@ -25,10 +25,10 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
end;
@ -61,7 +61,7 @@ begin
inherited;
end;
function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer): Boolean;
function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer; Const AVerISO: Integer): Boolean;
var
AStream: Binary;
begin
@ -71,7 +71,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello);
AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello, AVerISO);
try
AStream.SaveToFile(AFileName);
Result := True;
@ -83,7 +83,7 @@ begin
end;
end;
function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer) : Boolean;
function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer; Const AVerISO: Integer) : Boolean;
var
AStream: Binary;
AFile : String;
@ -95,7 +95,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello);
AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello, AVerISO);
try
AStream.SaveToFile(AFile);
Result := True;
@ -133,7 +133,7 @@ begin
end;
end;
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@ -142,7 +142,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then
@ -166,7 +166,7 @@ begin
end;
end;
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer);
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@ -175,7 +175,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then

18
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -41,10 +41,10 @@ type
function NewItem : IBizPresupuestoCliente;
// Report
function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
function GetAnosItems : TStringList;
end;
@ -70,26 +70,26 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello, AVerISO)
finally
FreeANDNIL(AParam)
end;
end;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello, AVerISO)
finally
FreeANDNIL(AParam)
end;
@ -101,9 +101,9 @@ begin
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarCertificadoTrabajosEnWord(AID)
end;
function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
begin
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello, AVerISO)
end;
function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente;

6
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
View File

@ -8,10 +8,10 @@ uses
type
IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
end;
implementation

17
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -114,7 +114,7 @@ type
FIntervalo: Variant;
FTopN: Integer;
procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer);
procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer; const VerISO: Integer);
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
@ -125,8 +125,8 @@ type
procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes;
public
function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformePresupuestosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
end;
@ -179,7 +179,7 @@ begin
end;
end;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
var
i: Integer;
begin
@ -187,7 +187,7 @@ begin
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i], VerSello);
_GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO);
frxPDFExport1.Stream := Result;
frxReport.Export(frxPDFExport1)
@ -599,7 +599,7 @@ begin
end;
end;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
var
i: Integer;
begin
@ -607,7 +607,7 @@ begin
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i], VerSello);
_GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO);
frxReport.PreviewPages.SaveToStream(Result);
finally
@ -631,7 +631,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
end;
procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer);
procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer; const VerISO: Integer);
var
AInforme: Variant;
begin
@ -662,6 +662,7 @@ begin
frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerSello'] := IntToStr(VerSello);
frxReport.Variables.Variables['VerISO'] := IntToStr(VerISO);
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.PrepareReport(False);

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

@ -38,6 +38,7 @@ type
FNombreFichero : String;
ListaCapitulos : array[1..1000] of TCapitulo;
FVerSello: Integer;
FVerISO: Integer;
procedure InsertarConceptos(Tabla : Table);
function Generar : Boolean;
function RellenarPortada : boolean; virtual;
@ -48,7 +49,7 @@ type
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
function Exportar(Codigo, Fichero : String; const VerSello: Integer): Boolean;
function Exportar(Codigo, Fichero : String; const VerSello: Integer; const VerISO: Integer): Boolean;
end;
@ -71,6 +72,7 @@ begin
FImportes := True;
FNumCapitulos := 0;
FVerSello:= 1;
FVerISO:= 1;
end;
procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject);
@ -88,7 +90,7 @@ begin
inherited;
end;
function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer): Boolean;
function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer; const VerISO: Integer): Boolean;
begin
if EsCadenaVacia(Fichero) then
RaiseError('Falta indicar el fichero donde se exportará el listado.');
@ -96,6 +98,7 @@ begin
FNombreFichero := Fichero;
FCodigoPresupuesto := Codigo;
FVerSello := VerSello;
FVerISO := VerISO;
_GenerarPresupuesto(Codigo);
Result := True;
end;
@ -276,6 +279,12 @@ begin
ReplaceBookmark('Firma2', '')
else
ReplaceBookmark('Firma1', '');
if (FVerISO = 0) then
begin
ReplaceBookmark('ISO1', '');
ReplaceBookmark('ISO2', '');
end;
end;
if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then

18
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -33,9 +33,9 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvPresupuestosCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
end;
@ -101,31 +101,31 @@ begin
end;
end;
function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
var
AReportGenerator : TRptPresupuestosCliente;
begin
AReportGenerator := TRptPresupuestosCliente.Create(nil);
try
Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello);
Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello, VerISO);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
var
AReportGenerator : TRptPresupuestosCliente;
begin
AReportGenerator := TRptPresupuestosCliente.Create(nil);
try
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello);
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello, VerISO);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
var
AReportGenerator : TRptWordPresupuestoCliente;
AFicheroTMP : TFileName;
@ -135,7 +135,7 @@ begin
AReportGenerator := TRptWordPresupuestoCliente.Create(nil);
try
try
if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello) then
if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello, VerISO) then
begin
Result := Binary.Create;
Result.LoadFromFile(AFicheroTMP);

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

@ -1,27 +1,27 @@
inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresionPresupuestosCliente
Caption = 'Opciones para presupuestos de cliente'
ClientHeight = 273
ClientWidth = 437
ClientHeight = 298
ClientWidth = 429
OnCreate = FormCreate
ExplicitWidth = 443
ExplicitHeight = 305
ExplicitWidth = 435
ExplicitHeight = 330
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Top = 33
Width = 437
Top = 41
Width = 429
ExplicitTop = 33
ExplicitWidth = 418
end
inherited Bevel3: TBevel
Top = 229
Width = 437
Top = 254
Width = 429
ExplicitTop = 196
ExplicitWidth = 418
end
inherited pnlBotones: TPanel
Top = 231
Width = 437
Top = 256
Width = 429
ExplicitTop = 231
ExplicitWidth = 437
inherited btnAceptar: TButton
@ -35,33 +35,39 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
end
end
inherited pnlHeader: TPanel
Width = 437
Height = 33
Width = 429
Height = 41
ExplicitWidth = 437
ExplicitHeight = 33
ExplicitHeight = 41
inherited lblInstruccion: TLabel
Width = 387
Width = 379
Height = 26
Margins.Bottom = 10
Caption = 'Indique que sello desea para el presupuesto de cliente:'
ExplicitWidth = 310
Caption =
'Indique si desea logotipo de ISO y que sello desea para el presu' +
'puesto de cliente:'
WordWrap = True
ExplicitWidth = 390
ExplicitHeight = 26
end
inherited Label2: TLabel
Top = 31
Width = 362
Top = 44
Width = 354
Height = 1
Visible = False
ExplicitTop = 31
end
end
inherited pnlCuerpo: TPanel
Top = 35
Width = 437
Height = 194
Top = 43
Width = 429
Height = 211
ExplicitTop = 35
ExplicitWidth = 437
ExplicitHeight = 194
object Image1: TImage
Left = 25
Top = 30
Top = 54
Width = 176
Height = 139
Picture.Data = {
@ -1140,7 +1146,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
end
object Image2: TImage
Left = 232
Top = 30
Top = 54
Width = 129
Height = 139
Picture.Data = {
@ -1148,7 +1154,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
000000A708020000009E9929C4000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
2E2200002E2201AAE2DD9200008A8B49444154785ECDFDF57F5CC7B2288A5FF8
2E2100002E2101075BFCFF00008A8B49444154785ECDFDF57F5CC7B2288A5FF8
4FBE9FEFF7DE77CF3BFBEC9DEC8031C6D88EED248E9D18E398D9922D66666666
B69859039A1133B32C661E0D6804BEAFAA7BD45A5E23D93EFBBE1FBEB31DED81
B57A7517577555F57FFDF0E1C37FFDAFFFF57FFFEFFFFD5F3E7EC197BC6FD847
@ -2262,6 +2268,16 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
OnClick = Image2DblClick
OnDblClick = Image2DblClick
end
object cbLogotipoISO: TCheckBox
Left = 25
Top = 17
Width = 121
Height = 17
Caption = 'Ver certificaci'#243'n ISO'
Checked = True
State = cbChecked
TabOrder = 0
end
end
inherited ActionList1: TActionList
Top = 16

16
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
View File

@ -10,6 +10,7 @@ type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
Image1: TImage;
Image2: TImage;
cbLogotipoISO: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
@ -17,17 +18,18 @@ type
procedure Image2DblClick(Sender: TObject);
private
FVerSello: Integer;
function getVerCertificadoISO: Integer;
public
{ Public declarations }
property VerCertificadoISO: Integer read getVerCertificadoISO;
end;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin
@ -37,6 +39,7 @@ begin
if Result then
begin
AVerSello := AEditor.FVerSello;
AVerISO := AEditor.VerCertificadoISO;
end;
finally
AEditor.Release;
@ -62,6 +65,13 @@ begin
FVerSello := 1;
end;
function TfDialogOpcionesImpresionPresupuestosCliente.getVerCertificadoISO: Integer;
begin
REsult := 0;
if cbLogotipoISO.Checked then
Result := 1;
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick(
Sender: TObject);
begin

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

@ -299,6 +299,7 @@ end;
procedure TfEditorPresupuestoCliente.ImprimirInterno;
var
AVerSello: Integer;
AVerISO: Integer;
bPrevisualizar: Boolean;
begin
inherited;
@ -307,11 +308,11 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
FController.Print(FPresupuesto, False, AVerSello);
FController.Print(FPresupuesto, False, AVerSello, AVerISO);
end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@ -360,6 +361,7 @@ end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
var
AVerSello: Integer;
AVerISO: Integer;
bPrevisualizar: Boolean;
begin
inherited;
@ -368,11 +370,11 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
FController.Preview(FPresupuesto, False, AVerSello);
FController.Preview(FPresupuesto, False, AVerSello, AVerISO);
end;
function TfEditorPresupuestoCliente.PuedoEnviar: Boolean;

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

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

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

@ -492,6 +492,7 @@ var
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerSello: Integer;
AVerISO: Integer;
bPrevisualizar: Boolean;
begin
APresupuestos := Nil;
@ -525,10 +526,10 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems, AVerSello);
FController.Print(APresupuestos, AllItems, AVerSello, AVerISO);
end;
end;
end;
@ -569,6 +570,7 @@ var
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerSello: Integer;
AVerISO: Integer;
bPrevisualizar: Boolean;
begin
APresupuestos := Nil;
@ -602,10 +604,10 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems, AVerSello);
FController.Preview(APresupuestos, AllItems, AVerSello, AVerISO);
end;
end;
end;

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

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

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

@ -31,6 +31,7 @@ procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObje
var
I: Integer;
AVerSello: Integer;
AVerISO: Integer;
bPrevisualizar: Boolean;
begin
@ -43,11 +44,11 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
if bPrevisualizar then
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, AVerISO) then
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end;

6
Source/Servicios/FactuGES.RODL
View File

@ -316,6 +316,8 @@
</Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="VerISO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEnWord" UID="{7C3C767B-41AC-42EC-925D-ECAE03BD8F58}">
@ -326,6 +328,8 @@
</Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="VerISO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarCertificadoTrabajosEnWord" UID="{F96E1E6B-131C-4F1F-BF2A-3E7B0B6ABF09}">
@ -344,6 +348,8 @@
</Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="VerISO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -546,10 +546,10 @@ type
{ IsrvPresupuestosCliente }
IsrvPresupuestosCliente = interface(IDataAbstractService)
['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
end;
{ CosrvPresupuestosCliente }
@ -562,10 +562,10 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
end;
{ IsrvPedidosProveedor }
@ -1815,13 +1815,14 @@ begin
result := 'srvPresupuestosCliente';
end;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1833,13 +1834,14 @@ begin
end
end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1868,13 +1870,14 @@ begin
end
end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

18
Source/Servicios/FactuGES_Invk.pas
View File

@ -962,10 +962,11 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerSello: Integer;
VerISO: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -974,8 +975,9 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello, VerISO);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -994,10 +996,11 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; }
{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; }
var
ID: Integer;
VerSello: Integer;
VerISO: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1005,8 +1008,9 @@ begin
try
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello, VerISO);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnWordResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1052,10 +1056,11 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerSello: Integer;
VerISO: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1064,8 +1069,9 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello, VerISO);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

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.ProjectType/>
<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">9</VersionInfo><VersionInfo Name="Release">3</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.9.3.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.9.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 27 de julio de 2011 13:11</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">1</VersionInfo><VersionInfo Name="MinorVer">9</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.4.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.9.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de noviembre de 2011 10:27</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 1,9,3,0
PRODUCTVERSION 1,9,3,0
FILEVERSION 1,9,4,0
PRODUCTVERSION 1,9,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.9.3.0\0"
VALUE "ProductVersion", "1.9.3.0\0"
VALUE "CompileDate", "martes, 22 de noviembre de 2011 10:27\0"
VALUE "FileVersion", "1.9.4.0\0"
VALUE "ProductVersion", "1.9.4.0\0"
VALUE "CompileDate", "jueves, 16 de febrero de 2012 17:45\0"
END
END
BLOCK "VarFileInfo"