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

Arreglo de informes de margen, para que segun la agrupacion base por articulo o por cliente se guarde en el informe

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@222 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-03-29 13:18:44 +00:00
parent 26d974b043
commit e63365542f
24 changed files with 3743 additions and 1423 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

BIN
Source/Base/GUIBase/GUIBase.res
View File

Binary file not shown.

4
Source/Informes_Group.bdsgroup
View File

@ -14,8 +14,8 @@
<Projects Name="GUIBase.bpl">Base\GUIBase\GUIBase.bdsproj</Projects> <Projects Name="GUIBase.bpl">Base\GUIBase\GUIBase.bdsproj</Projects>
<Projects Name="Informes_model.bpl">Modulos\Informes base\Model\Informes_model.bdsproj</Projects> <Projects Name="Informes_model.bpl">Modulos\Informes base\Model\Informes_model.bdsproj</Projects>
<Projects Name="Informes_data.bpl">Modulos\Informes base\Data\Informes_data.bdsproj</Projects> <Projects Name="Informes_data.bpl">Modulos\Informes base\Data\Informes_data.bdsproj</Projects>
<Projects Name="Informes_controller.bpl">Modulos\Informes base\Controller\Informes_controller.bdsproj</Projects>
<Projects Name="InformesBase_controller.bpl">Modulos\Informes base\Controller\InformesBase_controller.bdsproj</Projects> <Projects Name="InformesBase_controller.bpl">Modulos\Informes base\Controller\InformesBase_controller.bdsproj</Projects>
<Projects Name="Informes_controller.bpl">Modulos\Informes base\Controller\Informes_controller.bdsproj</Projects>
<Projects Name="Informes_view.bpl">Modulos\Informes base\Views\Informes_view.bdsproj</Projects> <Projects Name="Informes_view.bpl">Modulos\Informes base\Views\Informes_view.bdsproj</Projects>
<Projects Name="InformesBase_view.bpl">Modulos\Informes base\Views\InformesBase_view.bdsproj</Projects> <Projects Name="InformesBase_view.bpl">Modulos\Informes base\Views\InformesBase_view.bdsproj</Projects>
<Projects Name="Informes_plugin.bpl">Modulos\Informes base\Plugin\Informes_plugin.bdsproj</Projects> <Projects Name="Informes_plugin.bpl">Modulos\Informes base\Plugin\Informes_plugin.bdsproj</Projects>
@ -33,7 +33,7 @@
<Projects Name="FactuGES_Server.exe">Servidor\FactuGES_Server.bdsproj</Projects> <Projects Name="FactuGES_Server.exe">Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Articulos_view.bpl">Modulos\Articulos\Views\Articulos_view.bdsproj</Projects> <Projects Name="Articulos_view.bpl">Modulos\Articulos\Views\Articulos_view.bdsproj</Projects>
<Projects Name="AlbaranesCliente_view.bpl">Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.bdsproj</Projects> <Projects Name="AlbaranesCliente_view.bpl">Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl GUIBase.bpl Informes_model.bpl Informes_data.bpl Informes_controller.bpl InformesBase_controller.bpl Informes_view.bpl InformesBase_view.bpl Informes_plugin.bpl InfVentasArticulo_model.bpl InfVentasArticulo_data.bpl InfVentasArticulo_controller.bpl InfVentasArticulo_view.bpl InfVentasArticulo_plugin.bpl InfMargenArticulo_model.bpl InfMargenArticulo_data.bpl InfMargenArticulo_controller.bpl InfMargenArticulo_view.bpl InfMargenArticulo_plugin.bpl FactuGES.exe FactuGES_Server.exe Articulos_view.bpl AlbaranesCliente_view.bpl</Projects> <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl GUIBase.bpl Informes_model.bpl Informes_data.bpl InformesBase_controller.bpl Informes_controller.bpl Informes_view.bpl InformesBase_view.bpl Informes_plugin.bpl InfVentasArticulo_model.bpl InfVentasArticulo_data.bpl InfVentasArticulo_controller.bpl InfVentasArticulo_view.bpl InfVentasArticulo_plugin.bpl InfMargenArticulo_model.bpl InfMargenArticulo_data.bpl InfMargenArticulo_controller.bpl InfMargenArticulo_view.bpl InfMargenArticulo_plugin.bpl FactuGES.exe FactuGES_Server.exe Articulos_view.bpl AlbaranesCliente_view.bpl</Projects>
</Projects> </Projects>
<Dependencies/> <Dependencies/>
</Default.Personality> </Default.Personality>

81
Source/Modulos/Informe margen por articulo/Controller/uInfMargenArticuloController.pas
View File

@ -8,11 +8,16 @@ uses
uBizInfMargenArticulo, uIDataModuleInfMargenArticulo, uInformeBaseController, uBizInfMargenArticulo, uIDataModuleInfMargenArticulo, uInformeBaseController,
uBizInformes; uBizInformes;
const
CTE_AGRUPACION_PORARTICULO = 0;
CTE_AGRUPACION_PORCLIENTE = 1;
type type
IInfMargenArticuloController = interface(IInformeBaseController) IInfMargenArticuloController = interface(IInformeBaseController)
['{1F19FFE4-7AA6-4CAB-B7F0-687FE858FD31}'] ['{1F19FFE4-7AA6-4CAB-B7F0-687FE858FD31}']
// procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo); // procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo);
// function BuscarTodos: IBizInfMargenArticulo; function BuscarAgrupadoPorCliente: IBizInfMargenArticulo;
function BuscarAgrupadoPorArticulo: IBizInfMargenArticulo;
// function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo; // function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo;
// function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo; // function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo;
@ -23,7 +28,7 @@ type
TInfMargenArticuloController = class(TObservador, IInfMargenArticuloController, IInformeBaseController) TInfMargenArticuloController = class(TObservador, IInfMargenArticuloController, IInformeBaseController)
private private
function BuscarTodos: IBizInfMargenArticulo; function darAgrupacionParaInforme: Integer;
protected protected
FDataModule : IDataModuleInfMargenArticulo; FDataModule : IDataModuleInfMargenArticulo;
@ -39,12 +44,16 @@ type
procedure AsignarDataModule; virtual; procedure AsignarDataModule; virtual;
public public
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
// function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo; // function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo;
// function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo; // function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo;
// function Ver(AArticulos: IBizInfMargenArticulo; AInfMargenArticulo : IBizInfMargenArticulo): Boolean; // function Ver(AArticulos: IBizInfMargenArticulo; AInfMargenArticulo : IBizInfMargenArticulo): Boolean;
function BuscarAgrupadoPorCliente: IBizInfMargenArticulo;
function BuscarAgrupadoPorArticulo: IBizInfMargenArticulo;
procedure Nuevo(AInforme : IBizInforme); procedure Nuevo(AInforme : IBizInforme);
procedure Ver(AInforme : IBizInforme); procedure Ver(AInforme : IBizInforme);
// procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo); // procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo);
@ -55,11 +64,10 @@ implementation
uses uses
Forms, cxControls, DB, uEditorRegistryUtils, Forms, cxControls, DB, uEditorRegistryUtils,
uIEditorInfMargenArticulo, uDataModuleUsuarios, uIEditorInfMargenArticulo, uDataModuleUsuarios,
uDataModuleInfMargenArticulo, uDataModuleInfMargenArticulo, uDAInterfaces, uDataTableUtils,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDateUtils, uROTypes, DateUtils, Controls, Windows,
dialogs, Variants, uControllerDetallesBase, uDialogUtils, dialogs, Variants, uControllerDetallesBase, uDialogUtils,
schInfMargenArticuloClient_Intf; JSDialog, JSDialogs, schInfMargenArticuloClient_Intf;
{ TInfMargenArticuloController } { TInfMargenArticuloController }
@ -76,9 +84,15 @@ begin
end; end;
} }
function TInfMargenArticuloController.BuscarTodos: IBizInfMargenArticulo; function TInfMargenArticuloController.BuscarAgrupadoPorArticulo: IBizInfMargenArticulo;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems(tArticulo);
FiltrarEmpresa(Result);
end;
function TInfMargenArticuloController.BuscarAgrupadoPorCliente: IBizInfMargenArticulo;
begin
Result := FDataModule.GetItems(tCliente);
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; end;
@ -92,6 +106,44 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end; end;
function TInfMargenArticuloController.darAgrupacionParaInforme: Integer;
var
JsDialog: TJSDialog;
Respuesta: Integer;
begin
JsDialog := TJSDialog.Create(nil);
try
JsDialog.Content.Add('Elija una opci'#243'n:');
JsDialog.Instruction.Text := 'Agrupar por...';
JsDialog.DialogOptions := [doCommandLinks, doModal];
JsDialog.ButtonBar.Buttons := [cbOk];
with JsDialog.CustomButtons.Add do
begin
Caption := 'Agrupar el informe por art'#237'culo';
Value := 0;
Default := True;
end;
with JsDialog.CustomButtons.Add do
begin
Caption := 'Agrupar el informe por cliente';
Value := 1;
end;
repeat
Respuesta := JsDialog.Execute;
until Respuesta <> IDCANCEL;
Result := JsDialog.CustomButtonResult;
finally
FreeAndNil(JsDialog);
end;
end;
destructor TInfMargenArticuloController.Destroy; destructor TInfMargenArticuloController.Destroy;
begin begin
FDataModule := Nil; FDataModule := Nil;
@ -151,10 +203,14 @@ begin
if not Assigned(FDataModule) then if not Assigned(FDataModule) then
AsignarDataModule; AsignarDataModule;
Controller := Self; //OJO ORDEN MUY IMPORTANTE Controller := Self; //OJO ORDEN MUY IMPORTANTE
Datos := BuscarTodos;
//Establecemos la vista agrupada basica
case AInforme.TIPO_AGRUPACION of
CTE_AGRUPACION_PORARTICULO : Datos := BuscarAgrupadoPorArticulo;
CTE_AGRUPACION_PORCLIENTE : Datos := BuscarAgrupadoPorCliente;
end;
Informe := AInforme; Informe := AInforme;
// Datos.VisibleColumns := FDataModule.GetNameColumns; // Datos.VisibleColumns := FDataModule.GetNameColumns;
end; end;
finally finally
@ -216,7 +272,7 @@ begin
AddOperator(opAND); AddOperator(opAND);
OpenBraket; OpenBraket;
AddText(fld_InfMargenArticuloID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual)); AddText(fld_InfMargenPorClienteID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
CloseBraket; CloseBraket;
end; end;
end; end;
@ -227,6 +283,9 @@ begin
AInforme.CATEGORIA := 'MARGEN ARTICULOS'; AInforme.CATEGORIA := 'MARGEN ARTICULOS';
AInforme.CONTROLLER := 'InfMargenArticuloController'; AInforme.CONTROLLER := 'InfMargenArticuloController';
AInforme.ID_EMPRESA := dmUsuarios.EmpresaActual.ID; AInforme.ID_EMPRESA := dmUsuarios.EmpresaActual.ID;
//ESTABLECEMOS EL TIPO DE AGRUPACION INICIAL PARA EL INFORME QUE DESEAMOS CREAR
AInforme.TIPO_AGRUPACION := darAgrupacionParaInforme;
end; end;
end. end.

556
Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm
View File

@ -66,7 +66,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
ProbeServers = False ProbeServers = False
ProbeFrequency = 60000 ProbeFrequency = 60000
UserAgent = 'RemObjects SDK' UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8090/bin' TargetURL = 'http://localhost:8099/bin'
Left = 64 Left = 64
Top = 272 Top = 272
end end
@ -74,7 +74,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Left = 64 Left = 64
Top = 324 Top = 324
end end
object tbl_InfMargenArticulo2: TDACDSDataTable object tbl_InfMargen: TDACDSDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <>
Params = <> Params = <>
@ -161,12 +161,525 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Adapter = DABinAdapter Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InfMargenArticulo'
IndexDefs = <> IndexDefs = <>
Left = 280 Left = 288
Top = 232 Top = 208
end end
object tbl_InfMargenArticulo: TDACDSDataTable object tbl_InfMargenPorArticulo1: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Id empresa'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Id art'#237'culo'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Familia'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_FAMILIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. proveedor'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Descripci'#243'n'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'COMISIONABLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Comisionable'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INVENTARIABLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Inventariable'
Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_ULT_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_ULT_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_ULT_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_PRO_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_PRO_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_PRO_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_ULT_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_ULT_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_ULT_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_ULT_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_PRO_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_PRO_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_PRO_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_PRO_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <
item
Name = 'FECHAINI'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAFIN'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
SchemaCall.MethodName = 'GetDatasetSchema'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'aDatasetName'
ParamType = fIn
DataType = rtString
Value = 'InfMargenPorArticulo'
end>
DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'DatasetName'
ParamType = fIn
DataType = rtString
Value = 'InfMargenPorArticulo'
end
item
Name = 'Params'
ParamType = fIn
DataType = rtUserDefined
UserClassName = 'TDADatasetParamArray'
end
item
Name = 'UserFilter'
ParamType = fIn
DataType = rtString
Value = ''
end
item
Name = 'IncludeSchema'
ParamType = fIn
DataType = rtBoolean
Value = False
end
item
Name = 'MaxRecords'
ParamType = fIn
DataType = rtInteger
Value = -1
end>
DataUpdateCall.MethodName = 'UpdateData'
DataUpdateCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'Delta'
ParamType = fIn
DataType = rtBinary
end>
ScriptCall.MethodName = 'GetDatasetScripts'
ScriptCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtString
Value = ''
end
item
Name = 'DatasetNames'
ParamType = fIn
DataType = rtString
Value = 'InfMargenPorArticulo'
end>
ReadOnly = False
RemoteService = RORemoteService
Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InfMargenPorArticulo'
IndexDefs = <>
Left = 200
Top = 112
end
object ds_InfMargenPorArticulo1: TDADataSource
DataTable = tbl_InfMargenPorArticulo1
Left = 200
Top = 48
end
object tbl_InfMargenPorCliente1: TDACDSDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -655,7 +1168,19 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end> end>
Params = <> Params = <
item
Name = 'FECHAINI'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAFIN'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
SchemaCall.MethodName = 'GetDatasetSchema' SchemaCall.MethodName = 'GetDatasetSchema'
@ -669,7 +1194,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Name = 'aDatasetName' Name = 'aDatasetName'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'InfMargenArticulo' Value = 'InfMargenPorCliente'
end> end>
DataRequestCall.MethodName = 'GetDatasetDataEx' DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = < DataRequestCall.Params = <
@ -682,7 +1207,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Name = 'DatasetName' Name = 'DatasetName'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'InfMargenArticulo' Value = 'InfMargenPorCliente'
end end
item item
Name = 'Params' Name = 'Params'
@ -732,16 +1257,21 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Name = 'DatasetNames' Name = 'DatasetNames'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'InfMargenArticulo' Value = 'InfMargenPorCliente'
end> end>
ReadOnly = False ReadOnly = False
RemoteService = RORemoteService RemoteService = RORemoteService
Adapter = DABinAdapter Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InfMargenArticulo' LogicalName = 'InfMargenPorCliente'
IndexDefs = <> IndexDefs = <>
Left = 280 Left = 360
Top = 168 Top = 104
end
object ds_InfMargenPorCliente1: TDADataSource
DataTable = tbl_InfMargenPorCliente1
Left = 360
Top = 40
end end
end end

36
Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.pas
View File

@ -20,14 +20,17 @@ type
LoginRemoteService: TRORemoteService; LoginRemoteService: TRORemoteService;
ROWinInetHTTPChannel1: TROWinInetHTTPChannel; ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
ROBinMessage1: TROBinMessage; ROBinMessage1: TROBinMessage;
tbl_InfMargenArticulo2: TDACDSDataTable; tbl_InfMargen: TDACDSDataTable;
tbl_InfMargenArticulo: TDACDSDataTable; tbl_InfMargenPorArticulo1: TDACDSDataTable;
ds_InfMargenPorArticulo1: TDADataSource;
tbl_InfMargenPorCliente1: TDACDSDataTable;
ds_InfMargenPorCliente1: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
protected protected
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload; function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
public public
function GetItems : IBizInfMargenArticulo; function GetItems(Agrupado: TEnumAgrupaciones) : IBizInfMargenArticulo;
function GetNameColumns: String; function GetNameColumns: String;
end; end;
@ -51,20 +54,33 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TdmInfMargenArticulo.GetItems: IBizInfMargenArticulo; function TdmInfMargenArticulo.GetItems(Agrupado: TEnumAgrupaciones): IBizInfMargenArticulo;
var var
AInfMargenArticulo : TDACDSDataTable; AInfMargenArticulo : TDACDSDataTable;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AInfMargenArticulo := _CloneDataTable(tbl_InfMargenArticulo2);
AInfMargenArticulo.Fields.AssignFieldCollection(tbl_InfMargenArticulo.Fields);
if (Agrupado = tCliente) then
begin
tbl_InfMargen.LogicalName := 'InfMargenPorCliente';
tbl_InfMargen.SchemaCall.ParamByName('DatasetName').AsString := 'InfMargenPorCliente';
tbl_InfMargen.DataRequestCall.ParamByName('DatasetName').AsString := 'InfMargenPorCliente';
end
else
begin
tbl_InfMargen.LogicalName := 'InfMargenPorArticulo';
tbl_InfMargen.SchemaCall.ParamByName('DatasetName').AsString := 'InfMargenPorArticulo';
tbl_InfMargen.DataRequestCall.ParamByName('DatasetName').AsString := 'InfMargenPorArticulo';
end;
AInfMargenArticulo := _CloneDataTable(tbl_InfMargen);
AInfMargenArticulo.Fields.AssignFieldCollection(tbl_InfMargenPorCliente1.Fields); //Siempre por cliente
AInfMargenArticulo.BusinessRulesID := BIZ_InfMargenArticulo; AInfMargenArticulo.BusinessRulesID := BIZ_InfMargenArticulo;
//Importante inicializar columnas visibles //Importante inicializar columnas visibles
// AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_FACTURA).Visible := False; // AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_FACTURA).Visible := False;
AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_ARTICULO).Visible := False; AInfMargenArticulo.FieldByName(fld_InfMargenPorClienteID_ARTICULO).Visible := False;
AInfMargenArticulo.LoadSchema; AInfMargenArticulo.LoadSchema;
(AInfMargenArticulo as IBizInfMargenArticulo).VisibleColumns := GetNameColumns; (AInfMargenArticulo as IBizInfMargenArticulo).VisibleColumns := GetNameColumns;
@ -81,9 +97,9 @@ var
begin begin
AList := TStringList.Create; AList := TStringList.Create;
try try
for i := 0 to tbl_InfMargenArticulo.FieldCount - 1 do for i := 0 to tbl_InfMargenPorCliente1.FieldCount - 1 do
if tbl_InfMargenArticulo.Fields[i].Visible then if tbl_InfMargenPorCliente1.Fields[i].Visible then
AList.Add(tbl_InfMargenArticulo.Fields[i].Name); AList.Add(tbl_InfMargenPorCliente1.Fields[i].Name);
Result := AList.CommaText; Result := AList.CommaText;
finally finally
FreeAndNil(AList); FreeAndNil(AList);

4
Source/Modulos/Informe margen por articulo/Model/Data/uIDataModuleInfMargenArticulo.pas
View File

@ -6,9 +6,11 @@ uses
uBizInfMargenArticulo; uBizInfMargenArticulo;
type type
TEnumAgrupaciones = (tCliente, tArticulo);
IDataModuleInfMargenArticulo = interface IDataModuleInfMargenArticulo = interface
['{B539E3DE-CC9D-4F12-84AF-2534971B0BE4}'] ['{B539E3DE-CC9D-4F12-84AF-2534971B0BE4}']
function GetItems : IBizInfMargenArticulo; function GetItems(Agrupado: TEnumAgrupaciones) : IBizInfMargenArticulo;
function GetNameColumns: String; function GetNameColumns: String;
end; end;

1190
Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1318
Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

4
Source/Modulos/Informe margen por articulo/Model/uBizInfMargenArticulo.pas
View File

@ -10,14 +10,14 @@ const
BIZ_InfMargenArticulo = 'Client.InfMargenArticulo'; BIZ_InfMargenArticulo = 'Client.InfMargenArticulo';
type type
IBizInfMargenArticulo = interface(IInfMargenArticulo) IBizInfMargenArticulo = interface(IInfMargenPorCliente)
['{8E265668-0B6D-4475-9965-15B3EE251B24}'] ['{8E265668-0B6D-4475-9965-15B3EE251B24}']
function GetVisibleColumns: String; function GetVisibleColumns: String;
procedure SetVisibleColumns(const Value: String); procedure SetVisibleColumns(const Value: String);
property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns;
end; end;
TBizInfMargenArticulo = class(TInfMargenArticuloDataTableRules, IBizInfMargenArticulo) TBizInfMargenArticulo = class(TInfMargenPorClienteDataTableRules, IBizInfMargenArticulo)
private private
FVisibleColumns : String; FVisibleColumns : String;
FDateParams : TDADatasetParamArray; FDateParams : TDADatasetParamArray;

1380
Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm
View File

File diff suppressed because it is too large Load Diff

3
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj
View File

@ -170,7 +170,8 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>
</Delphi.Personality> </Delphi.Personality>

BIN
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.res
View File

Binary file not shown.

56
Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm
View File

@ -7,7 +7,7 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
OnCreate = CustomEditorCreate OnCreate = CustomEditorCreate
OnGetModified = CustomEditorGetModified OnGetModified = CustomEditorGetModified
ExplicitWidth = 687 ExplicitWidth = 687
ExplicitHeight = 607 ExplicitHeight = 600
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -200,27 +200,27 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
ExplicitHeight = 158 ExplicitHeight = 158
inherited pcParametros: TPageControl inherited pcParametros: TPageControl
Height = 69 Height = 71
ExplicitHeight = 69 ExplicitHeight = 71
inherited TabSheet5: TTabSheet inherited TabSheet5: TTabSheet
ExplicitHeight = 29 ExplicitHeight = 31
end end
inherited tsColumnas: TTabSheet inherited tsColumnas: TTabSheet
ExplicitHeight = 59 ExplicitHeight = 61
inherited frViewColumnas1: TfrViewColumnas inherited frViewColumnas1: TfrViewColumnas
Height = 59 Height = 61
ExplicitHeight = 59 ExplicitHeight = 61
inherited lbColumnas: TcxCheckListBox inherited lbColumnas: TcxCheckListBox
Height = 30 Height = 32
ExplicitHeight = 30 ExplicitHeight = 32
end end
end end
end end
inherited tsAgrupacion: TTabSheet inherited tsAgrupacion: TTabSheet
ExplicitHeight = 29 ExplicitHeight = 31
inherited frViewAgrupaciones1: TfrViewAgrupaciones inherited frViewAgrupaciones1: TfrViewAgrupaciones
Height = 29 Height = 31
ExplicitHeight = 29 ExplicitHeight = 31
end end
end end
end end
@ -231,34 +231,34 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
ExplicitTop = 158 ExplicitTop = 158
ExplicitHeight = 173 ExplicitHeight = 173
inherited TBXPageScroller1: TTBXPageScroller inherited TBXPageScroller1: TTBXPageScroller
Height = 151 Height = 153
ExplicitHeight = 151 ExplicitHeight = 153
inherited pcTareas: TPageControl inherited pcTareas: TPageControl
Height = 103 Height = 105
ExplicitHeight = 103 ExplicitHeight = 105
inherited tsSumarios: TTabSheet inherited tsSumarios: TTabSheet
ExplicitHeight = 48 ExplicitHeight = 50
inherited frViewSumarios1: TfrViewSumarios inherited frViewSumarios1: TfrViewSumarios
Height = 48 Height = 50
ExplicitHeight = 48 ExplicitHeight = 50
inherited vgSumarios: TcxVerticalGrid inherited vgSumarios: TcxVerticalGrid
Height = 19 Height = 21
ExplicitHeight = 19 ExplicitHeight = 21
end end
end end
end end
inherited tsFiltros: TTabSheet inherited tsFiltros: TTabSheet
ExplicitHeight = 93 ExplicitHeight = 95
inherited frViewFiltros1: TfrViewFiltros inherited frViewFiltros1: TfrViewFiltros
Height = 93 Height = 95
ExplicitHeight = 93 ExplicitHeight = 95
inherited cxFilterControl1: TcxFilterControl inherited cxFilterControl1: TcxFilterControl
Height = 34 Height = 36
ExplicitHeight = 34 ExplicitHeight = 36
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 63 Top = 65
ExplicitTop = 63 ExplicitTop = 65
end end
end end
end end

2
Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.pas
View File

@ -85,7 +85,7 @@ procedure TfEditorInfMargenArticulo.SetController(const Value: IInfMargenArticul
begin begin
FController := Value; FController := Value;
// if Assigned(FController) then // if Assigned(FController) then
// (ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController); // (FViewInforme as IViewInfMargenArticulo).Controller := (FController as IInfMargenArticuloController);
end; end;
procedure TfEditorInfMargenArticulo.SetDatos(const Value: IBizInfMargenArticulo); procedure TfEditorInfMargenArticulo.SetDatos(const Value: IBizInfMargenArticulo);

193
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.dfm
View File

@ -1,28 +1,31 @@
inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
Width = 834 Width = 800
Height = 448 Height = 567
ExplicitWidth = 834 ExplicitWidth = 800
ExplicitHeight = 448 ExplicitHeight = 567
inherited TBXMultiDock1: TTBXMultiDock inherited TBXMultiDock1: TTBXMultiDock
Top = 105 Top = 105
Height = 343 Height = 462
ExplicitTop = 105 ExplicitTop = 105
ExplicitHeight = 343 ExplicitHeight = 343
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
ExplicitHeight = 156 ExplicitHeight = 215
inherited pcParametros: TPageControl inherited pcParametros: TPageControl
Height = 69 Height = 128
ExplicitHeight = 69 ExplicitHeight = 69
inherited TabSheet5: TTabSheet inherited TabSheet5: TTabSheet
ExplicitHeight = 57 ExplicitLeft = 4
ExplicitTop = 6
ExplicitWidth = 210
ExplicitHeight = 59
end end
inherited tsColumnas: TTabSheet inherited tsColumnas: TTabSheet
ExplicitHeight = 59 ExplicitHeight = 59
inherited frViewColumnas1: TfrViewColumnas inherited frViewColumnas1: TfrViewColumnas
Height = 59 Height = 118
ExplicitHeight = 59 ExplicitHeight = 59
inherited lbColumnas: TcxCheckListBox inherited lbColumnas: TcxCheckListBox
Height = 30 Height = 89
ExplicitHeight = 30 ExplicitHeight = 30
end end
end end
@ -30,45 +33,45 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
inherited tsAgrupacion: TTabSheet inherited tsAgrupacion: TTabSheet
ExplicitHeight = 59 ExplicitHeight = 59
inherited frViewAgrupaciones1: TfrViewAgrupaciones inherited frViewAgrupaciones1: TfrViewAgrupaciones
Height = 59 Height = 118
ExplicitHeight = 59 ExplicitHeight = 59
end end
end end
end end
end end
inherited pnlTareas: TTBXDockablePanel inherited pnlTareas: TTBXDockablePanel
Top = 156 Top = 215
DockPos = 156 DockPos = 215
ExplicitTop = 156 ExplicitTop = 215
ExplicitHeight = 171 ExplicitHeight = 231
inherited TBXPageScroller1: TTBXPageScroller inherited TBXPageScroller1: TTBXPageScroller
Height = 151 Height = 211
ExplicitHeight = 151 ExplicitHeight = 151
inherited pcTareas: TPageControl inherited pcTareas: TPageControl
Height = 103 Height = 163
ExplicitHeight = 103 ExplicitHeight = 103
inherited tsSumarios: TTabSheet inherited tsSumarios: TTabSheet
ExplicitHeight = 93 ExplicitHeight = 93
inherited frViewSumarios1: TfrViewSumarios inherited frViewSumarios1: TfrViewSumarios
Height = 93 Height = 153
ExplicitHeight = 93 ExplicitHeight = 93
inherited vgSumarios: TcxVerticalGrid inherited vgSumarios: TcxVerticalGrid
Height = 64 Height = 124
ExplicitHeight = 62 ExplicitHeight = 64
end end
end end
end end
inherited tsFiltros: TTabSheet inherited tsFiltros: TTabSheet
ExplicitHeight = 93 ExplicitHeight = 93
inherited frViewFiltros1: TfrViewFiltros inherited frViewFiltros1: TfrViewFiltros
Height = 93 Height = 153
ExplicitHeight = 93 ExplicitHeight = 93
inherited cxFilterControl1: TcxFilterControl inherited cxFilterControl1: TcxFilterControl
Height = 34 Height = 94
ExplicitHeight = 34 ExplicitHeight = 34
end end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 63 Top = 123
ExplicitTop = 63 ExplicitTop = 63
end end
end end
@ -78,7 +81,7 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
end end
end end
inherited TBXMultiDock2: TTBXMultiDock inherited TBXMultiDock2: TTBXMultiDock
Width = 834 Width = 800
Height = 105 Height = 105
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 105 ExplicitHeight = 105
@ -86,18 +89,18 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
DockedHeight = 101 DockedHeight = 101
ShowCaption = False ShowCaption = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
ExplicitWidth = 818 ExplicitWidth = 784
ExplicitHeight = 105 ExplicitHeight = 105
inherited TBXAlignmentPanel3: TTBXAlignmentPanel inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 71 Top = 71
Width = 814 Width = 780
ExplicitTop = 71 ExplicitTop = 71
ExplicitWidth = 814 ExplicitWidth = 814
end end
inline frViewPeriodoFechas1: TfrViewPeriodoFechas inline frViewPeriodoFechas1: TfrViewPeriodoFechas
Left = 0 Left = 0
Top = 0 Top = 0
Width = 814 Width = 780
Height = 71 Height = 71
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -114,12 +117,12 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
ExplicitWidth = 814 ExplicitWidth = 814
ExplicitHeight = 71 ExplicitHeight = 71
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 814 Width = 780
Height = 71 Height = 71
ExplicitWidth = 814 ExplicitWidth = 814
ExplicitHeight = 71 ExplicitHeight = 71
DesignSize = ( DesignSize = (
814 780
71) 71)
inherited cbPeriodo: TcxComboBox inherited cbPeriodo: TcxComboBox
Left = 54 Left = 54
@ -141,8 +144,8 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
inline frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid [2] inline frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid [2]
Left = 222 Left = 222
Top = 105 Top = 105
Width = 612 Width = 578
Height = 343 Height = 462
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -157,11 +160,12 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
ExplicitWidth = 612 ExplicitWidth = 612
ExplicitHeight = 343 ExplicitHeight = 343
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 612 Width = 578
Height = 343 Height = 462
ExplicitWidth = 612 ExplicitWidth = 612
ExplicitHeight = 343 ExplicitHeight = 343
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.DataSource = dmInfMargenArticulo.ds_InfMargenArticulo21
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
Format = ',0.00 %;-,0.00 %' Format = ',0.00 %;-,0.00 %'
@ -242,6 +246,129 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
Format = ',0.00 %;-,0.00 %' Format = ',0.00 %;-,0.00 %'
Column = frViewInfMargenArticuloGrid1.cxGridViewPOR_MARGEN_PRO_VENT_ULT_COMP Column = frViewInfMargenArticuloGrid1.cxGridViewPOR_MARGEN_PRO_VENT_ULT_COMP
end> end>
inherited cxGridViewID_EMPRESA: TcxGridDBColumn
Width = 20
end
inherited cxGridViewID_CLIENTE: TcxGridDBColumn
Width = 20
end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 20
end
inherited cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
Width = 20
end
inherited cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Width = 20
end
inherited cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn
Width = 20
end
inherited cxGridViewNIF_CIF_AGENTE: TcxGridDBColumn
Width = 20
end
inherited cxGridViewNOMBRE_AGENTE: TcxGridDBColumn
Width = 20
end
inherited cxGridViewFAMILIA: TcxGridDBColumn
Width = 54
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn
Width = 20
end
inherited cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Width = 20
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
Width = 44
end
inherited cxGridViewCOMISIONABLE: TcxGridDBColumn
Width = 29
end
inherited cxGridViewINVENTARIABLE: TcxGridDBColumn
Width = 29
end
inherited cxGridViewIMP_UNIDAD_ULT_VENT: TcxGridDBColumn
Width = 20
end
inherited cxGridViewIMP_NETO_ULT_VENT: TcxGridDBColumn
Width = 20
end
inherited cxGridViewIMP_PORTE_ULT_VENT: TcxGridDBColumn
Width = 23
end
inherited cxGridViewIMP_UNIDAD_PRO_VENT: TcxGridDBColumn
Width = 26
end
inherited cxGridViewIMP_NETO_PRO_VENT: TcxGridDBColumn
Width = 26
end
inherited cxGridViewIMP_PORTE_PRO_VENT: TcxGridDBColumn
Width = 30
end
inherited cxGridViewIMP_UNIDAD_COMPRA: TcxGridDBColumn
Width = 32
end
inherited cxGridViewIMP_NETO_COMPRA: TcxGridDBColumn
Width = 30
end
inherited cxGridViewIMP_PORTE_COMPRA: TcxGridDBColumn
Width = 29
end
inherited cxGridViewIMP_UNIDAD_ULT_COMP: TcxGridDBColumn
Width = 31
end
inherited cxGridViewIMP_NETO_ULT_COMP: TcxGridDBColumn
Width = 33
end
inherited cxGridViewIMP_PORTE_ULT_COMP: TcxGridDBColumn
Width = 24
end
inherited cxGridViewIMP_UNIDAD_PRO_COMP: TcxGridDBColumn
Width = 32
end
inherited cxGridViewIMP_NETO_PRO_COMP: TcxGridDBColumn
Width = 32
end
inherited cxGridViewIMP_PORTE_PRO_COMP: TcxGridDBColumn
Width = 31
end
inherited cxGridViewIMP_MARGEN_ULT_VENT_COMPRA: TcxGridDBColumn
Width = 24
end
inherited cxGridViewPOR_MARGEN_ULT_VENT_COMPRA: TcxGridDBColumn
Width = 32
end
inherited cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
Width = 32
end
inherited cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
Width = 32
end
inherited cxGridViewIMP_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
Width = 32
end
inherited cxGridViewPOR_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
Width = 33
end
inherited cxGridViewIMP_MARGEN_PRO_VENT_COMPRA: TcxGridDBColumn
Width = 32
end
inherited cxGridViewPOR_MARGEN_PRO_VENT_COMPRA: TcxGridDBColumn
Width = 33
end
inherited cxGridViewIMP_MARGEN_PRO_VENT_ULT_COMP: TcxGridDBColumn
Width = 30
end
inherited cxGridViewPOR_MARGEN_PRO_VENT_ULT_COMP: TcxGridDBColumn
Width = 33
end
inherited cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMP: TcxGridDBColumn
Width = 31
end
inherited cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMP: TcxGridDBColumn
Width = 33
end
end end
end end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager

10
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas
View File

@ -13,7 +13,7 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
cxTextEdit, uViewFiltros, uBizInfMargenArticulo, cxTextEdit, uViewFiltros, uBizInfMargenArticulo,
uViewPeriodoFechas, uViewInfMargenArticuloGrid, cxContainer, uViewFiltroBase, uViewPeriodoFechas, uViewInfMargenArticuloGrid, cxContainer, uViewFiltroBase,
uDADataTable; uDADataTable, uInfMargenArticuloController;
type type
IViewInfMargenArticulo = interface(IViewInformeBase) IViewInfMargenArticulo = interface(IViewInformeBase)
@ -29,6 +29,7 @@ type
frViewPeriodoFechas1: TfrViewPeriodoFechas; frViewPeriodoFechas1: TfrViewPeriodoFechas;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure actPeriodoFechasExecute(Sender: TObject); procedure actPeriodoFechasExecute(Sender: TObject);
protected protected
FDatos : IBizInfMargenArticulo; FDatos : IBizInfMargenArticulo;
FModificado : Boolean; FModificado : Boolean;
@ -66,6 +67,7 @@ begin
pcParametros.ActivePage := TabSheet5; pcParametros.ActivePage := TabSheet5;
end; end;
function TfrViewInfMargenArticulo.GetDatos: IBizInfMargenArticulo; function TfrViewInfMargenArticulo.GetDatos: IBizInfMargenArticulo;
begin begin
Result := FDatos; Result := FDatos;
@ -84,6 +86,7 @@ var
begin begin
inherited; inherited;
ShowHourglassCursor; ShowHourglassCursor;
actRefrescar.Enabled := False; actRefrescar.Enabled := False;
frViewInfMargenArticuloGrid1.OnViewChanged := nil; frViewInfMargenArticuloGrid1.OnViewChanged := nil;
@ -101,11 +104,6 @@ begin
AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName); AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName);
//PRUEBA
Datos.DataTable.Active := False;
FDatos.VisibleColumns := AColumns.CommaText; FDatos.VisibleColumns := AColumns.CommaText;
with Datos.DataTable do with Datos.DataTable do

13
Source/Modulos/Informes base/Data/uDataModuleInformes.dfm
View File

@ -66,7 +66,7 @@ object dmInformes: TdmInformes
ProbeServers = False ProbeServers = False
ProbeFrequency = 60000 ProbeFrequency = 60000
UserAgent = 'RemObjects SDK' UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8090/bin' TargetURL = 'http://localhost:8099/bin'
Left = 48 Left = 48
Top = 272 Top = 272
end end
@ -201,6 +201,17 @@ object dmInformes: TdmInformes
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'TIPO_AGRUPACION'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest

22
Source/Modulos/Informes base/Model/schInformesClient_Intf.pas
View File

@ -9,7 +9,7 @@ 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_Informes = '{E7928EEC-E1CA-4117-AD71-651081CE43B0}'; RID_Informes = '{5395357F-3002-48E5-9BBB-814B0DCDA995}';
{ Data table names } { Data table names }
nme_Informes = 'Informes'; nme_Informes = 'Informes';
@ -25,6 +25,7 @@ const
fld_InformesDESCRIPCION = 'DESCRIPCION'; fld_InformesDESCRIPCION = 'DESCRIPCION';
fld_InformesORDEN = 'ORDEN'; fld_InformesORDEN = 'ORDEN';
fld_InformesVISTA = 'VISTA'; fld_InformesVISTA = 'VISTA';
fld_InformesTIPO_AGRUPACION = 'TIPO_AGRUPACION';
{ Informes field indexes } { Informes field indexes }
idx_InformesID = 0; idx_InformesID = 0;
@ -37,11 +38,12 @@ const
idx_InformesDESCRIPCION = 7; idx_InformesDESCRIPCION = 7;
idx_InformesORDEN = 8; idx_InformesORDEN = 8;
idx_InformesVISTA = 9; idx_InformesVISTA = 9;
idx_InformesTIPO_AGRUPACION = 10;
type type
{ IInformes } { IInformes }
IInformes = interface(IDAStronglyTypedDataTable) IInformes = interface(IDAStronglyTypedDataTable)
['{FDC16F5A-3D0D-4100-BFD2-B28C537E5513}'] ['{0C481E09-15DC-4433-8212-CEE3CA681EBC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -63,6 +65,8 @@ type
procedure SetORDENValue(const aValue: Integer); procedure SetORDENValue(const aValue: Integer);
function GetVISTAValue: IROStrings; function GetVISTAValue: IROStrings;
procedure SetVISTAValue(const aValue: IROStrings); procedure SetVISTAValue(const aValue: IROStrings);
function GetTIPO_AGRUPACIONValue: Integer;
procedure SetTIPO_AGRUPACIONValue(const aValue: Integer);
{ Properties } { Properties }
@ -76,6 +80,7 @@ type
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property ORDEN: Integer read GetORDENValue write SetORDENValue; property ORDEN: Integer read GetORDENValue write SetORDENValue;
property VISTA: IROStrings read GetVISTAValue write SetVISTAValue; property VISTA: IROStrings read GetVISTAValue write SetVISTAValue;
property TIPO_AGRUPACION: Integer read GetTIPO_AGRUPACIONValue write SetTIPO_AGRUPACIONValue;
end; end;
{ TInformesDataTableRules } { TInformesDataTableRules }
@ -103,6 +108,8 @@ type
procedure SetORDENValue(const aValue: Integer); virtual; procedure SetORDENValue(const aValue: Integer); virtual;
function GetVISTAValue: IROStrings; virtual; function GetVISTAValue: IROStrings; virtual;
procedure SetVISTAValue(const aValue: IROStrings); virtual; procedure SetVISTAValue(const aValue: IROStrings); virtual;
function GetTIPO_AGRUPACIONValue: Integer; virtual;
procedure SetTIPO_AGRUPACIONValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -115,6 +122,7 @@ type
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property ORDEN: Integer read GetORDENValue write SetORDENValue; property ORDEN: Integer read GetORDENValue write SetORDENValue;
property VISTA: IROStrings read GetVISTAValue write SetVISTAValue; property VISTA: IROStrings read GetVISTAValue write SetVISTAValue;
property TIPO_AGRUPACION: Integer read GetTIPO_AGRUPACIONValue write SetTIPO_AGRUPACIONValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -238,6 +246,16 @@ begin
DataTable.Fields[idx_InformesVISTA].AsString := aValue.Text; DataTable.Fields[idx_InformesVISTA].AsString := aValue.Text;
end; end;
function TInformesDataTableRules.GetTIPO_AGRUPACIONValue: Integer;
begin
result := DataTable.Fields[idx_InformesTIPO_AGRUPACION].AsInteger;
end;
procedure TInformesDataTableRules.SetTIPO_AGRUPACIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_InformesTIPO_AGRUPACION].AsInteger := aValue;
end;
initialization initialization
RegisterDataTableRules(RID_Informes, TInformesDataTableRules); RegisterDataTableRules(RID_Informes, TInformesDataTableRules);

26
Source/Modulos/Informes base/Model/schInformesServer_Intf.pas
View File

@ -9,12 +9,12 @@ 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_InformesDelta = '{74CF2C20-601C-4EE4-BD37-D5BC5FA42F31}'; RID_InformesDelta = '{5493356F-BD0D-4517-83BC-DE697B7F2093}';
type type
{ IInformesDelta } { IInformesDelta }
IInformesDelta = interface(IInformes) IInformesDelta = interface(IInformes)
['{74CF2C20-601C-4EE4-BD37-D5BC5FA42F31}'] ['{5493356F-BD0D-4517-83BC-DE697B7F2093}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -26,6 +26,7 @@ type
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldORDENValue : Integer; function GetOldORDENValue : Integer;
function GetOldVISTAValue : IROStrings; function GetOldVISTAValue : IROStrings;
function GetOldTIPO_AGRUPACIONValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -38,6 +39,7 @@ type
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldORDEN : Integer read GetOldORDENValue; property OldORDEN : Integer read GetOldORDENValue;
property OldVISTA : IROStrings read GetOldVISTAValue; property OldVISTA : IROStrings read GetOldVISTAValue;
property OldTIPO_AGRUPACION : Integer read GetOldTIPO_AGRUPACIONValue;
end; end;
{ TInformesBusinessProcessorRules } { TInformesBusinessProcessorRules }
@ -75,6 +77,9 @@ type
function GetVISTAValue: IROStrings; virtual; function GetVISTAValue: IROStrings; virtual;
function GetOldVISTAValue: IROStrings; virtual; function GetOldVISTAValue: IROStrings; virtual;
procedure SetVISTAValue(const aValue: IROStrings); virtual; procedure SetVISTAValue(const aValue: IROStrings); virtual;
function GetTIPO_AGRUPACIONValue: Integer; virtual;
function GetOldTIPO_AGRUPACIONValue: Integer; virtual;
procedure SetTIPO_AGRUPACIONValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -97,6 +102,8 @@ type
property OldORDEN : Integer read GetOldORDENValue; property OldORDEN : Integer read GetOldORDENValue;
property VISTA : IROStrings read GetVISTAValue write SetVISTAValue; property VISTA : IROStrings read GetVISTAValue write SetVISTAValue;
property OldVISTA : IROStrings read GetOldVISTAValue; property OldVISTA : IROStrings read GetOldVISTAValue;
property TIPO_AGRUPACION : Integer read GetTIPO_AGRUPACIONValue write SetTIPO_AGRUPACIONValue;
property OldTIPO_AGRUPACION : Integer read GetOldTIPO_AGRUPACIONValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -272,6 +279,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InformesVISTA] := aValue.Text; BusinessProcessor.CurrentChange.NewValueByName[fld_InformesVISTA] := aValue.Text;
end; end;
function TInformesBusinessProcessorRules.GetTIPO_AGRUPACIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformesTIPO_AGRUPACION];
end;
function TInformesBusinessProcessorRules.GetOldTIPO_AGRUPACIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformesTIPO_AGRUPACION];
end;
procedure TInformesBusinessProcessorRules.SetTIPO_AGRUPACIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InformesTIPO_AGRUPACION] := aValue;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_InformesDelta, TInformesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_InformesDelta, TInformesBusinessProcessorRules);

47
Source/Modulos/Informes base/Servidor/srvInformes_Impl.dfm
View File

@ -18,8 +18,8 @@ object srvInformes: TsrvInformes
TargetTable = 'INFORMES' TargetTable = 'INFORMES'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ' + 'SELECT '#10' ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ' +
'ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA'#10' FROM'#10' INFORMES'#10'ORD' + 'ICONO, NOMBRE,'#10' DESCRIPCION, ORDEN, VISTA, TIPO_AGRUPACION'#10' ' +
'ER BY CATEGORIA, ID' 'FROM'#10' INFORMES'#10'ORDER BY CATEGORIA, ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -61,6 +61,10 @@ object srvInformes: TsrvInformes
item item
DatasetField = 'VISTA' DatasetField = 'VISTA'
TableField = 'VISTA' TableField = 'VISTA'
end
item
DatasetField = 'TIPO_AGRUPACION'
TableField = 'TIPO_AGRUPACION'
end> end>
end> end>
Name = 'Informes' Name = 'Informes'
@ -169,6 +173,17 @@ object srvInformes: TsrvInformes
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'TIPO_AGRUPACION'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -246,7 +261,14 @@ object srvInformes: TsrvInformes
end end
item item
Name = 'VISTA' Name = 'VISTA'
DataType = datMemo DataType = datBlob
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_AGRUPACION'
DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
@ -257,9 +279,10 @@ object srvInformes: TsrvInformes
TargetTable = 'INFORMES' TargetTable = 'INFORMES'
SQL = SQL =
'INSERT'#10' INTO INFORMES'#10' (ID, ID_EMPRESA, CATEGORIA, CONTROLLE' + 'INSERT'#10' INTO INFORMES'#10' (ID, ID_EMPRESA, CATEGORIA, CONTROLLE' +
'R, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA)'#10' VALU' + 'R, MODIFICABLE, ICONO, NOMBRE,'#10' DESCRIPCION, ORDEN, VISTA, TI' +
'ES'#10' (:ID, :ID_EMPRESA, :CATEGORIA, :CONTROLLER, :MODIFICABLE,' + 'PO_AGRUPACION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :CATEGORIA, :CONT' +
' :ICONO, :NOMBRE, :DESCRIPCION, :ORDEN,'#10' :VISTA)' 'ROLLER, :MODIFICABLE, :ICONO, :NOMBRE,'#10' :DESCRIPCION, :ORDEN,' +
' :VISTA, :TIPO_AGRUPACION)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -330,7 +353,14 @@ object srvInformes: TsrvInformes
end end
item item
Name = 'VISTA' Name = 'VISTA'
DataType = datMemo DataType = datBlob
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_AGRUPACION'
DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
@ -351,7 +381,8 @@ object srvInformes: TsrvInformes
'IA = :CATEGORIA, '#10' CONTROLLER = :CONTROLLER,'#10' MODIFICABLE ' + 'IA = :CATEGORIA, '#10' CONTROLLER = :CONTROLLER,'#10' MODIFICABLE ' +
'= :MODIFICABLE,'#10' ICONO = :ICONO, '#10' NOMBRE = :NOMBRE, '#10' ' + '= :MODIFICABLE,'#10' ICONO = :ICONO, '#10' NOMBRE = :NOMBRE, '#10' ' +
'DESCRIPCION = :DESCRIPCION, '#10' ORDEN = :ORDEN, '#10' VISTA = :V' + 'DESCRIPCION = :DESCRIPCION, '#10' ORDEN = :ORDEN, '#10' VISTA = :V' +
'ISTA'#10' WHERE'#10' (ID = :OLD_ID)' 'ISTA,'#10' TIPO_AGRUPACION = :TIPO_AGRUPACION'#10' WHERE'#10' (ID = :' +
'OLD_ID)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

11
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<PersonalityInfo> <PersonalityInfo>
<Option> <Option>
@ -176,10 +176,11 @@
<VersionInfoKeys Name="ProductVersion">2.4.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">2.4.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">miércoles, 05 de marzo de 2008 17:35</VersionInfoKeys></VersionInfoKeys> <VersionInfoKeys Name="CompileDate">miércoles, 05 de marzo de 2008 17:35</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages>
</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Delphi.Personality> </Excluded_Packages>
</Delphi.Personality>
<ModelSupport>False</ModelSupport> <ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -108,8 +108,6 @@ uses
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
@ -124,14 +122,16 @@ uses
uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule}, uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.pas',
schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas'; schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.pas',
schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas',
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

196
Source/Servidor/FactuGES_Server.drc
View File

@ -908,9 +908,9 @@
#define IdResourceStrings_RSStatusConnecting 65181 #define IdResourceStrings_RSStatusConnecting 65181
#define IdResourceStrings_RSStatusConnected 65182 #define IdResourceStrings_RSStatusConnected 65182
#define IdResourceStrings_RSStatusDisconnecting 65183 #define IdResourceStrings_RSStatusDisconnecting 65183
#define uRODECConst_sFMT_XX 65184 #define ComConst_SNoMethod 65184
#define uRODECConst_sInvalidKeySize 65185 #define ComConst_SVarNotObject 65185
#define uRODECConst_sNotInitialized 65186 #define ComConst_STooManyParams 65186
#define IdResourceStrings_RSCannotAllocateSocket 65187 #define IdResourceStrings_RSCannotAllocateSocket 65187
#define IdResourceStrings_RSConnectionClosedGracefully 65188 #define IdResourceStrings_RSConnectionClosedGracefully 65188
#define IdResourceStrings_RSCouldNotBindSocket 65189 #define IdResourceStrings_RSCouldNotBindSocket 65189
@ -924,70 +924,70 @@
#define IdResourceStrings_RSNotConnected 65197 #define IdResourceStrings_RSNotConnected 65197
#define IdResourceStrings_RSObjectTypeNotSupported 65198 #define IdResourceStrings_RSObjectTypeNotSupported 65198
#define IdResourceStrings_RSTerminateThreadTimeout 65199 #define IdResourceStrings_RSTerminateThreadTimeout 65199
#define uRORes_err_VariantIsNotArray 65200 #define uRORes_err_InvalidHeader 65200
#define uRORes_err_InvalidVarArrayDimCount 65201 #define uRORes_err_UnknownClassInStream 65201
#define uRORes_err_MessageNotAssigned 65202 #define uRORes_err_UnexpectedClassInStream 65202
#define ComConst_SOleError 65203 #define uRORes_err_SessionNotFound 65203
#define ComConst_SNoMethod 65204 #define uRORes_err_ChannelDoesntSupportIROMetadataReader 65204
#define ComConst_SVarNotObject 65205 #define uRORes_err_TooManySessions 65205
#define ComConst_STooManyParams 65206 #define uRORes_err_DOMElementIsNIL 65206
#define uRODECConst_sProtectionCircular 65207 #define uRORes_err_CannotLoadXMLDocument 65207
#define uRODECConst_sStringFormatExists 65208 #define uRORes_err_ErrorCreatingMsXmlDoc 65208
#define uRODECConst_sInvalidStringFormat 65209 #define uRORes_err_NoXMLParsersAvailable 65209
#define uRODECConst_sInvalidFormatString 65210 #define uRORes_err_IDispatchMarshalingNotSupported 65210
#define uRODECConst_sFMT_COPY 65211 #define uRORes_err_UnsupportedVariantType 65211
#define uRODECConst_sFMT_HEX 65212 #define uRORes_err_VariantIsNotArray 65212
#define uRODECConst_sFMT_HEXL 65213 #define uRORes_err_InvalidVarArrayDimCount 65213
#define uRODECConst_sFMT_MIME64 65214 #define uRORes_err_MessageNotAssigned 65214
#define uRODECConst_sFMT_UU 65215 #define ComConst_SOleError 65215
#define uRORes_err_ServerOnlySupportsOneDispatcher 65216 #define uRORes_err_NILMessage 65216
#define uRORes_err_UnhandledException 65217 #define uRORes_err_UnspecifiedInterface 65217
#define uRORes_err_ChannelBusy 65218 #define uRORes_err_UnspecifiedMessage 65218
#define uRORes_err_ArrayIndexOutOfBounds 65219 #define uRORes_err_UnknownMethod 65219
#define uRORes_err_InvalidHeader 65220 #define uRORes_err_ClassFactoryDidNotReturnInstance 65220
#define uRORes_err_UnknownClassInStream 65221 #define uRORes_err_TypeNotSupported 65221
#define uRORes_err_UnexpectedClassInStream 65222 #define uRORes_err_ClassFactoryNotFound 65222
#define uRORes_err_SessionNotFound 65223 #define uRORes_err_IROMessageNotSupported 65223
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65224 #define uRORes_err_ClassAlreadyRegistered 65224
#define uRORes_err_TooManySessions 65225 #define uRORes_err_UnknownProxyInterface 65225
#define uRORes_err_DOMElementIsNIL 65226 #define uRORes_err_DispatcherAlreadyAssigned 65226
#define uRORes_err_CannotLoadXMLDocument 65227 #define uRORes_err_CannotFindMessageDispatcher 65227
#define uRORes_err_ErrorCreatingMsXmlDoc 65228 #define uRORes_err_ServerOnlySupportsOneDispatcher 65228
#define uRORes_err_NoXMLParsersAvailable 65229 #define uRORes_err_UnhandledException 65229
#define uRORes_err_IDispatchMarshalingNotSupported 65230 #define uRORes_err_ChannelBusy 65230
#define uRORes_err_UnsupportedVariantType 65231 #define uRORes_err_ArrayIndexOutOfBounds 65231
#define uRORes_str_ExceptionOnServer 65232 #define uRORes_err_InvalidStringLength 65232
#define uRORes_str_ExceptionReraisedFromServer 65233 #define uRORes_str_InvalidClassTypeInStream 65233
#define uRORes_err_AssignError 65234 #define uRORes_err_UnexpectedEndOfStream 65234
#define uRORes_err_InvalidRequestStream 65235 #define uRORes_err_RodlDuplicateName 65235
#define uRORes_err_NILMessage 65236 #define uRORes_err_RodlNoDataTypeSpecified 65236
#define uRORes_err_UnspecifiedInterface 65237 #define uRORes_err_RodlNoEnumValues 65237
#define uRORes_err_UnspecifiedMessage 65238 #define uRORes_err_RodlNoStructElementsDefined 65238
#define uRORes_err_UnknownMethod 65239 #define uRORes_err_RodlNoOperationsDefined 65239
#define uRORes_err_ClassFactoryDidNotReturnInstance 65240 #define uRORes_err_RodlUsedFileDoesNotExist 65240
#define uRORes_err_TypeNotSupported 65241 #define uRORes_err_RodlInvalidDataType 65241
#define uRORes_err_ClassFactoryNotFound 65242 #define uRORes_err_RodlStructCannotBeNested 65242
#define uRORes_err_IROMessageNotSupported 65243 #define uRORes_err_RodlInvalidAncestorType 65243
#define uRORes_err_ClassAlreadyRegistered 65244 #define uRORes_str_ExceptionOnServer 65244
#define uRORes_err_UnknownProxyInterface 65245 #define uRORes_str_ExceptionReraisedFromServer 65245
#define uRORes_err_DispatcherAlreadyAssigned 65246 #define uRORes_err_AssignError 65246
#define uRORes_err_CannotFindMessageDispatcher 65247 #define uRORes_err_InvalidRequestStream 65247
#define uRORes_err_InvalidIndex 65248 #define uRODECConst_sProtectionCircular 65248
#define uRORes_err_InvalidType 65249 #define uRODECConst_sStringFormatExists 65249
#define uRORes_err_InvalidStream 65250 #define uRODECConst_sInvalidStringFormat 65250
#define uRORes_err_InvalidParamFlag 65251 #define uRODECConst_sInvalidFormatString 65251
#define uRORes_err_InvalidStringLength 65252 #define uRODECConst_sFMT_COPY 65252
#define uRORes_str_InvalidClassTypeInStream 65253 #define uRODECConst_sFMT_HEX 65253
#define uRORes_err_UnexpectedEndOfStream 65254 #define uRODECConst_sFMT_HEXL 65254
#define uRORes_err_RodlDuplicateName 65255 #define uRODECConst_sFMT_MIME64 65255
#define uRORes_err_RodlNoDataTypeSpecified 65256 #define uRODECConst_sFMT_UU 65256
#define uRORes_err_RodlNoEnumValues 65257 #define uRODECConst_sFMT_XX 65257
#define uRORes_err_RodlNoStructElementsDefined 65258 #define uRODECConst_sInvalidKeySize 65258
#define uRORes_err_RodlNoOperationsDefined 65259 #define uRODECConst_sNotInitialized 65259
#define uRORes_err_RodlUsedFileDoesNotExist 65260 #define uRORes_err_InvalidIndex 65260
#define uRORes_err_RodlInvalidDataType 65261 #define uRORes_err_InvalidType 65261
#define uRORes_err_RodlStructCannotBeNested 65262 #define uRORes_err_InvalidStream 65262
#define uRORes_err_RodlInvalidAncestorType 65263 #define uRORes_err_InvalidParamFlag 65263
#define Consts_SDockedCtlNeedsName 65264 #define Consts_SDockedCtlNeedsName 65264
#define Consts_SDockTreeRemoveError 65265 #define Consts_SDockTreeRemoveError 65265
#define Consts_SDockZoneNotFound 65266 #define Consts_SDockZoneNotFound 65266
@ -2162,9 +2162,9 @@ BEGIN
IdResourceStrings_RSStatusConnecting, "Connecting to %s." IdResourceStrings_RSStatusConnecting, "Connecting to %s."
IdResourceStrings_RSStatusConnected, "Connected." IdResourceStrings_RSStatusConnected, "Connected."
IdResourceStrings_RSStatusDisconnecting, "Disconnecting." IdResourceStrings_RSStatusDisconnecting, "Disconnecting."
uRODECConst_sFMT_XX, "XX Coding" ComConst_SNoMethod, "Method '%s' not supported by automation object"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes" ComConst_SVarNotObject, "Variant does not reference an automation object"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before." ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket." IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
@ -2178,26 +2178,6 @@ BEGIN
IdResourceStrings_RSNotConnected, "Not Connected" IdResourceStrings_RSNotConnected, "Not Connected"
IdResourceStrings_RSObjectTypeNotSupported, "Object type not supported." IdResourceStrings_RSObjectTypeNotSupported, "Object type not supported."
IdResourceStrings_RSTerminateThreadTimeout, "Terminate Thread Timeout" IdResourceStrings_RSTerminateThreadTimeout, "Terminate Thread Timeout"
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message." uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message."
uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream." uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream."
uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"." uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"."
@ -2210,10 +2190,10 @@ BEGIN
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." uRORes_err_MessageNotAssigned, "Message is NIL"
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" ComConst_SOleError, "OLE error %.8x"
uRORes_err_NILMessage, "Message is NIL" uRORes_err_NILMessage, "Message is NIL"
uRORes_err_UnspecifiedInterface, "The message does not have an interface name" uRORes_err_UnspecifiedInterface, "The message does not have an interface name"
uRORes_err_UnspecifiedMessage, "The message does not have a name" uRORes_err_UnspecifiedMessage, "The message does not have a name"
@ -2226,10 +2206,10 @@ BEGIN
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?" uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_InvalidIndex, "Invalid index %d" uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_InvalidStream, "Invalid stream" uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\"" uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\""
uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\"" uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\""
uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream." uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream."
@ -2242,6 +2222,26 @@ BEGIN
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"." uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves." uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
Consts_SDockedCtlNeedsName, "Docked control must have a name" Consts_SDockedCtlNeedsName, "Docked control must have a name"
Consts_SDockTreeRemoveError, "Error removing control from dock tree" Consts_SDockTreeRemoveError, "Error removing control from dock tree"
Consts_SDockZoneNotFound, " - Dock zone not found" Consts_SDockZoneNotFound, " - Dock zone not found"