EXECUTE BLOCK
AS
DECLARE VARIABLE VIDPESSOA VARCHAR(50);
DECLARE VARIABLE VRAZAO VARCHAR(50);
DECLARE VARIABLE VFANTASIA VARCHAR(50);
DECLARE VARIABLE VENDERECO VARCHAR(50);
DECLARE VARIABLE VBAIRRO VARCHAR(50);
DECLARE VARIABLE VCEP VARCHAR(50);
DECLARE VARIABLE VCIDADE VARCHAR(50);
DECLARE VARIABLE VUP VARCHAR(10);
DECLARE VARIABLE VEMAIL VARCHAR(60);
DECLARE VARIABLE VTELEFONE VARCHAR(50);
DECLARE VARIABLE VCNPJ VARCHAR(20);
DECLARE VARIABLE VINSC VARCHAR(20);
BEGIN
FOR
SELECT
  P.idpessoa,
  P.nmpessoa,
  P.nmfantasia,
  P.nmendereco,
  P.nmbairro,
  P.nmcep,
  P.nmcidade,
  P.iduf,
  P.email,
  P.nrtelefone,
  P.nrcgc_cic,
  P.nrincrest_rg
FROM PESSOAS P
WHERE COALESCE (P.idpessoa,'') <> '' and p.sttipopessoa = 'F'
INTO  :VIDPESSOA, :VRAZAO, :VFANTASIA, :VENDERECO, :VBAIRRO, :VCEP, :VCIDADE, :VUP, :VEMAIL, :VTELEFONE, :VCNPJ, :VINSC
DO
BEGIN
  INSERT INTO FORN ( OBS, RAZAO, NOME, ENDE, BAIRRO, CEP, CIDADE, ESTADO, EMAIL, TEL,  CGC, INS)
  VALUES (:VIDPESSOA, :VRAZAO,
   CASE
    WHEN COALESCE(:VFANTASIA,'') = '' THEN :VRAZAO
    ELSE :VFANTASIA
    END,
   SUBSTRING(:VENDERECO FROM 1 FOR 35), SUBSTRING(:VBAIRRO FROM 1 FOR 20),:VCEP, SUBSTRING(:VCIDADE FROM 1 FOR 20),:VUP, SUBSTRING(:VEMAIL FROM 1 FOR 40), :VTELEFONE, REPLACE(REPLACE(REPLACE(:VCNPJ, '.', ''), '/', ''), '-', ''), REPLACE(REPLACE(REPLACE(:VINSC, '.', ''), '/', ''), '-', ''));
END
END;