TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idproduto	integer	IN
idproduto_externalid	character varying	IN
ordem	integer	IN
imagem	text	IN
descricao	character varying	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
	idimagem integer;
begin
	--ORDEM NULO OU FORA DO PADRAO 
	if ordem is null then 
		RAISE EXCEPTION 'ordem = %', ordem
      		USING HINT = 'Field must not be null';
     end if; 
	 
	--LOOKUP PRODUTO
	IF PostProdutoImagem.idproduto IS NULL AND PostProdutoImagem.idproduto_externalid IS NOT NULL
		THEN PostProdutoImagem.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PostProdutoImagem.idproduto_externalid);
	END IF;

--PRODUTO NULO
	 if PostProdutoImagem.idproduto is null then 
		RAISE EXCEPTION 'idproduto = %', PostProdutoImagem.idproduto
      		USING HINT = 'Field idproduto must be not null';
     end if;

--IMAGEM NULA
	 if PostProdutoImagem.imagem is null or PostProdutoImagem.imagem = '' then 
		RAISE EXCEPTION 'imagem = %', PostProdutoImagem.imagem
      		USING HINT = 'Field imagem must be not null';
     end if;
	 
	 --DESCRICAO NULA
	 if PostProdutoImagem.descricao is null then 
		RAISE EXCEPTION 'descricao = %', PostProdutoImagem.descricao
      		USING HINT = 'Field descricao must be not null';
     end if;	 
	 
	--CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if; 	 
	 
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PRODUTOIMAGEM WHERE CODIGOERP = PostProdutoImagem.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostProdutoImagem.externalid 
			USING HINT = 'The record (externalid = '|| PostProdutoImagem.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
		
		insert into PRODUTOIMAGEM (IDPRODUTOIMAGEM, DESCRICAO, ORDEM, IDPRODUTO, CODIGOERP) 
		values (nextval('seqpkprodutoimagem'),DESCRICAO, ORDEM, IDPRODUTO, externalid) returning IDPRODUTOIMAGEM into internalid;
		
		insert into PRODUTOIMAGEMFILE (IDPRODUTOIMAGEMFILE, IMAGEM, CODIGOERP) 
		values (internalid, decode(imagem, 'base64'), externalid) returning IDPRODUTOIMAGEMFILE into idimagem;
		
		if ordem = 1 then 
			update produto set idimagempadrao = idimagem where produto.idproduto = PostProdutoImagem.idproduto;
		end if;
		
    end if;
	 
	return query select internalid;
END;

postprodutoimagem(integer, character varying, integer, text, character varying, character varying)

Parameters

Definition