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

repaso final de todos lo datos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@31 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-08-19 19:12:37 +00:00
parent c297dd33ad
commit 3b3f7b9254
23 changed files with 1317 additions and 210 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.dfm Normal file
View File

@ -0,0 +1,110 @@
inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlbaranesCliente
Caption = 'Opciones para el albar'#225'n de cliente'
ClientHeight = 237
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 269
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 393
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 193
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 195
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
end
inherited btnCancelar: TButton
Left = 308
ExplicitLeft = 308
end
end
inherited pnlHeader: TPanel
Width = 393
ExplicitWidth = 393
inherited lblInstruccion: TLabel
Width = 343
Margins.Bottom = 10
Caption = 'Indique las siguiente opciones para el albar'#225'n de cliente:'
ExplicitWidth = 319
end
inherited Label2: TLabel
Top = 31
Width = 318
Height = 25
Visible = False
ExplicitTop = 31
end
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 127
ExplicitWidth = 393
ExplicitHeight = 127
object cbVerPrecios: TCheckBox
AlignWithMargins = True
Left = 50
Top = 29
Width = 415
Height = 17
Caption = 'Mostrar los precios en los conceptos'
Checked = True
State = cbChecked
TabOrder = 0
end
object cbVerRefProveedor: TCheckBox
AlignWithMargins = True
Left = 50
Top = 99
Width = 441
Height = 17
Caption = 'Mostrar las referencias de proveedor de los conceptos'
Checked = True
State = cbChecked
TabOrder = 1
Visible = False
end
object cbVerIncidencias: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Width = 441
Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 2
end
object cbVerObservaciones: TCheckBox
AlignWithMargins = True
Left = 50
Top = 75
Width = 441
Height = 17
Caption = 'Mostrar las observaciones del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 3
end
end
inherited ActionList1: TActionList
Top = 16
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

32
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -92,6 +92,24 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DisplayLabel = 'Tipo' DisplayLabel = 'Tipo'
DictionaryEntry = 'AlbaranesProveedor_TIPO' DictionaryEntry = 'AlbaranesProveedor_TIPO'
end end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger DataType = datInteger
@ -284,18 +302,12 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO' DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO'
end end
item item
Name = 'ID_ALBARAN' Name = 'NUM_COPIAS'
DataType = datInteger DataType = datSmallInt
DisplayLabel = 'AlbaranesProveedor_ID_ALBARAN'
DictionaryEntry = 'AlbaranesProveedor_ID_ALBARAN'
end end
item item
Name = 'REFERENCIA_ALBARAN' Name = 'NUM_CORREOS'
DataType = datString DataType = datSmallInt
Size = 255
DisplayLabel = 'AlbaranesProveedor_REFERENCIA_ALBARAN'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_ALBARAN'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

54
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -204,12 +204,28 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item item
DatasetField = 'ID_ALBARAN' DatasetField = 'ID_ALBARAN_DEV'
TableField = 'ID_ALBARAN' TableField = 'ID_ALBARAN_DEV'
end end
item item
DatasetField = 'REFERENCIA_ALBARAN' DatasetField = 'REFERENCIA_ALB_DEV'
TableField = 'REFERENCIA_ALBARAN' TableField = 'REFERENCIA_ALB_DEV'
end
item
DatasetField = 'ID_FAC_ALB_DEV'
TableField = 'ID_FAC_ALB_DEV'
end
item
DatasetField = 'REFERENCIA_FAC_ALB_DEV'
TableField = 'REFERENCIA_FAC_ALB_DEV'
end
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end> end>
end> end>
Name = 'AlbaranesProveedor' Name = 'AlbaranesProveedor'
@ -273,6 +289,24 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Size = 1 Size = 1
DictionaryEntry = 'AlbaranesProveedor_TIPO' DictionaryEntry = 'AlbaranesProveedor_TIPO'
end end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger DataType = datInteger
@ -436,16 +470,12 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO' DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO'
end end
item item
Name = 'ID_ALBARAN' Name = 'NUM_COPIAS'
DataType = datInteger DataType = datSmallInt
DictionaryEntry = 'AlbaranesProveedor_ID_ALBARAN'
end end
item item
Name = 'REFERENCIA_ALBARAN' Name = 'NUM_CORREOS'
DataType = datString DataType = datSmallInt
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_ALBARAN'
end> end>
end end
item item

11
Source/Modulos/Albaranes de proveedor/Views/uDialogOpcionesImpresionAlbaranesProveedor.dfm
View File

@ -1,9 +1,9 @@
inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionAlbaranesProveedor inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionAlbaranesProveedor
Caption = 'Opciones para albar'#225'n a proveedor' Caption = 'Opciones para albar'#225'n a proveedor'
ClientHeight = 239 ClientHeight = 186
ClientWidth = 393 ClientWidth = 393
ExplicitWidth = 399 ExplicitWidth = 399
ExplicitHeight = 271 ExplicitHeight = 218
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited Bevel2: TBevel inherited Bevel2: TBevel
@ -11,13 +11,13 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
ExplicitWidth = 393 ExplicitWidth = 393
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Top = 195 Top = 142
Width = 393 Width = 393
ExplicitTop = 195 ExplicitTop = 195
ExplicitWidth = 393 ExplicitWidth = 393
end end
inherited pnlBotones: TPanel inherited pnlBotones: TPanel
Top = 197 Top = 144
Width = 393 Width = 393
ExplicitTop = 197 ExplicitTop = 197
ExplicitWidth = 393 ExplicitWidth = 393
@ -49,7 +49,7 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
end end
inherited pnlCuerpo: TPanel inherited pnlCuerpo: TPanel
Width = 393 Width = 393
Height = 129 Height = 76
ExplicitWidth = 393 ExplicitWidth = 393
ExplicitHeight = 129 ExplicitHeight = 129
object cbVerPrecios: TCheckBox object cbVerPrecios: TCheckBox
@ -73,6 +73,7 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 1 TabOrder = 1
Visible = False
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList

60
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm
View File

@ -2,6 +2,17 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
object cxGridViewREFERENCIA_ALB_DEV: TcxGridDBColumn [4]
Caption = 'Ref. alb. origen'
DataBinding.FieldName = 'REFERENCIA_ALB_DEV'
end
object cxGridViewREFERENCIA_FAC_ALB_DEV: TcxGridDBColumn [5]
Caption = 'Ref. fac. alb. origen'
DataBinding.FieldName = 'REFERENCIA_FAC_ALB_DEV'
end
inherited cxGridViewREF_FACTURA: TcxGridDBColumn inherited cxGridViewREF_FACTURA: TcxGridDBColumn
Caption = 'Ref. abono' Caption = 'Ref. abono'
end end
@ -28,6 +39,14 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end
end end
end end
end end
@ -156,6 +175,47 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
82} 82}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000774494D45000000000000000973942E000000097048597300001712
0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
16FA1194E3DBC30000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001964944415478DA
636440038B371DFFCF8005C4FA5932621347115CB2F9D8FF30075154053F3F30
30FC7CCF6096B49EE1FCCEE98C380D58B9F5F0FF403B09AC9A61B469C1050C43
C09C659B8FFE0F7110C3AB194CFFFAC0E0D2FD9B61FFEA1EB8218C203F873B8A
10A59911C806F18DBB85E02E011BF0E1C30786F44015A234671F0B653871742F
AA0131BE160C5316EF60C8F012012B9AB1F72F8A8BB2153782C5A73E4B00F3E7
2DDD846A80BF93215862E1BAFD603A27D603C580ACE6B50C5A0ADC0CB97D0F19
AEAEF66788C9694235C0D6580DAC70F3DE530CF1418E0CB88063F17D86B3270F
324C2E9267C88DF3441860A4A9C0B0EFF80506171B230C4D319DEF50F8113E1A
0CA5B53319182E64A006A28EBA0A565B4BE6FD61C88B85C83D7EF98FE1EBD76F
60767BDF4AB0216003A4440518AEDD7E80D580054715C006BC7ACFC2F0EBF76F
862F5FBE8231883D73FE4E880BFAA62EC2AAD9C2DA99E1D4536D86A42019860F
5FD9E19ABF7CFDCA307FE97E880B180800E3F4EBFF4101070389D18E70CDF0A4
4C34309801C9A950CDE41980A4190400B843EED8DFC8CDA30000000049454E44
AE426082}
Name = 'PngImage3'
Background = clWindow
end> end>
end end
end end

76
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -36,6 +36,33 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewICONO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
OnCustomDrawHeader = cxGridViewNUM_COPIASCustomDrawHeader
IsCaptionAssigned = True
end
object cxGridViewNUM_CORREOS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_CORREOS'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
BestFitMaxWidth = 25
MinWidth = 25
Options.Editing = False
Options.HorzSizing = False
Options.Moving = False
Options.ShowCaption = False
VisibleForCustomization = False
Width = 25
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
end
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -171,22 +198,22 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 188 Width = 188
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 292 Left = 210
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292 ExplicitLeft = 210
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 623 Left = 447
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 623 ExplicitLeft = 447
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end end
@ -444,6 +471,47 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082} 89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000774494D45000000000000000973942E000000097048597300001712
0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
16FA1194E3DBC30000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001964944415478DA
636440038B371DFFCF8005C4FA5932621347115CB2F9D8FF30075154053F3F30
30FC7CCF6096B49EE1FCCEE98C380D58B9F5F0FF403B09AC9A61B469C1050C43
C09C659B8FFE0F7110C3AB194CFFFAC0E0D2FD9B61FFEA1EB8218C203F873B8A
10A59911C806F18DBB85E02E011BF0E1C30786F44015A234671F0B653871742F
AA0131BE160C5316EF60C8F012012B9AB1F72F8A8BB2153782C5A73E4B00F3E7
2DDD846A80BF93215862E1BAFD603A27D603C580ACE6B50C5A0ADC0CB97D0F19
AEAEF66788C9694235C0D6580DAC70F3DE530CF1418E0CB88063F17D86B3270F
324C2E9267C88DF3441860A4A9C0B0EFF80506171B230C4D319DEF50F8113E1A
0CA5B53319182E64A006A28EBA0A565B4BE6FD61C88B85C83D7EF98FE1EBD76F
60767BDF4AB0216003A4440518AEDD7E80D580054715C006BC7ACFC2F0EBF76F
862F5FBE8231883D73FE4E880BFAA62EC2AAD9C2DA99E1D4536D86A42019860F
5FD9E19ABF7CFDCA307FE97E880B180800E3F4EBFF4101070389D18E70CDF0A4
4C34309801C9A950CDE41980A4190400B843EED8DFC8CDA30000000049454E44
AE426082}
Name = 'PngImage3'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

2
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.dfm
View File

@ -152,11 +152,13 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
end end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
ShowCaption = False ShowCaption = False
Visible = False
Control = RadioButton1 Control = RadioButton1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
Visible = False
Control = cbListaObras Control = cbListaObras
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

2
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -140,7 +140,9 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick Properties.OnButtonClick = cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick
Visible = False
BestFitMaxWidth = 50 BestFitMaxWidth = 50
VisibleForCustomization = False
Width = 50 Width = 50
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn inherited cxGridViewDESCRIPCION: TcxGridDBColumn

18
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Top = 84 Top = 84
end end
object rda_FacturasProveedor: TDARemoteDataAdapter object rda_FacturasProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51 Left = 51
Top = 151 Top = 151
end end
@ -239,12 +239,18 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Size = 255 Size = 255
DisplayLabel = 'Datos bancarios' DisplayLabel = 'Datos bancarios'
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS' DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor' LogicalName = 'FacturasProveedor'
IndexDefs = <> IndexDefs = <>
Left = 208 Left = 208
@ -363,8 +369,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterSource = ds_FacturasProveedor MasterSource = ds_FacturasProveedor
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_FACTURA' DetailFields = 'ID_FACTURA'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor_Detalles' LogicalName = 'FacturasProveedor_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 368 Left = 368
@ -431,8 +435,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterSource = ds_FacturasProveedor MasterSource = ds_FacturasProveedor
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_FACTURA' DetailFields = 'ID_FACTURA'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor_Pedidos' LogicalName = 'FacturasProveedor_Pedidos'
IndexDefs = <> IndexDefs = <>
Left = 368 Left = 368
@ -455,8 +457,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosFacturas' LogicalName = 'ListaAnosFacturas'
IndexDefs = <> IndexDefs = <>
Left = 208 Left = 208

16
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -179,6 +179,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
DatasetField = 'FECHA_VENCIMIENTO' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -362,6 +370,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS' DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end> end>
end end
item item

29
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 687 Width = 751
Height = 304 Height = 429
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 687 Width = 751
Height = 304 Height = 429
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -18,9 +18,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
687 751
304) 429)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -130,7 +131,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 204 Left = 237
Top = 135 Top = 135
Width = 132 Width = 132
Height = 23 Height = 23
@ -163,7 +164,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158 Width = 158
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 364 Left = 397
Top = 30 Top = 30
Width = 350 Width = 350
Height = 202 Height = 202
@ -175,7 +176,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 364 ExplicitLeft = 397
ExplicitTop = 30 ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -217,16 +218,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 209 Left = 240
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 209 ExplicitLeft = 240
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 93 Left = 124
ExplicitLeft = 93 ExplicitLeft = 124
end end
end end
end end
@ -334,12 +335,14 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
object ledtFechaVencimiento: TdxLayoutItem object ledtFechaVencimiento: TdxLayoutItem
Caption = 'Fecha vencimiento:' Caption = 'Fecha vencimiento:'
Visible = False
Control = edtFechaVencimiento Control = edtFechaVencimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Cuenta bancaria:' Caption = 'Cuenta bancaria:'
Visible = False
Control = cbCuentaBancaria Control = cbCuentaBancaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

80
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -34,6 +34,33 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewICONO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
OnCustomDrawHeader = cxGridViewNUM_COPIASCustomDrawHeader
IsCaptionAssigned = True
end
object cxGridViewNUM_CORREOS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_CORREOS'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
BestFitMaxWidth = 25
MinWidth = 25
Options.Editing = False
Options.HorzSizing = False
Options.Moving = False
Options.ShowCaption = False
VisibleForCustomization = False
Width = 25
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
end
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO' DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
@ -67,6 +94,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 32 Width = 32
end end
object cxGridViewFECHA_FACTURA: TcxGridDBColumn object cxGridViewFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha factura'
DataBinding.FieldName = 'FECHA_FACTURA' DataBinding.FieldName = 'FECHA_FACTURA'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Width = 27 Width = 27
@ -75,6 +103,8 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Caption = 'Fecha vto.' Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO' DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF' DataBinding.FieldName = 'NIF_CIF'
@ -146,6 +176,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Caption = 'Liquidaci'#243'n' Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False Visible = False
VisibleForCustomization = False
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
@ -186,22 +217,22 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 229 Width = 229
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 333 Left = 230
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 333 ExplicitLeft = 230
ExplicitWidth = 188 ExplicitWidth = 188
Width = 188 Width = 188
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 558 Left = 388
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 558 ExplicitLeft = 388
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end end
@ -391,6 +422,47 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
00004B6D80F047EC10D30000000049454E44AE426082} 00004B6D80F047EC10D30000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000774494D45000000000000000973942E000000097048597300001712
0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
16FA1194E3DBC30000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001964944415478DA
636440038B371DFFCF8005C4FA5932621347115CB2F9D8FF30075154053F3F30
30FC7CCF6096B49EE1FCCEE98C380D58B9F5F0FF403B09AC9A61B469C1050C43
C09C659B8FFE0F7110C3AB194CFFFAC0E0D2FD9B61FFEA1EB8218C203F873B8A
10A59911C806F18DBB85E02E011BF0E1C30786F44015A234671F0B653871742F
AA0131BE160C5316EF60C8F012012B9AB1F72F8A8BB2153782C5A73E4B00F3E7
2DDD846A80BF93215862E1BAFD603A27D603C580ACE6B50C5A0ADC0CB97D0F19
AEAEF66788C9694235C0D6580DAC70F3DE530CF1418E0CB88063F17D86B3270F
324C2E9267C88DF3441860A4A9C0B0EFF80506171B230C4D319DEF50F8113E1A
0CA5B53319182E64A006A28EBA0A565B4BE6FD61C88B85C83D7EF98FE1EBD76F
60767BDF4AB0216003A4440518AEDD7E80D580054715C006BC7ACFC2F0EBF76F
862F5FBE8231883D73FE4E880BFAA62EC2AAD9C2DA99E1D4536D86A42019860F
5FD9E19ABF7CFDCA307FE97E880B180800E3F4EBFF4101070389D18E70CDF0A4
4C34309801C9A950CDE41980A4190400B843EED8DFC8CDA30000000049454E44
AE426082}
Name = 'PngImage3'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

18
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Top = 84 Top = 84
end end
object rda_PedidosProveedor: TDARemoteDataAdapter object rda_PedidosProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 151 Top = 151
end end
@ -302,12 +302,18 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Size = 255 Size = 255
DisplayLabel = 'PedidosProveedor_REF_FACTURA_PROV' DisplayLabel = 'PedidosProveedor_REF_FACTURA_PROV'
DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV' DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV'
end
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor' LogicalName = 'PedidosProveedor'
IndexDefs = <> IndexDefs = <>
Left = 160 Left = 160
@ -367,8 +373,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end> end>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Articulos_Pendientes' LogicalName = 'PedidosProveedor_Articulos_Pendientes'
IndexDefs = <> IndexDefs = <>
Left = 480 Left = 480
@ -495,8 +499,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
MasterSource = ds_PedidosProveedor MasterSource = ds_PedidosProveedor
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_PEDIDO' DetailFields = 'ID_PEDIDO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Detalles' LogicalName = 'PedidosProveedor_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 296 Left = 296
@ -519,8 +521,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosPedidos' LogicalName = 'ListaAnosPedidos'
IndexDefs = <> IndexDefs = <>
Left = 168 Left = 168

16
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -214,6 +214,14 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
DatasetField = 'PERSONA_CONTACTO_PROV' DatasetField = 'PERSONA_CONTACTO_PROV'
TableField = 'PERSONA_CONTACTO_PROV' TableField = 'PERSONA_CONTACTO_PROV'
end
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end> end>
end> end>
Name = 'PedidosProveedor' Name = 'PedidosProveedor'
@ -452,6 +460,14 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV' DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV'
end
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end> end>
end end
item item

161
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -20,7 +20,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
965 965
560) 560)
object edtFechaPedido: TcxDBDateEdit object edtFechaPedido: TcxDBDateEdit
Left = 121 Left = 137
Top = 55 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PEDIDO' DataBinding.DataField = 'FECHA_PEDIDO'
@ -46,8 +46,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 333 Width = 333
end end
object edtFechaConfirmacion: TcxDBDateEdit object edtFechaConfirmacion: TcxDBDateEdit
Left = 589 Left = 137
Top = 292 Top = 195
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONFIRMACION' DataBinding.DataField = 'FECHA_CONFIRMACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -67,12 +67,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 7
Width = 344 Width = 344
end end
object edtFechaEntrega: TcxDBDateEdit object edtFechaEntrega: TcxDBDateEdit
Left = 589 Left = 137
Top = 319 Top = 222
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENTREGA' DataBinding.DataField = 'FECHA_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -90,12 +90,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 8
Width = 344 Width = 344
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 474 Left = 488
Top = 376 Top = 265
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -111,12 +111,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 11
Height = 200 Height = 200
Width = 459 Width = 459
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 121 Left = 137
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -143,7 +143,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22 Left = 22
Top = 301 Top = 279
Width = 432 Width = 432
Height = 248 Height = 248
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -152,10 +152,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 301 ExplicitTop = 279
ExplicitWidth = 432 ExplicitWidth = 432
ExplicitHeight = 248 ExplicitHeight = 248
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -167,9 +167,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
432 432
248) 248)
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 175 Top = 197
Width = 566 Width = 566
ExplicitTop = 175 ExplicitTop = 197
ExplicitWidth = 566 ExplicitWidth = 566
end end
inherited lblObra: TLabel inherited lblObra: TLabel
@ -189,10 +189,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 551 Width = 551
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 284 Left = 298
Top = 139 Top = 161
ExplicitLeft = 284 ExplicitLeft = 298
ExplicitTop = 139 ExplicitTop = 161
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 882 Width = 882
@ -205,15 +205,22 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 223 ExplicitWidth = 223
end end
inherited edtEntregarA: TcxDBButtonEdit inherited edtEntregarA: TcxDBButtonEdit
Top = 206 Top = 228
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 206 ExplicitTop = 228
ExplicitWidth = 334 ExplicitWidth = 334
Width = 334 Width = 334
end end
inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
Visible = False
end
end
end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 72 Left = 72
@ -227,7 +234,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 121 Left = 137
Top = 82 Top = 82
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -261,7 +268,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 195 Width = 195
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 312 Left = 326
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -270,8 +277,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaEnvio: TcxDBDateEdit object edtFechaEnvio: TcxDBDateEdit
Left = 589 Left = 137
Top = 265 Top = 168
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -291,11 +298,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 6
Width = 344 Width = 344
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 121 Left = 137
Top = 109 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
@ -322,7 +329,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 195 Width = 195
end end
object bVerPedidoCliente: TButton object bVerPedidoCliente: TButton
Left = 312 Left = 326
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -330,8 +337,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
TabOrder = 5 TabOrder = 5
end end
inline frViewObraReserva1: TfrViewObraReserva inline frViewObraReserva1: TfrViewObraReserva
Left = 22 Left = 488
Top = 168 Top = 441
Width = 422 Width = 422
Height = 97 Height = 97
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -340,25 +347,31 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 12
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 488
ExplicitTop = 168 ExplicitTop = 441
ExplicitWidth = 422 ExplicitWidth = 422
ExplicitHeight = 97 ExplicitHeight = 97
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 422 Width = 422
Height = 97 Height = 97
ExplicitWidth = 432 ExplicitWidth = 422
ExplicitHeight = 72 ExplicitHeight = 97
DesignSize = ( DesignSize = (
422 422
97) 97)
inherited Label1: TLabel
Width = 202
ExplicitWidth = 202
end
inherited cbObraReserva: TcxComboBox inherited cbObraReserva: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 581
Width = 581
end end
end end
inherited PngImageList: TPngImageList inherited PngImageList: TPngImageList
@ -371,7 +384,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
inline frViewDatosYSeleccionProveedorPedido1: TfrViewDatosYSeleccionProveedorPedido inline frViewDatosYSeleccionProveedorPedido1: TfrViewDatosYSeleccionProveedorPedido
Left = 474 Left = 488
Top = 28 Top = 28
Width = 480 Width = 480
Height = 201 Height = 201
@ -381,9 +394,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 474 ExplicitLeft = 488
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 480 ExplicitWidth = 480
ExplicitHeight = 201 ExplicitHeight = 201
@ -401,12 +414,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 224 Width = 224
end end
inherited edtCODIGO_ASIGNADO: TcxDBTextEdit inherited edtCODIGO_ASIGNADO: TcxDBTextEdit
Left = 356 Left = 342
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 356 ExplicitLeft = 342
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -425,16 +438,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 121 Width = 121
end end
inherited Button4: TButton inherited Button4: TButton
Left = 436 Left = 422
ExplicitLeft = 436 ExplicitLeft = 422
end end
inherited Button5: TButton inherited Button5: TButton
Left = 436 Left = 422
ExplicitLeft = 436 ExplicitLeft = 422
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 261 Left = 247
ExplicitLeft = 261 ExplicitLeft = 247
end end
end end
end end
@ -490,7 +503,6 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
@ -511,14 +523,22 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
Caption = 'Obra relacionada' Caption = 'Situaci'#243'n del pedido'
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Reservar para obra:' Caption = 'Enviado al prov. el d'#237'a:'
ShowCaption = False Control = edtFechaEnvio
Control = frViewObraReserva1 ControlOptions.ShowBorder = False
ControlOptions.AutoColor = True end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Confirmado el d'#237'a:'
Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Entrega prevista:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -554,25 +574,6 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal]
Caption = 'Situaci'#243'n del pedido'
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:'
Control = edtFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Confirmado el d'#237'a:'
Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Entrega prevista:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
@ -584,6 +585,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group11: TdxLayoutGroup
AutoAligns = [aaHorizontal]
Caption = 'Obra relacionada'
Visible = False
object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Reservar para obra:'
ShowCaption = False
Control = frViewObraReserva1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

74
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -34,9 +34,34 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewICONO: TcxGridDBColumn inherited cxGridViewICONO: TcxGridDBColumn
Visible = False
MinWidth = 30 MinWidth = 30
VisibleForCustomization = False
Width = 30 Width = 30
end end
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
OnCustomDrawHeader = cxGridViewNUM_COPIASCustomDrawHeader
IsCaptionAssigned = True
end
object cxGridViewNUM_CORREOS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_CORREOS'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
BestFitMaxWidth = 25
MinWidth = 25
Options.Editing = False
Options.HorzSizing = False
Options.Moving = False
Options.ShowCaption = False
VisibleForCustomization = False
Width = 25
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -124,13 +149,13 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
object cxGridViewNOMBRE_OBRA: TcxGridDBColumn object cxGridViewNOMBRE_OBRA: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_OBRA' DataBinding.FieldName = 'NOMBRE_OBRA'
Visible = False
VisibleForCustomization = False
Width = 54 Width = 54
end end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido cli.' Caption = 'Ref. pedido cli.'
DataBinding.FieldName = 'REF_PED_CLIENTE' DataBinding.FieldName = 'REF_PED_CLIENTE'
Visible = False
VisibleForCustomization = False
Width = 65 Width = 65
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@ -150,6 +175,8 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn
Caption = 'Ref. factura' Caption = 'Ref. factura'
DataBinding.FieldName = 'REF_FACTURA_PROV' DataBinding.FieldName = 'REF_FACTURA_PROV'
Visible = False
VisibleForCustomization = False
Width = 95 Width = 95
end end
end end
@ -213,6 +240,8 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 673 ExplicitLeft = 673
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -430,6 +459,47 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000774494D45000000000000000973942E000000097048597300001712
0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
16FA1194E3DBC30000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001964944415478DA
636440038B371DFFCF8005C4FA5932621347115CB2F9D8FF30075154053F3F30
30FC7CCF6096B49EE1FCCEE98C380D58B9F5F0FF403B09AC9A61B469C1050C43
C09C659B8FFE0F7110C3AB194CFFFAC0E0D2FD9B61FFEA1EB8218C203F873B8A
10A59911C806F18DBB85E02E011BF0E1C30786F44015A234671F0B653871742F
AA0131BE160C5316EF60C8F012012B9AB1F72F8A8BB2153782C5A73E4B00F3E7
2DDD846A80BF93215862E1BAFD603A27D603C580ACE6B50C5A0ADC0CB97D0F19
AEAEF66788C9694235C0D6580DAC70F3DE530CF1418E0CB88063F17D86B3270F
324C2E9267C88DF3441860A4A9C0B0EFF80506171B230C4D319DEF50F8113E1A
0CA5B53319182E64A006A28EBA0A565B4BE6FD61C88B85C83D7EF98FE1EBD76F
60767BDF4AB0216003A4440518AEDD7E80D580054715C006BC7ACFC2F0EBF76F
862F5FBE8231883D73FE4E880BFAA62EC2AAD9C2DA99E1D4536D86A42019860F
5FD9E19ABF7CFDCA307FE97E880B180800E3F4EBFF4101070389D18E70CDF0A4
4C34309801C9A950CDE41980A4190400B843EED8DFC8CDA30000000049454E44
AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

102
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -130,6 +130,26 @@ object RptRecibosCliente: TRptRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
@ -199,7 +219,6 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
@ -207,8 +226,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Cabecera' LogicalName = 'Informe_Cabecera'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
@ -452,7 +469,6 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -474,15 +490,17 @@ object RptRecibosCliente: TRptRecibosCliente
'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' + 'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' +
'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' + 'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' +
'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' + 'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' +
'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' + 'CLIENTE.POBLACION_CLIENTE,'#10#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENT' +
'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' + 'E,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE' +
' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' + '.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS' +
' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' + '.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS' +
'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' + '.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA' +
' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' + ','#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_P' +
'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' + 'OSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESA' +
'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 + 'S.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_W' +
'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 'EB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_REC' +
'IBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RECI' +
'BOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -610,6 +628,26 @@ object RptRecibosCliente: TRptRecibosCliente
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'POBLACION_CLIENTE' SQLOrigin = 'POBLACION_CLIENTE'
end end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'CUENTA_CLIENTE'
end
item item
DatasetField = 'NIF_CIF_EMPRESA' DatasetField = 'NIF_CIF_EMPRESA'
TableField = '<unknown>' TableField = '<unknown>'
@ -796,6 +834,26 @@ object RptRecibosCliente: TRptRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
@ -1179,7 +1237,7 @@ object RptRecibosCliente: TRptRecibosCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.7.71'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -1241,6 +1299,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -1254,6 +1313,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBCompensados' UserName = 'frxDBCompensados'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCompensados DataSource = DADataCompensados
BCDToCurrency = False
Left = 360 Left = 360
Top = 16 Top = 16
end end
@ -1286,8 +1346,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Compensados' LogicalName = 'Informe_Compensados'
IndexDefs = <> IndexDefs = <>
Left = 360 Left = 360
@ -1351,8 +1409,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoRecibos' LogicalName = 'InformeListadoRecibos'
IndexDefs = <> IndexDefs = <>
Left = 496 Left = 496
@ -1368,6 +1424,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibos' UserName = 'frxDBInformeListadoRecibos'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibos DataSource = DADSInformeListadoRecibos
BCDToCurrency = False
Left = 496 Left = 496
Top = 16 Top = 16
end end
@ -1379,6 +1436,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibosResumen' UserName = 'frxDBInformeListadoRecibosResumen'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibosResumen DataSource = DADSInformeListadoRecibosResumen
BCDToCurrency = False
Left = 504 Left = 504
Top = 192 Top = 192
end end
@ -1396,8 +1454,6 @@ object RptRecibosCliente: TRptRecibosCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 504 Left = 504
Top = 304 Top = 304
@ -1406,6 +1462,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibosPendientes' UserName = 'frxDBInformeListadoRecibosPendientes'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibosPendientes DataSource = DADSInformeListadoRecibosPendientes
BCDToCurrency = False
Left = 704 Left = 704
Top = 16 Top = 16
end end
@ -1482,8 +1539,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoRecibosPendientes' LogicalName = 'InformeListadoRecibosPendientes'
IndexDefs = <> IndexDefs = <>
Left = 704 Left = 704
@ -1493,6 +1548,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibosPendResumen' UserName = 'frxDBInformeListadoRecibosPendResumen'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibosPendResumen DataSource = DADSInformeListadoRecibosPendResumen
BCDToCurrency = False
Left = 704 Left = 704
Top = 192 Top = 192
end end
@ -1510,8 +1566,6 @@ object RptRecibosCliente: TRptRecibosCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 704 Left = 704
Top = 304 Top = 304

40
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -243,6 +243,26 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString DataType = datString
Size = 15 Size = 15
end end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
@ -428,6 +448,26 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime

72
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -158,6 +158,22 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ENTIDAD_PROVEEDOR'
TableField = 'ENTIDAD_PROVEEDOR'
end
item
DatasetField = 'SUCURSAL_PROVEEDOR'
TableField = 'SUCURSAL_PROVEEDOR'
end
item
DatasetField = 'DC_PROVEEDOR'
TableField = 'DC_PROVEEDOR'
end
item
DatasetField = 'CUENTA_PROVEEDOR'
TableField = 'CUENTA_PROVEEDOR'
end> end>
end> end>
Name = 'RecibosCompensadosProv' Name = 'RecibosCompensadosProv'
@ -277,6 +293,26 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString DataType = datString
Size = 15 Size = 15
end end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
@ -410,6 +446,22 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ENTIDAD_PROVEEDOR'
TableField = 'ENTIDAD_PROVEEDOR'
end
item
DatasetField = 'SUCURSAL_PROVEEDOR'
TableField = 'SUCURSAL_PROVEEDOR'
end
item
DatasetField = 'DC_PROVEEDOR'
TableField = 'DC_PROVEEDOR'
end
item
DatasetField = 'CUENTA_PROVEEDOR'
TableField = 'CUENTA_PROVEEDOR'
end> end>
end> end>
Name = 'RecibosProveedor' Name = 'RecibosProveedor'
@ -552,6 +604,26 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 15 Size = 15
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime

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

@ -54,15 +54,11 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado' Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
Visible = False
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado' Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn
Caption = 'Ref. factura prov.' Caption = 'Ref. factura prov.'
@ -147,6 +143,8 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
object cxGridViewDATOS_BANCARIOS: TcxGridDBColumn object cxGridViewDATOS_BANCARIOS: TcxGridDBColumn
Caption = 'Banco' Caption = 'Banco'
DataBinding.FieldName = 'DATOS_BANCARIOS' DataBinding.FieldName = 'DATOS_BANCARIOS'
Visible = False
VisibleForCustomization = False
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
@ -187,22 +185,22 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Width = 201 Width = 201
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 212 Left = 232
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 212 ExplicitLeft = 232
ExplicitWidth = 216 ExplicitWidth = 216
Width = 216 Width = 216
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 389 Left = 426
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 426
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

261
Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm
View File

@ -16,38 +16,263 @@ object RptRemesasCliente: TRptRemesasCliente
Left = 344 Left = 344
Top = 72 Top = 72
end end
object tbl_Cabecera: TDACDSDataTable object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
Params = <> item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_REMESA'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'DC'
DataType = datString
Size = 15
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] LocalSchema = schReport
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Cabecera'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
Top = 128 Top = 128
end end
object tbl_Detalles: TDACDSDataTable object tbl_Detalles: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
Params = <> item
Name = 'ID'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datFloat
end
item
Name = 'OTROS_GASTOS'
DataType = datFloat
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datFloat
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
end>
Params = <
item
Name = 'ID_REMESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] LocalSchema = schReport
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 344 Left = 344
Top = 128 Top = 128
end end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 80
end
object frxRichObject1: TfrxRichObject object frxRichObject1: TfrxRichObject
Left = 48 Left = 48
Top = 296 Top = 296
@ -562,7 +787,7 @@ object RptRemesasCliente: TRptRemesasCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.7.71'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -627,6 +852,7 @@ object RptRemesasCliente: TRptRemesasCliente
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -634,7 +860,12 @@ object RptRemesasCliente: TRptRemesasCliente
UserName = 'frxDBDetalles' UserName = 'frxDBDetalles'
CloseDataSource = False CloseDataSource = False
DataSource = DADataDetalles DataSource = DADataDetalles
BCDToCurrency = False
Left = 344 Left = 344
Top = 16 Top = 16
end end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end end

6
Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor
Top = 84 Top = 84
end end
object rda_RemesasProveedor: TDARemoteDataAdapter object rda_RemesasProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 49 Left = 49
Top = 151 Top = 151
end end
@ -147,8 +147,6 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RemesasProveedor RemoteDataAdapter = rda_RemesasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RemesasProveedor' LogicalName = 'RemesasProveedor'
IndexDefs = <> IndexDefs = <>
Left = 192 Left = 192
@ -171,8 +169,6 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RemesasProveedor RemoteDataAdapter = rda_RemesasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosRemesas' LogicalName = 'ListaAnosRemesas'
IndexDefs = <> IndexDefs = <>
Left = 312 Left = 312

273
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm
View File

@ -16,38 +16,273 @@ object RptRemesasProveedor: TRptRemesasProveedor
Left = 344 Left = 344
Top = 72 Top = 72
end end
object tbl_Cabecera: TDACDSDataTable object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
Params = <> item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_REMESA'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'DC'
DataType = datString
Size = 15
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
Size = 15
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
end
item
Name = 'CALLE_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_EMPRESA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end
item
Name = 'LOGOTIPO'
DataType = datBlob
end>
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] LocalSchema = schReport
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Cabecera'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
Top = 128 Top = 128
end end
object tbl_Detalles: TDACDSDataTable object tbl_Detalles: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
Params = <> item
Name = 'ID'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datFloat
end
item
Name = 'OTROS_GASTOS'
DataType = datFloat
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datFloat
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end>
Params = <
item
Name = 'ID_REMESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] LocalSchema = schReport
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 344 Left = 344
Top = 128 Top = 128
end end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 80
end
object frxRichObject1: TfrxRichObject object frxRichObject1: TfrxRichObject
Left = 48 Left = 48
Top = 296 Top = 296
@ -108,7 +343,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
#10#10'FROM'#10' V_REMESAS_PROVEEDOR'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' + #10#10'FROM'#10' V_REMESAS_PROVEEDOR'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' +
'ESAS.ID = V_REMESAS_PROVEEDOR.ID_EMPRESA)'#10' LEFT OUTER JOIN EMPR' + 'ESAS.ID = V_REMESAS_PROVEEDOR.ID_EMPRESA)'#10' LEFT OUTER JOIN EMPR' +
'ESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = V_REMESAS_PROVEED' + 'ESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = V_REMESAS_PROVEED' +
'OR.ID_DATOS_BANCO)'#10'WHERE'#10' V_REMESAS_PROVEEDOR.ID = :ID' 'OR.ID_DATOS_BANCO)'#10'WHERE'#10' V_REMESAS_PROVEEDOR.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -583,7 +818,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.7.71'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -664,6 +899,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -671,7 +907,12 @@ object RptRemesasProveedor: TRptRemesasProveedor
UserName = 'frxDBDetalles' UserName = 'frxDBDetalles'
CloseDataSource = False CloseDataSource = False
DataSource = DADataDetalles DataSource = DADataDetalles
BCDToCurrency = False
Left = 344 Left = 344
Top = 16 Top = 16
end end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end end