TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
descricao	character varying	IN
codigoadicional	character varying	IN
codigodebarra	character varying	IN
idnativo	integer	IN
idunidademedidapadrao	integer	IN
idunidademedidapadrao_externalid	character varying	IN
idunidademedidavenda	integer	IN
idunidademedidavenda_externalid	character varying	IN
pesomaximo	numeric	IN
pesomedio	numeric	IN
pesominimo	numeric	IN
precocusto	numeric	IN
quantidadeapresentacao	numeric	IN
idnservico	integer	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin

	--DESCRICAO NULA
	if descricao is null then 
		RAISE EXCEPTION 'descricao = %', descricao
      		USING HINT = 'Field descricao must be not null';
     end if;
	 
	--IDNATIVO NULO OU FORA DO PADRAO 
	if idnativo is null or idnativo not in (0,1,-99999) then 
		RAISE EXCEPTION 'idnativo = %', idnativo
      		USING HINT = 'Field must not be null or different from 1 or 0.';
     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; 
	 
	--LOOKUPS NAO OBRIGATORIOS
	--LOOKUP UNIDADEMEDIDAPADRAO
	IF PostProduto.idunidademedidapadrao IS NULL AND PostProduto.idunidademedidapadrao_externalid IS NOT NULL
		THEN PostProduto.idunidademedidapadrao = (SELECT C2.IDUNIDADEMEDIDA FROM UNIDADEMEDIDA C2 WHERE C2.CODIGOERP = PostProduto.idunidademedidapadrao_externalid);
	END IF;	

	--LOOKUP IDUNIDADEMEDIDAVENDA
	IF PostProduto.idunidademedidavenda IS NULL AND PostProduto.idunidademedidavenda_externalid IS NOT NULL
		THEN PostProduto.idunidademedidavenda = (SELECT C2.IDUNIDADEMEDIDA FROM UNIDADEMEDIDA C2 WHERE C2.CODIGOERP = PostProduto.idunidademedidavenda_externalid);
	END IF;		

	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PRODUTO WHERE CODIGOERP = PostProduto.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostProduto.externalid 
				USING HINT = 'The record (externalid = '|| PostProduto.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into produto (idproduto,descricao, codigo, codigoadicional, codigodebarra, idnativo, idnlancamento, idnpermitedevolucao, idnpermitevendafracionada, idnrequerqtdmultipla, idnservico, idnutilizacota, idunidademedidapadrao, idunidademedidavenda, qtdemaximavenda, pesomaximo, pesomedio, pesominimo, precocusto, quantidadeapresentacao, codigoerp) values (nextval('seqpkproduto'),descricao, externalid, codigoadicional, codigodebarra, idnativo, 0, 0, 0, 0, idnservico, 0, idunidademedidapadrao, idunidademedidavenda, 9999999.99, pesomaximo, pesomedio, pesominimo, precocusto, quantidadeapresentacao, externalid) returning idproduto into internalid;
	END IF;	
	
	return query select internalid;
END;

postproduto(character varying, character varying, character varying, integer, integer, character varying, integer, character varying, numeric, numeric, numeric, numeric, numeric, integer, character varying)

Parameters

Definition