Arreglo de informes de margen, para que segun la agrupacion base por articulo o por cliente se guarde en el informe
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@222 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
26d974b043
commit
e63365542f
Binary file not shown.
Binary file not shown.
@ -14,8 +14,8 @@
|
||||
<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_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="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="InformesBase_view.bpl">Modulos\Informes base\Views\InformesBase_view.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="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="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>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
|
||||
@ -8,11 +8,16 @@ uses
|
||||
uBizInfMargenArticulo, uIDataModuleInfMargenArticulo, uInformeBaseController,
|
||||
uBizInformes;
|
||||
|
||||
const
|
||||
CTE_AGRUPACION_PORARTICULO = 0;
|
||||
CTE_AGRUPACION_PORCLIENTE = 1;
|
||||
|
||||
type
|
||||
IInfMargenArticuloController = interface(IInformeBaseController)
|
||||
['{1F19FFE4-7AA6-4CAB-B7F0-687FE858FD31}']
|
||||
// procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo);
|
||||
// function BuscarTodos: IBizInfMargenArticulo;
|
||||
function BuscarAgrupadoPorCliente: IBizInfMargenArticulo;
|
||||
function BuscarAgrupadoPorArticulo: IBizInfMargenArticulo;
|
||||
// function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo;
|
||||
// function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo;
|
||||
|
||||
@ -23,7 +28,7 @@ type
|
||||
|
||||
TInfMargenArticuloController = class(TObservador, IInfMargenArticuloController, IInformeBaseController)
|
||||
private
|
||||
function BuscarTodos: IBizInfMargenArticulo;
|
||||
function darAgrupacionParaInforme: Integer;
|
||||
|
||||
protected
|
||||
FDataModule : IDataModuleInfMargenArticulo;
|
||||
@ -39,12 +44,16 @@ type
|
||||
procedure AsignarDataModule; virtual;
|
||||
|
||||
public
|
||||
|
||||
constructor Create; virtual;
|
||||
destructor Destroy; override;
|
||||
|
||||
// function Buscar(const ID_ALMACEN: Integer): IBizInfMargenArticulo;
|
||||
// function ExtraerSeleccionados(AArticulos: IBizInfMargenArticulo) : IBizInfMargenArticulo;
|
||||
// function Ver(AArticulos: IBizInfMargenArticulo; AInfMargenArticulo : IBizInfMargenArticulo): Boolean;
|
||||
function BuscarAgrupadoPorCliente: IBizInfMargenArticulo;
|
||||
function BuscarAgrupadoPorArticulo: IBizInfMargenArticulo;
|
||||
|
||||
procedure Nuevo(AInforme : IBizInforme);
|
||||
procedure Ver(AInforme : IBizInforme);
|
||||
// procedure VerTodos(AInfMargenArticulo: IBizInfMargenArticulo);
|
||||
@ -55,11 +64,10 @@ implementation
|
||||
uses
|
||||
Forms, cxControls, DB, uEditorRegistryUtils,
|
||||
uIEditorInfMargenArticulo, uDataModuleUsuarios,
|
||||
uDataModuleInfMargenArticulo,
|
||||
uDAInterfaces, uDataTableUtils,
|
||||
uDataModuleInfMargenArticulo, uDAInterfaces, uDataTableUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows,
|
||||
dialogs, Variants, uControllerDetallesBase, uDialogUtils,
|
||||
schInfMargenArticuloClient_Intf;
|
||||
JSDialog, JSDialogs, schInfMargenArticuloClient_Intf;
|
||||
|
||||
{ TInfMargenArticuloController }
|
||||
|
||||
@ -76,9 +84,15 @@ begin
|
||||
end;
|
||||
}
|
||||
|
||||
function TInfMargenArticuloController.BuscarTodos: IBizInfMargenArticulo;
|
||||
function TInfMargenArticuloController.BuscarAgrupadoPorArticulo: IBizInfMargenArticulo;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
Result := FDataModule.GetItems(tArticulo);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TInfMargenArticuloController.BuscarAgrupadoPorCliente: IBizInfMargenArticulo;
|
||||
begin
|
||||
Result := FDataModule.GetItems(tCliente);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
@ -92,6 +106,44 @@ begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
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;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
@ -151,10 +203,14 @@ begin
|
||||
if not Assigned(FDataModule) then
|
||||
AsignarDataModule;
|
||||
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;
|
||||
|
||||
|
||||
// Datos.VisibleColumns := FDataModule.GetNameColumns;
|
||||
end;
|
||||
finally
|
||||
@ -216,7 +272,7 @@ begin
|
||||
AddOperator(opAND);
|
||||
|
||||
OpenBraket;
|
||||
AddText(fld_InfMargenArticuloID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
|
||||
AddText(fld_InfMargenPorClienteID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
|
||||
CloseBraket;
|
||||
end;
|
||||
end;
|
||||
@ -227,6 +283,9 @@ begin
|
||||
AInforme.CATEGORIA := 'MARGEN ARTICULOS';
|
||||
AInforme.CONTROLLER := 'InfMargenArticuloController';
|
||||
AInforme.ID_EMPRESA := dmUsuarios.EmpresaActual.ID;
|
||||
|
||||
//ESTABLECEMOS EL TIPO DE AGRUPACION INICIAL PARA EL INFORME QUE DESEAMOS CREAR
|
||||
AInforme.TIPO_AGRUPACION := darAgrupacionParaInforme;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -66,7 +66,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 64
|
||||
Top = 272
|
||||
end
|
||||
@ -74,7 +74,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
Left = 64
|
||||
Top = 324
|
||||
end
|
||||
object tbl_InfMargenArticulo2: TDACDSDataTable
|
||||
object tbl_InfMargen: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <>
|
||||
Params = <>
|
||||
@ -161,12 +161,525 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InfMargenArticulo'
|
||||
IndexDefs = <>
|
||||
Left = 280
|
||||
Top = 232
|
||||
Left = 288
|
||||
Top = 208
|
||||
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 = []
|
||||
Fields = <
|
||||
item
|
||||
@ -655,7 +1168,19 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
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'
|
||||
@ -669,7 +1194,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'InfMargenArticulo'
|
||||
Value = 'InfMargenPorCliente'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
@ -682,7 +1207,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'InfMargenArticulo'
|
||||
Value = 'InfMargenPorCliente'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
@ -732,16 +1257,21 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'InfMargenArticulo'
|
||||
Value = 'InfMargenPorCliente'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'InfMargenArticulo'
|
||||
LogicalName = 'InfMargenPorCliente'
|
||||
IndexDefs = <>
|
||||
Left = 280
|
||||
Top = 168
|
||||
Left = 360
|
||||
Top = 104
|
||||
end
|
||||
object ds_InfMargenPorCliente1: TDADataSource
|
||||
DataTable = tbl_InfMargenPorCliente1
|
||||
Left = 360
|
||||
Top = 40
|
||||
end
|
||||
end
|
||||
|
||||
@ -20,14 +20,17 @@ type
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_InfMargenArticulo2: TDACDSDataTable;
|
||||
tbl_InfMargenArticulo: TDACDSDataTable;
|
||||
tbl_InfMargen: TDACDSDataTable;
|
||||
tbl_InfMargenPorArticulo1: TDACDSDataTable;
|
||||
ds_InfMargenPorArticulo1: TDADataSource;
|
||||
tbl_InfMargenPorCliente1: TDACDSDataTable;
|
||||
ds_InfMargenPorCliente1: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
public
|
||||
function GetItems : IBizInfMargenArticulo;
|
||||
function GetItems(Agrupado: TEnumAgrupaciones) : IBizInfMargenArticulo;
|
||||
function GetNameColumns: String;
|
||||
end;
|
||||
|
||||
@ -51,20 +54,33 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TdmInfMargenArticulo.GetItems: IBizInfMargenArticulo;
|
||||
function TdmInfMargenArticulo.GetItems(Agrupado: TEnumAgrupaciones): IBizInfMargenArticulo;
|
||||
var
|
||||
AInfMargenArticulo : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
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;
|
||||
|
||||
//Importante inicializar columnas visibles
|
||||
// AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_FACTURA).Visible := False;
|
||||
AInfMargenArticulo.FieldByName(fld_InfMargenArticuloID_ARTICULO).Visible := False;
|
||||
AInfMargenArticulo.FieldByName(fld_InfMargenPorClienteID_ARTICULO).Visible := False;
|
||||
AInfMargenArticulo.LoadSchema;
|
||||
(AInfMargenArticulo as IBizInfMargenArticulo).VisibleColumns := GetNameColumns;
|
||||
|
||||
@ -81,9 +97,9 @@ var
|
||||
begin
|
||||
AList := TStringList.Create;
|
||||
try
|
||||
for i := 0 to tbl_InfMargenArticulo.FieldCount - 1 do
|
||||
if tbl_InfMargenArticulo.Fields[i].Visible then
|
||||
AList.Add(tbl_InfMargenArticulo.Fields[i].Name);
|
||||
for i := 0 to tbl_InfMargenPorCliente1.FieldCount - 1 do
|
||||
if tbl_InfMargenPorCliente1.Fields[i].Visible then
|
||||
AList.Add(tbl_InfMargenPorCliente1.Fields[i].Name);
|
||||
Result := AList.CommaText;
|
||||
finally
|
||||
FreeAndNil(AList);
|
||||
|
||||
@ -6,9 +6,11 @@ uses
|
||||
uBizInfMargenArticulo;
|
||||
|
||||
type
|
||||
TEnumAgrupaciones = (tCliente, tArticulo);
|
||||
|
||||
IDataModuleInfMargenArticulo = interface
|
||||
['{B539E3DE-CC9D-4F12-84AF-2534971B0BE4}']
|
||||
function GetItems : IBizInfMargenArticulo;
|
||||
function GetItems(Agrupado: TEnumAgrupaciones) : IBizInfMargenArticulo;
|
||||
function GetNameColumns: String;
|
||||
end;
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -10,14 +10,14 @@ const
|
||||
BIZ_InfMargenArticulo = 'Client.InfMargenArticulo';
|
||||
|
||||
type
|
||||
IBizInfMargenArticulo = interface(IInfMargenArticulo)
|
||||
IBizInfMargenArticulo = interface(IInfMargenPorCliente)
|
||||
['{8E265668-0B6D-4475-9965-15B3EE251B24}']
|
||||
function GetVisibleColumns: String;
|
||||
procedure SetVisibleColumns(const Value: String);
|
||||
property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns;
|
||||
end;
|
||||
|
||||
TBizInfMargenArticulo = class(TInfMargenArticuloDataTableRules, IBizInfMargenArticulo)
|
||||
TBizInfMargenArticulo = class(TInfMargenPorClienteDataTableRules, IBizInfMargenArticulo)
|
||||
private
|
||||
FVisibleColumns : String;
|
||||
FDateParams : TDADatasetParamArray;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -170,7 +170,8 @@
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</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>
|
||||
</Delphi.Personality>
|
||||
|
||||
Binary file not shown.
@ -7,7 +7,7 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
|
||||
OnCreate = CustomEditorCreate
|
||||
OnGetModified = CustomEditorGetModified
|
||||
ExplicitWidth = 687
|
||||
ExplicitHeight = 607
|
||||
ExplicitHeight = 600
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -200,27 +200,27 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
ExplicitHeight = 158
|
||||
inherited pcParametros: TPageControl
|
||||
Height = 69
|
||||
ExplicitHeight = 69
|
||||
Height = 71
|
||||
ExplicitHeight = 71
|
||||
inherited TabSheet5: TTabSheet
|
||||
ExplicitHeight = 29
|
||||
ExplicitHeight = 31
|
||||
end
|
||||
inherited tsColumnas: TTabSheet
|
||||
ExplicitHeight = 59
|
||||
ExplicitHeight = 61
|
||||
inherited frViewColumnas1: TfrViewColumnas
|
||||
Height = 59
|
||||
ExplicitHeight = 59
|
||||
Height = 61
|
||||
ExplicitHeight = 61
|
||||
inherited lbColumnas: TcxCheckListBox
|
||||
Height = 30
|
||||
ExplicitHeight = 30
|
||||
Height = 32
|
||||
ExplicitHeight = 32
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tsAgrupacion: TTabSheet
|
||||
ExplicitHeight = 29
|
||||
ExplicitHeight = 31
|
||||
inherited frViewAgrupaciones1: TfrViewAgrupaciones
|
||||
Height = 29
|
||||
ExplicitHeight = 29
|
||||
Height = 31
|
||||
ExplicitHeight = 31
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -231,34 +231,34 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
|
||||
ExplicitTop = 158
|
||||
ExplicitHeight = 173
|
||||
inherited TBXPageScroller1: TTBXPageScroller
|
||||
Height = 151
|
||||
ExplicitHeight = 151
|
||||
Height = 153
|
||||
ExplicitHeight = 153
|
||||
inherited pcTareas: TPageControl
|
||||
Height = 103
|
||||
ExplicitHeight = 103
|
||||
Height = 105
|
||||
ExplicitHeight = 105
|
||||
inherited tsSumarios: TTabSheet
|
||||
ExplicitHeight = 48
|
||||
ExplicitHeight = 50
|
||||
inherited frViewSumarios1: TfrViewSumarios
|
||||
Height = 48
|
||||
ExplicitHeight = 48
|
||||
Height = 50
|
||||
ExplicitHeight = 50
|
||||
inherited vgSumarios: TcxVerticalGrid
|
||||
Height = 19
|
||||
ExplicitHeight = 19
|
||||
Height = 21
|
||||
ExplicitHeight = 21
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tsFiltros: TTabSheet
|
||||
ExplicitHeight = 93
|
||||
ExplicitHeight = 95
|
||||
inherited frViewFiltros1: TfrViewFiltros
|
||||
Height = 93
|
||||
ExplicitHeight = 93
|
||||
Height = 95
|
||||
ExplicitHeight = 95
|
||||
inherited cxFilterControl1: TcxFilterControl
|
||||
Height = 34
|
||||
ExplicitHeight = 34
|
||||
Height = 36
|
||||
ExplicitHeight = 36
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Top = 63
|
||||
ExplicitTop = 63
|
||||
Top = 65
|
||||
ExplicitTop = 65
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -52,7 +52,7 @@ type
|
||||
procedure RellenarCabeceraInforme; override;
|
||||
|
||||
procedure RestaurarConfiguracion; override;
|
||||
|
||||
|
||||
function GetController : IInfMargenArticuloController;
|
||||
procedure SetController (const Value : IInfMargenArticuloController);
|
||||
|
||||
@ -85,7 +85,7 @@ procedure TfEditorInfMargenArticulo.SetController(const Value: IInfMargenArticul
|
||||
begin
|
||||
FController := Value;
|
||||
// if Assigned(FController) then
|
||||
// (ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
|
||||
// (FViewInforme as IViewInfMargenArticulo).Controller := (FController as IInfMargenArticuloController);
|
||||
end;
|
||||
|
||||
procedure TfEditorInfMargenArticulo.SetDatos(const Value: IBizInfMargenArticulo);
|
||||
|
||||
@ -1,28 +1,31 @@
|
||||
inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
Width = 834
|
||||
Height = 448
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 448
|
||||
Width = 800
|
||||
Height = 567
|
||||
ExplicitWidth = 800
|
||||
ExplicitHeight = 567
|
||||
inherited TBXMultiDock1: TTBXMultiDock
|
||||
Top = 105
|
||||
Height = 343
|
||||
Height = 462
|
||||
ExplicitTop = 105
|
||||
ExplicitHeight = 343
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
ExplicitHeight = 156
|
||||
ExplicitHeight = 215
|
||||
inherited pcParametros: TPageControl
|
||||
Height = 69
|
||||
Height = 128
|
||||
ExplicitHeight = 69
|
||||
inherited TabSheet5: TTabSheet
|
||||
ExplicitHeight = 57
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 6
|
||||
ExplicitWidth = 210
|
||||
ExplicitHeight = 59
|
||||
end
|
||||
inherited tsColumnas: TTabSheet
|
||||
ExplicitHeight = 59
|
||||
inherited frViewColumnas1: TfrViewColumnas
|
||||
Height = 59
|
||||
Height = 118
|
||||
ExplicitHeight = 59
|
||||
inherited lbColumnas: TcxCheckListBox
|
||||
Height = 30
|
||||
Height = 89
|
||||
ExplicitHeight = 30
|
||||
end
|
||||
end
|
||||
@ -30,45 +33,45 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
inherited tsAgrupacion: TTabSheet
|
||||
ExplicitHeight = 59
|
||||
inherited frViewAgrupaciones1: TfrViewAgrupaciones
|
||||
Height = 59
|
||||
Height = 118
|
||||
ExplicitHeight = 59
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlTareas: TTBXDockablePanel
|
||||
Top = 156
|
||||
DockPos = 156
|
||||
ExplicitTop = 156
|
||||
ExplicitHeight = 171
|
||||
Top = 215
|
||||
DockPos = 215
|
||||
ExplicitTop = 215
|
||||
ExplicitHeight = 231
|
||||
inherited TBXPageScroller1: TTBXPageScroller
|
||||
Height = 151
|
||||
Height = 211
|
||||
ExplicitHeight = 151
|
||||
inherited pcTareas: TPageControl
|
||||
Height = 103
|
||||
Height = 163
|
||||
ExplicitHeight = 103
|
||||
inherited tsSumarios: TTabSheet
|
||||
ExplicitHeight = 93
|
||||
inherited frViewSumarios1: TfrViewSumarios
|
||||
Height = 93
|
||||
Height = 153
|
||||
ExplicitHeight = 93
|
||||
inherited vgSumarios: TcxVerticalGrid
|
||||
Height = 64
|
||||
ExplicitHeight = 62
|
||||
Height = 124
|
||||
ExplicitHeight = 64
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tsFiltros: TTabSheet
|
||||
ExplicitHeight = 93
|
||||
inherited frViewFiltros1: TfrViewFiltros
|
||||
Height = 93
|
||||
Height = 153
|
||||
ExplicitHeight = 93
|
||||
inherited cxFilterControl1: TcxFilterControl
|
||||
Height = 34
|
||||
Height = 94
|
||||
ExplicitHeight = 34
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Top = 63
|
||||
Top = 123
|
||||
ExplicitTop = 63
|
||||
end
|
||||
end
|
||||
@ -78,7 +81,7 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
end
|
||||
end
|
||||
inherited TBXMultiDock2: TTBXMultiDock
|
||||
Width = 834
|
||||
Width = 800
|
||||
Height = 105
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 105
|
||||
@ -86,18 +89,18 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
DockedHeight = 101
|
||||
ShowCaption = False
|
||||
ShowCaptionWhenDocked = False
|
||||
ExplicitWidth = 818
|
||||
ExplicitWidth = 784
|
||||
ExplicitHeight = 105
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Top = 71
|
||||
Width = 814
|
||||
Width = 780
|
||||
ExplicitTop = 71
|
||||
ExplicitWidth = 814
|
||||
end
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 814
|
||||
Width = 780
|
||||
Height = 71
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -114,12 +117,12 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
ExplicitWidth = 814
|
||||
ExplicitHeight = 71
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 814
|
||||
Width = 780
|
||||
Height = 71
|
||||
ExplicitWidth = 814
|
||||
ExplicitHeight = 71
|
||||
DesignSize = (
|
||||
814
|
||||
780
|
||||
71)
|
||||
inherited cbPeriodo: TcxComboBox
|
||||
Left = 54
|
||||
@ -141,8 +144,8 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
inline frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid [2]
|
||||
Left = 222
|
||||
Top = 105
|
||||
Width = 612
|
||||
Height = 343
|
||||
Width = 578
|
||||
Height = 462
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -157,11 +160,12 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
ExplicitWidth = 612
|
||||
ExplicitHeight = 343
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 612
|
||||
Height = 343
|
||||
Width = 578
|
||||
Height = 462
|
||||
ExplicitWidth = 612
|
||||
ExplicitHeight = 343
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.DataSource = dmInfMargenArticulo.ds_InfMargenArticulo21
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 %;-,0.00 %'
|
||||
@ -242,6 +246,129 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
Format = ',0.00 %;-,0.00 %'
|
||||
Column = frViewInfMargenArticuloGrid1.cxGridViewPOR_MARGEN_PRO_VENT_ULT_COMP
|
||||
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
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||
cxTextEdit, uViewFiltros, uBizInfMargenArticulo,
|
||||
uViewPeriodoFechas, uViewInfMargenArticuloGrid, cxContainer, uViewFiltroBase,
|
||||
uDADataTable;
|
||||
uDADataTable, uInfMargenArticuloController;
|
||||
|
||||
type
|
||||
IViewInfMargenArticulo = interface(IViewInformeBase)
|
||||
@ -29,6 +29,7 @@ type
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure actPeriodoFechasExecute(Sender: TObject);
|
||||
|
||||
protected
|
||||
FDatos : IBizInfMargenArticulo;
|
||||
FModificado : Boolean;
|
||||
@ -66,6 +67,7 @@ begin
|
||||
pcParametros.ActivePage := TabSheet5;
|
||||
end;
|
||||
|
||||
|
||||
function TfrViewInfMargenArticulo.GetDatos: IBizInfMargenArticulo;
|
||||
begin
|
||||
Result := FDatos;
|
||||
@ -84,6 +86,7 @@ var
|
||||
begin
|
||||
inherited;
|
||||
ShowHourglassCursor;
|
||||
|
||||
actRefrescar.Enabled := False;
|
||||
|
||||
frViewInfMargenArticuloGrid1.OnViewChanged := nil;
|
||||
@ -101,11 +104,6 @@ begin
|
||||
AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName);
|
||||
|
||||
|
||||
//PRUEBA
|
||||
Datos.DataTable.Active := False;
|
||||
|
||||
|
||||
|
||||
FDatos.VisibleColumns := AColumns.CommaText;
|
||||
|
||||
with Datos.DataTable do
|
||||
|
||||
@ -66,7 +66,7 @@ object dmInformes: TdmInformes
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
@ -201,6 +201,17 @@ object dmInformes: TdmInformes
|
||||
Calculated = False
|
||||
Lookup = 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>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
|
||||
@ -9,7 +9,7 @@ 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_Informes = '{E7928EEC-E1CA-4117-AD71-651081CE43B0}';
|
||||
RID_Informes = '{5395357F-3002-48E5-9BBB-814B0DCDA995}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Informes = 'Informes';
|
||||
@ -25,6 +25,7 @@ const
|
||||
fld_InformesDESCRIPCION = 'DESCRIPCION';
|
||||
fld_InformesORDEN = 'ORDEN';
|
||||
fld_InformesVISTA = 'VISTA';
|
||||
fld_InformesTIPO_AGRUPACION = 'TIPO_AGRUPACION';
|
||||
|
||||
{ Informes field indexes }
|
||||
idx_InformesID = 0;
|
||||
@ -37,11 +38,12 @@ const
|
||||
idx_InformesDESCRIPCION = 7;
|
||||
idx_InformesORDEN = 8;
|
||||
idx_InformesVISTA = 9;
|
||||
idx_InformesTIPO_AGRUPACION = 10;
|
||||
|
||||
type
|
||||
{ IInformes }
|
||||
IInformes = interface(IDAStronglyTypedDataTable)
|
||||
['{FDC16F5A-3D0D-4100-BFD2-B28C537E5513}']
|
||||
['{0C481E09-15DC-4433-8212-CEE3CA681EBC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -63,6 +65,8 @@ type
|
||||
procedure SetORDENValue(const aValue: Integer);
|
||||
function GetVISTAValue: IROStrings;
|
||||
procedure SetVISTAValue(const aValue: IROStrings);
|
||||
function GetTIPO_AGRUPACIONValue: Integer;
|
||||
procedure SetTIPO_AGRUPACIONValue(const aValue: Integer);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -76,6 +80,7 @@ type
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property ORDEN: Integer read GetORDENValue write SetORDENValue;
|
||||
property VISTA: IROStrings read GetVISTAValue write SetVISTAValue;
|
||||
property TIPO_AGRUPACION: Integer read GetTIPO_AGRUPACIONValue write SetTIPO_AGRUPACIONValue;
|
||||
end;
|
||||
|
||||
{ TInformesDataTableRules }
|
||||
@ -103,6 +108,8 @@ type
|
||||
procedure SetORDENValue(const aValue: Integer); virtual;
|
||||
function GetVISTAValue: IROStrings; virtual;
|
||||
procedure SetVISTAValue(const aValue: IROStrings); virtual;
|
||||
function GetTIPO_AGRUPACIONValue: Integer; virtual;
|
||||
procedure SetTIPO_AGRUPACIONValue(const aValue: Integer); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -115,6 +122,7 @@ type
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property ORDEN: Integer read GetORDENValue write SetORDENValue;
|
||||
property VISTA: IROStrings read GetVISTAValue write SetVISTAValue;
|
||||
property TIPO_AGRUPACION: Integer read GetTIPO_AGRUPACIONValue write SetTIPO_AGRUPACIONValue;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -238,6 +246,16 @@ begin
|
||||
DataTable.Fields[idx_InformesVISTA].AsString := aValue.Text;
|
||||
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
|
||||
RegisterDataTableRules(RID_Informes, TInformesDataTableRules);
|
||||
|
||||
@ -9,12 +9,12 @@ 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_InformesDelta = '{74CF2C20-601C-4EE4-BD37-D5BC5FA42F31}';
|
||||
RID_InformesDelta = '{5493356F-BD0D-4517-83BC-DE697B7F2093}';
|
||||
|
||||
type
|
||||
{ IInformesDelta }
|
||||
IInformesDelta = interface(IInformes)
|
||||
['{74CF2C20-601C-4EE4-BD37-D5BC5FA42F31}']
|
||||
['{5493356F-BD0D-4517-83BC-DE697B7F2093}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -26,6 +26,7 @@ type
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldORDENValue : Integer;
|
||||
function GetOldVISTAValue : IROStrings;
|
||||
function GetOldTIPO_AGRUPACIONValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -38,6 +39,7 @@ type
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldORDEN : Integer read GetOldORDENValue;
|
||||
property OldVISTA : IROStrings read GetOldVISTAValue;
|
||||
property OldTIPO_AGRUPACION : Integer read GetOldTIPO_AGRUPACIONValue;
|
||||
end;
|
||||
|
||||
{ TInformesBusinessProcessorRules }
|
||||
@ -75,6 +77,9 @@ type
|
||||
function GetVISTAValue: IROStrings; virtual;
|
||||
function GetOldVISTAValue: 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -97,6 +102,8 @@ type
|
||||
property OldORDEN : Integer read GetOldORDENValue;
|
||||
property VISTA : IROStrings read GetVISTAValue write SetVISTAValue;
|
||||
property OldVISTA : IROStrings read GetOldVISTAValue;
|
||||
property TIPO_AGRUPACION : Integer read GetTIPO_AGRUPACIONValue write SetTIPO_AGRUPACIONValue;
|
||||
property OldTIPO_AGRUPACION : Integer read GetOldTIPO_AGRUPACIONValue;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -272,6 +279,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_InformesVISTA] := aValue.Text;
|
||||
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
|
||||
RegisterBusinessProcessorRules(RID_InformesDelta, TInformesBusinessProcessorRules);
|
||||
|
||||
@ -18,8 +18,8 @@ object srvInformes: TsrvInformes
|
||||
TargetTable = 'INFORMES'
|
||||
SQL =
|
||||
'SELECT '#10' ID, ID_EMPRESA, CATEGORIA, CONTROLLER, MODIFICABLE, ' +
|
||||
'ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA'#10' FROM'#10' INFORMES'#10'ORD' +
|
||||
'ER BY CATEGORIA, ID'
|
||||
'ICONO, NOMBRE,'#10' DESCRIPCION, ORDEN, VISTA, TIPO_AGRUPACION'#10' ' +
|
||||
'FROM'#10' INFORMES'#10'ORDER BY CATEGORIA, ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -61,6 +61,10 @@ object srvInformes: TsrvInformes
|
||||
item
|
||||
DatasetField = 'VISTA'
|
||||
TableField = 'VISTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_AGRUPACION'
|
||||
TableField = 'TIPO_AGRUPACION'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informes'
|
||||
@ -169,6 +173,17 @@ object srvInformes: TsrvInformes
|
||||
Calculated = False
|
||||
Lookup = 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>
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
@ -246,7 +261,14 @@ object srvInformes: TsrvInformes
|
||||
end
|
||||
item
|
||||
Name = 'VISTA'
|
||||
DataType = datMemo
|
||||
DataType = datBlob
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_AGRUPACION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
@ -257,9 +279,10 @@ object srvInformes: TsrvInformes
|
||||
TargetTable = 'INFORMES'
|
||||
SQL =
|
||||
'INSERT'#10' INTO INFORMES'#10' (ID, ID_EMPRESA, CATEGORIA, CONTROLLE' +
|
||||
'R, MODIFICABLE, ICONO, NOMBRE, DESCRIPCION, ORDEN, VISTA)'#10' VALU' +
|
||||
'ES'#10' (:ID, :ID_EMPRESA, :CATEGORIA, :CONTROLLER, :MODIFICABLE,' +
|
||||
' :ICONO, :NOMBRE, :DESCRIPCION, :ORDEN,'#10' :VISTA)'
|
||||
'R, MODIFICABLE, ICONO, NOMBRE,'#10' DESCRIPCION, ORDEN, VISTA, TI' +
|
||||
'PO_AGRUPACION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :CATEGORIA, :CONT' +
|
||||
'ROLLER, :MODIFICABLE, :ICONO, :NOMBRE,'#10' :DESCRIPCION, :ORDEN,' +
|
||||
' :VISTA, :TIPO_AGRUPACION)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -330,7 +353,14 @@ object srvInformes: TsrvInformes
|
||||
end
|
||||
item
|
||||
Name = 'VISTA'
|
||||
DataType = datMemo
|
||||
DataType = datBlob
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_AGRUPACION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
@ -351,7 +381,8 @@ object srvInformes: TsrvInformes
|
||||
'IA = :CATEGORIA, '#10' CONTROLLER = :CONTROLLER,'#10' MODIFICABLE ' +
|
||||
'= :MODIFICABLE,'#10' ICONO = :ICONO, '#10' NOMBRE = :NOMBRE, '#10' ' +
|
||||
'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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
@ -175,11 +175,12 @@
|
||||
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">2.4.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></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>
|
||||
</Delphi.Personality>
|
||||
<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>
|
||||
</Delphi.Personality>
|
||||
<ModelSupport>False</ModelSupport>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -108,8 +108,6 @@ uses
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_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',
|
||||
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_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},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_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',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_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';
|
||||
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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -908,9 +908,9 @@
|
||||
#define IdResourceStrings_RSStatusConnecting 65181
|
||||
#define IdResourceStrings_RSStatusConnected 65182
|
||||
#define IdResourceStrings_RSStatusDisconnecting 65183
|
||||
#define uRODECConst_sFMT_XX 65184
|
||||
#define uRODECConst_sInvalidKeySize 65185
|
||||
#define uRODECConst_sNotInitialized 65186
|
||||
#define ComConst_SNoMethod 65184
|
||||
#define ComConst_SVarNotObject 65185
|
||||
#define ComConst_STooManyParams 65186
|
||||
#define IdResourceStrings_RSCannotAllocateSocket 65187
|
||||
#define IdResourceStrings_RSConnectionClosedGracefully 65188
|
||||
#define IdResourceStrings_RSCouldNotBindSocket 65189
|
||||
@ -924,70 +924,70 @@
|
||||
#define IdResourceStrings_RSNotConnected 65197
|
||||
#define IdResourceStrings_RSObjectTypeNotSupported 65198
|
||||
#define IdResourceStrings_RSTerminateThreadTimeout 65199
|
||||
#define uRORes_err_VariantIsNotArray 65200
|
||||
#define uRORes_err_InvalidVarArrayDimCount 65201
|
||||
#define uRORes_err_MessageNotAssigned 65202
|
||||
#define ComConst_SOleError 65203
|
||||
#define ComConst_SNoMethod 65204
|
||||
#define ComConst_SVarNotObject 65205
|
||||
#define ComConst_STooManyParams 65206
|
||||
#define uRODECConst_sProtectionCircular 65207
|
||||
#define uRODECConst_sStringFormatExists 65208
|
||||
#define uRODECConst_sInvalidStringFormat 65209
|
||||
#define uRODECConst_sInvalidFormatString 65210
|
||||
#define uRODECConst_sFMT_COPY 65211
|
||||
#define uRODECConst_sFMT_HEX 65212
|
||||
#define uRODECConst_sFMT_HEXL 65213
|
||||
#define uRODECConst_sFMT_MIME64 65214
|
||||
#define uRODECConst_sFMT_UU 65215
|
||||
#define uRORes_err_ServerOnlySupportsOneDispatcher 65216
|
||||
#define uRORes_err_UnhandledException 65217
|
||||
#define uRORes_err_ChannelBusy 65218
|
||||
#define uRORes_err_ArrayIndexOutOfBounds 65219
|
||||
#define uRORes_err_InvalidHeader 65220
|
||||
#define uRORes_err_UnknownClassInStream 65221
|
||||
#define uRORes_err_UnexpectedClassInStream 65222
|
||||
#define uRORes_err_SessionNotFound 65223
|
||||
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65224
|
||||
#define uRORes_err_TooManySessions 65225
|
||||
#define uRORes_err_DOMElementIsNIL 65226
|
||||
#define uRORes_err_CannotLoadXMLDocument 65227
|
||||
#define uRORes_err_ErrorCreatingMsXmlDoc 65228
|
||||
#define uRORes_err_NoXMLParsersAvailable 65229
|
||||
#define uRORes_err_IDispatchMarshalingNotSupported 65230
|
||||
#define uRORes_err_UnsupportedVariantType 65231
|
||||
#define uRORes_str_ExceptionOnServer 65232
|
||||
#define uRORes_str_ExceptionReraisedFromServer 65233
|
||||
#define uRORes_err_AssignError 65234
|
||||
#define uRORes_err_InvalidRequestStream 65235
|
||||
#define uRORes_err_NILMessage 65236
|
||||
#define uRORes_err_UnspecifiedInterface 65237
|
||||
#define uRORes_err_UnspecifiedMessage 65238
|
||||
#define uRORes_err_UnknownMethod 65239
|
||||
#define uRORes_err_ClassFactoryDidNotReturnInstance 65240
|
||||
#define uRORes_err_TypeNotSupported 65241
|
||||
#define uRORes_err_ClassFactoryNotFound 65242
|
||||
#define uRORes_err_IROMessageNotSupported 65243
|
||||
#define uRORes_err_ClassAlreadyRegistered 65244
|
||||
#define uRORes_err_UnknownProxyInterface 65245
|
||||
#define uRORes_err_DispatcherAlreadyAssigned 65246
|
||||
#define uRORes_err_CannotFindMessageDispatcher 65247
|
||||
#define uRORes_err_InvalidIndex 65248
|
||||
#define uRORes_err_InvalidType 65249
|
||||
#define uRORes_err_InvalidStream 65250
|
||||
#define uRORes_err_InvalidParamFlag 65251
|
||||
#define uRORes_err_InvalidStringLength 65252
|
||||
#define uRORes_str_InvalidClassTypeInStream 65253
|
||||
#define uRORes_err_UnexpectedEndOfStream 65254
|
||||
#define uRORes_err_RodlDuplicateName 65255
|
||||
#define uRORes_err_RodlNoDataTypeSpecified 65256
|
||||
#define uRORes_err_RodlNoEnumValues 65257
|
||||
#define uRORes_err_RodlNoStructElementsDefined 65258
|
||||
#define uRORes_err_RodlNoOperationsDefined 65259
|
||||
#define uRORes_err_RodlUsedFileDoesNotExist 65260
|
||||
#define uRORes_err_RodlInvalidDataType 65261
|
||||
#define uRORes_err_RodlStructCannotBeNested 65262
|
||||
#define uRORes_err_RodlInvalidAncestorType 65263
|
||||
#define uRORes_err_InvalidHeader 65200
|
||||
#define uRORes_err_UnknownClassInStream 65201
|
||||
#define uRORes_err_UnexpectedClassInStream 65202
|
||||
#define uRORes_err_SessionNotFound 65203
|
||||
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65204
|
||||
#define uRORes_err_TooManySessions 65205
|
||||
#define uRORes_err_DOMElementIsNIL 65206
|
||||
#define uRORes_err_CannotLoadXMLDocument 65207
|
||||
#define uRORes_err_ErrorCreatingMsXmlDoc 65208
|
||||
#define uRORes_err_NoXMLParsersAvailable 65209
|
||||
#define uRORes_err_IDispatchMarshalingNotSupported 65210
|
||||
#define uRORes_err_UnsupportedVariantType 65211
|
||||
#define uRORes_err_VariantIsNotArray 65212
|
||||
#define uRORes_err_InvalidVarArrayDimCount 65213
|
||||
#define uRORes_err_MessageNotAssigned 65214
|
||||
#define ComConst_SOleError 65215
|
||||
#define uRORes_err_NILMessage 65216
|
||||
#define uRORes_err_UnspecifiedInterface 65217
|
||||
#define uRORes_err_UnspecifiedMessage 65218
|
||||
#define uRORes_err_UnknownMethod 65219
|
||||
#define uRORes_err_ClassFactoryDidNotReturnInstance 65220
|
||||
#define uRORes_err_TypeNotSupported 65221
|
||||
#define uRORes_err_ClassFactoryNotFound 65222
|
||||
#define uRORes_err_IROMessageNotSupported 65223
|
||||
#define uRORes_err_ClassAlreadyRegistered 65224
|
||||
#define uRORes_err_UnknownProxyInterface 65225
|
||||
#define uRORes_err_DispatcherAlreadyAssigned 65226
|
||||
#define uRORes_err_CannotFindMessageDispatcher 65227
|
||||
#define uRORes_err_ServerOnlySupportsOneDispatcher 65228
|
||||
#define uRORes_err_UnhandledException 65229
|
||||
#define uRORes_err_ChannelBusy 65230
|
||||
#define uRORes_err_ArrayIndexOutOfBounds 65231
|
||||
#define uRORes_err_InvalidStringLength 65232
|
||||
#define uRORes_str_InvalidClassTypeInStream 65233
|
||||
#define uRORes_err_UnexpectedEndOfStream 65234
|
||||
#define uRORes_err_RodlDuplicateName 65235
|
||||
#define uRORes_err_RodlNoDataTypeSpecified 65236
|
||||
#define uRORes_err_RodlNoEnumValues 65237
|
||||
#define uRORes_err_RodlNoStructElementsDefined 65238
|
||||
#define uRORes_err_RodlNoOperationsDefined 65239
|
||||
#define uRORes_err_RodlUsedFileDoesNotExist 65240
|
||||
#define uRORes_err_RodlInvalidDataType 65241
|
||||
#define uRORes_err_RodlStructCannotBeNested 65242
|
||||
#define uRORes_err_RodlInvalidAncestorType 65243
|
||||
#define uRORes_str_ExceptionOnServer 65244
|
||||
#define uRORes_str_ExceptionReraisedFromServer 65245
|
||||
#define uRORes_err_AssignError 65246
|
||||
#define uRORes_err_InvalidRequestStream 65247
|
||||
#define uRODECConst_sProtectionCircular 65248
|
||||
#define uRODECConst_sStringFormatExists 65249
|
||||
#define uRODECConst_sInvalidStringFormat 65250
|
||||
#define uRODECConst_sInvalidFormatString 65251
|
||||
#define uRODECConst_sFMT_COPY 65252
|
||||
#define uRODECConst_sFMT_HEX 65253
|
||||
#define uRODECConst_sFMT_HEXL 65254
|
||||
#define uRODECConst_sFMT_MIME64 65255
|
||||
#define uRODECConst_sFMT_UU 65256
|
||||
#define uRODECConst_sFMT_XX 65257
|
||||
#define uRODECConst_sInvalidKeySize 65258
|
||||
#define uRODECConst_sNotInitialized 65259
|
||||
#define uRORes_err_InvalidIndex 65260
|
||||
#define uRORes_err_InvalidType 65261
|
||||
#define uRORes_err_InvalidStream 65262
|
||||
#define uRORes_err_InvalidParamFlag 65263
|
||||
#define Consts_SDockedCtlNeedsName 65264
|
||||
#define Consts_SDockTreeRemoveError 65265
|
||||
#define Consts_SDockZoneNotFound 65266
|
||||
@ -2162,9 +2162,9 @@ BEGIN
|
||||
IdResourceStrings_RSStatusConnecting, "Connecting to %s."
|
||||
IdResourceStrings_RSStatusConnected, "Connected."
|
||||
IdResourceStrings_RSStatusDisconnecting, "Disconnecting."
|
||||
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."
|
||||
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"
|
||||
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
|
||||
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
|
||||
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
|
||||
@ -2178,26 +2178,6 @@ BEGIN
|
||||
IdResourceStrings_RSNotConnected, "Not Connected"
|
||||
IdResourceStrings_RSObjectTypeNotSupported, "Object type not supported."
|
||||
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_UnknownClassInStream, "Unknown class \"%s\" found in stream."
|
||||
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_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
|
||||
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
|
||||
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)"
|
||||
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"
|
||||
uRORes_err_NILMessage, "Message is NIL"
|
||||
uRORes_err_UnspecifiedInterface, "The message does not have an interface 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_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_InvalidIndex, "Invalid index %d"
|
||||
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
|
||||
uRORes_err_InvalidStream, "Invalid stream"
|
||||
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
|
||||
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_InvalidStringLength, "Stream read error: Invalid string length \"%d\""
|
||||
uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\""
|
||||
uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream."
|
||||
@ -2242,6 +2222,26 @@ BEGIN
|
||||
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
|
||||
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
|
||||
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_SDockTreeRemoveError, "Error removing control from dock tree"
|
||||
Consts_SDockZoneNotFound, " - Dock zone not found"
|
||||
|
||||
Reference in New Issue
Block a user