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

Repaso de releaciones entre modulos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@59 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-15 16:41:43 +00:00
parent 696cad13b3
commit ecbc916cb9
7 changed files with 196 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -1204,6 +1204,7 @@ begin
// Hay que dejar algunos campos como si fuera una factura nueva // Hay que dejar algunos campos como si fuera una factura nueva
Result.Edit; Result.Edit;
Result.TIPO := CTE_TIPO_ALBARAN_DEV; Result.TIPO := CTE_TIPO_ALBARAN_DEV;
Result.ID_ALBARAN_DEV := AAlbaran.ID;
Result.Post; Result.Post;
finally finally

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

@ -360,12 +360,13 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
DictionaryEntry = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
@ -423,11 +424,14 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
end end
item item
Name = 'REFERENCIA_FABRICANTE' Name = 'REFERENCIA_FABRICANTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

12
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{67FE3121-0CE7-44D8-ACA8-DD41FC61C261}'; RID_ListaAnosAlbaranes = '{DCE523D3-B15A-40EE-9B47-9361FE439404}';
RID_AlbaranesProveedor = '{35158E6A-D01B-419D-A2EA-50F406DE673F}'; RID_AlbaranesProveedor = '{6B6C4CC5-85E7-44E7-A12E-09502AE76066}';
RID_AlbaranesProveedor_Detalles = '{058C3E31-7243-4BF5-82E7-4DAE76DDB637}'; RID_AlbaranesProveedor_Detalles = '{462A059B-E769-4C13-BD57-CA2DF45B5A7C}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -159,7 +159,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{1ACBFBC1-8E84-4ED5-B38E-C9A682A139A7}'] ['{62EAAFE2-3068-4D25-A37E-6158C88B9DC9}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -194,7 +194,7 @@ type
{ IAlbaranesProveedor } { IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{F880F855-AF71-44A7-9893-AE9DDB0C73D9}'] ['{3744DF7C-2532-421F-81C9-A36DB6E45B39}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -757,7 +757,7 @@ type
{ IAlbaranesProveedor_Detalles } { IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{016EE213-5C1E-47B9-AF6B-80B093BA8C57}'] ['{BECB0B29-05CC-4C96-94D3-698989CE1793}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}'; RID_ListaAnosAlbaranesDelta = '{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}';
RID_AlbaranesProveedorDelta = '{E1D5D564-4E1B-40E7-836F-99DEF018E818}'; RID_AlbaranesProveedorDelta = '{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}';
RID_AlbaranesProveedor_DetallesDelta = '{F56457BE-97AC-46CB-A5B8-A4334B643925}'; RID_AlbaranesProveedor_DetallesDelta = '{A4442F40-9AF5-4666-B9C7-8C453A7518C3}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}'] ['{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesProveedorDelta } { IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{E1D5D564-4E1B-40E7-836F-99DEF018E818}'] ['{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -614,7 +614,7 @@ type
{ IAlbaranesProveedor_DetallesDelta } { IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{F56457BE-97AC-46CB-A5B8-A4334B643925}'] ['{A4442F40-9AF5-4666-B9C7-8C453A7518C3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;

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

@ -493,16 +493,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'TE_TOTAL, ALBARANES_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ALBARANES_P' + 'TE_TOTAL, ALBARANES_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ALBARANES_P' +
'ROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESC' + 'ROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESC' +
'UENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTIC' + 'UENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTIC' +
'ULOS.REFERENCIA, ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERE' + 'ULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEED' +
'NCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ' + 'OR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ARTICULOS.RE' +
'ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARAN' + 'FERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARANES_PROVEEDOR' +
'ES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR' + '_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID' +
'_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEED' + '_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEEDOR ON (ALBAR' +
'OR ON (ALBARANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_' + 'ANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN)'#10'LEF' +
'ALBARAN)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDO' + 'T JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTIC' +
'RES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PR' + 'ULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = AL' +
'OVEEDOR = ALBARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER' + 'BARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER BY POSICION' +
' BY POSICION;'#10#10#10#10 ';'#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -610,12 +610,12 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
@ -662,11 +662,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
end end
item item
Name = 'REFERENCIA_FABRICANTE' Name = 'REFERENCIA_FABRICANTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -674,14 +676,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Commands = < Commands = <
item item
Params = < Params = <
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item
Name = 'ID_DIRECCION'
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -690,130 +684,184 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' 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 = '' Value = ''
end end
item item
Name = 'FECHA_ALBARAN' Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 1
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REF_FACTURA_PROV' Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
Value = '' DataType = datString
end Size = 30
item
Name = 'ID_ALBARAN'
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -831,17 +879,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FEC' + 'OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FEC' +
'HA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ' + 'HA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ' +
' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_ALB' + ' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_ALB' +
'ARAN)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' ' + 'ARAN_DEV)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR' +
' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBARAN,' + ','#10' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBA' +
#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA,'#10' ' + 'RAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA' +
' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' ' + ','#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10 +
':CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CON' + ' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA' +
'TACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' + '_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' +
'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTA' + ' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_' +
'L,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVA' + 'TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
'S,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :' + 'TIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
'ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_' + ' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPO' +
'PORTE,'#10' :ID_ALBARAN);'#10 'RTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -867,144 +915,191 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Params = < Params = <
item
Name = 'ID_ALBARAN'
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item
Name = 'ID_DIRECCION'
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' 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 = '' Value = ''
end end
item item
Name = 'FECHA_ALBARAN' Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 1
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REF_FACTURA_PROV' Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
Value = '' Value = ''
end end
item item
@ -1034,7 +1129,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' + '_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' +
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' + ' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' + ' 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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1654,6 +1750,25 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'AlbaranesProveedor_REFERENCIA_ALBARAN' Name = 'AlbaranesProveedor_REFERENCIA_ALBARAN'
DataType = datString DataType = datString
Size = 255 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> end>
Left = 48 Left = 48
Top = 128 Top = 128

1
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -105,7 +105,6 @@ procedure TfEditorAlbaranesProveedor.actGenerarDevolucionUpdate(
begin begin
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1) and not (ViewGrid.NumSeleccionados > 1)
and (Albaranes.REF_FACTURA = '')
and ViewGrid.esSeleccionCeldaDatos; and ViewGrid.esSeleccionCeldaDatos;
end; end;

26
Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran
Width = 505 Width = 505
Height = 171 Height = 214
ExplicitWidth = 505 ExplicitWidth = 505
ExplicitHeight = 171 ExplicitHeight = 214
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 505 Width = 505
Height = 171 Height = 214
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -19,7 +19,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
505 505
171) 214)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 63 Left = 63
Top = 41 Top = 41
@ -76,7 +76,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end end
object edtPersonaContacto: TcxDBTextEdit object edtPersonaContacto: TcxDBTextEdit
Left = 63 Left = 63
Top = 101 Top = 150
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO_PROV' DataBinding.DataField = 'PERSONA_CONTACTO_PROV'
@ -100,7 +100,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end end
object edtDireccion: TcxTextEdit object edtDireccion: TcxTextEdit
Left = 63 Left = 63
Top = 70 Top = 68
AutoSize = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -118,7 +119,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 121 Height = 50
Width = 403
end end
object Button4: TButton object Button4: TButton
Left = 472 Left = 472
@ -130,7 +132,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end end
object Button5: TButton object Button5: TButton
Left = 472 Left = 472
Top = 99 Top = 148
Width = 23 Width = 23
Height = 25 Height = 25
Action = actElegirPersonaContacto Action = actElegirPersonaContacto
@ -138,7 +140,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 297 Left = 297
Top = 130 Top = 179
Width = 198 Width = 198
Height = 25 Height = 25
Action = actVerContacto Action = actVerContacto
@ -309,6 +311,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
@ -316,7 +320,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avCenter AlignVert = avClient
Caption = 'Direcci'#243'n' Caption = 'Direcci'#243'n'
Control = edtDireccion Control = edtDireccion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -326,6 +330,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button4' Caption = 'Button4'
ShowCaption = False ShowCaption = False
Visible = False
Control = Button4 Control = Button4
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -336,6 +341,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False