TOTVS CRM | SFA - 12.1.2501
.public
Tables
(current)
Columns
Constraints
Relationships
Orphan Tables
Anomalies
Routines
posttipofrete(character varying, integer, integer, character varying)
Parameters
Name
Type
Mode
descricao
character varying
IN
idnpadrao
integer
IN
idnativo
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; --IDNPADRAO NULO OU FORA DO PADRAO if idnpadrao is null or idnpadrao not in (0,1) then RAISE EXCEPTION 'idnpadrao = %', idnpadrao 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; --VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE IF (select distinct 1 FROM TIPOFRETE WHERE CODIGOERP = PostTipoFrete.externalid) = 1 THEN RAISE EXCEPTION 'externalid = %', PostTipoFrete.externalid USING HINT = 'The record (externalid = '|| PostTipoFrete.externalid ||') already exists, it was not possible to insert it.'; ELSE insert into tipofrete (idtipofrete,descricao, sgltipofrete, idnativo, idnpadrao, idnsomarfrete, codigoerp) values (nextval('seqpktipofrete'),descricao, externalid, idnativo, idnpadrao, 0, externalid) returning idtipofrete into internalid; end if; return query select internalid; END;