roberto
e95789f617
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@70 0c75b7a4-871f-7646-8a2f-f78d34cc349f
95 lines
3.1 KiB
ObjectPascal
95 lines
3.1 KiB
ObjectPascal
unit uBizFacturasClienteServer;
|
|
|
|
interface
|
|
|
|
uses
|
|
schFacturasClienteServer_Intf, uDAInterfaces,
|
|
uDADataTable, uDABusinessProcessor;
|
|
|
|
const
|
|
BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente';
|
|
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
|
|
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
|
|
CTE_TIPO_ABONO = 'A';
|
|
CTE_TIPO_FACTURA = 'F';
|
|
|
|
type
|
|
TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules)
|
|
protected
|
|
|
|
// procedure BeforeProcessChange(Sender: TDABusinessProcessor;
|
|
// aChangeType: TDAChangeType; aChange: TDADeltaChange;
|
|
// var ProcessChange: Boolean); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
|
|
schFacturasClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
|
|
|
|
{ TBizFacturasClienteServer }
|
|
|
|
{
|
|
procedure TBizFacturasClienteServer.BeforeProcessChange(
|
|
Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
|
|
aChange: TDADeltaChange; var ProcessChange: Boolean);
|
|
var
|
|
ASchema : TDASchema;
|
|
ACurrentConn : IDAConnection;
|
|
dsData: IDADataset;
|
|
Empresa : Variant;
|
|
Tipo : Variant;
|
|
|
|
begin
|
|
inherited;
|
|
case aChangeType of
|
|
ctInsert, ctUpdate: begin
|
|
//Si la referencia no ha sido asignada le asignamos una nosotros
|
|
if (VarIsNull(aChange.NewValueByName[fld_FacturasClienteREFERENCIA]))
|
|
or (VarToStr(aChange.NewValueByName[fld_FacturasClienteREFERENCIA]) = '') then
|
|
begin
|
|
ASchema := BusinessProcessor.Schema;
|
|
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
|
|
|
try
|
|
//Siempre va a estar rellena
|
|
Empresa := aChange.NewValueByName[fld_FacturasClienteID_EMPRESA];
|
|
Tipo := aChange.NewValueByName[fld_FacturasClienteTIPO];
|
|
|
|
if Tipo = CTE_TIPO_FACTURA then
|
|
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa])
|
|
else
|
|
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_ABONOS_CLIENTE, Empresa]);
|
|
|
|
except
|
|
RaiseError('No existe la tabla REFERENCIAS');
|
|
end;
|
|
|
|
dsData.Active := True;
|
|
|
|
if dsData.IsEmpty then
|
|
RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_CLIENTE + ' / ' + REF_ABONOS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS');
|
|
|
|
REFERENCIA := dsData.FieldByName('VALOR').AsString;
|
|
|
|
try
|
|
if Tipo = CTE_TIPO_FACTURA then
|
|
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa])
|
|
else
|
|
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
|
|
|
except
|
|
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
}
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_CLIENTE, TBizFacturasClienteServer);
|
|
|
|
end.
|