EXEMPLO_1212310 Database

Parameters

Name	Type	Mode
@CONDIC	char	IN
@NREMESSA	char	IN
@CCOMPRAD	int	IN
@CPRESTAD	int	IN
@CODCOLIGADA	int	IN

Definition

CREATE PROCEDURE CONTROLAAUDIT @CONDIC CHAR(1), @NREMESSA CHAR(4), @CCOMPRAD INT, @CPRESTAD INT, @CODCOLIGADA INT
AS
BEGIN
  IF @CONDIC = 'S'
  BEGIN
    IF EXISTS( SELECT NUMAUDITORES FROM SZFATURACONVENIO
               WHERE NUMAUDITORES IS NULL AND NUMEROREMESSA = @NREMESSA
               AND CODPRESTADOR = @CPRESTAD AND CODCOMPRADOR = @CCOMPRAD AND CODCOLIGADA = @CODCOLIGADA)
      UPDATE SZFATURACONVENIO
      SET NUMAUDITORES = 1
      WHERE NUMEROREMESSA = @NREMESSA
      AND CODPRESTADOR = @CPRESTAD AND CODCOMPRADOR = @CCOMPRAD AND CODCOLIGADA = @CODCOLIGADA
    ELSE
      UPDATE SZFATURACONVENIO
      SET NUMAUDITORES = NUMAUDITORES + 1
      WHERE NUMEROREMESSA = @NREMESSA
      AND CODPRESTADOR = @CPRESTAD AND CODCOMPRADOR = @CCOMPRAD AND CODCOLIGADA = @CODCOLIGADA

    IF ( SELECT NUMAUDITORES FROM SZFATURACONVENIO
         WHERE CODCOLIGADA = @CODCOLIGADA AND NUMEROREMESSA = @NREMESSA 
         AND CODPRESTADOR = @CPRESTAD AND CODCOMPRADOR = @CCOMPRAD ) >= 1
    BEGIN
      UPDATE SZPARCIALATEND
      SET STATUSAUDITORIA = 'I'
      WHERE CODCOLIGADA = @CODCOLIGADA AND NUMEROREMESSA = @NREMESSA 
      AND CODPRESTADOR = @CPRESTAD AND CODCONVENIO = @CCOMPRAD AND STATUSAUDITORIA = 'A'

      /*UPDATE SZATENDIMENTO
      SET STATUSAUDITORIA = 'I'
      WHERE NUMEROREMESSA = @NREMESSA AND CODPRESTADOR = @CPRESTAD
      AND CODCOMPRADOR = @CCOMPRAD AND  STATUSAUDITORIA = 'A' AND CODCOLIGADA = @CODCOLIGADA

      UPDATE SZATENDIMENTOREC
      SET STATUSAUDITORIA = 'I'
      WHERE NUMEROREMESSA = @NREMESSA AND CODPRESTADOR = @CPRESTAD
      AND CODCOMPRADOR = @CCOMPRAD AND  STATUSAUDITORIA = 'A' AND CODCOLIGADA = @CODCOLIGADA*/
    END
  END
  ELSE
  BEGIN
    IF EXISTS( SELECT NUMAUDITORES FROM SZFATURACONVENIO
               WHERE NUMAUDITORES > 0 AND NUMEROREMESSA = @NREMESSA
               AND CODPRESTADOR = @CPRESTAD AND CODCOMPRADOR = @CCOMPRAD AND CODCOLIGADA = @CODCOLIGADA)
      UPDATE SZFATURACONVENIO
      SET NUMAUDITORES = NUMAUDITORES - 1
      WHERE CODCOLIGADA = @CODCOLIGADA AND NUMEROREMESSA = @NREMESSA
      AND CODPRESTADOR = @CPRESTAD AND CODCOMPRADOR = @CCOMPRAD
  END
END