Tempo de leitura: 1 minuto
Sintaxe:
ConfirmSX8()
Parâmetro(s):
–
Retorno:
–
Exemplo da função ConfirmSX8 em ADVPL:
#include 'protheus.ch'
#include "tbiconn.ch"
/*{Protheus.doc} User Function fGetSXENum
(Essa função tem por finalidade mostrar a função fGetSXENum)
@type Function
@author Adilio Costa
@since 23/06/2023
@version 12.1.2210
Acesse e se inscreva no Blog/Site ProtheusAdvpl para receber conteúdo:
www.protheusadvpl.com.br
Se inscreva no Canal do ProtheusAdvpl para receber vídeos:
https://wwww.youtube.com/protheusadvpl
Siga-nos no Instagram:
http://https://www.instagram.com/protheusadvpl
Siga a página do ProtheusAdvpl no Facebook:
https://www.facebook.com/protheusadvpl2
Conheça o Portal ProtheusAdvpl:
https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
Post:GetSXENum
*/
User Function fGetSXENum()
Local cCodFor := ""
DBSelectArea("SA2")
DBSetOrder(1)
cCodFor := GetSXENum("SA2","A2_COD")
If(MsgYesNo("Deseja confirmar o código "+cCodFor+"?", "Confirmação"))
//Trava a tabela para inserir um registro
RecLock("SA2",.T.)
A2_FILIAL := xFilial()
A2_COD := cCodFor
A2_NOME := "ProtheusAdvpl"
//Destrava a tabela
MsUnLock()
//Utiliza a função ConfirmSX8() para confirmar a próxima numeração
ConfirmSx8()
Else
//Utiliza a função RollBackSX8() para desfazer toda a operação e voltar para numeração anterior
RollBackSX8()
EndIf
Return
Bem, finalizamos mais um post aqui do blog, espero que tenha entendido. Qualquer dúvida deixe seu comentário abaixo ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Nos ajude compartilhando esse conteúdo nos grupos de Protheus e ADVPL/TL++ que participa. Grande abraço e fica com Deus.