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

Cambio de la logica de pedidos de proveedor y albaranes de proveedor, para que se pueda asociar un almacen como destino ademas de una dirección libre o incluso las dos cosas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@202 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2007-12-26 15:49:51 +00:00
parent 7700bfddc3
commit 730d467c6b
24 changed files with 560 additions and 619 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

223
Source/Base/Utiles/uDataTableUtils.pas
View File

@ -3,7 +3,7 @@ unit uDataTableUtils;
interface interface
uses uses
uDACDSDataTable, uDADataTable, uDAInterfaces, uDADelta, uDAMemDataTable; uDACDSDataTable, uDADataTable, uDAInterfaces;
const const
ID_NULO = -9000; ID_NULO = -9000;
@ -19,19 +19,9 @@ function SetFieldNull(ATarget: TDADataTable; const FieldName: String): Boolean;
procedure ConectarTabla (ATarget: TDADataTable); procedure ConectarTabla (ATarget: TDADataTable);
procedure DesconectarTabla (ATarget: TDADataTable); procedure DesconectarTabla (ATarget: TDADataTable);
procedure CopyDataTableDA5(ASource : TDADataTable; ATarget: TDADataTable;
const OnlySelectedRows : Boolean = False);
procedure CopyDataTableDA3(ASource : TDADataTable; ATarget : TDADataTable;
const OnlySelectedRows : Boolean = False);
procedure CloneDataTable(const ASource : TDACDSDataTable; procedure CloneDataTable(const ASource : TDACDSDataTable;
var ATarget : TDACDSDataTable; var ATarget : TDACDSDataTable;
RemoteUpdate: Boolean = True); overload; RemoteUpdate: Boolean = True);
function CloneDataTable(const ASource : TDAMemDataTable;
RemoteUpdate: Boolean = True): TDAMemDataTable; overload;
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable; procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable;
Const WithKey: Boolean = False); Const WithKey: Boolean = False);
@ -39,6 +29,9 @@ procedure DuplicarRegistros(ASource : TDADataTable; ATarget : TDADataTable;
AModo : TModoDuplicarRegistros; APermitirRepetidos: Boolean = True; AModo : TModoDuplicarRegistros; APermitirRepetidos: Boolean = True;
Const WithDeltas: Boolean = True; Const WithKey: Boolean = False); Const WithDeltas: Boolean = True; Const WithKey: Boolean = False);
procedure CopyDataTable(ASource : TDADataTable; ATarget : TDADataTable;
const OnlySelectedRows : Boolean = False);
procedure DeleteAllTable(const ADataTable : TDADataTable); procedure DeleteAllTable(const ADataTable : TDADataTable);
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean; function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
@ -55,84 +48,7 @@ implementation
uses uses
Classes, DB, uDAClasses, SysUtils, uDABINAdapter, uROTypes, cxControls, Classes, DB, uDAClasses, SysUtils, uDABINAdapter, uROTypes, cxControls,
Dialogs, Variants, uDBSelectionListUtils, uROClasses, uDADataStreamer, uDABin2DataStreamer; Dialogs, Variants, uDBSelectionListUtils, uROClasses;
procedure CopyDataTableDA5(ASource : TDADataTable;
ATarget: TDADataTable;
const OnlySelectedRows : Boolean);
var
AStream : Binary;
AStream2 : Binary;
AFilter : String;
AFiltered : Boolean;
AObj : ISeleccionable;
i : Integer;
begin
AFilter := '';
AFiltered := False;
if not Assigned(ASource) then
raise Exception.Create ('No se ha asignado la tabla de origen (CopyDataTable)');
if not Assigned(ATarget) then
raise Exception.Create ('No se ha asignado la tabla de destino (CopyDataTable)');
if not ATarget.Active then
ATarget.Active := True;
if OnlySelectedRows then
begin
if not Supports(ASource, ISeleccionable, aObj) then
raise Exception.Create('El origen de datos no soporta la interfaz ISeleccionable (CopyDataTable)');
if ASource.Filtered then
begin
AFiltered := True;
AFilter := ASource.Filter;
ASource.Filtered := False;
end;
ASource.Filter := '';
if ASource.Active then
ASource.Close;
for i := 0 to AObj.SelectedRecords.Count - 1 do
begin
if (i > 0) then
ASource.Filter := ASource.Filter + ' or ';
ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
end;
ASource.Filtered := True;
end;
if not ASource.Active then
ASource.Open;
AStream := Binary.Create;
DesconectarTabla(ATarget);
try
ASource.SaveToStream(AStream);
AStream2 := AStream.Clone;
// ShowMessage(AStream.ToReadableString);
ATarget.LoadFromStream(AStream2); ///->>>>>>>>>>>>>>>>>>>>>>>>>>ERRORRRR
finally
FreeAndNil(AStream);
ConectarTabla(ATarget);
// Dejar el filtro de la tabla origen como estaba
if OnlySelectedRows then
begin
ASource.Filtered := False;
ASource.Filter := AFilter;
if AFiltered then
ASource.Filtered := True;
end;
end;
end;
function SetFieldNull(ATarget: TDADataTable; const FieldName: String): Boolean; function SetFieldNull(ATarget: TDADataTable; const FieldName: String): Boolean;
begin begin
@ -185,11 +101,10 @@ var
i : integer; i : integer;
begin begin
bCambiado := False; bCambiado := False;
if Assigned(ADataTable) and (ADataTable.Active) then if Assigned(ADataTable) and (ADataTable.Active) then
begin begin
bCambiado :=(ADataTable.State = dsEdit) or bCambiado := (ADataTable.State = dsEdit) or
(ADataTable.HasDelta and DeltaValuesAreDifferent(ADataTable.Delta)); DeltaValuesAreDifferent(ADataTable.Delta);
if (not bCambiado) then if (not bCambiado) then
begin begin
@ -198,8 +113,7 @@ begin
begin begin
bCambiado := bCambiado or bCambiado := bCambiado or
((TDADataTable(dtDetails.Items[i])).State in dsEditModes) or ((TDADataTable(dtDetails.Items[i])).State in dsEditModes) or
((TDADataTable(dtDetails.Items[i])).HasDelta and DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta);
DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta));
if bCambiado then if bCambiado then
Break; Break;
end; end;
@ -214,81 +128,6 @@ begin
ADataTable.ClearRows; ADataTable.ClearRows;
end; end;
function CloneDataTable(const ASource : TDAMemDataTable;
RemoteUpdate: Boolean = True): TDAMemDataTable;
var
i : Integer;
ATarget : TDAMemDataTable;
begin
if not Assigned(ASource) then
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
ATarget := TDAMemDataTable.Create(NIL);
with ATarget do
begin
{ ATENCIÓN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
--------------------------------------------------------------------
DA5 tiene un fallo en el cual las tablas definidas como detalle no
tienen asociados los eventos internos before... y after... por lo
que los campos AutoInc no funcionan (no pone el -1, -2...).
La forma de arreglarlo es llamar a DisableEventHandlers/EnableEventHandlers
que realiza la asociación de los eventos.
}
ATarget.DisableEventHandlers; // <--- INDISPENSABLE!!!!!!!!!!!!!!!!!!!!
try
if not Assigned(ASource.RemoteDataAdapter) then
raise Exception.Create('No está asignado RemoteDataAdapter (' + ASource.Name + ')');
LogicalName := ASource.LogicalName;
CustomAttributes.Assign(ASource.CustomAttributes);
Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema;
Params.AssignParamCollection(ASource.Params);
RemoteDataAdapter := ASource.RemoteDataAdapter;
Randomize;
Name := ASource.Name + '_' + IntToStr(Random(MAXINT));
BusinessRulesID := ASource.BusinessRulesID;
with MasterParamsMappings do
for i := 0 to ASource.MasterParamsMappings.Count - 1 do
Add(ASource.MasterParamsMappings.Strings[i]);
with MasterRequestMappings do
for i := 0 to ASource.MasterRequestMappings.Count - 1 do
Add(ASource.MasterRequestMappings.Strings[i]);
MasterMappingMode := ASource.MasterMappingMode;
MasterFields := ASource.MasterFields;
MasterOptions := ASource.MasterOptions;
DetailFields := ASource.DetailFields;
DetailOptions := ASource.DetailOptions;
RemoteUpdatesOptions := ASource.RemoteUpdatesOptions;
StreamingOptions := ASource.StreamingOptions;
RemoteFetchEnabled := ASource.RemoteFetchEnabled;
finally
ATarget.EnableEventHandlers; // <--- INDISPENSABLE!!!!!!!!!!!!!!!!!!!!!!!!!
end;
end;
if not RemoteUpdate then
begin
ATarget.LogChanges := False;
ATarget.RemoteFetchEnabled := False;
end;
Result := ATarget;
end;
procedure CloneDataTable(const ASource : TDACDSDataTable; procedure CloneDataTable(const ASource : TDACDSDataTable;
var ATarget : TDACDSDataTable; RemoteUpdate: Boolean); var ATarget : TDACDSDataTable; RemoteUpdate: Boolean);
var var
@ -296,17 +135,10 @@ var
begin begin
with ATarget do with ATarget do
begin begin
// ****** Inicio migración DA 5 RemoteService := ASource.GetRemoteService;
{RemoteService := ASource.GetRemoteService; Adapter := ASource.GetAdapter;
Adapter := ASource.GetAdapter;}
if not Assigned(ASource.RemoteDataAdapter) then //BusinessRulesID := ASource.BusinessRulesID;
raise Exception.Create('No está asignado RemoteDataAdapter (' + ASource.Name + ')');
RemoteDataAdapter.Assign(ASource.RemoteDataAdapter);
// ****** Fin migración DA 5
BusinessRulesID := ASource.BusinessRulesID;
Randomize; Randomize;
Name := ASource.Name + '_' + IntToStr(Random(MAXINT)); Name := ASource.Name + '_' + IntToStr(Random(MAXINT));
LogicalName := ASource.LogicalName; LogicalName := ASource.LogicalName;
@ -316,8 +148,6 @@ begin
if Assigned(ASource.LocalSchema) then if Assigned(ASource.LocalSchema) then
LocalSchema := ASource.LocalSchema LocalSchema := ASource.LocalSchema
else begin else begin
// ****** Inicio migración DA 5
{
with SchemaCall do with SchemaCall do
begin begin
MethodName := ASource.SchemaCall.MethodName; MethodName := ASource.SchemaCall.MethodName;
@ -332,13 +162,9 @@ begin
end; end;
end; end;
end; end;
}
// ****** Fin migración DA 5
ATarget.Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema; ATarget.Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema;
end; end;
// ****** Inicio migración DA 5
{
with DataUpdateCall do with DataUpdateCall do
begin begin
MethodName := ASource.DataUpdateCall.MethodName; MethodName := ASource.DataUpdateCall.MethodName;
@ -385,8 +211,6 @@ begin
end; end;
end; end;
end; end;
}
// ****** Fin migración DA 5
with MasterParamsMappings do with MasterParamsMappings do
for i := 0 to ASource.MasterParamsMappings.Count - 1 do for i := 0 to ASource.MasterParamsMappings.Count - 1 do
@ -415,6 +239,7 @@ begin
ATarget.RemoteFetchEnabled := False; ATarget.RemoteFetchEnabled := False;
end; end;
end; end;
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean; function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
var var
@ -426,7 +251,16 @@ begin
begin begin
for x := 0 to (aDelta.LoggedFieldCount-1) do for x := 0 to (aDelta.LoggedFieldCount-1) do
begin begin
OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]); if aDelta.LoggedFieldTypes[x] <> datBlob then
begin
try
OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
except
// Capturar cualquier tipo de excepción de conversión de tipos
on E: EVariantTypeCastError do
OldNewAreDifferent := True;
end;
end;
if OldNewAreDifferent then if OldNewAreDifferent then
Break; // Abandon iteration at the first difference between old and new. Break; // Abandon iteration at the first difference between old and new.
@ -439,7 +273,7 @@ begin
end; end;
procedure CopyDataTableDA3(ASource : TDADataTable; ATarget : TDADataTable; procedure CopyDataTable(ASource : TDADataTable; ATarget : TDADataTable;
const OnlySelectedRows : Boolean = False); const OnlySelectedRows : Boolean = False);
var var
DABin: Binary; DABin: Binary;
@ -480,7 +314,6 @@ begin
DABin := Binary.Create; DABin := Binary.Create;
DAAdapter := TDABINAdapter.Create(nil); DAAdapter := TDABINAdapter.Create(nil);
try try
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
@ -489,11 +322,12 @@ begin
ASource.Open; ASource.Open;
ASource.First; ASource.First;
DAAdapter.Initialize(DABin, aiWrite);
DAAdapter.WriteDataset(DABin, ASource, [woRows]); DAAdapter.WriteDataset(DABin, ASource, [woRows]);
DAAdapter.Initialize(DABin, aiReadFromBeginning);
DAAdapter.ReadDataset(DABin, ATarget); DAAdapter.ReadDataset(DABin, ATarget);
DAAdapter.Finalize; DAAdapter.Finalize;
ATarget.RemoteFetchEnabled := True; // "Conectamos" la tabla del servidor otra vez ATarget.RemoteFetchEnabled := True; // "Conectamos" la tabla del servidor otra vez
// Dejar el filtro de la tabla origen como estaba // Dejar el filtro de la tabla origen como estaba
@ -627,14 +461,14 @@ begin
if Assigned(ADetail) then if Assigned(ADetail) then
begin begin
// ¡¡¡¡¡ MUY IMPORTANTE !!!!!!!!!!!!!!!!!! // ¡¡¡¡¡ MUY IMPORTANTE !!!!!!!!!!!!!!!!!!
//ADetail.DataTable.DisableEventHandlers; ADetail.DataTable.DisableEventHandlers;
try try
ADetail.DataTable.MasterSource := AMasterDataSource; ADetail.DataTable.MasterSource := AMasterDataSource;
finally finally
{ Hay que activar los eventos porque dejan de funcionar { Hay que activar los eventos porque dejan de funcionar
las reglas de negocio al establecer la relación las reglas de negocio al establecer la relación
maestro-detalle. (Fallo de Data Abstract 3) } maestro-detalle. (Fallo de Data Abstract 3) }
//ADetail.DataTable.EnableEventHandlers; ADetail.DataTable.EnableEventHandlers;
end; end;
end; end;
end; end;
@ -667,4 +501,5 @@ begin
end; end;
end; end;
end. end.

4
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo> <VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">7</VersionInfo> <VersionInfo Name="Release">8</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,7 +162,7 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.7.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">2.3.8.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

6
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,3,6,0 FILEVERSION 2,3,7,0
PRODUCTVERSION 2,3,6,0 PRODUCTVERSION 2,3,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.3.6.0\0" VALUE "FileVersion", "2.3.7.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "2.3.6.0\0" VALUE "ProductVersion", "2.3.6.0\0"
END END

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

3
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.bdsgroup
View File

@ -22,7 +22,8 @@
<Projects Name="AlbaranesProveedor_plugin.bpl">Plugin\AlbaranesProveedor_plugin.bdsproj</Projects> <Projects Name="AlbaranesProveedor_plugin.bpl">Plugin\AlbaranesProveedor_plugin.bdsproj</Projects>
<Projects Name="PedProv_AlbProv_relation.bpl">..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.bdsproj</Projects> <Projects Name="PedProv_AlbProv_relation.bpl">..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects> <Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedProv_AlbProv_relation.bpl FactuGES.exe</Projects> <Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedProv_AlbProv_relation.bpl FactuGES.exe FactuGES_Server.exe</Projects>
</Projects> </Projects>
<Dependencies/> <Dependencies/>
</Default.Personality> </Default.Personality>

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

@ -54,6 +54,8 @@ type
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
end; end;
TAlbaranesProveedorController = class(TObservador, IAlbaranesProveedorController) TAlbaranesProveedorController = class(TObservador, IAlbaranesProveedorController)
@ -119,6 +121,8 @@ type
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
end; end;
implementation implementation
@ -958,6 +962,20 @@ begin
end; end;
end; end;
procedure TAlbaranesProveedorController.Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
begin
if Assigned(AAlbaran) then
begin
AAlbaran.Edit;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorCALLE).AsVariant := null;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPOBLACION).AsVariant := null;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPROVINCIA).AsVariant := null;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorCODIGO_POSTAL).AsVariant := null;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPERSONA_CONTACTO).AsVariant := null;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorTELEFONO).AsVariant := null;
end;
end;
function TAlbaranesProveedorController.Nuevo: IBizAlbaranProveedor; function TAlbaranesProveedorController.Nuevo: IBizAlbaranProveedor;
var var
AAlbaran : IBizAlbaranProveedor; AAlbaran : IBizAlbaranProveedor;

68
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
View File

@ -105,20 +105,48 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
'PRESA,'#10' V_ALBARANES_PROVEEDOR.ID_PROVEEDOR,'#10' V_ALBARANES_PROVE' + 'PRESA,'#10' V_ALBARANES_PROVEEDOR.ID_PROVEEDOR,'#10' V_ALBARANES_PROVE' +
'EDOR.NOMBRE,'#10' V_ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10' V_ALBARANE' + 'EDOR.NOMBRE,'#10' V_ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10' V_ALBARANE' +
'S_PROVEEDOR.REFERENCIA,'#10' V_ALBARANES_PROVEEDOR.ID_PEDIDO,'#10' V_A' + 'S_PROVEEDOR.REFERENCIA,'#10' V_ALBARANES_PROVEEDOR.ID_PEDIDO,'#10' V_A' +
'LBARANES_PROVEEDOR.REF_PED_PROVEEDOR,'#10' V_ALBARANES_PROVEEDOR.CO' + 'LBARANES_PROVEEDOR.REF_PED_PROVEEDOR,'#10' '#10' CASE WHEN (ALMACENES.' +
'DIGO_POSTAL,'#10' V_ALBARANES_PROVEEDOR.POBLACION,'#10' V_ALBARANES_PR' + 'ID > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE i' +
'OVEEDOR.PROVINCIA,'#10' V_ALBARANES_PROVEEDOR.PERSONA_CONTACTO,'#10' V' + 's null'#10' THEN ALMACENES.NOMBRE'#10' E' +
'_ALBARANES_PROVEEDOR.TELEFONO,'#10' V_ALBARANES_PROVEEDOR.CALLE,'#10' ' + 'ND'#10' END AS NOMBRE_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' +
'V_ALBARANES_PROVEEDOR.OBSERVACIONES,'#10' V_ALBARANES_PROVEEDOR.IMP' + ' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is null'#10' ' +
'ORTE_TOTAL,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NO' + ' THEN ALMACENES.CALLE'#10' ELSE V_ALBARAN' +
'MBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_' + 'ES_PROVEEDOR.CALLE'#10' END'#10' ELSE V_ALBAR' +
'EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS' + 'ANES_PROVEEDOR.CALLE'#10' END as CALLE,'#10' '#10' CASE WHEN (ALMACENES.I' +
'.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EM' + 'D > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is' +
'PRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGI' + ' null'#10' THEN ALMACENES.CODIGO_POSTAL'#10' ' +
'NA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_PROVEEDOR'#10' LEFT OUTER JOIN ' + ' ELSE V_ALBARANES_PROVEEDOR.CODIGO_POSTAL'#10' E' +
'V_PROVEEDORES ON (V_PROVEEDORES.ID = V_ALBARANES_PROVEEDOR.ID_PR' + 'ND'#10' ELSE V_ALBARANES_PROVEEDOR.CODIGO_POSTAL'#10' END as' +
'OVEEDOR)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANE' + ' CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN' +
'S_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_ALBARANES_PROVEEDOR.ID = :ID' ' CASE WHEN V_ALBARANES_PROVEEDOR.CALLE is null'#10' ' +
'THEN ALMACENES.POBLACION'#10' ELSE V_ALBARANES_PROVE' +
'EDOR.POBLACION'#10' END'#10' ELSE V_ALBARANES' +
'_PROVEEDOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (ALMACENES' +
'.ID > 0)'#10' THEN CASE WHEN V_ALBARANES_PROVEEDOR.CALLE ' +
'is null'#10' THEN ALMACENES.PROVINCIA'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.PROVINCIA'#10' END'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA' +
','#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_A' +
'LBARANES_PROVEEDOR.CALLE is null'#10' THEN ALMACENES' +
'.PERSONA_CONTACTO'#10' ELSE V_ALBARANES_PROVEEDOR.PE' +
'RSONA_CONTACTO'#10' END'#10' ELSE V_ALBARANES' +
'_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' CASE W' +
'HEN (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_ALBARANES_PR' +
'OVEEDOR.CALLE is null'#10' THEN ALMACENES.TELEFONO'#10' ' +
' ELSE V_ALBARANES_PROVEEDOR.TELEFONO'#10' ' +
' END'#10' ELSE V_ALBARANES_PROVEEDOR.TELEFONO'#10' END a' +
's TELEFONO,'#10#10' V_ALBARANES_PROVEEDOR.OBSERVACIONES,'#10' V_ALBARANE' +
'S_PROVEEDOR.IMPORTE_TOTAL,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA' +
','#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL A' +
'S RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPR' +
'ESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_' +
'1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAG' +
'INA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_PROVEEDOR'#10' L' +
'EFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_ALBARANES_' +
'PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENE' +
'S.ID = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JOIN EMPRE' +
'SAS ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_' +
'ALBARANES_PROVEEDOR.ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -310,6 +338,18 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString

2
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
View File

@ -25,9 +25,9 @@ type
frxChartObject1: TfrxChartObject; frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -6,7 +6,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 653 ExplicitHeight = 646
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

45
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm
View File

@ -23,7 +23,10 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Width = 143 Width = 143
end end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Width = 350
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
@ -54,23 +57,15 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 445 Width = 445
Height = 175 Height = 175
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425 ExplicitWidth = 425
Width = 425 Width = 425
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 109 Left = 268
Top = 109 Top = 117
ExplicitLeft = 109 ExplicitLeft = 268
ExplicitTop = 109 ExplicitTop = 117
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 549 Width = 549
@ -78,13 +73,15 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
ExplicitWidth = 549 ExplicitWidth = 549
ExplicitHeight = 110 ExplicitHeight = 110
end end
inherited cxLista: TcxCheckBox
ExplicitWidth = 566
Width = 566
end
inherited cxOtro: TcxCheckBox
ExplicitWidth = 566
Width = 566
end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item2: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item4: TdxLayoutItem inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = False Visible = False
end end
@ -107,16 +104,16 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Width = 69 Width = 69
end end
inherited eRefFactura: TcxDBTextEdit inherited eRefFactura: TcxDBTextEdit
ExplicitWidth = 172 ExplicitWidth = 330
Width = 172 Width = 330
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 172 ExplicitWidth = 330
Width = 172 Width = 330
end end
inherited eReferenciaFacturaProveedor: TcxDBTextEdit inherited eReferenciaFacturaProveedor: TcxDBTextEdit
ExplicitWidth = 172 ExplicitWidth = 330
Width = 172 Width = 330
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup

14
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -120,12 +120,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Left = 239 Left = 239
ExplicitLeft = 239 ExplicitLeft = 239
end end
inherited Button1: TBitBtn
OnClick = frViewProveedorAlbaranButton1Click
end
inherited Button2: TBitBtn
OnClick = frViewProveedorAlbaranButton2Click
end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 123 Left = 123
ExplicitLeft = 123 ExplicitLeft = 123
@ -169,14 +163,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Height = 175 Height = 175
ExplicitWidth = 445 ExplicitWidth = 445
ExplicitHeight = 175 ExplicitHeight = 175
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425 ExplicitWidth = 425
Width = 425 Width = 425

130
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.dfm
View File

@ -1,42 +1,23 @@
inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
Width = 569 Width = 586
Height = 225 Height = 301
ExplicitWidth = 569 ExplicitWidth = 586
ExplicitHeight = 225 ExplicitHeight = 301
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 569 Width = 586
Height = 225 Height = 301
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
569 586
225) 301)
object rdxDestino1: TRadioButton
Left = 10
Top = 10
Width = 255
Height = 17
Action = actLista
Caption = 'Recibir el albar'#225'n en el almac'#233'n:'
TabOrder = 0
TabStop = True
end
object rdxDestino2: TRadioButton
Left = 10
Top = 60
Width = 287
Height = 17
Action = actOtro
Caption = 'Recibir el albar'#225'n en esta otra direcci'#243'n:'
TabOrder = 2
end
object cbLista: TcxDBLookupComboBox object cbLista: TcxDBLookupComboBox
Left = 25 Left = 25
Top = 33 Top = 37
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
@ -63,11 +44,11 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 425 Width = 551
end end
object bModificar: TBitBtn object bModificar: TBitBtn
Left = 431 Left = 448
Top = 190 Top = 266
Width = 128 Width = 128
Height = 25 Height = 25
Caption = 'Modificar la direcci'#243'n...' Caption = 'Modificar la direcci'#243'n...'
@ -75,24 +56,70 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
OnClick = bModificarClick OnClick = bModificarClick
end end
object txtDireccion: TStaticText object txtDireccion: TStaticText
Left = 10 Left = 25
Top = 83 Top = 91
Width = 549 Width = 551
Height = 110 Height = 177
AutoSize = False AutoSize = False
BevelKind = bkFlat BevelKind = bkFlat
TabOrder = 3 TabOrder = 3
OnDblClick = txtDireccionDblClick OnDblClick = txtDireccionDblClick
end end
object cxLista: TcxCheckBox
Left = 10
Top = 10
Caption = 'Recibir el albar'#225'n en el almac'#233'n:'
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
State = cbsChecked
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 566
end
object cxOtro: TcxCheckBox
Left = 10
Top = 64
Caption = 'Recibir el albar'#225'n en el almac'#233'n:'
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
State = cbsChecked
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 566
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutItem1: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = rdxDestino1 Control = cxLista
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
@ -102,16 +129,16 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
Control = cbLista Control = cbLista
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = rdxDestino2 Control = cxOtro
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'StaticText1'
Offsets.Left = 15
ShowCaption = False ShowCaption = False
Control = txtDireccion Control = txtDireccion
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
@ -128,26 +155,23 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
Left = 40 Left = 80
Top = 16 Top = 16
object actLista: TAction object actLista: TAction
Caption = 'Recibir el pedido en el almac'#233'n:' Caption = 'Recibir el albar'#195#161'n en el almac'#233'n:'
Checked = True
GroupIndex = 1
OnExecute = actListaExecute OnExecute = actListaExecute
end end
object actOtro: TAction object actOtro: TAction
Caption = 'Recibir el pedido en esta otra direcci'#243'n:' Caption = 'Recibir el albar'#195#161'n en esta otra direcci'#243'n:'
GroupIndex = 1
OnExecute = actOtroExecute OnExecute = actOtroExecute
end end
end end
object dsAlbaran: TDADataSource object dsAlbaran: TDADataSource
Left = 8 Left = 40
Top = 16 Top = 8
end end
object dsAlmacenes: TDADataSource object dsAlmacenes: TDADataSource
Left = 8 Left = 8
Top = 48 Top = 40
end end
end end

132
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas
View File

@ -8,7 +8,7 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable, cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uBizAlmacenes, uAlmacenesController, uAlbaranesProveedorController, ActnList, uBizAlmacenes, uAlmacenesController, uAlbaranesProveedorController,
Buttons; Buttons, cxCheckBox;
type type
IViewDireccionEntregaAlbaranProv = interface(IViewBase) IViewDireccionEntregaAlbaranProv = interface(IViewBase)
@ -20,13 +20,11 @@ type
TfrViewDireccionEntregaAlbaranProv = class(TfrViewBase, IViewDireccionEntregaAlbaranProv) TfrViewDireccionEntregaAlbaranProv = class(TfrViewBase, IViewDireccionEntregaAlbaranProv)
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
rdxDestino1: TRadioButton; cxLista: TcxCheckBox;
rdxDestino2: TRadioButton; cxOtro: TcxCheckBox;
cbLista: TcxDBLookupComboBox; cbLista: TcxDBLookupComboBox;
dxLayoutGroup1: TdxLayoutGroup; dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem;
ActionList1: TActionList; ActionList1: TActionList;
actLista: TAction; actLista: TAction;
actOtro: TAction; actOtro: TAction;
@ -38,7 +36,6 @@ type
txtDireccion: TStaticText; txtDireccion: TStaticText;
procedure actListaExecute(Sender: TObject); procedure actListaExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject); procedure actOtroExecute(Sender: TObject);
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject); procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject); procedure txtDireccionDblClick(Sender: TObject);
protected protected
@ -48,7 +45,7 @@ type
FController : IAlbaranesProveedorController; FController : IAlbaranesProveedorController;
function GetAlbaranProveedor: IBizAlbaranProveedor; function GetAlbaranProveedor: IBizAlbaranProveedor;
procedure SetAlbaranProveedor(const Value: IBizAlbaranProveedor); procedure SetAlbaranProveedor(const Value: IBizAlbaranProveedor);
procedure CambioDireccionAlmacen; procedure LimpiarDireccionEntrega;
procedure RefrescarDireccion; procedure RefrescarDireccion;
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
@ -66,25 +63,40 @@ uses
procedure TfrViewDireccionEntregaAlbaranProv.actListaExecute(Sender: TObject); procedure TfrViewDireccionEntregaAlbaranProv.actListaExecute(Sender: TObject);
begin begin
actLista.Checked := True; if cxLista.Checked then
RefrescarDireccion;
end;
procedure TfrViewDireccionEntregaAlbaranProv.actOtroExecute(Sender: TObject);
begin
actOtro.Checked := True;
// memDireccion.Enabled := True;
if Assigned(FAlbaran) then
begin begin
FController.VerDireccionEntrega(FAlbaran); cbLista.Enabled := True;
cbLista.DroppedDown := True;
end
else
begin
cbLista.Enabled := False;
cbLista.Text := '';
if (FAlbaran.ID_ALMACEN > 0) then if Assigned(FAlbaran) and (FAlbaran.ID_ALMACEN > 0) then
begin begin
FAlbaran.Edit; FAlbaran.Edit;
FAlbaran.ID_ALMACEN := 0; FAlbaran.ID_ALMACEN := 0;
end; end;
end; end;
end;
procedure TfrViewDireccionEntregaAlbaranProv.actOtroExecute(Sender: TObject);
begin
if cxOtro.Checked then
begin
if Assigned(FAlbaran) then
FController.VerDireccionEntrega(FAlbaran);
txtDireccion.Enabled := True;
bModificar.Enabled := True;
end
else
begin
txtDireccion.Enabled := False;
bModificar.Enabled := False;
LimpiarDireccionEntrega;
end;
RefrescarDireccion; RefrescarDireccion;
end; end;
@ -94,30 +106,10 @@ begin
actOtro.Execute; actOtro.Execute;
end; end;
procedure TfrViewDireccionEntregaAlbaranProv.CambioDireccionAlmacen; procedure TfrViewDireccionEntregaAlbaranProv.LimpiarDireccionEntrega;
begin begin
if Assigned(FAlbaran) FController.LimpiarDireccion(FAlbaran);
and Assigned(FAlmacenes) then RefrescarDireccion;
begin
FAlbaran.Edit;
FAlbaran.CALLE := FAlmacenes.CALLE;
FAlbaran.POBLACION := FAlmacenes.POBLACION;
FAlbaran.POBLACION := FAlmacenes.POBLACION;
FAlbaran.PROVINCIA := FAlmacenes.PROVINCIA;
FAlbaran.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FAlbaran.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FAlbaran.TELEFONO := FAlmacenes.TELEFONO;
RefrescarDireccion;
end;
end;
procedure TfrViewDireccionEntregaAlbaranProv.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
if Assigned(FAlbaran) and Assigned(FAlmacenes)
and (FAlbaran.ID_ALMACEN <> FAlmacenes.ID) then
CambioDireccionAlmacen;
end; end;
constructor TfrViewDireccionEntregaAlbaranProv.Create(AOwner: TComponent); constructor TfrViewDireccionEntregaAlbaranProv.Create(AOwner: TComponent);
@ -149,54 +141,52 @@ begin
txtDireccion.Caption := ''; txtDireccion.Caption := '';
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
if (actOtro.Checked) then txtDireccion.Enabled := True;
begin txtDireccion.Caption := FAlbaran.CALLE;
cbLista.Enabled := False; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.CODIGO_POSTAL + ' ' + FAlbaran.POBLACION;
cbLista.Text := ''; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.PROVINCIA;
txtDireccion.Enabled := True;
txtDireccion.Caption := FAlbaran.CALLE;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.CODIGO_POSTAL + ' ' + FAlbaran.POBLACION;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FAlbaran.PROVINCIA;
bModificar.Enabled := True;
end
else begin
txtDireccion.Enabled := False;
bModificar.Enabled := False;
cbLista.Enabled := True;
cbLista.DroppedDown := True;
end;
end; end;
end; end;
procedure TfrViewDireccionEntregaAlbaranProv.SetAlbaranProveedor(const Value: IBizAlbaranProveedor); procedure TfrViewDireccionEntregaAlbaranProv.SetAlbaranProveedor(const Value: IBizAlbaranProveedor);
begin begin
cbLista.Properties.OnValidate := NIL;
dsAlbaran.DataTable := nil; dsAlbaran.DataTable := nil;
FAlbaran := Value; FAlbaran := Value;
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
dsAlbaran.DataTable := FAlbaran.DataTable; dsAlbaran.DataTable := FAlbaran.DataTable;
cbLista.Properties.OnValidate := cbListaPropertiesValidate;
{ Para poder inicializar con el almacén por defecto en el caso de un { Para poder inicializar con el almacén por defecto en el caso de un
almacén nuevo, antes hay que comprobar que la dirección alternativa albarán nuevo, antes hay que comprobar que la dirección alternativa
está vacia porque puede ser que el albarán se haya generado está vacia porque puede ser que el albarán se haya generado
automáticamente a partir de un pedido a proveedor con una dirección automáticamente a partir de un pedido a proveedor con una dirección
que no es un almacén. que no es un almacén.
} }
actLista.Checked := True;
actOtro.Checked := True;
if (FAlbaran.EsNuevo) and if (FAlbaran.EsNuevo) and
((Length(FAlbaran.CALLE) = 0) and ((Length(FAlbaran.CALLE) = 0) and
(Length(FAlbaran.CODIGO_POSTAL) = 0) and (Length(FAlbaran.CODIGO_POSTAL) = 0) and
(Length(FAlbaran.POBLACION) = 0) and (Length(FAlbaran.POBLACION) = 0) and
(Length(FAlbaran.PROVINCIA) = 0)) then (Length(FAlbaran.PROVINCIA) = 0)) then
CambioDireccionAlmacen begin
LimpiarDireccionEntrega;
actOtro.Checked := False;
end
else else
if (FAlbaran.ID_ALMACEN < 1) then begin
actOtro.Checked := True; if (FAlbaran.ID_ALMACEN <= 0) then
actLista.Checked := False;
RefrescarDireccion; if (Length(FAlbaran.CALLE) = 0) then
actOtro.Checked := False;
end;
end; end;
RefrescarDireccion;
cxLista.Action := actLista;
cxOtro.Action := actOtro;
end; end;
procedure TfrViewDireccionEntregaAlbaranProv.SetReadOnly(Value: Boolean); procedure TfrViewDireccionEntregaAlbaranProv.SetReadOnly(Value: Boolean);
@ -204,8 +194,8 @@ begin
inherited; inherited;
if ReadOnly then if ReadOnly then
begin begin
rdxDestino1.Enabled := False; cxLista.Enabled := False;
rdxDestino2.Enabled := False; cxOtro.Enabled := False;
end; end;
end; end;

17
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -48,6 +48,7 @@ type
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
procedure RecuperarProveedor(APedido: IBizPedidoProveedor); procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
procedure Limpiardireccion(APedido: IBizPedidoProveedor);
end; end;
TPedidosProveedorController = class(TObservador, IPedidosProveedorController) TPedidosProveedorController = class(TObservador, IPedidosProveedorController)
@ -111,6 +112,8 @@ type
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor; function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
procedure Limpiardireccion(APedido: IBizPedidoProveedor);
end; end;
implementation implementation
@ -717,6 +720,20 @@ begin
end; end;
end; end;
procedure TPedidosProveedorController.Limpiardireccion(APedido: IBizPedidoProveedor);
begin
if Assigned(APedido) then
begin
APedido.Edit;
APedido.DataTable.FieldByName(fld_PedidosProveedorCALLE).AsVariant := null;
APedido.DataTable.FieldByName(fld_PedidosProveedorPOBLACION).AsVariant := null;
APedido.DataTable.FieldByName(fld_PedidosProveedorPROVINCIA).AsVariant := null;
APedido.DataTable.FieldByName(fld_PedidosProveedorCODIGO_POSTAL).AsVariant := null;
APedido.DataTable.FieldByName(fld_PedidosProveedorPERSONA_CONTACTO).AsVariant := null;
APedido.DataTable.FieldByName(fld_PedidosProveedorTELEFONO).AsVariant := null;
end;
end;
function TPedidosProveedorController.Nuevo: IBizPedidoProveedor; function TPedidosProveedorController.Nuevo: IBizPedidoProveedor;
var var
APedido : IBizPedidoProveedor; APedido : IBizPedidoProveedor;

3
Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup
View File

@ -21,7 +21,8 @@
<Projects Name="PedidosProveedor_view.bpl">Views\PedidosProveedor_view.bdsproj</Projects> <Projects Name="PedidosProveedor_view.bpl">Views\PedidosProveedor_view.bdsproj</Projects>
<Projects Name="PedidosProveedor_plugin.bpl">Plugin\PedidosProveedor_plugin.bdsproj</Projects> <Projects Name="PedidosProveedor_plugin.bpl">Plugin\PedidosProveedor_plugin.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects> <Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl FactuGES.exe</Projects> <Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
</Projects> </Projects>
<Dependencies/> <Dependencies/>
</Default.Personality> </Default.Personality>

66
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
View File

@ -104,30 +104,46 @@ object RptPedidosProveedor: TRptPedidosProveedor
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
'MBRE,'#10' V_PROVEEDORES.FAX,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,' + 'MBRE,'#10' V_PROVEEDORES.FAX,'#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' +
#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CALL' + ' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' +
'E'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' ' + ' THEN ALMACENES.NOMBRE'#10' END'#10' END AS NOMB' +
'CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.POBLACIO' + 'RE_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CAS' +
'N'#10' ELSE V_PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLAC' + 'E WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THEN A' +
'ION,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.' + 'LMACENES.CALLE'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' ' +
'PROVINCIA'#10' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END a' + ' END'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' ' +
's PROVINCIA,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN AL' + ' END as CALLE,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ' +
'MACENES.CODIGO_POSTAL'#10' ELSE V_PEDIDOS_PROVEEDOR.CODIG' + 'CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THE' +
'O_POSTAL'#10' END as CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)' + 'N ALMACENES.POBLACION'#10' ELSE V_PEDIDOS_PROVEEDOR.' +
#10' THEN ALMACENES.PERSONA_CONTACTO'#10' ELSE V_' + 'POBLACION'#10' END'#10' ELSE V_PEDIDOS_PROVEE' +
'PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' ' + 'DOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (ALMACENES.ID > 0' +
' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.TELEFON' + ')'#10' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' +
'O'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'#10' END as TELEFON' + ' THEN ALMACENES.PROVINCIA'#10' ELSE V' +
'O,'#10#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS ' + '_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END'#10' EL' +
'NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,' + 'SE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' CASE WHE' +
#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS ' + 'N (ALMACENES.ID > 0)'#10' THEN CASE WHEN V_PEDIDOS_PROVEE' +
'FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.E' + 'DOR.CALLE is null'#10' THEN ALMACENES.CODIGO_POSTAL'#10 +
'MAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_E' + ' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' ' +
'MPRESA'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORE' + ' END'#10' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10 +
'S ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEF' + ' END as CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' +
'T OUTER JOIN ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID' + ' THEN CASE WHEN V_PEDIDOS_PROVEEDOR.CALLE is null'#10' ' +
'_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS' + ' THEN ALMACENES.PERSONA_CONTACTO'#10' ELSE V_PE' +
'_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID' 'DIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END'#10' ' +
' ELSE V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CON' +
'TACTO,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN CASE WHE' +
'N V_PEDIDOS_PROVEEDOR.CALLE is null'#10' THEN ALMACE' +
'NES.TELEFONO'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'#10 +
' END'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFO' +
'NO'#10' END as TELEFONO,'#10#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
'EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RA' +
'ZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,' +
#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EM' +
'PRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_' +
'WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTE' +
'R JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.' +
'ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = V_P' +
'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' +
'ESAS.ID = V_PEDIDOS_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEE' +
'DOR.ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -705,7 +721,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39352.784043865740000000 ReportOptions.LastChange = 39352.784043865700000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'' ''

2
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
View File

@ -25,9 +25,9 @@ type
frxChartObject1: TfrxChartObject; frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;

86
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm
View File

@ -15,26 +15,9 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
DesignSize = ( DesignSize = (
586 586
301) 301)
object rdxDestino1: TRadioButton
Left = 10
Top = 10
Width = 255
Height = 17
Action = actLista
TabOrder = 0
TabStop = True
end
object rdxDestino2: TRadioButton
Left = 10
Top = 60
Width = 287
Height = 17
Action = actOtro
TabOrder = 2
end
object cbLista: TcxDBLookupComboBox object cbLista: TcxDBLookupComboBox
Left = 25 Left = 25
Top = 33 Top = 37
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = dsPedido DataBinding.DataSource = dsPedido
@ -61,7 +44,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 425 Width = 551
end end
object bModificar: TBitBtn object bModificar: TBitBtn
Left = 448 Left = 448
@ -74,7 +57,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
object txtDireccion: TStaticText object txtDireccion: TStaticText
Left = 25 Left = 25
Top = 83 Top = 91
Width = 551 Width = 551
Height = 177 Height = 177
AutoSize = False AutoSize = False
@ -82,15 +65,61 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
TabOrder = 3 TabOrder = 3
OnDblClick = txtDireccionDblClick OnDblClick = txtDireccionDblClick
end end
object cxLista: TcxCheckBox
Left = 10
Top = 10
Caption = 'Recibir el pedido en el almac'#233'n:'
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
State = cbsChecked
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 566
end
object cxOtro: TcxCheckBox
Left = 10
Top = 64
Caption = 'Recibir el pedido en el almac'#233'n:'
Properties.ImmediatePost = True
Properties.MultiLine = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
State = cbsChecked
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 566
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutItem1: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = rdxDestino1 Control = cxLista
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
@ -100,11 +129,9 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Control = cbLista Control = cbLista
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = rdxDestino2 Control = cxOtro
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
@ -132,13 +159,10 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Top = 16 Top = 16
object actLista: TAction object actLista: TAction
Caption = 'Recibir el pedido en el almac'#233'n:' Caption = 'Recibir el pedido en el almac'#233'n:'
Checked = True
GroupIndex = 1
OnExecute = actListaExecute OnExecute = actListaExecute
end end
object actOtro: TAction object actOtro: TAction
Caption = 'Recibir el pedido en esta otra direcci'#243'n:' Caption = 'Recibir el pedido en esta otra direcci'#243'n:'
GroupIndex = 1
OnExecute = actOtroExecute OnExecute = actOtroExecute
end end
end end

137
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -3,12 +3,12 @@ unit uViewDireccionEntregaPedidoProv;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uBizPedidosProveedor, cxGraphics, dxLayoutControl, cxMemo, Dialogs, uViewBase, uBizPedidosProveedor, cxGraphics, dxLayoutControl, cxMemo,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable, cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController, ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
Buttons; Buttons, cxCheckBox, cxDBEdit;
type type
IViewDireccionEntregaPedidoProv = interface(IViewBase) IViewDireccionEntregaPedidoProv = interface(IViewBase)
@ -20,13 +20,9 @@ type
TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv) TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv)
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
rdxDestino1: TRadioButton;
rdxDestino2: TRadioButton;
cbLista: TcxDBLookupComboBox; cbLista: TcxDBLookupComboBox;
dxLayoutGroup1: TdxLayoutGroup; dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem;
ActionList1: TActionList; ActionList1: TActionList;
actLista: TAction; actLista: TAction;
actOtro: TAction; actOtro: TAction;
@ -36,9 +32,12 @@ type
bModificar: TBitBtn; bModificar: TBitBtn;
txtDireccion: TStaticText; txtDireccion: TStaticText;
dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Item5: TdxLayoutItem;
dxLayoutControl1Item4: TdxLayoutItem;
cxLista: TcxCheckBox;
dxLayoutControl1Item6: TdxLayoutItem;
cxOtro: TcxCheckBox;
procedure actListaExecute(Sender: TObject); procedure actListaExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject); procedure actOtroExecute(Sender: TObject);
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject); procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject); procedure txtDireccionDblClick(Sender: TObject);
protected protected
@ -48,7 +47,7 @@ type
FController : IPedidosProveedorController; FController : IPedidosProveedorController;
function GetPedidoProveedor: IBizPedidoProveedor; function GetPedidoProveedor: IBizPedidoProveedor;
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
procedure CambioDireccionAlmacen; procedure LimpiarDireccionEntrega;
procedure RefrescarDireccion; procedure RefrescarDireccion;
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
@ -63,29 +62,44 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uEditorRegistryUtils, uCustomView; uEditorRegistryUtils, schPedidosProveedorClient_Intf, uCustomView;
procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject); procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject);
begin begin
actLista.Checked := True; if cxLista.Checked then
RefrescarDireccion;
end;
procedure TfrViewDireccionEntregaPedidoProv.actOtroExecute(Sender: TObject);
begin
actOtro.Checked := True;
// txtDireccion.Enabled := True;
if Assigned(FPedido) then
begin begin
FController.VerDireccionEntrega(FPedido); cbLista.Enabled := True;
cbLista.DroppedDown := True;
end
else
begin
cbLista.Enabled := False;
cbLista.Text := '';
if (FPedido.ID_ALMACEN > 0) then if Assigned(FPedido) and (FPedido.ID_ALMACEN > 0) then
begin begin
FPedido.Edit; FPedido.Edit;
FPedido.ID_ALMACEN := 0; FPedido.ID_ALMACEN := 0;
end; end;
end; end;
end;
procedure TfrViewDireccionEntregaPedidoProv.actOtroExecute(Sender: TObject);
begin
if cxOtro.Checked then
begin
if Assigned(FPedido) then
FController.VerDireccionEntrega(FPedido);
txtDireccion.Enabled := True;
bModificar.Enabled := True;
end
else
begin
txtDireccion.Enabled := False;
bModificar.Enabled := False;
LimpiarDireccionEntrega;
end;
RefrescarDireccion; RefrescarDireccion;
end; end;
@ -95,30 +109,10 @@ begin
actOtro.Execute; actOtro.Execute;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionAlmacen; procedure TfrViewDireccionEntregaPedidoProv.LimpiarDireccionEntrega;
begin begin
if Assigned(FPedido) FController.LimpiarDireccion(FPedido);
and Assigned(FAlmacenes) then RefrescarDireccion;
begin
FPedido.Edit;
FPedido.CALLE := FAlmacenes.CALLE;
FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.PROVINCIA := FAlmacenes.PROVINCIA;
FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FPedido.TELEFONO := FAlmacenes.TELEFONO;
RefrescarDireccion;
end;
end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
if Assigned(FPedido) and Assigned(FAlmacenes)
and (FPedido.ID_ALMACEN <> FAlmacenes.ID) then
CambioDireccionAlmacen;
end; end;
constructor TfrViewDireccionEntregaPedidoProv.Create(AOwner: TComponent); constructor TfrViewDireccionEntregaPedidoProv.Create(AOwner: TComponent);
@ -150,43 +144,43 @@ begin
txtDireccion.Caption := ''; txtDireccion.Caption := '';
if Assigned(FPedido) then if Assigned(FPedido) then
begin begin
if (actOtro.Checked) then txtDireccion.Enabled := True;
begin txtDireccion.Caption := FPedido.CALLE;
cbLista.Enabled := False; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION;
cbLista.Text := ''; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA;
txtDireccion.Enabled := True;
txtDireccion.Caption := FPedido.CALLE;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA;
bModificar.Enabled := True;
end
else begin
txtDireccion.Enabled := False;
cbLista.Enabled := True;
cbLista.DroppedDown := True;
bModificar.Enabled := False;
end;
end; end;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor( procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor(
const Value: IBizPedidoProveedor); const Value: IBizPedidoProveedor);
begin begin
cbLista.Properties.OnValidate := NIL;
dsPedido.DataTable := nil; dsPedido.DataTable := nil;
FPedido := Value; FPedido := Value;
if Assigned(FPedido) then
begin
dsPedido.DataTable := FPedido.DataTable;
dsPedido.DataTable := FPedido.DataTable; actLista.Checked := True;
cbLista.Properties.OnValidate := cbListaPropertiesValidate; actOtro.Checked := True;
if (FPedido.EsNuevo) then
begin
LimpiarDireccionEntrega;
actOtro.Checked := False;
end
else
begin
if (FPedido.ID_ALMACEN <= 0) then
actLista.Checked := False;
if (FPedido.EsNuevo) then if (Length(FPedido.CALLE) = 0) then
CambioDireccionAlmacen actOtro.Checked := False;
else end;
if (FPedido.ID_ALMACEN < 1) then end;
actOtro.Checked := True;
RefrescarDireccion; RefrescarDireccion;
cxLista.Action := actLista;
cxOtro.Action := actOtro;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.SetReadOnly(Value: Boolean); procedure TfrViewDireccionEntregaPedidoProv.SetReadOnly(Value: Boolean);
@ -194,13 +188,12 @@ begin
inherited; inherited;
if ReadOnly then if ReadOnly then
begin begin
rdxDestino1.Enabled := False; cxLista.Enabled := False;
rdxDestino2.Enabled := False; cxOtro.Enabled := False;
end; end;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.txtDireccionDblClick( procedure TfrViewDireccionEntregaPedidoProv.txtDireccionDblClick(Sender: TObject);
Sender: TObject);
begin begin
inherited; inherited;
actOtro.Execute; actOtro.Execute;

17
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>
@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo> <VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">6</VersionInfo> <VersionInfo Name="Release">8</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,19 +167,18 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.6.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">2.3.8.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">2.3.6.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys> <VersionInfoKeys Name="CompileDate">miércoles, 26 de diciembre de 2007 16:04</VersionInfoKeys></VersionInfoKeys> <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>
<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>
<ModelSupport>False</ModelSupport> <ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

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"

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "2.3.6.0\0" VALUE "FileVersion", "2.3.6.0\0"
VALUE "ProductVersion", "2.3.6.0\0" VALUE "ProductVersion", "2.3.6.0\0"
VALUE "CompileDate", "martes, 11 de diciembre de 2007 18:48\0" VALUE "CompileDate", "miércoles, 26 de diciembre de 2007 16:04\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

6
Source/Servidor/uDataModuleServer.dfm
View File

@ -56,9 +56,9 @@ object dmServer: TdmServer
item item
Name = 'IBX' Name = 'IBX'
ConnectionString = ConnectionString =
'IBX?Server=localhost;Database=E:\Codigo (Luis Le'#243'n)\Database\FAC' + 'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\FACTU' +
'TUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO' + 'GES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO88' +
'8859_1;' '59_1;'
Default = True Default = True
Tag = 0 Tag = 0
end> end>