Edilberto de Sousa

boa tarde, tenho uma aplicação que uso a diretiva NOGUI e atualizei os fontes do acbr hoje e deixou de compilar por causa da função PintarQRCode que estava na unit ACBrDFeReport e agora está na unit ACBrImage que a diretiva $IfNDef NOGUI

deu certo informando o usuário. obrigado.

esse é o código: procedure TDFeWinCrypt.CarregarCertificadoDeNumeroSerie; var ACertContext: PCCERT_CONTEXT; begin ACertContext := Nil; OpenSystemStore; ACertContext := CertEnumCertificatesInStore(FpStore, ACertContext^); while (ACertContext <> nil) and (FpCertContext = nil) do begin if (GetSerialNumber(ACertContext) = FpDFeSSL.NumeroSerie) then FpCertContext := ACertContext else ACertContext := CertEnumCertificatesInStore(FpStore, ACertContext^); // Pega o próximo end; if (FpCertContext = Nil) then raise EACBrDFeException.Create('Certificado Série: "'+FpDFeSSL.NumeroSerie+'", não encontrado!'); end; ficaria como ?

não entendi o coinitialization

Estou com uma situação que o status da nfe não funciona numa aplicação que é um serviço do windows, mas funciona como uma aplicação normal. verifiquei que a variável ACertContext da TDFeWinCrypt.CarregarCertificadoDeNumeroSerie está nil, mas não sei porque para facilitar anexei os dois projetos que usei como teste. na pasta do projeto tem o arquivo AcbrConfiguracoes.ini onde tem as configurações do acbr que estou utilizando. esse arquivo deve ser copiado para a pasta do executável. na pasta do executável é gerado um arquivo de log (log.txt) teste acbr projetos.zipnão vou anexar as dll e nem os Schemas para não exceder o limite do arquivo. retorna o erro : WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Certificado Série: "7E5021021965AABC", não encontrado! estou usando o delphi Seattle, SSLLib libWinCrypt

o ceará disponibilizou as urls do web services da nfc-e da para versão 4.0. gostaria de adicionassem também no projeto. http://nfce.sefaz.ce.gov.br/pages/informacoes/web_services.jsf

a propriedade IntegradorResposta da classe TRespostaPagamento e das outras classe mencionadas.

Depois da criação da classe "TACBrIntegrador" a propriedade "IntegradorResposta" das repostas: TRespostaPagamento, TRespostaVerificarStatusValidador e TRetornoRespostaFiscal deixaram de ser preenchidas. vi que a "ComandoIntegrador" está sendo preenchida. dá para preencher também nas respostar ou retorno? fiz a seguinte alteração em cada método da classe TACBrIntegrador: EnviarPagamento, VerificarStatusValidador, RespostaFiscal adicionei a seguinte linha no final: Result.IntegradorResposta.LerResposta(FComandoIntegrador.Resposta); Peço desculpas pela duplicação do tópico, porque não prestei atenção que já tinha salvado o primeiro.

Depois da criação da classe "TACBrIntegrador" a propriedade "IntegradorResposta" das repostas: TRespostaPagamento, TRespostaVerificarStatusValidador e TRetornoRespostaFiscal deixaram de ser preenchidas. vi que a "ComandoIntegrador" está sendo preenchida. dá para preencher também nas respostar ou retorno?

Ok André. Mas prefiro preencher com espaços de acordo com a documentação. Terei essas unit alteradas no meu projeto. Mas obrigado pela sua atenção. Então fica a critério de vocês implementar ou não minha sugestão de código.

André só tenho como testar no MFE. Mas esse preenchimento dos espaços está na documentação do SAT. Fiz o teste também preenchendo com zero e funcionou. Mas na documentação não fala em preencher com zeros. será que não pode dar problema fiscalmente ou no sped?

Juliomar encontrei um problema no meu código. o Gerador.wCampo com o tipo "tcStr" faz um "trim" no valor. por isso código não está fazendo o resultado desejado. então fiz outras alterações: na unit "pcnConversao.pas" adicionei o tipo "tcStrEsp" no "TpcnTipoCampo". na unit "pcnGerador.pas" no método wCampo adicionei o código: tcStrEsp: begin ConteudoProcessado := VarToStrDef(valor,''); EstaVazio := ConteudoProcessado = ''; end; na unit "pcnCFeW.pas" modifiquei meu código Gerador.wCampo(tcStr, 'C12', 'IE ', 2, 14, 1, SomenteNumeros(CFe.Emit.IE).PadLeft(12,' '), DSC_IE); para Gerador.wCampo(tcStrEsp, 'C12', 'IE ', 2, 14, 1, SomenteNumeros(CFe.Emit.IE).PadLeft(IIf(CFe.infCFe.versao<=0.07,12,14),' '), DSC_IE, false); Obrigado Juliomar por adicionar o código. tem previsão de quando será comitado?

Esse erro "Erro de validacao do conteudo([1999]Rejeição: Erro não identificado)(Campo: IE_emit)" está acontecendo ao EnviarDadosVenda no modelo TM-1000 da Tanca. verifique que a inscrição estadual que tem menos que 12 caracteres e na documentação do SAT diz que quando a IE estiver menos que 12 caracteres deve ser preenchida com espaço em branco. Lembrando que na Elgin não precisa dos espaços em branco. mas com os espaços em branco funciona nas duas marcas. Então gostaria de compartilhar a solução. fiz um alteração para preencher com espaço em branco a IE quando não atingir os 12 caracteres na unit "pcnCFeW.pas" e deu certo. código antigo: Gerador.wCampo(tcStr, 'C12', 'IE ', 2, 14, 1, SomenteNumeros(CFe.Emit.IE), DSC_IE); novo código: Gerador.wCampo(tcStr, 'C12', 'IE ', 2, 14, 1, SomenteNumeros(CFe.Emit.IE).PadLeft(12,' '), DSC_IE); Gostaria de pedir aos moderados se possível essa implementação. Gostaria também se possível implementar essa alterações de log: TACBrSATMFe_integrador_XML.EnviarDadosVenda . . . FMetodo.FinalizarMetodo; TACBrSAT(Owner).DoLog('EnviarDadosVenda( '+FGerador.ArquivoFormatoXML+' )'); // novo codigo Resp := FComandoMFE.EnviaComando(numeroSessao,'EnviarDadosVenda',FGerador.ArquivoFormatoXML); TACBrSATMFe_integrador_XML.CancelarUltimaVenda . . . FMetodo.FinalizarMetodo; TACBrSAT(Owner).DoLog('CancelarUltimaVenda( '+FGerador.ArquivoFormatoXML+' )'); // novo codigo Resp := FComandoMFE.EnviaComando(numeroSessao,'CancelarUltimaVenda',FGerador.ArquivoFormatoXML);

Nas classes de repostas do componente "VFP-e" do integrador não lendo a tag "Erro">. Por exemplo quando informo um carácter na propriedade "Estabelecimento" do pagamento do método enviar pagamento. segue abaixo o texto do xml: <?xml version="1.0" encoding="utf-8"?> <Integrador> <Identificador> <Valor>11</Valor> </Identificador> <Erro> <Codigo>EE</Codigo> <Valor>Erro no parametro: Estabelecimento, Detalhes: Erro ao converter 10a para int</Valor> </Erro> </Integrador> Senhores administrador não seria interessante implementar mais uma propriedade com dessa tag?

Juliomar não vejo outra saída senão criar outro código(4a) para o tipo "tiNFCeA4" e criar outra função(TpImpToStrID) que retorne o '4' para os tipos tiNFCe e tiNFCeA4 para ser usada na escrita do xml.