Soma1

Adilio Costa 20 comentários

Tempo de leitura: 1 minuto

A função Soma1 é utilizada para criar um sequencial de um campo do tipo caractere. Ela é uma função padrão utilizada em objetos do sistema como GetDados, gravações de itens(grid do documento de entrada(MATA103), grid do pedido de venda(MATA410), etc. Ela é uma das funções de Componentes de Interface Visual em ADVPL. 

 

Sintaxe:

Soma1(cSeq,cPos,lSomMin,lSomComp)

Parâmetro(s):

Retorno:

 

 

Exemplo da função Soma1 em ADVPL:

#include 'protheus.ch'
#define Quebra_Linha Chr(10)+Chr(13)
/*{Protheus.doc} User Function PASoma1
    (Essa função tem por finalidade mostrar a função Soma1 em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 02/01/2024
    @version Protheus 12.1.2210
   @Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://hotmart.com/pt-br/club/protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando 
ele e nossas redes sociais!!|
*/
User Function PASoma1()
	Local cSeqNum	:= "000"
	Local cSeqAlfa := "A"
	Local nCont := 1

	While (nCont <= 5)

		cSeqNum := Soma1(cSeqNum)
		cSeqAlfa := Soma1(cSeqAlfa)

		MsgInfo("Sequencial Numérico:"+cSeqNum+Quebra_Linha+"Sequencial Alfabético:"+cSeqAlfa,"Função Soma1")

		nCont++
	EndDo


Return

Abaixo podemos ver os exemplos da função Soma1 incrementando de forma sequencial caracteres numéricos(“000“) como caracteres alfabéticos(“A“):

 

É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.

 
Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.

Artigos relacionados

20 Comentários


  2. Facebook粉絲增加.社交媒體曝光提升.購買Facebook粉絲.粉絲增長策略.Facebook粉絲互動.提高社交媒體影響力.優質粉絲購買.Facebook品牌曝光.社交媒體粉絲管理.粉絲增長技巧


  3. upysm.com 是一個專業的社交媒體推廣平台，提供各種刷粉絲服務，讓您的Instagram、Facebook、Youtube等帳號快速增加人氣和影響力。無論您是個人創作者還是企業品牌，我們都可以為您量身定制最合適的方案，讓您在社交媒體上脫穎而出。 #網軍 #網軍系統 #刷粉 #粉絲 #smm #刷追蹤 #刷讚 #刷關注 #刷youtube #刷fb #刷ig #網軍後台 #網軍系統


  4. upysm.com 是一個專業的社交媒體推廣平台，提供各種刷粉絲服務，讓您的Instagram、Facebook、Youtube等帳號快速增加人氣和影響力。無論您是個人創作者還是企業品牌，我們都可以為您量身定制最合適的方案，讓您在社交媒體上脫穎而出。 #網軍 #網軍系統 #刷粉 #粉絲 #smm #刷追蹤 #刷讚 #刷關注 #刷youtube #刷fb #刷ig #網軍後台 #網軍系統


  6. Nice blog here Also your site loads up very fast What host are you using Can I get your affiliate link to your host I wish my site loaded up as quickly as yours lol


  7. Fantastic site Lots of helpful information here I am sending it to some friends ans additionally sharing in delicious And of course thanks for your effort


  10. I do agree with all the ideas you have introduced on your post They are very convincing and will definitely work Still the posts are very short for newbies May just you please prolong them a little from subsequent time Thank you for the post


  11. you are truly a just right webmaster The site loading speed is incredible It kind of feels that youre doing any distinctive trick In addition The contents are masterwork you have done a great activity in this matter


  12. Nice blog here Also your site loads up very fast What host are you using Can I get your affiliate link to your host I wish my site loaded up as quickly as yours lol


  13. Thanks I have just been looking for information about this subject for a long time and yours is the best Ive discovered till now However what in regards to the bottom line Are you certain in regards to the supply


  14. Hi i think that i saw you visited my web site thus i came to Return the favore I am attempting to find things to improve my web siteI suppose its ok to use some of your ideas


  15. Hello Neat post Theres an issue together with your site in internet explorer would check this IE still is the marketplace chief and a large element of other folks will leave out your magnificent writing due to this problem


  16. Hi my family member I want to say that this post is awesome nice written and come with approximately all significant infos I would like to peer extra posts like this


  20. Normally I do not read article on blogs however I would like to say that this writeup very forced me to try and do so Your writing style has been amazed me Thanks quite great post

Comentários encerrados.