Luiz Carlos de Lima

Victor, desculpe mas não consegui fazer o teste no index, pode me ajudar.

Boa tarde, Estava com problema no ACBrCEP1.BuscarPorCEP, atualizei o ACBr e comecei a ter alguns problemas que foram corrigidos, mas este ainda não consegui solucionar: Utilizo o ConsultaCadastro.Executar para buscar a IE, agora começou a dar Argument of ranger. Tentei outros campos para testar mas todos estão com este erro. wInscEstado := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE; wNome := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xNome; wLogr := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xLgr;

Bom dia, Grato pela ajuda, fechando chamado.

ACBrBPe.Configuracoes.WebServices.Ambiente := ACBrBPe.Bilhetes.Items[0].BPe.Ide.tpAmb; Incompatible types: 'TpcnTipoAmbiente' and 'TACBrTipoAmbiente'

Boa tarde, Após atualizar o ACBr estou tendo problemas com o BPe Por Exemplo pcnConversaoBPe ficou ACBrBPeConversao. Mas as chamadas abaixo não consegui descobrir como ficou, podem ajudar? ACBrBPe.Bilhetes.Items[0].BPe.Ide.tpAmb ACBrBPe.WebServices.Enviar.BPeRetorno.ProtBPe.Items[0].chBPe ACBrBPe.WebServices.Consulta.protBPe.chBPe ACBrBPe.WebServices.EnvEvento.EventoRetorno.retEvento[0].RetInfEvento.XML

Grato Italo, resolvido.

Boa tarde, Atualizei o ACBr e esta dando o erro "... unit pcnConversaoCIOT not found". Já baixei tudo novamente e reinstalei até apagando os antigos mas não resolveu.

Testando outro certificado não retornou erro, então deve ter algum problema, com este. Vou ter que verificar o que pode ser.

Desculpe, na verdade não funcionou, agora retorna: message 'PFXDataToCertContextWinApi: DadosPFX informado não são válidos'. Process Material.exe (53632).

Resolvido, Grato pela ajuda.

Olá Rubinho, Sim, uso A1. As configuraçoes abaixo utilizo hoje na emissão de CTe, MDFe, BPe, NFe, sem problema, e agora estou implementando a NFSe. SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXml2; SSL.SSLType := LT_SSLv2 Configuracoes.WebServices.TimeOut := 20000; certificadoStream := TStringStream.Create; TBlobField(FieldByName('Certificado_Certificado_Nucleo')).SaveToStream(certificadoStream); ACBrNFSeX1.Configuracoes.Certificados.ArquivoPFX := certificadoStream.DataString; ACBrNFSeX1.Configuracoes.Certificados.Senha := FieldByName('Senha_Certificado_Nucleo').AsString; ACBrNFSeX1.Configuracoes.Certificados.NumeroSerie := FieldByName('Serie_Certificado_Nucleo').AsString; Tentei com libOpenSSL mas também não deu certo, nos dois casos se não informar a serie retorna sujeira: First chance exception at $77069542. Exception class EACBrDFeException with message 'Arquivo: 0€0€*†H†÷ €$€‚è0€0€*†H†÷ €$€‚è0‚l0‚h *†H†÷ ‚û0‚÷0)*†H†÷ 0“ÛOsĶu×Äú¾TÞ „¿RL‡ não encontrado'.

Boa tarde, Ao executar ACBrNFSeX1.Emitir(vNumLote, meUnitario) retorna a mensagem: EACBrDFeException with message 'Certificado Série: "11DE2401234845BE", não encontrado! Este certificado está sendo usado pelo meu contador, mas ao usar na NFSe diz que não encontra, alguém pode dar uma ajuda. Obs. Usando o processo "Alimentar_Componente_layout_ABRASF" Grato.

Grato Juliomar, não sei porque o CodigoMunicipio estava comentado e não tinha visto. // CodigoMunicipio := StrToIntDef(edtCodCidade.Text, -1); Caso resolvido.

Boa tarde, Estou implementando a NFSe e esta retornando esta mensagem ('Nenhum provedor selecionado'), não estou conseguindo descobrir onde passar o provedor. O componente carrega automático ou preciso informar? Como faço isso. Grato.

Fechou, grato a todos.

Boa tarde Ítalo, Eu não tenho o XML, e o problema não é no XML, é o tamanho da janela da mensagem(foto acima) que nao cabe a Chave e o protocolo, por isso trunca. Montei uma consulta pela dica do Diego, para o cliente pesquisar. Obrigado.

Olá diego, A chave vem truncada no arquivo XML também? > Não, mas o cliente não quer ter trabalho. Seria mais simples se a chave mostrasse completa. Mas vou dar uma olhada nesta consulta, se ela mostrar a placa vai ajudar bastante. Grato.

Bom dia, Quando vai enviar uma MDFe e existe outra com a mesma placa que ainda não foi fechada, retorna mensagem que existe MDFe não encerrada com esta placa, mostra a chave que vem truncada e não tem como identificar qual é esta MDfe. Tem como resolver isto?

Boa tarde Ítalo, deu certo. Grato pela força

Sempre que vou enviar uma NFe com ST 60, e os campos vBCSTRet, pST, vICMSSTRet e vICMSSubstituto estão zerados as tags não são geradas, retorna erro que não foram informadas, então utilizo a emissão pelo fisco e ela é processada, mesmo com os campos zerados. ICMS.modBC := dbiValorOperacao; ICMS.vBCSTRet := produto.vBaseSubTrib; ICMS.pST := produto.pICMSST; ICMS.vICMSSTRet := 0; ICMS.vICMSSubstituto := produto.vICMSSub; Pelo ACBR <imposto> <ICMS> <ICMS60> <orig>2</orig> <CST>60</CST> </ICMS60> </ICMS> Pelo Fisco <imposto> <ICMS> <ICMS60> <orig>2</orig> <CST>60</CST> <vBCSTRet>0.00</vBCSTRet> <pST>0.00</pST> <vICMSSubstituto>0.00</vICMSSubstituto> <vICMSSTRet>0.00</vICMSSTRet> </ICMS60> </ICMS>

Perfeito, ficou ótimo. Grato.

Boa Tarde, 1 ACBrConsultaCNPJ1.Provedor := cwsReceitaWS; 2 ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png'; 3 Stream.SaveToFile( ImgArq ); 4 Image1.Picture.LoadFromFile( ImgArq ); Erro na linha 4 First chance exception at $75FC9392. Exception class EPNGInvalidFileHeader with message 'The file being read is not a valid "Portable Network Graphics" image because it contains an invalid header. This file may be corrupted, try obtaining it again'. Process Receber.exe (18496)

Grato pelas dicas. Por enquanto vai dar para dar seguimento.

Boa tarde, Estou começando a montagem da NFSe, estou com dúvidas sobre vários campos, o que significam, quem fornece, etc.. tem alguma documentação para isso? Ex: FraseSecWeb, ChaveAutorizWeb, ChaveAcessoWeb, etc.. Também gostaria de saber se tem um componente especifico para NFSe padrão nacional ou estão todos no CBrNFSeX Muito obrigado pela atenção.

Bom dia, Consegui ontem apos atualizar o ACBrCTeWebServices.