40 lines
1021 B
SQL
40 lines
1021 B
SQL
|
|
|
|
declare
|
|
dup_val_on_index exception;
|
|
pragma exception_init (dup_val_on_index , -00001);
|
|
begin
|
|
execute immediate 'update ocd set INDPUNTOVENTAESTORNO = 1 where ocd_id in(select OCD.OCD_ID FROM
|
|
BOLETO B
|
|
INNER JOIN OCD OCD
|
|
ON
|
|
OCD.BOLETO_ID = B.BOLETO_ID
|
|
INNER JOIN MARCA M
|
|
ON
|
|
M.MARCA_ID = B.MARCA_ID
|
|
INNER JOIN EMPRESA E
|
|
ON
|
|
E.EMPRESA_ID = M.EMPRESA_ID
|
|
LEFT JOIN OCD_PARAM op
|
|
ON
|
|
op.EMPRESA_ID = E.EMPRESA_ID
|
|
AND op.ACTIVO = 1
|
|
LEFT JOIN OCD_PTOVTA_PARAM opp
|
|
ON
|
|
opp.OCDPARAM_ID = op.OCDPARAM_ID
|
|
AND opp.ACTIVO = 1
|
|
WHERE
|
|
OCD.FECINC >= to_date(''01/06/2017'',''dd/MM/yyyy'')
|
|
AND
|
|
(
|
|
B.PTOVTAVENTA_ID = (select VALORCONSTANTE from CONSTANTE where NOMBCONSTANTE = ''PUNTO_VENTA_J3'')
|
|
OR B.PUNTOVENTA_ID = (select VALORCONSTANTE from CONSTANTE where NOMBCONSTANTE = ''PUNTO_VENTA_J3'')
|
|
OR
|
|
(
|
|
B.PTOVTAVENTA_ID = opp.PUNTOVENTA_ID
|
|
OR B.PUNTOVENTA_ID = opp.PUNTOVENTA_ID
|
|
)
|
|
))';
|
|
exception when dup_val_on_index then null;
|
|
end;
|