Vendas-Implantar Alterar Detalhes Nao Fiscais: Cliente pede pra alterar dados de venda faturada (Vendedor, Observaçao, Indicador)
Software: SOFTSHOP | Grupo: ALTERACOES | Prioridade: MÉDIA
Solução
Causa:
Necessidade de alterar algumas informações da venda após o faturamento da mesma
Solução:
1- A partir do SOFTSHOP 8.6.2.0 já existe a rotina que permite alterar alguns dados da venda, basta dar um clique duplo em um dos campos: Vendedor, Observação e campos da aba "Outros Dados". OBS: Informações fiscais não podem ser alteradas (Data da Venda, Cliente, Número do Cupom) *** Procedimento abaixo apenas em versões anteriores a 8.6.2.0 *** 2- Caso seja versão anterior e ainda não possua a rotina, fazer procedimentos abaixo: 2.1- Importar/substituir objetos caso sistema do cliente ainda não possua a rotina: Modulo: Util_Aplicacao Formulario: Vendas_DetalhesAlterar 2.2- Criar campo na tabela "Cadastro de Vendedores": "Vendas_AlterarDadosAposFaturado", Tipo: Sim/Não 2.3- Colocar esse campo no formulario "Cadastro de Vendedores >> Acessos/Permissões" 2.4- Marcar essa permissão para o usuário "Softcom" e para o usuário do cliente que terá permissão de fazer essa alteração 2.5- Colar o código abaixo no fim do código do formulário "Vendas3" 'ABRIR TELA PARA ALTERAR DADOS NÃO FISCAIS EM VENDA FATURADA Private Sub Obs_DblClick(Cancel As Integer) DetalhesAlterarVenda End Sub Private Sub PossuiEntrega_DblClick(Cancel As Integer) DetalhesAlterarVenda End Sub Private Sub Vendedor_DblClick(Cancel As Integer) DetalhesAlterarVenda End Sub Private Sub CodigoEndEntrega_DblClick(Cancel As Integer) DetalhesAlterarVenda End Sub Private Sub CodigoIndicador_DblClick(Cancel As Integer) DetalhesAlterarVenda End Sub Private Sub EntregadorCodigo_DblClick(Cancel As Integer) DetalhesAlterarVenda End Sub Private Sub DetalhesAlterarVenda() 'METODO UTILIZADO QUANDO A VENDA FOI FATURADA, PORÉM UMA INFORMAÇÃO NÃO FISCAL PRECISA SER ALTERADA If ((isNZ(Me.TEFCV) = False) And (Me.Setor <> "D1")) Then If Util_getPermissao("Vendas_AlterarDadosAposFaturado") Then DoCmd.OpenForm "Vendas_DetalhesAlterar" Else MsgBox "Você não possui permissão para alterar essa informação em uma Venda faturada!", vbExclamation, "Aviso" End If End If End Sub '-------------------
Tags: alterar venda faturada, venda faturada, alterar vend