Ir para conteúdo
  • Cadastre-se

mgreich

Membros
  • Total de ítens

    7
  • Registro em

  • Última visita

Posts postados por mgreich

  1. 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. ..

    Novo prazo.jpg

  2. // 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;

  3. 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 ?

  4. 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...

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.