A funcionalidade de TROCA / DEVOLUÇÂO( LOJA720 ) tem por finalidade realizar trocas e devoluções de vendas efetuadas anteriormente. Para isso, podemos escolher a forma com que a troca / devolução será efetuada , gerando documento de entrada (SF1 / SD1) ou não.

Image Removed

Caso seja selecionado a opção "Com Documento de Entrada ", para que seja possível concluir o processo, o sistema irá analisar a necessidade de informar a "NATUREZA" da operação.ou Sem Documento de Entrada).

Image Added

Se Esta análise será efetuada quando o parâmetro MV_NFENAT estiver habilitado, ou seja, com o conteúdo ".T." , será necessário uma NATUREZA para a finalização do processo.

Uma vez habilitado, será obrigatório informar uma natureza no para o parâmetro MV_1DUPNAT. O conteúdo padrão deste parâmetro é "SA1->A1_NATUREZ", mas dependendo da regra também pode ser informado o conteúdo "SC5->C5_NATUREZ", que refere-se a natureza informada no momento da inclusão de um pedido de venda( SC5 / SC6 ).

Caso tenhamos a configuração citada acima, MV_NFENAT = .T. e MV_1DUPNAT = SC5->C5_NATUREZ, no momento da devolução de uma venda, via rotina Troca Devolução - LOJA720, para o sistema é necessário existir uma natureza de devolução, porém não será encontrada devido a rotina "Venda Assistida" (LOJA701) não gerar informações pertinentes ao módulo de faturamento, pedido de venda ( SC5 / SC6 ), com isso retornando a mensagem:

Para que seja possível dar continuidade ao processo, podemos efetuar a validação diretamente no conteúdo do parâmetro. Por exemplo:

Exemplo 01: Retornando a natureza prévimente previamente cadastrada no cadastro de clientes( SA1 )

Iif(AllTrim(FunName()) == "LOJA720",SA1->A1_NATUREZ,SC5->C5_NATUREZ)

Exemplo 02: Retornando o conteúdo do parâmetro MV_NATDEV

Iif(AllTrim(FunName()) == "LOJA720",SuperGetMv("MV_NATDEV",.F.,"DEV./TROCA"),SC5->C5_NATUREZ)

Caso não seja possível manipular o queira utilizar a regra no conteúdo do parâmetro MV_1DUPNAT, temos também a opção de usar utilizar o ponto de entrada MT103MTZ, responsável por retornar um conteúdo do tipo string, no caso, a natureza em questãoo código da natureza desejada.

Exemplo:

#Include 'Protheus.ch'

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±³Funcao ³ MT103NTZ ³ Autor ³ Varejo ³ Data ³ 12/04/18 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Exemplo de retorno de natureza para rotina de devolucao LOJA720 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Automacao Comercial ³±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/
User Function MT103NTZ()

Local aArea := GetArea()

Local cRet := ""

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Foi usado como exemplo o conteúdo do parâmetro MV_NATDEV, porém pode ser usado //
//qualquer outro contéudo/parâmetro desde que esteja préviamente cadastrado na tabela //
//SED(Cadastro de naturezas) //
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
If AllTrim(FunName()) == "LOJA20"
cRet := SuperGetMv("MV_NATDEV",.F.,"DEV./TROCA")
Else
cRet := &(SuperGetMV("MV_1DUPNAT",.F.,""))
EndIf

RestArea(aArea)

Return cRet

Após a efetivação das configurações citadas acima, o processo de devolução , vai da rotina de Troca / Delvolução, será finalizada com sucesso.