BEGIN
   DECLARE
      V_COUNT NUMBER;
   BEGIN
      V_COUNT := 0; 
      BEGIN
         SELECT COUNT(*)
           INTO V_COUNT
           FROM DEMONSAUX
          WHERE NMDEMO = 'Demons.de Lucros ou Prejuizos Acumulados(DLPA)'
            AND IDTIPO = 'P';
      EXCEPTION
         WHEN NO_DATA_FOUND THEN
            V_COUNT := 0;
      END;
      IF V_COUNT = 0 THEN
         INSERT INTO DEMONSAUX
            (CDDEMO, NMDEMO, IDTIPO)
         VALUES
            ('05', 'Demons.de Lucros ou Prejuizos Acumulados(DLPA)', 'P');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','0','Lucros Acumulados','S','S','S');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','50','Ajustes de Exercicios Anteriores','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','100','Retificacao de Erros de Exercicios Anteriores','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','150','Saldo Ajustado','S','S','S');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','200','Incorporacoes de Lucros ao Capital Social','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','250','Reversoes de Reservas','T','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','300','de Contingencias','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','350','de Lucros a Realizar','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','400','Lucro Liquido do Exercicio','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','450','Destinacao do Lucro','T','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','500','Reserva Legal','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','550','Reserva Estatutaria ','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','600','Reserva de Lucros a Realizar','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','650','Dividendos a Distribuir','S','N','N');
         INSERT INTO ITDEMONSAUX
           (CDDEMO,NRORDEM,NMITDEMO,IDTIPO,IDNEGRITO,IDDESTAQUE)
         VALUES
           ('05','700','Lucros Acumulados','S','S','S');


      END IF;
   END
   COMMIT;
END;
/