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

Arreglo para que se puedan hacer ordenes de devolución desde las obras

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@499 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-08-04 13:48:21 +00:00
parent de1f75e4ca
commit b676953419
3 changed files with 75 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm
View File

@ -1,29 +1,32 @@
inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Height = 349 Height = 470
ExplicitHeight = 349 ExplicitHeight = 470
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Height = 349 Height = 470
ExplicitHeight = 349 ExplicitHeight = 470
inherited edtFechaAlbaran: TcxDBDateEdit inherited edtFechaAlbaran: TcxDBDateEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 119 ExplicitWidth = 330
Width = 119 Width = 330
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 186 ExplicitWidth = 186
ExplicitHeight = 162 ExplicitHeight = 172
Height = 162 Height = 172
Width = 186 Width = 186
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 143 ExplicitWidth = 330
Width = 143 Width = 330
end end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Width = 350
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
@ -48,40 +51,34 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Width = 445 Width = 445
Height = 175 Height = 199
ExplicitWidth = 445 ExplicitWidth = 445
ExplicitHeight = 175 ExplicitHeight = 199
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 445 Width = 445
Height = 175 Height = 199
ExplicitHeight = 78
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
Width = 255 Caption = 'Salida del albar'#225'n del almac'#233'n:'
ExplicitWidth = 255
end end
inherited rdxDestino2: TRadioButton inherited rdxDestino2: TRadioButton
Width = 287 Width = 287
ExplicitWidth = 287 ExplicitWidth = 287
end end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425
Width = 425
end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 109 Top = 164
Top = 109 ExplicitTop = 164
ExplicitLeft = 109
ExplicitTop = 109
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 549 Width = 765
Height = 110 Height = 25
ExplicitWidth = 549 ExplicitWidth = 765
ExplicitHeight = 110 ExplicitHeight = 25
end
inherited RadioButton1: TRadioButton
Caption = 'Salida del albar'#225'n de la obra:'
end end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item2: TdxLayoutItem inherited dxLayoutControl1Item2: TdxLayoutItem
Visible = False Visible = False
end end
@ -93,30 +90,52 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end end
end end
end end
inherited ActionList1: TActionList
Left = 56
Top = 0
end
inherited dsAlbaran: TDADataSource
Left = 88
Top = 0
end
inherited dsAlmacenes: TDADataSource
Left = 136
Top = 0
end
inherited dsObras: TDADataSource
Left = 184
Top = 0
end
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 90 ExplicitWidth = 192
Width = 90 Width = 192
end end
inherited eReferenciaPedidoCli: TcxTextEdit inherited eReferenciaPedidoCli: TcxTextEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 69 ExplicitWidth = 192
Width = 69 Width = 192
end end
inherited eRefFactura: TcxDBTextEdit inherited eRefFactura: TcxDBTextEdit
ExplicitWidth = 172 Left = 114
Width = 172 ExplicitLeft = 114
ExplicitWidth = 330
Width = 330
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 172 Left = 114
Width = 172 ExplicitLeft = 114
ExplicitWidth = 330
Width = 330
end end
inherited eReferenciaFacturaProveedor: TcxDBTextEdit inherited eReferenciaFacturaProveedor: TcxDBTextEdit
ExplicitWidth = 172 Left = 114
Width = 172 ExplicitLeft = 114
ExplicitWidth = 330
Width = 330
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup

8
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.pas
View File

@ -8,7 +8,13 @@ uses
dxLayoutControl, cxTextEdit, StdCtrls, cxDropDownEdit, cxLookupEdit, dxLayoutControl, cxTextEdit, StdCtrls, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uViewDireccionEntregaAlbaranProv, cxDBLookupEdit, cxDBLookupComboBox, uViewDireccionEntregaAlbaranProv,
uCustomView, uViewBase, uViewDatosYSeleccionProveedor, cxDBEdit, cxMemo, uCustomView, uViewBase, uViewDatosYSeleccionProveedor, cxDBEdit, cxMemo,
cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls; cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinsdxLCPainter, uDAInterfaces;
type type
IViewAlbaranDevProveedor = interface(IViewAlbaranProveedor) IViewAlbaranDevProveedor = interface(IViewAlbaranProveedor)

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

@ -36,7 +36,7 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
TabOrder = 4 TabOrder = 4
end end
object cbLista: TcxDBLookupComboBox object cbLista: TcxDBLookupComboBox
Left = 25 Left = 10
Top = 33 Top = 33
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
@ -138,7 +138,6 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'New Item' Caption = 'New Item'
Offsets.Left = 15
ShowCaption = False ShowCaption = False
Control = cbLista Control = cbLista
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -179,8 +178,8 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
Left = 40 Left = 224
Top = 16 Top = 8
object actLista: TAction object actLista: TAction
Caption = 'Recibir el pedido en el almac'#233'n:' Caption = 'Recibir el pedido en el almac'#233'n:'
Checked = True Checked = True
@ -199,15 +198,15 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
end end
end end
object dsAlbaran: TDADataSource object dsAlbaran: TDADataSource
Left = 8 Left = 264
Top = 16 Top = 8
end end
object dsAlmacenes: TDADataSource object dsAlmacenes: TDADataSource
Left = 8 Left = 304
Top = 48 Top = 8
end end
object dsObras: TDADataSource object dsObras: TDADataSource
Left = 8 Left = 344
Top = 80 Top = 8
end end
end end