Atualizar tabela de preços dos clientes por vendedor

Precisa de ajuda sobre este assunto em seu ERP?

Olá, tudo bem?

Muitas vezes, quando trabalhamos com tabelas de preço no Protheus, uma gama de clientes, de um determinado vendedor, possui a mesma tabela.

Exemplo:

Vendedor de código 000001, que possui uma base de 100 clientes.
Todos os clientes deste vendedor vão utilizar a tabela de preço 002. Antes era a 001.

Então você vai no MPSDU e altera todos os clientes? Não. Você utiliza a rotina abaixo que deixa você alterar todos os clientes de uma única vez, filtrando por vendedor.

Conteúdo Exclusivo!

Abrindo a rotina, é só informar:

Depois, você verá, na tabela de clientes deste mesmo vendedor:

Segue o código ADVPL abaixo

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"
	
//Constantes
#Define STR_PULA		Chr(13)+Chr(10)

/*/{Protheus.doc} FBFATM01
//TODO Atualiza tabelas de preço por vendedor.
@author fbsolutions.com.br
@since 01/01/2017
@version undefined

@type function
/*/
User Function FBFATM01()
Local aArea   := GetArea()
Private cPerg := ""

//Definições da pergunta
cPerg := "FBFATM01  "

ValidPerg()
If !Pergunte(cPerg, .T.)
	Return .F.
EndIf

//Se a pergunta não existir, zera a variável
DbSelectArea("SX1")
SX1->(DbSetOrder(1)) //X1_GRUPO + X1_ORDEM
If ! SX1->(DbSeek(cPerg))
	cPerg := Nil
EndIf

Processa({|| fUpdTab()}, "Processando...")

RestArea(aArea)
Return

Static Function fUpdTab()
Local cQuery := "" 
If MsgYesNo("O sistema atualizará para tabela " + MV_PAR03 + " todos os clientes, do vendedor " + MV_PAR01 + " até " + MV_PAR01 + ". Deseja confirmar?", "Confirma alteração?")
	cQuery := " UPDATE " + RetSQLName("SA1") + " SET A1_TABELA = '" + MV_PAR03 + "' WHERE A1_VEND BETWEEN '" + MV_PAR01 + "' AND '" + MV_PAR02 + "' AND A1_MSBLQL <> '1' "
	TCSQLEXEC(cQuery)
	MsgInfo("Cadastros atualizados.")
EndIf	
Return

Static Function ValidPerg()
Local _sAlias, i, j
_sAlias := Alias()

dbSelectArea("SX1")
dbSetOrder(1)

aRegs:={}

cPerg := if(upper(substr(cVersao,1,3)) == 'MP8',padr(cPerg,6),padr(cPerg,10))

AADD(aRegs,{cPerg,"01","Vend De?"		,"Espanhol","Ingles","mv_ch1","C",6,0,0,"G","","mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","SA3",""})
AADD(aRegs,{cPerg,"02","Vend Até?"		,"Espanhol","Ingles","mv_ch2","C",6,0,0,"G","","mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","SA3",""})
AADD(aRegs,{cPerg,"03","Para Tabela"	,"Espanhol","Ingles","mv_ch3","C",3,0,0,"G","","mv_par03","","","","","","","","","","","","","","","","","","","","","","","","","DA0",""})

For i := 1 to Len(aRegs)	
	If !dbSeek(cPerg+aRegs[i,2])
		RecLock("SX1",.T.)
		For j := 1 to FCount()
			If j <= Len(aRegs[i])
				FieldPut(j,aRegs[i,j])
			Endif
		Next j
		MsUnlock()
		dbCommit()
	EndIf
Next i

dbSelectArea(_sAlias)
Return

/*/{Protheus.doc} FBFATM01
//TODO Ponto de entrada que adiciona menu no Outras Ações, na tela de cadastro de vendedor.
@author fbsolutions.com.br
@since 01/01/2017
@version undefined
*/
User Function MTA040MNU()	
	aAdd(aRotina, {'Atualiza Tabelas','U_FBFATM01' , 0 , 3,0,NIL})
Return

//Bibliotecas

#Include "Protheus.ch"

#Include "TopConn.ch"

//Constantes

#Define STR_PULA Chr(13)+Chr(10)

/*/{Protheus.doc} FBFATM01

//TODO Atualiza tabelas de preço por vendedor.

@author fbsolutions.com.br

@since 01/01/2017

@version undefined

@type function

/*/

User Function FBFATM01()

Local aArea := GetArea()

Private cPerg := ""

//Definições da pergunta

cPerg := "FBFATM01 "

ValidPerg()

If !Pergunte(cPerg, .T.)

Return .F.

EndIf

//Se a pergunta não existir, zera a variável

DbSelectArea("SX1")

SX1->(DbSetOrder(1)) //X1_GRUPO + X1_ORDEM

If ! SX1->(DbSeek(cPerg))

cPerg := Nil

EndIf

Processa({|| fUpdTab()}, "Processando...")

RestArea(aArea)

Return

Static Function fUpdTab()

Local cQuery := ""

If MsgYesNo("O sistema atualizará para tabela " + MV_PAR03 + " todos os clientes, do vendedor " + MV_PAR01 + " até " + MV_PAR01 + ". Deseja confirmar?", "Confirma alteração?")

cQuery := " UPDATE " + RetSQLName("SA1") + " SET A1_TABELA = '" + MV_PAR03 + "' WHERE A1_VEND BETWEEN '" + MV_PAR01 + "' AND '" + MV_PAR02 + "' AND A1_MSBLQL <> '1' "

TCSQLEXEC(cQuery)

MsgInfo("Cadastros atualizados.")

EndIf

Return

Static Function ValidPerg()

Local _sAlias, i, j

_sAlias := Alias()

dbSelectArea("SX1")

dbSetOrder(1)

aRegs:={}

cPerg := if(upper(substr(cVersao,1,3)) == 'MP8',padr(cPerg,6),padr(cPerg,10))

AADD(aRegs,{cPerg,"01","Vend De?" ,"Espanhol","Ingles","mv_ch1","C",6,0,0,"G","","mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","SA3",""})

AADD(aRegs,{cPerg,"02","Vend Até?" ,"Espanhol","Ingles","mv_ch2","C",6,0,0,"G","","mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","SA3",""})

AADD(aRegs,{cPerg,"03","Para Tabela" ,"Espanhol","Ingles","mv_ch3","C",3,0,0,"G","","mv_par03","","","","","","","","","","","","","","","","","","","","","","","","","DA0",""})

For i := 1 to Len(aRegs)

If !dbSeek(cPerg+aRegs[i,2])

RecLock("SX1",.T.)

For j := 1 to FCount()

If j <= Len(aRegs[i])

FieldPut(j,aRegs[i,j])

Endif

Next j

MsUnlock()

dbCommit()

EndIf

Next i

dbSelectArea(_sAlias)

Return

/*/{Protheus.doc} FBFATM01

//TODO Ponto de entrada que adiciona menu no Outras Ações, na tela de cadastro de vendedor.

@author fbsolutions.com.br

@since 01/01/2017

@version undefined

User Function MTA040MNU()

aAdd(aRotina, {'Atualiza Tabelas','U_FBFATM01' , 0 , 3,0,NIL})

Return

Espero ter ajudado!

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Atualizar tabela de preços dos clientes por vendedor – em lote2 minutos de leitura

Fernando Bueno

Últimos posts por Fernando Bueno (exibir todos)