Atualizar tabela de preços dos clientes por vendedor – em lote

Não sabe o que fazemos ainda? Dá uma olhadinha no nosso menu ali em cima ☝️

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.

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!

Leave a Reply Cancelar resposta