Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tareas #655:Cuando un cliente tiene varias cuentas bancarias se debe establecer predeterminada sino duplica recibos en la vista,

Browse Source 
Además de otros cambios varios.
Fin Version 4.2.3

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@159 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2012-04-10 16:16:29 +00:00
parent e9b52a06ef
commit 8826b215bf
22 changed files with 658 additions and 621 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">2</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">4.2.2.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">4.2.2.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">4</VersionInfo><VersionInfo Name="MinorVer">2</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">4.2.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">4.2.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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

73
Source/Modulos/Contactos/Views/uEditorAgente.dfm
View File

@ -132,12 +132,9 @@ inherited fEditorAgente: TfEditorAgente
inherited pgPaginas: TPageControl
Width = 864
Height = 614
ActivePage = ObjetivosAlbaranes
ExplicitWidth = 864
ExplicitHeight = 614
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 856
ExplicitHeight = 586
inline frViewAgente1: TfrViewAgente
@ -309,31 +306,33 @@ inherited fEditorAgente: TfEditorAgente
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 856
ExplicitHeight = 586
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 856
Height = 586
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 856
ExplicitHeight = 586
inherited cxGrid: TcxGrid
Width = 856
Height = 561
ExplicitWidth = 856
ExplicitHeight = 561
end
inherited ToolBar1: TToolBar
inherited dxLayoutControl1: TdxLayoutControl
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 62
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
inherited eSucursal: TcxDBTextEdit
Left = 528
ExplicitLeft = 528
ExplicitWidth = 112
Width = 112
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
end
end
@ -366,6 +365,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
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
@ -387,18 +398,6 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end
@ -501,6 +500,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
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
inherited tbxFiltro: TTBXToolbar
Width = 856

61
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -122,12 +122,9 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl
Width = 864
Height = 614
ActivePage = pagDescuentos
ExplicitWidth = 864
ExplicitHeight = 614
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 856
ExplicitHeight = 586
inline frViewCliente1: TfrViewCliente
@ -462,31 +459,33 @@ inherited fEditorCliente: TfEditorCliente
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 856
ExplicitHeight = 586
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 856
Height = 586
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 856
ExplicitHeight = 586
inherited cxGrid: TcxGrid
Width = 856
Height = 561
ExplicitWidth = 856
ExplicitHeight = 561
end
inherited ToolBar1: TToolBar
inherited dxLayoutControl1: TdxLayoutControl
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 62
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
inherited eSucursal: TcxDBTextEdit
Left = 528
ExplicitLeft = 528
ExplicitWidth = 112
Width = 112
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
end
end
@ -661,6 +660,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
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
@ -743,18 +754,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end

53
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632
Scaled = False
ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -78,12 +77,15 @@ inherited fEditorContacto: TfEditorContacto
ActivePage = pagDatosBancarios
ExplicitWidth = 626
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 618
ExplicitHeight = 332
end
object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios'
ImageIndex = 1
inline frViewListaDatosBancarios: TfrViewListaDatosBancarios
inline frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Left = 0
Top = 0
Width = 618
@ -97,28 +99,27 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 618
ExplicitHeight = 332
inherited cxGrid: TcxGrid
ExplicitLeft = 117
ExplicitTop = 176
inherited dxLayoutControl1: TdxLayoutControl
Width = 618
Height = 307
ExplicitWidth = 618
ExplicitHeight = 307
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited ToolBar1: TToolBar
Width = 618
ExplicitWidth = 618
inherited ToolButton1: TToolButton
ExplicitWidth = 113
inherited eSucursal: TcxDBTextEdit
Left = 403
ExplicitLeft = 403
ExplicitWidth = 112
Width = 112
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
end
end
@ -151,18 +152,6 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar
Width = 618
ExplicitWidth = 618
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

8
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -22,9 +22,9 @@ type
pagDatosBancarios: TTabSheet;
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
frViewListaDatosBancarios: TfrViewListaDatosBancarios;
pagPersonal: TTabSheet;
frViewPersonalContacto1: TfrViewPersonalContacto;
frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected
@ -117,7 +117,8 @@ begin
if Assigned(FViewContacto) and Assigned(Contacto) then
begin
FViewContacto.Contacto := Contacto;
frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
frViewClienteDatosBancarios1.dsDatosBancarios.DataTable := FContacto.DatosBancarios.DataTable;
// frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
if Assigned(FContacto.Personal) then
frViewPersonalContacto1.dsDetalles.DataTable := FContacto.Personal.DataTable
@ -125,7 +126,8 @@ begin
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end
else begin
frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
frViewClienteDatosBancarios1.dsDatosBancarios.DataTable := NIL;
// frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end;
end;

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

@ -116,7 +116,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl
Width = 824
Height = 519
ActivePage = pagDatosComerciales
ExplicitWidth = 824
ExplicitHeight = 519
inherited pagGeneral: TTabSheet
@ -163,24 +162,24 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 162
end
inherited Label1: TLabel
Left = 475
Left = 484
Top = 251
Width = 342
ExplicitLeft = 475
ExplicitLeft = 484
ExplicitTop = 251
ExplicitWidth = 342
end
inherited Label2: TLabel
Top = 399
Top = 426
Width = 324
ExplicitTop = 399
ExplicitTop = 426
ExplicitWidth = 324
end
inherited PngSpeedButton4: TPngSpeedButton
Left = 435
Top = 444
ExplicitLeft = 435
ExplicitTop = 444
Left = 444
Top = 471
ExplicitLeft = 444
ExplicitTop = 471
end
inherited eCalle: TcxDBTextEdit
Top = 267
@ -253,9 +252,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Top = 444
Top = 471
Properties.Prefix = 'mailto:'
ExplicitTop = 444
ExplicitTop = 471
ExplicitWidth = 186
Width = 186
end
@ -270,93 +269,93 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 393
Left = 402
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 393
ExplicitLeft = 402
ExplicitTop = 294
end
inherited eObservaciones: TcxDBMemo
Top = 496
Top = 523
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 496
ExplicitTop = 523
ExplicitWidth = 772
ExplicitHeight = 76
Height = 76
Width = 772
end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 375
Left = 384
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 375
ExplicitLeft = 384
ExplicitTop = 138
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 475
Left = 484
Top = 283
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 475
ExplicitLeft = 484
ExplicitTop = 283
ExplicitWidth = 236
Width = 236
end
inherited eTlfParticular: TcxDBTextEdit
Left = 581
Left = 590
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 57
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 581
Left = 590
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 30
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
Left = 581
Left = 590
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 84
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 581
Left = 590
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 111
ExplicitWidth = 171
Width = 171
@ -372,51 +371,61 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eNIFCIF: TcxDBTextEdit
Left = 254
Left = 257
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 254
ExplicitLeft = 257
ExplicitTop = 30
ExplicitWidth = 229
Width = 229
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 581
Left = 590
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 162
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 581
Left = 590
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 190
ExplicitWidth = 142
Width = 142
end
inherited ePais: TcxDBTextEdit
Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
ExplicitWidth = 391
Width = 391
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 581
Left = 590
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitLeft = 590
ExplicitTop = 217
ExplicitWidth = 142
Width = 142
@ -428,16 +437,14 @@ inherited fEditorProveedor: TfEditorProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 84
Width = 84
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 348
Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
ExplicitTop = 375
ExplicitWidth = 366
Width = 366
end
@ -447,31 +454,33 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 816
ExplicitHeight = 491
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 816
Height = 491
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 816
ExplicitHeight = 491
inherited cxGrid: TcxGrid
Width = 816
Height = 466
ExplicitWidth = 816
ExplicitHeight = 466
end
inherited ToolBar1: TToolBar
inherited dxLayoutControl1: TdxLayoutControl
Width = 816
ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 62
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
inherited eSucursal: TcxDBTextEdit
Left = 507
ExplicitLeft = 507
ExplicitWidth = 112
Width = 112
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
end
end
@ -634,6 +643,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
@ -655,18 +676,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 816
ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end

2
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
View File

@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
/* c:\temp\dtf1D6.tmp */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.drf */

24
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm
View File

@ -262,11 +262,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_VENT_COMPRA: TcxGridDBColumn
Caption = '% margen ult. venta - compra'
DataBinding.FieldName = 'POR_MARGEN_ULT_VENT_COMPRA'
PropertiesClassName = 'TcxSpinEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
@ -280,11 +281,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
Caption = '% margen ult. venta - ult. compra'
DataBinding.FieldName = 'POR_MARGEN_ULT_VENT_ULT_COMP'
PropertiesClassName = 'TcxSpinEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
@ -298,11 +300,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
Caption = '% margen ult. venta - compra pro.'
DataBinding.FieldName = 'POR_MARGEN_ULT_VENT_PRO_COMP'
PropertiesClassName = 'TcxSpinEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_PRO_VENT_COMPRA: TcxGridDBColumn
@ -352,7 +355,7 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMP: TcxGridDBColumn
Caption = '% margen venta pro. - compra pro.'
DataBinding.FieldName = 'POR_MARGEN_PRO_VENT_PRO_COMP'
PropertiesClassName = 'TcxSpinEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
@ -370,9 +373,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_COMP: TcxGridDBColumn
Caption = '% margen venta - ult. compra'
DataBinding.FieldName = 'POR_MARGEN_ULT_COMP'
PropertiesClassName = 'TcxCalcEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_PRO_COMP: TcxGridDBColumn
@ -387,7 +393,11 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
Caption = '% margen venta - compra pro.'
DataBinding.FieldName = 'POR_MARGEN_PRO_COMP'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewID_DETALLE: TcxGridDBColumn
@ -422,9 +432,11 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxTextEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,##0;-#,##0'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_TOTAL: TcxGridDBColumn

4
Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.DFM */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
/* c:\temp\dtf1C8.tmp */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.drf */

3
Source/Modulos/Informe ventas por articulo/Data/uDataModuleInfVentasArticulo.dfm
View File

@ -440,7 +440,8 @@ inherited dmInfVentasArticulo: TdmInfVentasArticulo
end
item
Name = 'CANTIDAD'
DataType = datCurrency
DataType = datFloat
DisplayFormat = '#,##0'
end
item
Name = 'IMPORTE_UNIDAD_VENTA'

2
Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
/* c:\temp\dtf1C6.tmp */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.drf */

40
Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schInfVentasArticuloClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_InfVentasArticulo = '{7CC515C6-D346-4DAD-AB07-4331002BFA39}';
RID_TablaVacia = '{7DCC4ABB-5070-4D20-8B87-4B887CC84D94}';
RID_InfVentasAlbArticulo = '{32940B83-836B-424C-B365-9747E0A8E076}';
RID_InfVentasArticulo = '{3237260C-2F98-4E32-900B-5E8E95BF4BA2}';
RID_TablaVacia = '{03EC1F6A-B248-4B64-9821-167F27870FEB}';
RID_InfVentasAlbArticulo = '{25AD2608-9AFB-454F-B58E-23ACF44807F9}';
{ Data table names }
nme_InfVentasArticulo = 'InfVentasArticulo';
@ -195,7 +195,7 @@ const
type
{ IInfVentasArticulo }
IInfVentasArticulo = interface(IDAStronglyTypedDataTable)
['{B8E2CE74-5892-4A40-82EB-8F21DBEA58EE}']
['{77E216E3-A203-4498-905F-3113F6CA1DC9}']
{ Property getters and setters }
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
@ -449,7 +449,7 @@ type
end;
{ TInfVentasArticuloDataTableRules }
TInfVentasArticuloDataTableRules = class(TIntfObjectDADataTableRules, IInfVentasArticulo)
TInfVentasArticuloDataTableRules = class(TDADataTableRules, IInfVentasArticulo)
private
protected
{ Property getters and setters }
@ -710,7 +710,7 @@ type
{ ITablaVacia }
ITablaVacia = interface(IDAStronglyTypedDataTable)
['{20AF542A-D8B1-4055-8B62-C01D55420E90}']
['{BEF757FC-41F6-4F33-9EF5-FEDED66870B6}']
{ Property getters and setters }
@ -718,7 +718,7 @@ type
end;
{ TTablaVaciaDataTableRules }
TTablaVaciaDataTableRules = class(TIntfObjectDADataTableRules, ITablaVacia)
TTablaVaciaDataTableRules = class(TDADataTableRules, ITablaVacia)
private
protected
{ Property getters and setters }
@ -733,7 +733,7 @@ type
{ IInfVentasAlbArticulo }
IInfVentasAlbArticulo = interface(IDAStronglyTypedDataTable)
['{B4818DB8-0075-4D21-BCDC-42A6A4C00609}']
['{FCEE02B2-84CF-4757-ABA1-76857DBA4DAE}']
{ Property getters and setters }
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
@ -799,8 +799,8 @@ type
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency);
function GetIMPORTE_PORTE_COSTEIsNull: Boolean;
procedure SetIMPORTE_PORTE_COSTEIsNull(const aValue: Boolean);
function GetCANTIDADValue: Currency;
procedure SetCANTIDADValue(const aValue: Currency);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDAD_VENTAValue: Currency;
@ -930,7 +930,7 @@ type
property IMPORTE_NETO_COSTEIsNull: Boolean read GetIMPORTE_NETO_COSTEIsNull write SetIMPORTE_NETO_COSTEIsNull;
property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
property IMPORTE_PORTE_COSTEIsNull: Boolean read GetIMPORTE_PORTE_COSTEIsNull write SetIMPORTE_PORTE_COSTEIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property IMPORTE_UNIDAD_VENTAIsNull: Boolean read GetIMPORTE_UNIDAD_VENTAIsNull write SetIMPORTE_UNIDAD_VENTAIsNull;
@ -981,7 +981,7 @@ type
end;
{ TInfVentasAlbArticuloDataTableRules }
TInfVentasAlbArticuloDataTableRules = class(TIntfObjectDADataTableRules, IInfVentasAlbArticulo)
TInfVentasAlbArticuloDataTableRules = class(TDADataTableRules, IInfVentasAlbArticulo)
private
protected
{ Property getters and setters }
@ -1049,8 +1049,8 @@ type
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTE_COSTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTE_COSTEIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Currency; virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
@ -1179,7 +1179,7 @@ type
property IMPORTE_NETO_COSTEIsNull: Boolean read GetIMPORTE_NETO_COSTEIsNull write SetIMPORTE_NETO_COSTEIsNull;
property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
property IMPORTE_PORTE_COSTEIsNull: Boolean read GetIMPORTE_PORTE_COSTEIsNull write SetIMPORTE_PORTE_COSTEIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property IMPORTE_UNIDAD_VENTAIsNull: Boolean read GetIMPORTE_UNIDAD_VENTAIsNull write SetIMPORTE_UNIDAD_VENTAIsNull;
@ -2470,14 +2470,14 @@ begin
DataTable.Fields[idx_InfVentasAlbArticuloIMPORTE_PORTE_COSTE].AsVariant := Null;
end;
function TInfVentasAlbArticuloDataTableRules.GetCANTIDADValue: Currency;
function TInfVentasAlbArticuloDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsCurrency;
result := DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsFloat;
end;
procedure TInfVentasAlbArticuloDataTableRules.SetCANTIDADValue(const aValue: Currency);
procedure TInfVentasAlbArticuloDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsCurrency := aValue;
DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsFloat := aValue;
end;
function TInfVentasAlbArticuloDataTableRules.GetCANTIDADIsNull: boolean;

32
Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_InfVentasArticuloDelta = '{3F5E554C-CDAD-4F0C-B179-FEA811CB32B9}';
RID_TablaVaciaDelta = '{28BB0A71-A847-4434-8B08-BD59D8251C55}';
RID_InfVentasAlbArticuloDelta = '{FAD814C2-7B05-4C19-BECF-CED46F0CF599}';
RID_InfVentasArticuloDelta = '{C3B56BBE-2A68-4751-BFDB-D7CFDC2D3D13}';
RID_TablaVaciaDelta = '{9D87C0DE-4AA3-4C8C-8820-97BD0D2FFDB8}';
RID_InfVentasAlbArticuloDelta = '{8D648387-0F24-46BD-959E-4AA0E074B55D}';
type
{ IInfVentasArticuloDelta }
IInfVentasArticuloDelta = interface(IInfVentasArticulo)
['{3F5E554C-CDAD-4F0C-B179-FEA811CB32B9}']
['{C3B56BBE-2A68-4751-BFDB-D7CFDC2D3D13}']
{ Property getters and setters }
function GetOldID_FACTURAValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -530,7 +530,7 @@ type
{ ITablaVaciaDelta }
ITablaVaciaDelta = interface(ITablaVacia)
['{28BB0A71-A847-4434-8B08-BD59D8251C55}']
['{9D87C0DE-4AA3-4C8C-8820-97BD0D2FFDB8}']
{ Property getters and setters }
{ Properties }
@ -552,7 +552,7 @@ type
{ IInfVentasAlbArticuloDelta }
IInfVentasAlbArticuloDelta = interface(IInfVentasAlbArticulo)
['{FAD814C2-7B05-4C19-BECF-CED46F0CF599}']
['{8D648387-0F24-46BD-959E-4AA0E074B55D}']
{ Property getters and setters }
function GetOldID_ALBARANValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -570,7 +570,7 @@ type
function GetOldDESCUENTO_PROVEEDOR_COSTEValue : Float;
function GetOldIMPORTE_NETO_COSTEValue : Currency;
function GetOldIMPORTE_PORTE_COSTEValue : Currency;
function GetOldCANTIDADValue : Currency;
function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDAD_VENTAValue : Currency;
function GetOldDESCUENTO_CLIENTE_VENTAValue : Float;
function GetOldIMPORTE_NETO_VENTAValue : Float;
@ -612,7 +612,7 @@ type
property OldDESCUENTO_PROVEEDOR_COSTE : Float read GetOldDESCUENTO_PROVEEDOR_COSTEValue;
property OldIMPORTE_NETO_COSTE : Currency read GetOldIMPORTE_NETO_COSTEValue;
property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD_VENTA : Currency read GetOldIMPORTE_UNIDAD_VENTAValue;
property OldDESCUENTO_CLIENTE_VENTA : Float read GetOldDESCUENTO_CLIENTE_VENTAValue;
property OldIMPORTE_NETO_VENTA : Float read GetOldIMPORTE_NETO_VENTAValue;
@ -739,11 +739,11 @@ type
function GetOldIMPORTE_PORTE_COSTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTE_COSTEIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Currency; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Currency; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
function GetIMPORTE_UNIDAD_VENTAIsNull: Boolean; virtual;
@ -949,9 +949,9 @@ type
property IMPORTE_PORTE_COSTEIsNull : Boolean read GetIMPORTE_PORTE_COSTEIsNull write SetIMPORTE_PORTE_COSTEIsNull;
property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue;
property OldIMPORTE_PORTE_COSTEIsNull : Boolean read GetOldIMPORTE_PORTE_COSTEIsNull;
property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD_VENTA : Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property IMPORTE_UNIDAD_VENTAIsNull : Boolean read GetIMPORTE_UNIDAD_VENTAIsNull write SetIMPORTE_UNIDAD_VENTAIsNull;
@ -2859,7 +2859,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloIMPORTE_PORTE_COSTE] := Null;
end;
function TInfVentasAlbArticuloBusinessProcessorRules.GetCANTIDADValue: Currency;
function TInfVentasAlbArticuloBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloCANTIDAD];
end;
@ -2869,7 +2869,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloCANTIDAD]);
end;
function TInfVentasAlbArticuloBusinessProcessorRules.GetOldCANTIDADValue: Currency;
function TInfVentasAlbArticuloBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasAlbArticuloCANTIDAD];
end;
@ -2879,7 +2879,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasAlbArticuloCANTIDAD]);
end;
procedure TInfVentasAlbArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
procedure TInfVentasAlbArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloCANTIDAD] := aValue;
end;

3
Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm
View File

@ -628,7 +628,8 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo
end
item
Name = 'CANTIDAD'
DataType = datCurrency
DataType = datFloat
DisplayFormat = '#,##0'
end
item
Name = 'IMPORTE_UNIDAD_VENTA'

2
Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
View File

@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
/* c:\temp\dtf1CC.tmp */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.drf */

5
Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.dfm
View File

@ -139,6 +139,11 @@ inherited frViewInfVentasAlbArticuloGrid: TfrViewInfVentasAlbArticuloGrid
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,##0;-#,##0'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
end
object cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn
Caption = 'Precio uni. venta'

2
Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.pas
View File

@ -11,7 +11,7 @@ uses
cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap,
dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPgsDlg,
cxDropDownEdit, StdCtrls, cxSpinEdit;
cxDropDownEdit, StdCtrls, cxSpinEdit, cxCalc;
type
IViewInfVentasAlbArticuloGrid = interface(IViewInformeBaseGrid)

7
Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm
View File

@ -143,6 +143,12 @@ inherited frViewInfVentasArticuloGrid: TfrViewInfVentasArticuloGrid
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,##0;-#,##0'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn
Caption = 'Precio uni. venta'
@ -241,6 +247,7 @@ inherited frViewInfVentasArticuloGrid: TfrViewInfVentasArticuloGrid
object cxStyleRepository1: TcxStyleRepository
Left = 16
Top = 48
PixelsPerInch = 96
object cxStyleRed: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -164,12 +164,12 @@ uses
srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

5
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -35,7 +35,8 @@
<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">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">2</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">4.2.2.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">4.2.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 14 de febrero de 2012 15:51</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">4</VersionInfo><VersionInfo Name="MinorVer">2</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">4.2.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">4.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 14 de febrero de 2012 16:03</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><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>