Soma1 fazendo soma pela posição do Browse

Boa tarde,

Estou utilizando a função soma1 para validação de código, porem a função está somando +1 de acordo com a posição que esta no browse.

Por exemplo, faço o cadastro e é registrado o código "001" e deixo o ponteiro do browse nesta linha onde está o codigo "001" e crio outro código e gera normalmente com o código seguinte (002). Porém se eu deixar o ponteiro na linha onde está o código "001", ele criará de novo com o código "002".

Nunca vi isso acontecendo e não tenho nem ideia de como resolver rsrs

Obs: esta função é chamada no commit do model

Segue anexo do fonte.

Obrigado desde já

advpl

criado 17 de Aug de 2022
Mateus Zanin
70 pontos
editado 19 de Aug de 2022

0

Mateus, seria necessário compreender o que você está fazendo, talvez colocar o seu código etc. Se você deseja incrementar um código, talvez a numeração automática do License Server seja mais indicada.
— Daniel Mendes 17 de Aug de 2022

0

Daniel, por algum motivo não subiu o anexo do código. Anexei agora
— Mateus Zanin 19 de Aug de 2022

0

Caso não tenha ficado claro o que acontece, tento detalhar melhor
— Mateus Zanin 19 de Aug de 2022

Anexos

3.PNG

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 3 down
Mateus,

Seu código está incorreto.

Você faz uma query na tabela ZY0 para pegar o último número, porém se baseia no alias ZY0 aberto para gerar o próximo número com o Soma1:
```
cQuery:= "SELECT MAX(ZY0_COD) AS CODZY0 "    + ENTER
cQuery+= "FROM " +RetSqlName("ZY0")+ " ZY0"    + ENTER
cQuery+= "WHERE ZY0.D_E_L_E_T_ = ''"        + ENTER
cQuery+= "AND ZY0_IDF = 'L'"            + ENTER

TCQuery cQuery New Alias ("TMP")

DbSelectArea("TMP")
cNUMZY0:= ZY0->ZY0_COD
cNUMZY0 := SOMA1(cNUMZY0)
TMP->(DbCloseArea())
```
Para corrigir essa situação, basta começar a usar sempre o alias TMP, que é a sua query:
```
cQuery := "SELECT MAX(ZY0_COD) AS CODZY0 "
cQuery += "FROM " + RetSqlName("ZY0") + " ZY0 "
cQuery += "WHERE ZY0.D_E_L_E_T_ = '' "
cQuery += "AND ZY0_IDF = 'L'"

TCQuery cQuery New Alias ("TMP")

DbSelectArea("TMP")
cNUMZY0:= TMP->CODZY0
cNUMZY0 := SOMA1(cNUMZY0)
TMP->(DbCloseArea())
```
Acredito que o uso da numeração automática do Protheus ainda seja melhor, pois esse cenário de sempre pegar o MAX não tem nenhum semáforo ou tratativa para concorrência, com isso, existe uma possiblidade de duas ou mais pessoas usarem a rotina ao mesmo tempo e terem numeração repetidas.

Documentações sobre numeração automática:

https://tdn.totvs.com/display/framework/Configurando+o+Microsiga+Protheus

https://tdn.totvs.com/pages/viewpage.action?pageId=23889183

https://tdn.totvs.com/pages/viewpage.action?pageId=24346933

https://tdn.totvs.com/pages/viewpage.action?pageId=24347062

https://tdn.totvs.com/pages/viewpage.action?pageId=22479861

https://tdn.totvs.com/pages/viewpage.action?pageId=6815179

https://tdn.totvs.com.br/pages/releaseview.action?pageId=309411140
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 19 de Aug de 2022
  Daniel Mendes
  15854 pontos
- 0
  
  Daniel, Obrigado até o momento pela ajuda. Funcionou perfeitamente!! Obrigado.
  
  E uma dúvida, mesmo ela sendo aplicada no commit do MPFormModel, não aplica um semáforo?
  — Mateus Zanin 19 de Aug de 2022
- 0
  
  Não, quando trata-se de inclusão, não existe lock.
  — Daniel Mendes 19 de Aug de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Soma1 fazendo soma pela posição do Browse

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.