mgreich

Muito obrigado, deu certo em Contigencia SVC-RS... Já tinha tentado contigencia antes e estava desabilitado...

Boa tarde, alguma novidade sobre o restabelecimento dos serviços da SEFAZ/MT ?

Estou com o mesmo problema no meu sistema... Começou hoje...

Fui consultar uma NFe no site www.nfe.fazenda.gov.br / consulta completa e a data para inicio da nova versão 4.0 está com uma nova data, inicio 02/08/2018 e o contador está em 43 dias, sendo hoje dia 19/06/2018 as 00:31. Procurei no google sobre alguma noticia sobre a prorrogação do prazo e não obtive nenhuma noticia, fui na sefaz do meu estado MS e nenhum noticia também. Será que o prazo foi ou não prorrogado ? Segue print. ..

// Monta os numeros da Chave de Acesso da NFe 2.00 function MontaChaveAcessoNFe_v200( codUF: integer; dtEmissao: TDateTime; CNPJ, tpEmis: string; Modelo, Serie, NumeroNF: integer): string; var emissao : string[10]; chave : string; begin emissao := formatdatetime('DD/MM/YY', dtEmissao); chave := IntToStr(codUF) + copy( emissao, 7, 2) + copy(emissao, 4, 2) + FiltraNumeros(CNPJ) + StrZero(Modelo, 2) + StrZero(Serie, 3) + StrZero(NumeroNF, 9) + tpEmis + StrZero(NumeroNF, 8); Result := chave + Modulo11(chave); end; OBS: tpEmis = producao ou homologação // função do Modulo 11 function Modulo11(Numero: String): String; var i,j,k : Integer; Soma : Integer; Digito : Integer; CNPJ : Boolean; begin Result := ''; Try Soma := 0; k:= 2; for i := Length(Numero) downto 1 do begin Soma := Soma + (StrToInt(Numero)*k); inc(k); if k > 9 then k := 2; end; Digito := 11 - Soma mod 11; if Digito >= 10 then Digito := 0; Result := Result + Chr(Digito + Ord('0')); except Result := 'X'; end; end; // função StrZero function StrZero(Valor: Integer; TamanhoRet: Integer): String; var VarStr : String; TamanhoStr: Integer; begin VarStr := Trim(IntToStr(Valor)); TamanhoStr := Length(VarStr); if TamanhoStr >= 0 then begin for TamanhoRet := 1 to TamanhoRet - TamanhoStr do VarStr := '0' + VarStr; end; StrZero := VarStr; end; // função Filtra Numeros function FiltraNumeros(Texto: String): String; var i: Integer; Validos: String; begin Result := ''; Validos := '0123456789'; for I := 1 to Length(Texto) do if Pos(Texto, Validos) > 0 then begin Result := Result + Texto; end; end;

Texto: PORTARIA N° 007/2012-SEFAZ-MT . Consolidada até a Port. 195/12. Dispõe sobre a obrigatoriedade de utilização de unidade de medida padronizada, para fins de emissão de Nota Fiscal, nas hipóteses que especifica, e dá outras providências. CONSIDERANDO a necessidade de se promoverem ajustes na legislação tributária mato-grossense, voltados para assegurar a efetividade na realização da receita pública; CONSIDERANDO ser relevante a padronização das unidades de medidas a serem utilizadas na emissão de documentos fiscais, a fim de se aperfeiçoarem os controles quantitativos e possibilitar a análise estatística pertinente às operações com mercadorias no território mato-grossense; R E S O L V E: Art. 1° Na emissão de documentos fiscais, para a quantificação dos produtos, constantes do Anexo Único desta portaria, os contribuintes mato-grossenses deverão, obrigatoriamente, utilizar a unidade de medida indicada para cada caso. 1.1 Gás liquefeito de petróleo e gás natural liquefeito - quilograma (kg) 1.2 Álcool carburante, gasolina e querosene de avião - litro (l) 1.3 Bebidas classificadas nos códigos... - litro (l) No caso do Gas 13kg é vendido por UN, mas pela portaria pede para sair em KG, definir os campos uTrib e qTrib nos XML consigo fazer as converções necessárias, mas como proceder no DANFE ? Tem como configurar para que esses 2 campos saiam no DANFE ou tem que editar o projeto ACBrNFe ?

Tenho esse mesmo problema desde a versao 1.10 usando o componente ACBrNFe, como nunca tinha visto ninguem reclamar sobre o problema do protocolo errado, achei que era algum problema na minha aplicação, por algum tempo achei que eu estava usando o ACBrNFe1.NotasFiscais.Clear no lugar errado. Depois eu descobri que o objetivo do ACBrNFe1.NotasFiscais.Clear é outro...