TM200FIS – Como Manipular Grupo de Tributação Padrão dos Clientes

Precisa de ajuda sobre este assunto em seu ERP?

Olá pessoal,

No cálculo do frete, é possível alterar o Grupo de Tributação, de acordo com alguma regra específica que você tenha.

Ele está, como outros pontos de entrada aqui do site, no fonte TMSA200.PRW

Segue exemplo:

/*/{Protheus.doc} TM200FIS
//TODO Descrição auto-gerada.
@author Fernando Bueno
@since 29/06/1980
@version 1.0

@type function
/*/
User Function TM200FIS()
Local cCliente := ParamIxb[1]
Local cLoja := ParamIxb[2]
Local nX := ParamIxb[3]
Local lPedido := ParamIxb[4]
Local cRet := ''

If ClientTrib(cCliente, cLoja)
If !lPedido 
MaFisAlt('NF_GRPCLI','001',nX,.T.) 
Else 
cRet := '001' 
EndIf
EndIf

Return cRet


/*/{Protheus.doc} ClientTrib
//TODO Função para aplicar regra de clientes
@author Fernando Bueno
@since 29/06/1980
@version 1.0
@param cCliente, characters, descricao
@param cLoja, characters, descricao
@type function
/*/
Static Function ClientTrib(cCliente, cLoja)
Local lRet := .T.

/***********************************************

Você pode criar um SQL para buscar alguma regra
Você pode buscar clientes dentro de um parametro
Aqui a sua necessidade que vale

**********************************************/

Return lRet

/*/{Protheus.doc} TM200FIS

//TODO Descrição auto-gerada.

@author Fernando Bueno

@since 29/06/1980

@version 1.0

@type function

/*/

User Function TM200FIS()

Local cCliente := ParamIxb[1]

Local cLoja := ParamIxb[2]

Local nX := ParamIxb[3]

Local lPedido := ParamIxb[4]

Local cRet := ''

If ClientTrib(cCliente, cLoja)

If !lPedido

MaFisAlt('NF_GRPCLI','001',nX,.T.)

Else

cRet := '001'

EndIf

Return cRet

/*/{Protheus.doc} ClientTrib

//TODO Função para aplicar regra de clientes

@author Fernando Bueno

@since 29/06/1980

@version 1.0

@param cCliente, characters, descricao

@param cLoja, characters, descricao

@type function

/*/

Static Function ClientTrib(cCliente, cLoja)

Local lRet := .T.

/***********************************************

Você pode criar um SQL para buscar alguma regra

Você pode buscar clientes dentro de um parametro

Aqui a sua necessidade que vale

**********************************************/

Return lRet

Espero que seja útil!

Fonte: http://tdn.totvs.com/pages/releaseview.action?pageId=6093171

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

Últimos posts por Fernando Bueno (exibir todos)

Indicadores Logísticos para Gestão de Transportadoras - 4 de dezembro de 2024
O Papel Estratégico do Setor Logístico na Cadeia de Suprimentos - 20 de novembro de 2024
Logística Reversa: Estratégia Sustentável e Lucrativa para Empresas - 20 de novembro de 2024