Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Especificação do Uso da Soma1 para Pedido de Venda e Documentos de Saída usados no Módulo Faturamento

Produto:Microsiga Protheus®
Ambiente:Faturamento (SIGAFAT)
Ocorrência:Exemplificação do Uso da Função Soma1 e Exemplo de Funções Auxiliares
Passo a passo:

A função Soma1() é comumente utilizada nas rotinas do modulo Faturamento, como por exemplo no controle de numeração dos item de um pedido de Venda ou de um Documento de Saída. Possuindo a documentação própria:

E a documentação a respeito de sua limitação:

Visando um melhor entendimento de seu funcionamento trouxemos o exemplo abaixo de como o incremento de valor nesta é feito, usando como base o tamanho de dois caracteres (mesmo tamanho usado nos itens do pedido de venda e no documento de saída).

Exemplo: 

Bloco de código
languagejs
titleSoma1
linenumberstrue
User Function Exemplo()
	
	Local cValor	:= "00"
	Local nX		:= 0
    Local nY        := 0
    Local cMessage  := ""
    Local aValores  := {}
    
	For nX := 1 To 150
		cValor := Soma1(cValor)
        aadd(aValores, {nX, cValor})
	Next nX
    For nY := 1 To 30
        cMessage += "|" + AllTrim(Str(aValores[nY][1])) + " --> " +  aValores[nY][2] + "|   "
        cMessage += "|" + AllTrim(Str(aValores[nY+30][1])) + " --> " +  aValores[nY+30][2] + "|   "
        cMessage += "|" + AllTrim(Str(aValores[nY+60][1])) + " --> " +  aValores[nY+60][2] + "|   "
        cMessage += "|" + AllTrim(Str(aValores[nY+90][1])) + " --> " +  aValores[nY+90][2] + "|   "
        cMessage += "|" + AllTrim(Str(aValores[nY+120][1])) + " --> " +  aValores[nY+120][2] + "|   "
        cMessage += CRLF
    Next nY

Return MsgInfo( cMessage, "Soma1 - Exemplo" )

Veja que o resultado apresenta um valor alfanumérico para as numerações que superam 99, isso ocorre pois a variável cValor é um caracter com tamanho 2.

Image Modified

Pode lhe interessar:

Templatedocumentos