DECLARE
  V_CONTADOR NUMBER;

BEGIN

   SELECT COUNT(NRLINPPEDP)
   INTO V_CONTADOR
   FROM PEDILINPPROP;

   V_CONTADOR := LPAD(V_CONTADOR,20,'0');

   INSERT INTO NOVOCODIGO
      (CDCONTADOR, NRSEQUENCIAL)
   VALUES
      ('PEDILINPPROP',V_CONTADOR);


   SELECT COUNT(NRSERVPEDP)
   INTO V_CONTADOR
   FROM PEDISERVPROP;

   V_CONTADOR := LPAD(V_CONTADOR,20,'0');

   INSERT INTO NOVOCODIGO
      (CDCONTADOR, NRSEQUENCIAL)
   VALUES
      ('PEDISERVPROP',V_CONTADOR);
END;
/
