Repaso de releaciones entre modulos
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@59 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
696cad13b3
commit
ecbc916cb9
@ -1204,6 +1204,7 @@ begin
|
||||
// Hay que dejar algunos campos como si fuera una factura nueva
|
||||
Result.Edit;
|
||||
Result.TIPO := CTE_TIPO_ALBARAN_DEV;
|
||||
Result.ID_ALBARAN_DEV := AAlbaran.ID;
|
||||
Result.Post;
|
||||
|
||||
finally
|
||||
|
||||
@ -360,12 +360,13 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
@ -423,11 +424,14 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FABRICANTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranes = '{67FE3121-0CE7-44D8-ACA8-DD41FC61C261}';
|
||||
RID_AlbaranesProveedor = '{35158E6A-D01B-419D-A2EA-50F406DE673F}';
|
||||
RID_AlbaranesProveedor_Detalles = '{058C3E31-7243-4BF5-82E7-4DAE76DDB637}';
|
||||
RID_ListaAnosAlbaranes = '{DCE523D3-B15A-40EE-9B47-9361FE439404}';
|
||||
RID_AlbaranesProveedor = '{6B6C4CC5-85E7-44E7-A12E-09502AE76066}';
|
||||
RID_AlbaranesProveedor_Detalles = '{462A059B-E769-4C13-BD57-CA2DF45B5A7C}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||
@ -159,7 +159,7 @@ const
|
||||
type
|
||||
{ IListaAnosAlbaranes }
|
||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{1ACBFBC1-8E84-4ED5-B38E-C9A682A139A7}']
|
||||
['{62EAAFE2-3068-4D25-A37E-6158C88B9DC9}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -194,7 +194,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor }
|
||||
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{F880F855-AF71-44A7-9893-AE9DDB0C73D9}']
|
||||
['{3744DF7C-2532-421F-81C9-A36DB6E45B39}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -757,7 +757,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_Detalles }
|
||||
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{016EE213-5C1E-47B9-AF6B-80B093BA8C57}']
|
||||
['{BECB0B29-05CC-4C96-94D3-698989CE1793}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranesDelta = '{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}';
|
||||
RID_AlbaranesProveedorDelta = '{E1D5D564-4E1B-40E7-836F-99DEF018E818}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{F56457BE-97AC-46CB-A5B8-A4334B643925}';
|
||||
RID_ListaAnosAlbaranesDelta = '{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}';
|
||||
RID_AlbaranesProveedorDelta = '{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{A4442F40-9AF5-4666-B9C7-8C453A7518C3}';
|
||||
|
||||
type
|
||||
{ IListaAnosAlbaranesDelta }
|
||||
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
||||
['{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}']
|
||||
['{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedorDelta }
|
||||
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
|
||||
['{E1D5D564-4E1B-40E7-836F-99DEF018E818}']
|
||||
['{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -614,7 +614,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_DetallesDelta }
|
||||
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
|
||||
['{F56457BE-97AC-46CB-A5B8-A4334B643925}']
|
||||
['{A4442F40-9AF5-4666-B9C7-8C453A7518C3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
|
||||
@ -493,16 +493,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
'TE_TOTAL, ALBARANES_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ALBARANES_P' +
|
||||
'ROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESC' +
|
||||
'UENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTIC' +
|
||||
'ULOS.REFERENCIA, ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERE' +
|
||||
'NCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ' +
|
||||
'ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARAN' +
|
||||
'ES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR' +
|
||||
'_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEED' +
|
||||
'OR ON (ALBARANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_' +
|
||||
'ALBARAN)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDO' +
|
||||
'RES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PR' +
|
||||
'OVEEDOR = ALBARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER' +
|
||||
' BY POSICION;'#10#10#10#10
|
||||
'ULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEED' +
|
||||
'OR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ARTICULOS.RE' +
|
||||
'FERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARANES_PROVEEDOR' +
|
||||
'_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID' +
|
||||
'_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEEDOR ON (ALBAR' +
|
||||
'ANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN)'#10'LEF' +
|
||||
'T JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTIC' +
|
||||
'ULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = AL' +
|
||||
'BARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER BY POSICION' +
|
||||
';'#10#10#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -610,12 +610,12 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
@ -662,11 +662,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FABRICANTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -674,14 +676,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -690,130 +684,184 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN_DEV'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -831,17 +879,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
'OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FEC' +
|
||||
'HA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ' +
|
||||
' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_ALB' +
|
||||
'ARAN)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' ' +
|
||||
' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBARAN,' +
|
||||
#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA,'#10' ' +
|
||||
' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' ' +
|
||||
':CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CON' +
|
||||
'TACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' +
|
||||
'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTA' +
|
||||
'L,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVA' +
|
||||
'S,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :' +
|
||||
'ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_' +
|
||||
'PORTE,'#10' :ID_ALBARAN);'#10
|
||||
'ARAN_DEV)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR' +
|
||||
','#10' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBA' +
|
||||
'RAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA' +
|
||||
','#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10 +
|
||||
' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA' +
|
||||
'_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' +
|
||||
' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_' +
|
||||
'TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
|
||||
'TIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
|
||||
' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPO' +
|
||||
'RTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -867,144 +915,191 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN_DEV'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1034,7 +1129,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
'_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' +
|
||||
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
|
||||
' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' +
|
||||
'RTE,'#10' ID_ALBARAN = :ID_ALBARAN'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
'RTE,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_I' +
|
||||
'D);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1654,6 +1750,25 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
Name = 'AlbaranesProveedor_REFERENCIA_ALBARAN'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'POSICIONCONCEPTO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Left = 48
|
||||
Top = 128
|
||||
|
||||
@ -105,7 +105,6 @@ procedure TfEditorAlbaranesProveedor.actGenerarDevolucionUpdate(
|
||||
begin
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not (ViewGrid.NumSeleccionados > 1)
|
||||
and (Albaranes.REF_FACTURA = '')
|
||||
and ViewGrid.esSeleccionCeldaDatos;
|
||||
end;
|
||||
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran
|
||||
Width = 505
|
||||
Height = 171
|
||||
Height = 214
|
||||
ExplicitWidth = 505
|
||||
ExplicitHeight = 171
|
||||
ExplicitHeight = 214
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 505
|
||||
Height = 171
|
||||
Height = 214
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
@ -19,7 +19,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
505
|
||||
171)
|
||||
214)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 41
|
||||
@ -76,7 +76,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
end
|
||||
object edtPersonaContacto: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 101
|
||||
Top = 150
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO_PROV'
|
||||
@ -100,7 +100,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
end
|
||||
object edtDireccion: TcxTextEdit
|
||||
Left = 63
|
||||
Top = 70
|
||||
Top = 68
|
||||
AutoSize = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
@ -118,7 +119,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 4
|
||||
Width = 121
|
||||
Height = 50
|
||||
Width = 403
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 472
|
||||
@ -130,7 +132,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 472
|
||||
Top = 99
|
||||
Top = 148
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirPersonaContacto
|
||||
@ -138,7 +140,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 297
|
||||
Top = 130
|
||||
Top = 179
|
||||
Width = 198
|
||||
Height = 25
|
||||
Action = actVerContacto
|
||||
@ -309,6 +311,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
@ -316,7 +320,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
AlignVert = avClient
|
||||
Caption = 'Direcci'#243'n'
|
||||
Control = edtDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
@ -326,6 +330,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button4'
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Control = Button4
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -336,6 +341,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
|
||||
Reference in New Issue
Block a user