mgreich
-
Total de ítens
7 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por mgreich
-
-
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...
Erro MT - XML Mal Formado (No space left on device)
em ACBrNFe
Postado
Muito obrigado, deu certo em Contigencia SVC-RS... Já tinha tentado contigencia antes e estava desabilitado...