Waldir Paim

Concordo com o @BigWings mesmo campo no meu entendimento. Fiz a alteração removendo o campo CodigoReceita ACBrCargaBal.pas

Consultando o manual.

GTIN-14 não pode iniciar com 0;

Use a função ValidarPrefixoGTIN em vez de ValidarGTIN

GTIN-14 não pode iniciar com 0; Remova o zero que o código não será validado. fonte: http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=mpYVEbsVRuE=

Segue minha sugestão para alteração proposta. ACBrCargaBal.pas

Não funciona assim, você não pode enviar apenas quando ele voltar a funcionar; Esse ambiente pode voltar hoje amanha ou ate ano que vem. o Sefaz abre essa janela para esse momento apenas e volta ativar novamente somente quando for necessário para o momento apropriado.

Se suas notas não foram autorizadas pelo SEFAZ-RS então você deve gerar elas em modo 1 "Normal" e enviar para o SEFAZ-MT. Não tem como o SEFAZ-RS enviar algo que ele nem recebeu. Alem do mais todos os ambientes SVC estão desativados nesse momento: Fonte: https://www.sefaz.rs.gov.br/NFE/NFE-SVC.aspx?ambiente=Producao Eu acredito que esse procedimento não deve funcionar, pois uma nota em contingencia tem a chave diferente de uma nota em ambiente normal; Alem disso ao enviar o seu XML você vai estar enviando ao SEFAZ-RS em vez de enviar para o SEFAZ-MT. O certo mesmo nesse caso seria gerar uma nota com o ambiente normal e ai sim enviar ao SEFAZ-MT. As notas que estão com seus clientes estão e continuaram sem validade jurídica.

Para complementar: Fonte1: http://www.sped.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=46 Fonte2: http://www.nfe.go.gov.br/post/ver/152769/ocorrencia-de-problemas-tecnicos

Tem sim! No XML de contingência apenas muda a chave de acesso e o servidor para onde e enviado o arquivo. O Resto e tudo igual a um XML enviado para o ambiente 1 "Normal"; Como te falei se seu XML esta autorizado você pode ficar tranquilo.

Você não deve se preocupar com isso! Quem tem que enviar para o SEFAZ-MT e para o Ambiente Nacional e o SEFAZ-RS que recebeu e autorizou a sua nota. Nesse caso e briga de cachorro grande e você apenas precisa guardar os seus xml autorizados e esperar que o processo ocorra em seu tempo.

Para conseguir te ajudar eu preciso que você insira aqui uma imagem da etiqueta ou o código de barras gerado nela. Preciso saber se esta sendo gerado com 4, 5 ou 6 dígitos; Vou anexar aqui uma configuração no MGV que utilizo;

@plenustech Com ACBr da forma que esta hoje você não consegue compilar nativamente para dispositivos mobile, já se consegue para Firemonkey Win32 e 64; Ha um esforço gigante da equipe em melhorar o código, inclusive com grandes refactores em vários componentes no intuito de tornar-lo mais abrangente inclusive para outras linguagens de programação. Mas nesse seu caso em especifico eu recomendo você indicar a seu cliente o uso de um notebook com sistema win32; Agora se realmente a ideia é usar apenas o mobile é bem provável que se consiga com algum investimento construir essa aplicação.

Você usa Delphi 7? Abre o form do DANFe pelo seu delphi (clique em ignore all) e salva novamente, ele deve ignorar essas propriedades que so existem nos delphis mais novos.

Tem um tempo que foi implementado o papel continuo no Fortes CE. Quem tem essa limitação e o tamanho do papel .

Você precisa criar um papel com tamanho personalizado para essa impressora usar. Tirei esse texto da internet.

Veja se te serve: declare a unit sntpsend.pas; uses um dos servidores abaixo para obter as respostas: pool.ntp.org time.windows.com function TrySNTPDateTime(out ADate: TDateTime; const AServer: string; const ATimeOut: Integer = 2000): Boolean; var V: TSNTPSend; begin V := TSNTPSend.Create; try try V.Timeout := ATimeOut; V.TargetHost := AServer; with V.Sock do begin SetTimeout(ATimeOut); ConnectionTimeout := ATimeOut; InterPacketTimeout := False; NonblockSendTimeout := ATimeOut; SocksTimeout := ATimeOut; end; Result := V.GetSNTP; if Result then ADate := TTimeZone.local.ToLocalTime(V.NTPTime); except on E: Exception do begin ADate := 0; Result := False; end; end; finally V.Free; end; end;

Pelo que entendi as suas alterações mesmo que muito confuso faz um pouco de sentido. Vamos tomar por base esse exemplo onde você aplicou os comentários; No meu entendimento se o tamanho estiver certo 9 dígitos ele aplica e faz a validação caso contrario passa direto e não avisa que esta fora do tamanho esperado; O que poderia ser feito nesse caso e gerar uma exceção avisando que o tamanho esta fora do esperado.

Ok, vou pedir para o pessoal avaliar essa alteração proposta;

Arquivo ACBrBoleto.pas com tratamento para evitar erro de conversão; ACBrBoleto.pas

Seu arquivo de retorno tem um erro: Na no header ele esta com o código do banco errado, em vez de 748 ele tem 744; Teste com o arquivo em anexo; Havia um erro na função de conversão de enumerador para string; Eu acho que vão te solicitar o manual desse banco, se tiver ja anexa pra amanha o pessoal fazer a analise e aprovar ou não essas alterações. ACBrBancoSicredi.pas

Não deveria ser? with ACBrBoleto1.ListadeBoletos.Objects[I] do Você não esta considerando o "I" com isso seu código não assume o cursor do loop e fica parado no mesmo lugar; Tem ias erros no seu código em seguida posto mais;

@jburda Estive analisando o código de leitura de retorno da unit ACBrBancoSicredi.pas; Pelo que pude ver o código esta certo e o retorno 09 e capturado e retornado corretamente. Observe que nas linhas citadas o código esta coerente e obtendo o valor das colunas corretas. Observe que o tratamento também e feito para que o retorno ocorra no enumerado citado por ti; No meu ponto de vista você precisa revisar seu código e ver se descobre o que ocorre nele; Vou aproveitar e sugerir uma pequena melhoria nas linhas de captura do código; Nas linhas acima gostaria de trocar por: CodOcorrencia := StrToIntDef(copy(Linha,109,2),0); OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(CodOcorrencia); Observe que agora ocorre apenas um Copy e não dois como no código original; Alem de não usar o IfThen para testar se torna 00 que nesse caso o tratamento de StrToIntDef( String, 0 ); ja faz; ACBrBancoSicredi.pas

Não entendo muito bem do Lazarus, não sei se mesmo o de 64 gera aplicativos de 32 bits. A dll e de 32 e se você estiver rodando o exemplo em 64 bits não vai funcionar também.

Tem mais uma coisa ainda; Qual sua versão do Lazarus? 32 ou 64 bits?