×
Linguagem de Programação ADVPL
Perguntas MSRLOCK.eof
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 11 meses atrás #19180
por vcardoso
MSRLOCK.eof foi criado por vcardoso
Galera, bom dia !
Estou com o seguinte problema na rotina de geração de boleto (Anexo).
Alguém já passou por isso ?
Pesquisei sobre esse erro e a maioria fala sobre o DBSEEK(), mas na minha rotina não uso. Segue o trecho:
IF EMPTY(TRB->E1_NUMBCO)
_CSEQ := SUBSTR(SEE->EE_FAXATU,1,10)
_CSEQ2 := SOMA1(_CSEQ,10)
DBSELECTAREA("SEE")
WHILE !RECLOCK("SEE",.F.); ENDDO
SEE->EE_FAXATU := _CSEQ2
SEE->(MSUNLOCK())
ELSE
_CSEQ := LEFT(TRB->E1_NUMBCO,10)
ENDIF
Desde já agradeço !
Estou com o seguinte problema na rotina de geração de boleto (Anexo).
Alguém já passou por isso ?
Pesquisei sobre esse erro e a maioria fala sobre o DBSEEK(), mas na minha rotina não uso. Segue o trecho:
IF EMPTY(TRB->E1_NUMBCO)
_CSEQ := SUBSTR(SEE->EE_FAXATU,1,10)
_CSEQ2 := SOMA1(_CSEQ,10)
DBSELECTAREA("SEE")
WHILE !RECLOCK("SEE",.F.); ENDDO
SEE->EE_FAXATU := _CSEQ2
SEE->(MSUNLOCK())
ELSE
_CSEQ := LEFT(TRB->E1_NUMBCO,10)
ENDIF
Desde já agradeço !
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #19194
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico MSRLOCK.eof
Cara te aconselho a tirar isso aqui: WHILE !RECLOCK("SEE",.F.); ENDDO
IF EMPTY(TRB->E1_NUMBCO)
_CSEQ := SUBSTR(SEE->EE_FAXATU,1,10)
_CSEQ2 := SOMA1(_CSEQ,10)
DBSELECTAREA("SEE")
WHILE !RECLOCK("SEE",.F.); ENDDO
SEE->EE_FAXATU := _CSEQ2
SEE->(MSUNLOCK())
ELSE
_CSEQ := LEFT(TRB->E1_NUMBCO,10)
ENDIF
Segue um exemplo:
If Empty(TRB->E1_NUMBCO)
_CSEQ := SUBSTR(SEE->EE_FAXATU,1,10)
_CSEQ2 := SOMA1(_CSEQ,10)
If RecLock("SEE",.f.)
SEE->EE_FAXATU := _CSEQ2
SEE->(MsUnlock())
Endif
Else
_CSEQ := LEFT(TRB->E1_NUMBCO,10)
Endif
IF EMPTY(TRB->E1_NUMBCO)
_CSEQ := SUBSTR(SEE->EE_FAXATU,1,10)
_CSEQ2 := SOMA1(_CSEQ,10)
DBSELECTAREA("SEE")
WHILE !RECLOCK("SEE",.F.); ENDDO
SEE->EE_FAXATU := _CSEQ2
SEE->(MSUNLOCK())
ELSE
_CSEQ := LEFT(TRB->E1_NUMBCO,10)
ENDIF
Segue um exemplo:
If Empty(TRB->E1_NUMBCO)
_CSEQ := SUBSTR(SEE->EE_FAXATU,1,10)
_CSEQ2 := SOMA1(_CSEQ,10)
If RecLock("SEE",.f.)
SEE->EE_FAXATU := _CSEQ2
SEE->(MsUnlock())
Endif
Else
_CSEQ := LEFT(TRB->E1_NUMBCO,10)
Endif
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #19206
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico MSRLOCK.eof
Isso é o famoso tiro no pé, rotina de loop, ou seja, se alguem estiver usando o registro, fica tentando bloquear sem fim.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
Tempo para a criação da página:0.196 segundos