F000ITM - Intermediadores da Transação (NF-e/NFC-e)
Tela destinada ao cadastramento do intermediador ou agenciador da operação para atendimento da NT 2020.006, visando adequação ao disposto no Ajuste SINIEF 21/2020 e 22/2020. A informação do intermediador da transação é gerada no grupo YB do layout da NF-e e NFC-e.
Nas telas de geração de notas fiscais, os dados do intermediador estarão disponíveis para serem informadas nos dados Diversos.
Tela F140GNF através do botão Diversos (Y)
O cadastro do intermediador também poderá ser utilizado na geração das informações do intermediário de serviço na emissão da NFS-e (Nota Fiscal de Serviço Eletrônica) que é gerada no grupo <IntermediarioServico> do padrão ABRASF. No entanto, para emissão de NFS-e essa informação mesmo estando preenchida nas informações diversas da nota fiscal não será enviada por padrão para o XML, sendo necessário nesse caso, tratar o envio das informações através do identificador de regras GER-000ABRASF1.
Neste exemplo, a regra irá buscar a informação que foi inserida nos dados diversos da nota fiscal e retornar os valores para as variáveis VSIntIntNom, VSIntIntCgc e VSIntIntCgc. As informações inseridas nos dados diversos da nota fiscal em relação ao intermediador são gravadas em Tabelas - Notas Fiscais de Saída - Diversos (E140TNF). Tabela esta que é utilizada no cursor da regra para buscar a informação e atribuir nas variáveis de retorno.
/* Variáveis */
@-------------------------------------------------------------------------------------------------@
Definir Numero VSIntCodEmp; @-- Código da empresa emissora da NFS-e --@
Definir Numero VSIntCodFil; @-- Código da filial emissora da NFS-e --@
Definir Numero VSIntNumRps; @-- IdentificacaoRps - Número --@
Definir Alfa VSIntCodSnf; @-- Código da série da nota fiscal (interno) --@
Definir Alfa VSIntIntNom; @-- IntermediarioServico - RazaoSocial --@
Definir Alfa VSIntIntCgc; @-- IntermediarioServico - CpfCnpj --@
Definir Alfa VSIntIntIsm; @-- IntermediarioServico - InscricaoMunicipal --@
Definir Numero VSAuxCodItm; @-- Código do intermediador da transação --@
Definir Numero VSAuxIntCgc; @-- IntermediarioServico --@
@-------------------------------------------------------------------------------------------------@
/* Cursores */
@--------------------------------@
Definir Cursor Cur_E140TNF;
Definir Cursor Cur_E000ITM;
@--------------------------------@
Inicio
Cur_E140TNF.SQL "SELECT CODITM, CGCITM, CADITM \
FROM E140TNF \
WHERE CODEMP =:VSIntCodEmp \
AND CODFIL =:VSIntCodFil \
AND CODSNF =:VSIntCodSnf \
AND NUMNFV =:VSIntNumRps";
Cur_E140TNF.AbrirCursor();
Se (Cur_E140TNF.Achou)
Inicio
VSAuxCodItm = Cur_E140TNF.CODITM;
VSAuxIntCgc = Cur_E140TNF.CGCITM;
IntParaAlfa(VSAuxIntCgc,VSIntIntCgc);
VSIntIntIsm = Cur_E140TNF.CADITM;
Fim;
Cur_E140TNF.FecharCursor();
Se (VSAuxCodItm > 0)
Inicio
Cur_E000ITM.SQL "SELECT NOMITM \
FROM E000ITM \
WHERE CODEMP =:VSIntCodEmp \
AND CODITM =:VSAuxCodItm";
Cur_E000ITM.AbrirCursor();
Se (Cur_E000ITM.Achou)
Inicio
VSIntIntNom = Cur_E000ITM.NOMITM;
Fim;
Cur_E000ITM.FecharCursor();
Fim;
Fim;
Identificador de regra
Módulo | Código |
---|---|
GER | 000ABRASF1 |