[LCDPR - Geração Arquivo layout 1.3]

Ajuste GERAR BLOCOS 40,45,Q100 - Campo: COD_IMOVEL

Ajuste GERAR BLOCOS 50 - Campo: BANCO 

Ajuste GERAR BLOCOS Q100 

 - Campo: COD_CONTA --> Código da conta bancária em que transitou o recurso (do Registro 0050) Caso tenha sido pago em espécie, registrar como "000" e,  caso utilize numerário em trânsito, utilizar o código "999"

 

Segue o arquivos com alterações

 

 

UACBrLCDPR.pas

[Versao LCDPR]

Segue em anexo a unit "LCDPRBlocos.pas" com a alteração na função CodVerToStr para gerar o campo "3 - Código da versão do leiaute " do bloco 0000 com o valor 0013

E alguns facilitadores.

LCDPRBlocos.pas

[NFC-e QrCode 1.00]

Infelizmente voltou o problema, mas acredite esse problema e no próprio sefaz do MT.

[NFC-e QrCode 1.00]

Acabei de receber esta informação de um envio enviado ao sefaz MT

[NFC-e QrCode 1.00]

Recebi informação do proprio sefaz que estão com problema em relação de homologação MT então trabalhando para corrigir esta situação.

5 horas atrás, tailan disse:

Bom dia,

nesse teste usou qual versão do QRCode? envio síncrono ou assíncrono?

nesse teste usou qual versão do QRCode? 100 ou 1.0 como queira

envio síncrono ou assíncrono? Sincrono.

[NFC-e QrCode 1.00]

Bom dia, fizemos um teste em produção simplesmente a nota validou, então acredito que algo no proprio site do sefaz.

[NFC-e QrCode 1.00]

Bom dia

Tailan 

Codigo de hash no qr-code difere do calculado tive esse problema no Mato grosso do Sul mas nesse caso o cliente tinha me passado CSC errado e codigo que identifica CSC tb errado.

Em relação. 813: QR-Code com sequência de escape para o e-comercial envei um e-mail para suporte da sefaz do MT estou aguardando retorno.

 

[NFC-e QrCode 1.00]

Ola Juliomar Marchetti já teste também com versao 2.00 porém não tive exito.

A sugestão e no caso quando utilizar a versão 4.0 da NFC-e e utilizar qrcode 2.00, mesmo que vai ser desabilitado somente no mes 10/2018?

Analisando as informações depois da minha postagem no caso do Mato Grosso

CSC = esta com 32 caracteres 

e no Rio Grande do Sul tem 36 caracteres conforme citado no manual

Ao final da concatenação devera ser adicionado o CSC para cálculo do HASH do QR Code:
 CSC de produção 000001: CODIGO-CSC-CONTRIBUINTE-36-CARACTERES.

 

[NFC-e QrCode 1.00]

Estamos fazendo teste de homologação da NFC-e 4.00 para o estado de Mato Grosso esta retornando a mensagem

Rejeição 813: QR-Code com sequência de escape para o e-comercial.

porem na versão NFC-e 3.10 esta funcionando normalmente. 

Alguém mais esta enfrentando esse problema, ou já teve esse problema e conseguiu resolver.

 

Desde já Agradeço a colaboração.

51180708775117000159650010000002211107370621-nfe.xml

[Download XML da nfe]

Bom dia 

 

Download do xml da NFe de terceiro depois de manisfestado esta dando erro pcnRetDownloadNFe

 

          try

            try

              // XML da NF-e

              StrAux := RetornarConteudoEntre(Leitor.Grupo, '<NFeZip>', '</NFeZip');

              StrDecod := DecodeBase64(StrAux);

              StrStream.WriteString(StrDecod);

              FretNFe.Items.FNFeZip := UnZipMsg(StrStream);

 

              // XML do Protocolo da NF-e

              StrAux := RetornarConteudoEntre(Leitor.Grupo, '<protNFeZip>', '</protNFeZip');

              StrDecod := DecodeBase64(StrAux);

              StrStream.WriteString(StrDecod);

              FretNFe.Items.FProtNFeZip := UnZipMsg(StrStream);

            except

              on e : Exception do

              begin

                Raise Exception.Create(e.message);

              end;

            end;

          finally

            FreeAndNil(StrStream);

          end;

 

 

Comentando estas linhas desse try

 

              // XML do Protocolo da NF-e

//              StrAux := RetornarConteudoEntre(Leitor.Grupo, '<protNFeZip>', '</protNFeZip');

//              StrDecod := DecodeBase64(StrAux);

//              StrStream.WriteString(StrDecod);

//              FretNFe.Items.FProtNFeZip := UnZipMsg(StrStream);

 

funciona perfeitamente o download.

[Mdf-E - Nt 01.2015 - Novo Webservice De Consulta Manifestos Não Encerrados]

Atualize seus fontes e compile

 

 

procedure TfrmDemo_ACBrMDFe.btnMDFeNaoEncerradoClick(Sender: TObject);

begin

   // seus padroes de configuracao.

 

   ACBrMDFe1.Configuracoes.Geral.RetirarAcentos := False;

   ACBrMDFe1.ConsultarMDFeNaoEnc(edtEmitCNPJ.Text);

   MemoResp.Lines.Text   := UTF8Encode(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetWS);

   memoRespWS.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetornoWS);

   LoadXML(MemoResp, WBResposta);

end;