Função que cria complementos do produto (SB5) através do cadastro de produtos (SB1)

Olá pessoal…

Hoje vou mostrar uma função que criei que cria automaticamente os complementos de produto através dos produtos já cadastros.

AdvPL

Se você utiliza ou habilitou o complemento de produtos (tabela SB5), se já possui produtos cadastrados, já percebeu que é oneroso ter que cadastrar todos novamente, certo?

Pensando nisso, preparei um código fonte, que percorre todos os produtos criados e os que não tiverem complemento, é criado automaticamente.

Segue abaixo o código:

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zSB1Compl
Função que gera o complemento do produto (SB5) através do produto (SB1)
@author Atilio
@since 29/08/2017
@version 1.0
@type function
@obs Executar como Administrador
/*/

User Function zSB1Compl()
	Processa({|| fProcessa()}, "Processando...")
Return

/*----------------------------------------------------------*
 | Func.: fProcessa                                         |
 | Desc.: Função de processamento para gravar o complemento |
 *----------------------------------------------------------*/

Static Function fProcessa()
	Local aArea  := GetArea()
	Local nAtual := 0
	Local nTotal := 0
	Local nOk    := 0
	Local cOk    := ""
	Local cMsg   := ""
	Local lPosUM := ( SB5->(FieldPos('B5_UMIND')) != 0)
	
	//Abre o cadastro de produtos
	DbSelectArea('SB1')
	SB1->(DbSetOrder(1)) //B1_FILIAL + B1_COD
	SB1->(DbGoTop())
	Count To nTotal
	
	//Abre o cadastro de complemento
	DbSelectArea('SB5')
	SB5->(DbSetOrder(1)) //B5_FILIAL + B5_COD
	SB5->(DbGoTop())
	
	//Posiciona no topo e percorre os registros
	SB1->(DbGoTop())
	While ! SB1->(Eof())
		nAtual++
		IncProc("Processando "+cValToChar(nAtual)+" de "+cValToChar(nTotal)+" ("+AllTrim(SB1->B1_COD)+")...")
		
		//Se não existir complemento
		If ! SB5->(DbSeek(FWxFilial('SB5') + SB1->B1_COD))
			//Foi feito através de RecLock, pois o MsExecAuto da MATA180 estava travando
			RecLock('SB5', .T.)
				B5_FILIAL    := FWxFilial('SB5')
				B5_COD       := SB1->B1_COD
				B5_CEME      := SB1->B1_DESC
				If lPosUM
					B5_UMIND := '1'
				EndIf
			SB5->(MsUnlock())
			
			lMsErroAuto := .F.
			
			nOk++
			cOk += "- "+Alltrim(SB1->B1_COD)+";" + CRLF
		EndIf
		
		SB1->(DbSkip())
	EndDo
	
	//Se tiver erros ou inclusões, mostra mensagem
	If nOk != 0
		cMsg := "Foram analisados "+cValToChar(nTotal)+" produtos..." + CRLF + CRLF
		cMsg += "Sucesso na inclusão do complemento de "+cValToChar(nOk)+" produto(s):"+CRLF
		cMsg += cOk + CRLF
		
		Aviso("Atenção", cMsg, {"Ok"}, 2)
	EndIf
	
	//Atualiza o grupo de perguntas
	If MsgYesNo("Deseja atualizar o parâmetro do cadastro de produtos (F12)?", "Atenção")
		u_zAtuPerg("MTA010", "MV_PAR02", 1)
	EndIf
	
	MsgInfo("Processo concluído.", "Atenção")
	
	RestArea(aArea)
Return

Esses e outros códigos, estão disponíveis gratuitamente no nosso GitHub, acesse em github.com/dan-atilio/AdvPL.

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Relacionado

Tags: AdvPL