Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  hvkvngny

Enviar para a impressoraImprimir   

Subject GERAR NUMERO SEQUENCIAL
Mensagem do Enviar e-mail Abrir o Perfil do usuário OXAVIER OXAVIER em 12/6/2018 as 23:11 hs
Local: pb   Registrada: 6/12/2018  Postagem: 1
Pessoal, estou com uma dúvida no fonte.

Seria um fonte para gerar um numero sequencial, se escolher um tipo, por exemplo "FT" gera um modelo de sequencial, se escoler "FG" gera outro tipo de sequencial.
Será que alguem poderia me dizer o que devo fazer nesse fonte ?

#Include "Protheus.ch"

User Function CodSeq(cGrupoProd)

Local cRet := ""
Local cSeqProd

// MV_XSEQFRT - SEQUENCIAL DO CODIGO DE PRODUTO DO TIPO FRUTA
// MV_XSEQOUT - SEQUENCIAL DO CODIGO DE PRODUTOS QUE NAO SAO FRUTAS
If cGrupoProd == "FT"
     cSeqProd := GetMV("MV_XSEQFRT") // Retorna o conteudo do parametro
     cSeqProd :=     Soma1(cSeqProd) // Incrementa mais 1 no sequencial
     PutMV("MV_XSEQFRT",cSeqProd) // Alimanta o parametro com um novo conteudo

Else

EndIf

cRet := cSeqProd

Return cRet


Mensagem do Enviar e-mail Abrir o Perfil do usuário JALBERTO JALBERTO em 12/7/2018 as 08:28 hs
Local: RS   Registrada: 8/20/2009  Postagem: 90
Oi, parece que se executar isso vai funcionar. Mas segue o restante do código.

Tem que inicializar os parâmetros com um valor 000000 por exeplo.

Jorge Alberto

-----------------------------------------------------------------------


#Include "Protheus.ch"

User Function CodSeq(cGrupoProd)

Local cSeqProd := ""

// MV_XSEQFRT - SEQUENCIAL DO CODIGO DE PRODUTO DO TIPO FRUTA
// MV_XSEQOUT - SEQUENCIAL DO CODIGO DE PRODUTOS QUE NAO SAO FRUTAS
If cGrupoProd == "FT"
     cSeqProd := GetMV("MV_XSEQFRT") // Retorna o conteudo do parametro
     cSeqProd :=     Soma1(cSeqProd) // Incrementa mais 1 no sequencial
     PutMV("MV_XSEQFRT",cSeqProd) // Alimanta o parametro com um novo conteudo

ElseIf cGrupoProd == "FG"
     cSeqProd := GetMV("MV_XSEQOUT") // Retorna o conteudo do parametro
     cSeqProd :=     Soma1(cSeqProd) // Incrementa mais 1 no sequencial
     PutMV("MV_XSEQOUT",cSeqProd) // Alimanta o parametro com um novo conteudo
EndIf

Return( cSeqProd )

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum