1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br

Mensagem de erro

Discussão em 'Progress 4GL' iniciado por erickles, Maio 29, 2009.

  1. erickles

    erickles Membro Participativo

    Alguém sabe me dizer o que significa e como posso remediar a mensagem abaixo ?:

    Código:
    SYSTEM ERROR: bffld: nxtfld: scan past last field.
  2. TeD

    TeD Membro Participativo

    Bom dia,

    Qual a versão do seu progress? Em erro ocorre em que momento?

    Verifiquei que pode ocorrer por varias causas, talvez explicando melhor sobre o cenario em que você esta conseguimos encontra uma solução pontual.
  3. erickles

    erickles Membro Participativo

    Bem, utilizamos versão 9.1D09.

    Abaixo é o trecho de código que causa o erro:

    Código:
    FIND {&banco}._file NO-LOCK WHERE _file._file-name = "{&tab}".
                                                                  
    FOR EACH {&banco}._field NO-LOCK WHERE                        
                  _field._file = RECID(_file)                     
               BY _field._order:                                  
         /*Erro ocorre daqui para baixo*/                                                         
        RUN logdel.m (INPUT  r-old,                               
                      OUTPUT sc-campo)                            
                      "{&tab}"                                    
                      _field._field-name                          
                      _field._format                              
                      _field._label.                              
    
    O programa "logdel.m", gera um log quando um registro de uma tabela é deletado. Este código faz parte de uma trigger especifica para isto.

    Abaixo o codigo do logdel.m:

    Código:
    define input parameter r-old as raw.   
    def output parameter sc-campo as char. 
                                           
    def temp-table tt-old no-undo like {1}.
                                           
    create tt-old.                         
    raw-transfer r-old to tt-old.          
                                           
    assign  sc-campo = ">".                
                                           
    if "{4}" <> ?                          
    then sc-campo = sc-campo + "{4}".      
    else sc-campo = sc-campo + "{2}".                 
    sc-campo = sc-campo + ': '.                       
                                                      
    if tt-old.{2} <> ? then                           
       sc-campo = sc-campo + string(tt-old.{2},"{3}").
                                                      
    sc-campo = sc-campo + chr(10).                                                                      
    
    Observei tambem, que antes do erro anteriormente postado, da outra mensagem de erro, só deu pra pegar o código dela, que é 3191, segundo o progress, a mensagem é:
    Código:
    SYSTEM ERROR: Failed to extract field <field-num> from <file-name> record
    (table <table-num>) with recid <RECID>. (3191)                           
    
  4. erickles

    erickles Membro Participativo

Compartilhe esta Página