INSTALACAO UNINFE 2.0 CUIDAR DIRETORIO

Link com Prazos de empresas de cada setor NFE -

Link com prazos de empresas de cada setor

http://www.nfe.fazenda.gov.br/portal/assuntoagrupado1.aspx

nfe pegar de volta -proc-rec.xml nfe

leva automatico numero nfe Pagina sefaz - \Matos 17 08 09 08:26

Sefaz sofrera interrupcoes 09 08 2009 - Matos Informatica - 04 08 2009

Site sefaz
Site com a noticia sefaz

Cancelamento Nfe - Inutilizar Nfe - Situacao Nfe - exemplos clarion - Matos Informatica - 01 08 09 07:04

Template vlink - a3 - 18 0709 15:26

Configuracao Email no Danfe - unimake - 14 07 09 20:05

Nfe - Criando diretorios - 03 07 09 09:45

Nfe - Arquivos de Envio - 24 05 09 20:44

Nfe - Arquivos de Retorno - 24 05 09 20:42

Diretorios Obrigatorios para nfe - 24 05 09 20:37

Codigos Uf Nfe - Ibge - Matos/amarildo 17 05 09 21:49

Nfe - Padroes Nomeclatura Nfe - Matos/Amarildo 17/05/2009 13:06

Codigos Solicitacao Servicos Nfe Sefa-rs - Matos Amarildo - 16 05 09

http://www.sefaz.ma.gov.br/nfe/codigos_de_mensagens_de_autorizacao_nfe.htm

Nfe - Verifica Status do Servico Sefaz- 15 05 09 - 07:00 as 09:30

Nfe - Gera Xml, UNINFE manda e retorna- 14 05 09 04:59

Nfe - Gerar Id

Nfe - Gerar Id

//MontaChaveAcesso
// (codigo alterado em 19/11/08 para compor a chave no formato da versão 1.10 do laioute)
//-------------------
//Parametros:
//codUF - codigo da Unidade e Federação do Município de acordo tabela IBGE.
//dtEmissaso - data de emissão da nota fiscal
//CNPJ - codigo CNPJ do emitente
//Modelo - Modelo da Nota Fiscal NF-e (55)
//Serie - codigo de serie da NFe
//NumeroNF - Número da Nota Fiscal
//Result = Chave de acesso
//
Function MontaChaveAcessoNFe_v110( codUF: integer; dtEmissao: TDateTime; CNPJ:string;
Modelo, Serie, NumeroNF): string;
var emissao:string[10];
chave:string;
CodigoNumerico: Integer;
begin
emissao := formatdatetime('DD/MM/YY', dtEmissao);

// Essa parte do código gera o Código Numérico (Aleatório)
//para que funcione inclua a unit "Math" na cláusule Uses.
Randomize;
CodigoNumerico := Random(99999999);

chave := IntToStr(codUF)+copy( emissao, 7,2)+copy(emissao,4,2)+
LimpaCNPJ(CNPJ)+StrZero(Modelo,2,0)+StrZero(Serie,3,0)+
StrZero(NumeroNF,9,0)+StrZero(CodigoNumerico,9,0);

Result := chave + Modulo11(chave);

end;

// LimpaCNPJ (retira máscaras do CNPJ)
//------------------------------------
Function LimpaCNPJ( cnpj: string): string;
begin
Result := StringReplace(StringReplace(StringReplace( cnpj,
'.','',[rfReplaceAll]),
'-','',[rfReplaceAll]),
'/','',[rfReplaceAll]);
end;

// StrZero (Preenche com zeros à esquerda)
// ------------------------------------------------------
Function StrZero(Num : Real; Zeros, Deci: Integer): string;
var tam,z : integer;
res,zer : string;
begin
str(Num:Zeros:Deci, res);
res := Alltrim(res);
tam := length(res);
zer := '';
for z := 1 to (Zeros-tam) do
zer := zer + '0';
result := zer+res
end;