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

Se adaptan los albaranes para que si el cliente se bloquea se vean como bloqueados tambien sus albaranes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@300 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-10-31 16:04:07 +00:00
parent c7e8b89e41
commit 61996caa03
10 changed files with 181 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Database/VISTAS.SQL
View File

@ -1088,7 +1088,8 @@ CREATE VIEW V_ALBARANES_CLIENTE(
ID_AGENTE,
AGENTE,
NUM_COPIAS,
NUM_CORREOS)
NUM_CORREOS,
BLOQUEADO)
AS
SELECT
ALBARANES_CLIENTE.ID,
@ -1137,7 +1138,8 @@ SELECT
CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
REGISTRO_CORREOS.NUM_CORREOS,
CLIENTES_DATOS.BLOQUEADO
FROM
ALBARANES_CLIENTE

BIN
Source/Iconos/Generales/16x16/Thumbs.db
View File

Binary file not shown.

8
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
View File

@ -8,7 +8,9 @@
<Option Name="GUID">{D1967178-5EBB-46B2-893F-E0CADFEDD466}</Option>
</Option>
</PersonalityInfo>
<Default.Personality> <Projects>
<Default.Personality>
<Projects>
<Projects Name="DataAbstract_D10.bpl">..\..\DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
@ -23,7 +25,9 @@
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="AlbaranesCliente_view.bpl">Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="AlbaranesCliente_plugin.bpl">Plugin\AlbaranesCliente_plugin.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FactuGES_Server.exe FactuGES.exe</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

11
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -691,6 +691,17 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BLOQUEADO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest

38
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{7910182F-C750-477D-95BF-08F2A32DBBC9}';
RID_AlbaranesCliente = '{8E92D862-BB47-4D2E-B022-9AE333F45CFB}';
RID_AlbaranesCliente_Detalles = '{4789ECDF-65FC-4F74-A7FD-70CE7881AE7F}';
RID_AlbaranesCliente_Detalles_Refresh = '{64EE6606-7337-4ED8-A39A-726558E9C79F}';
RID_AlbaranesCliente_Refresh = '{CBA10CA3-9CE3-4197-8B89-A71F88321C1D}';
RID_DarReferencia = '{6E198309-9D28-4477-9CA0-EB9D2D66816E}';
RID_AlbaranesCliente = '{427DEED0-B45E-416C-9691-878364B1D157}';
RID_AlbaranesCliente_Detalles = '{F872903B-5A03-4005-9BC7-BF23C732C514}';
RID_AlbaranesCliente_Detalles_Refresh = '{34528702-5411-427E-A31E-AD548FE013DB}';
RID_AlbaranesCliente_Refresh = '{75C41D7C-87F3-4135-94D8-64EB689EEED2}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -76,6 +76,7 @@ const
fld_AlbaranesClienteID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS';
fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
@ -125,6 +126,7 @@ const
idx_AlbaranesClienteID_FAC_ALB_DEV = 44;
idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV = 45;
idx_AlbaranesClienteNUM_CORREOS = 46;
idx_AlbaranesClienteBLOQUEADO = 47;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -295,7 +297,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{B26C0C4F-CE5F-493E-A95B-CF00900E04AA}']
['{161D1427-0B1E-4930-99D1-32771941E834}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -324,7 +326,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{BBC4A28E-F0DC-478F-9BC2-080337DC7917}']
['{D1B387DE-6B5E-4E62-9D66-DCAE4650B924}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -420,6 +422,8 @@ type
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
function GetNUM_CORREOSValue: Integer;
procedure SetNUM_CORREOSValue(const aValue: Integer);
function GetBLOQUEADOValue: Integer;
procedure SetBLOQUEADOValue(const aValue: Integer);
{ Properties }
@ -470,6 +474,7 @@ type
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
end;
{ TAlbaranesClienteDataTableRules }
@ -571,6 +576,8 @@ type
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -620,6 +627,7 @@ type
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS: Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -629,7 +637,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{BF1D2AA9-5A6E-422D-8D86-CAF9E9B8EF00}']
['{B24E4037-B5C6-4614-A46B-883647A0DE56}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -742,7 +750,7 @@ type
{ IAlbaranesCliente_Detalles_Refresh }
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{7F822116-DE0E-47B2-99E8-6D3D0BDEA474}']
['{EDB2FD19-DB40-48A9-927F-438CF7EAEA89}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -855,7 +863,7 @@ type
{ IAlbaranesCliente_Refresh }
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{7A245E1D-D2E0-4024-BF66-4682E328B476}']
['{F4C1C165-FC99-4013-8201-13BC3A53C5B3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1667,6 +1675,16 @@ begin
DataTable.Fields[idx_AlbaranesClienteNUM_CORREOS].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetBLOQUEADOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetBLOQUEADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsInteger := aValue;
end;
{ TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

42
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{DD15293A-3280-426D-9927-112CDD3205BC}';
RID_AlbaranesClienteDelta = '{E62B1307-F6FC-424A-9975-21616BE7FDB2}';
RID_AlbaranesCliente_DetallesDelta = '{703B8F12-1E88-4317-8E66-66F53506A042}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{76996524-4884-49A1-B1AA-8A141E887553}';
RID_AlbaranesCliente_RefreshDelta = '{3728694F-04C7-4B85-95C0-E03375F3DE53}';
RID_DarReferenciaDelta = '{F5B4C4C3-C729-4547-87F6-03DBAC94A16C}';
RID_AlbaranesClienteDelta = '{6BB65B45-5F5A-4D5B-81BE-A0E323B271D3}';
RID_AlbaranesCliente_DetallesDelta = '{983E8353-C226-4781-BFC0-41B9FD033718}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{9AB519AF-EFCD-467E-A3C2-13A7ACF9BA27}';
RID_AlbaranesCliente_RefreshDelta = '{2AC22218-4783-4C52-8DD3-7F7DAD417657}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{DD15293A-3280-426D-9927-112CDD3205BC}']
['{F5B4C4C3-C729-4547-87F6-03DBAC94A16C}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{E62B1307-F6FC-424A-9975-21616BE7FDB2}']
['{6BB65B45-5F5A-4D5B-81BE-A0E323B271D3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -96,6 +96,7 @@ type
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
function GetOldBLOQUEADOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -145,6 +146,7 @@ type
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -293,6 +295,9 @@ type
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
function GetOldBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -389,6 +394,8 @@ type
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -398,7 +405,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{703B8F12-1E88-4317-8E66-66F53506A042}']
['{983E8353-C226-4781-BFC0-41B9FD033718}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -525,7 +532,7 @@ type
{ IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
['{76996524-4884-49A1-B1AA-8A141E887553}']
['{9AB519AF-EFCD-467E-A3C2-13A7ACF9BA27}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -652,7 +659,7 @@ type
{ IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
['{3728694F-04C7-4B85-95C0-E03375F3DE53}']
['{2AC22218-4783-4C52-8DD3-7F7DAD417657}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1753,6 +1760,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_CORREOS] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteBLOQUEADO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetBLOQUEADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO] := aValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

19
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -80,8 +80,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV,'#10' ID_FAC_A' +
'LB_DEV, REFERENCIA_FAC_ALB_DEV, NUM_CORREOS'#10' FROM'#10' V_ALBARAN' +
'ES_CLIENTE'
'LB_DEV, REFERENCIA_FAC_ALB_DEV, NUM_CORREOS, BLOQUEADO'#10' FROM'#10' ' +
' V_ALBARANES_CLIENTE'
StatementType = stSQL
ColumnMappings = <
item
@ -271,6 +271,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end
item
DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO'
end>
end>
Name = 'AlbaranesCliente'
@ -763,6 +767,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BLOQUEADO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript

68
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -61,6 +61,28 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 25
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
end
object cxGridViewBLOQUEADO: TcxGridDBColumn
Caption = #191'Bloqueado?'
DataBinding.FieldName = 'BLOQUEADO'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList10
Properties.Items = <
item
Description = '0'
Value = 0
end
item
Description = '1'
ImageIndex = 2
Tag = 1
Value = 1
end>
Properties.LargeImages = PngImageList10
BestFitMaxWidth = 25
MinWidth = 25
VisibleForCustomization = False
Width = 25
end
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -189,6 +211,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Options.DetailFrameColor = clNone
Options.DetailFrameWidth = 0
end
object cxGridLevelBloqueados: TcxGridLevel
Caption = 'Bloqueados'
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 596
@ -198,17 +223,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 596
ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 251
ExplicitLeft = 251
Left = 317
ExplicitLeft = 317
ExplicitWidth = 294
Width = 294
end
@ -273,20 +290,28 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
TextColor = clBlue
end
object cxStylePENDIENTES: TcxStyle
AssignedValues = [svTextColor]
AssignedValues = [svColor, svTextColor]
Color = clWhite
TextColor = clGreen
end
object cxStyleENVIADOS: TcxStyle
AssignedValues = [svTextColor]
AssignedValues = [svColor, svTextColor]
Color = clWhite
TextColor = clBlue
end
object cxStyleSERVIDOS: TcxStyle
AssignedValues = [svColor]
Color = clWhite
end
object cxStyleRETRASADOS: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = 15527167
TextColor = clRed
end
object cxStyleBLOQUEADOS: TcxStyle
AssignedValues = [svColor]
Color = 6793212
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 280
@ -391,6 +416,25 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
2FEEC02251018239FFBF0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001664944415478DA
63FCFFFF3F0325801164002323235CE05023A73990D266E3FF3E1726F6EB2367
3290BA6A57FFFD244C0C66318A0130CDD679E7E622DBF2FB6627C3DCB9AB8EEA
CAFC2F861982CB802490E6DF2F0F32CCE8C8801B90919100A6418664CFFE6683
D380131318FE9BC65F67985CA8C960A4C86901B20DE42AA0774E18582430CC98
B180A1600103235106C014C2C4F11A70B8890B6C0BB1210F0C540BDBBA6F27E1
069C9CC8F8DFC0630603ABB83D41CDB0F0C99FFF9F11C50090D3FFBDD9C7F0FF
EF2F04FE87603380D93F18AE9C9ECB70E202037603FEBEDC01D770ECC67D86A6
69F718EAB29418CCE538C19AFFFFF9CE70F5FC32DC06FC79B6096EB367C161B8
B3B7B42A8335FFFBF383E1FAE575B80DF8FD780D8AB3BDCBCEA368FE0FC437AE
6FC36DC0AFFB8BE1066C3EFD8C61C69A370CD1EEAC0C61269C60038004C3CDDB
FBB01B008A850B3B3208C602385DA01B004A07E7EE139F0E40A914251D500200
A1723AF0CAFCCBE70000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Bitmap = {}
end

29
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -64,6 +64,9 @@ type
cxGridViewAGENTE: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
cxGridViewNUM_CORREOS: TcxGridDBColumn;
cxGridLevelBloqueados: TcxGridLevel;
cxGridViewBLOQUEADO: TcxGridDBColumn;
cxStyleBLOQUEADOS: TcxStyle;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@ -105,7 +108,8 @@ type
implementation
uses SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
uses
Graphics, SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
uViewGridBase;
{$R *.dfm}
@ -213,6 +217,11 @@ begin
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewFECHA_PREVISTA_ENVIO, foLess, DateOf(Now), 'RETRASADOS');
end;
5 : begin
FFiltro.AddItem(cxGridViewBLOQUEADO, foEqual, '1', '1');
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewSITUACION, foNotEqual, SITUACION_ALBARAN_SERVIDO, SITUACION_ALBARAN_SERVIDO);
end;
end;
end;
@ -328,10 +337,12 @@ procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender:
var
IndiceCol: Integer;
ASituacion: string;
begin
inherited;
if Assigned(ARecord) then
begin
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteSITUACION).Index;
@ -344,14 +355,22 @@ begin
else
AStyle := cxStylePENDIENTES
else
AStyle := cxStylePENDIENTES;
AStyle := cxStylePENDIENTES;
end
else if ASituacion = SITUACION_ALBARAN_ENVIADO then
AStyle := cxStyleENVIADOS
AStyle := cxStyleENVIADOS;
end
else if ASituacion = SITUACION_ALBARAN_SERVIDO then
AStyle := cxStyleSERVIDOS;
AStyle := cxStyleSERVIDOS;
end;
//ESTILO DE BLOQUEADOS
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteBLOQUEADO)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesClienteBLOQUEADO).Index;
if (VarToStr(ARecord.DisplayTexts[IndiceCol]) = '1') then
AStyle := cxStyleBLOQUEADOS;
end;
end;
end;
function TfrViewAlbaranesCliente.GetAlbaranes: IBizAlbaranCliente;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -127,8 +127,6 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@ -136,7 +134,9 @@ uses
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}