Softshop > NFe: Atualizar rotina que define tipo de contribuinte na NFe e Cadastro de Clientes
Software: SOFTSHOP | Grupo: NFE | Prioridade: ALTA
Solução
Causa:
1- Erro de Inscrição Estadual ao emitir NFe
2- Necessidade de emitir nota fiscal para cliente pessoa física contribuinte de icms (Ex: Produtor Rural)
Solução:
**
**
Criar Campos em Tabelas:
1 - Copiar campo "indIEDest" da tabela Cadastro de Clientes do SOFTSHOP_ORIGEM e criar no banco do cliente
2 - Copiar campos "NFeIndFinal", "indIEDest" da tabela NotaFiscal_Cabecalho
3 - Importar as consultas "NFe_ExpLinhaE16a" e "NFe_ExpLinhaE17".
Formularios:
4 - Cadastro de Clientes: Copiar campo "Contribuinte" do SOFTSHOP_ORIGEM.
5 - Copiar procedimento de evento do "Após Atualizar" dos campos "Pessoa" e "Contribuinte"
6 - NotaFiscal_Cabecalho: Abrir a origem da linha do campo "Remetente_Nome" e adicionar o campo "indIEDest". Na propriedade "Número de Colunas" dessa combo aumentar de 15 para 16
7 - NotaFiscal_Cabecalho: Na aba NFE, adicionar o campo [NFeIndFinal]
8 - Abrir a Macro NotaFiscal preencher campos e adicionar um DEFINIR VALOR; Em ITEM colocar indIEDEst e em EXPRESSÃO Inserir: nz([Remetente_nome].Column(15);1) .
Obs: Coluna 15 é o campo "indIEDest" Na Consulta, caso não esteja nesta Posição, coloca o valor equivalente a posição do Campo na Consulta.
Consultas:
9 - "NotaFiscal_AtualizarRemetente" e "NotaFiscal_AtualizarRemetenteAjuste": Copiar as colunas "indIEDest" e "NFeIndFinal" do SOFTSHOP_ORIGEM
10 - Executar as 3 consultas abaixo para atualizar os dados dos clientes e notas já existentes no banco:
10.1 - Atualizar o campo indIEDest do Cadastro de Clientes: UPDATE [Cadastro de Clientes] SET [Cadastro de Clientes].indIEDest = IIf([Inscrição Estadual] Is Null Or [Inscrição Estadual]="",9,IIf([Inscrição Estadual]="ISENTO",2,1))WHERE ((([Cadastro de Clientes].indIEDest) Is Null)) OR ((([Cadastro de Clientes].indIEDest)=0));
10.2 - Atualizar o camo indIEDest de NotaFiscal_CabecalhoUPDATE [Cadastro de Clientes] INNER JOIN NotaFiscal_Cabecalho ON [Cadastro de Clientes].[Código do Cliente] = NotaFiscal_Cabecalho.Remetente_Codigo SET NotaFiscal_Cabecalho.indIEDest = [Cadastro de Clientes].[indIEDest]WHERE (((NotaFiscal_Cabecalho.indIEDest) Is Null)) OR (((NotaFiscal_Cabecalho.indIEDest)=0));
10.3 - Atualizar o campo Inscrição Estadual para nulo se a pessoa estiver definida como "F"UPDATE [Cadastro de Clientes] SET [Cadastro de Clientes].[Inscrição Estadual] = NullWHERE ((([Cadastro de Clientes].Pessoa)="F") AND (([Cadastro de Clientes].[Inscrição Estadual])="ISENTO"));
Tags: produtor rural, verificar campo ie, verificar o camp