amnchaves

Caros colegas. Estou tentando efetuar a consulta de uma NFSe de PVH através de uma RPS, mas o componente esta apresentando a seguinte mensagem: Alguém sabe me dizer se existe alguma forma de consultar a RPS na prefeita de PVH? OpenDialog1.Title := 'Selecione o Rps'; OpenDialog1.DefaultExt := '*-Rps.xml'; OpenDialog1.Filter := 'Arquivos Rps (*-Rps.xml)|*-Rps.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)); Memo1.Lines.Text := ACBrNFSe1.WebServices.ConsNfseRps.RetWS; end; Obrigado a todos Antonio Marcos

Caros colegas, estou realizando o processo d homologação para a emissão da NFSe de Curitiba, mas estou recebendo o erro de TimeOut. Elevei o timeout para 120000 e mesmo assim continua dando, conforme vocês pode ver na imagem abaixo. Se alguém ja passou por isso e poder dar uma ajuda, eu agradeço.

Caros colegas. Não estou conseguindo definir a CONDIÇÃO DE PAGAMENTO do servidor BETHA. Por exemplo: CondicaoPagamento.Condicao := cpAPrazo;; No XML é gerado sempre A_VISTA. Alguém ja passou por isso e pode me dar uma ajuda?

Caros colegas, estamos implantando o nosso sistema em cliente de SC, e o mesmo utiliza o banco UnicredSC, ao fazer a homologação junto a instituição, foi nos passado que o referido banco não usa mais o padrão 237 (BRADESCO), usam o código 136. Alguém tem alguma sugestão para esse banco?

@Felipe Gewehrmuito obrigado pela ajuda. Deu certo aqui, o que não esta acontecendo agora é que o arquivo referente a nota não esta sendo salvo na pasta, somente o da RPS ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := True; ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := True; ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True; ACBrNFSe1.Configuracoes.Arquivos.PathCan := DMConsultas.lSQL_GETDFeSeries.DataSet.FieldByName('path_arquivos').Text; ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := DMConsultas.lSQL_GETDFeSeries.DataSet.FieldByName('path_arquivos').Text; ACBrNFSe1.Configuracoes.Arquivos.PathGer := DMConsultas.lSQL_GETDFeSeries.DataSet.FieldByName('path_arquivos').Text; ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; ACBrNFSe1.Configuracoes.Arquivos.PathSchemas := DMConsultas.lSQL_GETDFeSeries.DataSet.FieldByName('path_arquivos').Text+'\Config\Schemas\'; ACBrNFSe1.Configuracoes.Arquivos.PathSalvar := DMConsultas.lSQL_GETDFeSeries.DataSet.FieldByName('path_arquivos').Text; Esse é o trecho do código que atribuo as opções para salvar o arquivo. E o cliente me pediu para que o layout fosse igual o que ele emite pelo site.

O problema acima foi resolvido, e agora esta aparecendo essa mensagem @Juliomar Marchetti pode me dar uma ajuda com esse provedor?

Galera boa tarde, estou implementando o servidor IPM e estou enfrentando alguns problemas with Servico.ItemServico.Add do begin Descricao := EDescritivo.Text; Quantidade := 1; ValorUnitario := A_Menu.Arredonda(EValor.Value,2); Aliquota := EAliquotaISS.Value; ValorServicos := Quantidade * ValorUnitario; ItemListaServico := '1402'; codLCServ := '8045'; StrToSituacaoTributaria(ok, '0', proIPM); ///////////////////////////////////// end; Trecho do meu código, se alguém poder da uma dica eu agradeço

Juliomar, achei onde estava o problema com base em um outro post que você respondeu Obrigado

Olha o trecho do meu código

Juliomar bom dia. Obrigado por responder ao meu tópico, mas quanto tento emitir em homologação estou recebendo o seguinte retorno:

Boa noite a todos. Algum dos colegas aqui ja emitiram NFSe com o provedor IPM? Preciso emitir para a prefeitura de Biguacu-SC. Agradeço qualquer ajuda. Marcos

Olá Ítalo bom dia, a prefeitura de Rio branco-AC trocou de provedor, saiu da Abaco e foi para o Webiss.

Olá bom dia, o município de Rio Branco/AC mudou de provedor, saiu da ÁBACO e foi para o WebIss. No arquivo de cidade.ini continua como Abaco Alguém está conseguindo emitir NFSe usando o ACBrNFSe?

Galera bom dia. Após a atualização do ACBr, estou recebendo o seguinte erro durante a instalação: Alguém pode me dar uma ajuda pra resolver esse problema?

BigWings, obrigado por responder a este tópico, ja tenho todo o material necessário (layouts, tudo)...

caros colegas, um cliente me pediu um para gerar Boleto para o banco 097 - CapitalCred, alguém sabe me dizer como posso fazer para gerar o boleto desse banco com o ACBrBoleto? Agradeço a atenção

Caros colegas, gostaria de saber qual empresa atualmente faz as homologações TEF, Discado e Dedicado, a muito tempo atrás era a SevenPDV e a SofwareExpress. Agradeço pela ajuda. Atenciosamente Antonio Marcos

Caros colegas, ao gerar o arquivo remessa de carteira registrada do banco ITAU, estou recebendo o seguinte retorno no site do itaú: Motivo de Rejeição 19 - CODIGO DA OCORRENCIA/MOVIMENTO O código que estou usando é esse: with Titulo do begin LocalPagamento := SQL_Cedentelocal_pagto.Text; Vencimento := SQL_ImpBoletodata_vecto.AsDateTime; DataDocumento := Date; NumeroDocumento := SQL_ImpBoletoid.Text; NossoNumero := SQL_ImpBoletonnumero.Text; EspecieDoc := SQL_Cedenteaceite.Text; OcorrenciaOriginal.Tipo := toRemessaRegistrar; if SQL_Cedenteaceite.AsInteger = 0 then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; Carteira := SQL_Cedentecarteira.Text; ValorDocumento := SQL_ImpBoletovalor_doc.AsFloat; Sacado.NomeSacado := SQL_ImpBoletocli_razao.Text + ' ( '+SQL_ImpBoletocli_fantasia.Text+' )'; Sacado.CNPJCPF := OnlyNumber(RemoveChar(SQL_ImpBoletocpf_cnpj.AsString)); if Length(RemoveChar(SQL_ImpBoletocpf_cnpj.AsString)) = 11 then begin Sacado.Pessoa := pFisica; end else begin Sacado.Pessoa := pJuridica; end; Sacado.Logradouro := SQL_ImpBoletoend_endereco.Text; Sacado.Numero := SQL_ImpBoletoend_numero.Text; Sacado.Bairro := SQL_ImpBoletoend_bairro.Text; Sacado.Cidade := SQL_ImpBoletomunicipio.Text; Sacado.UF := SQL_ImpBoletouf.Text; Sacado.CEP := OnlyNumber(RemoveChar(SQL_ImpBoletoend_cep.AsString)); //ValorAbatimento := 0; //ValorMoraJuros := 0; //ValorDesconto := 0; //ValorAbatimento := 0; //PercentualMulta := 0; //Abatimento Fidelidade if (SQL_ImpBoletovlr_desconto_fidelidade.AsFloat > 0) And (SQL_ImpBoletoconceder_desconto.AsInteger = 0) then begin ValorAbatimento := SQL_ImpBoletovlr_desconto_fidelidade.AsFloat; end; //Juros ao Dia if (SQL_ImpBoletojurosdia.AsFloat > 0) then begin ValorMoraJuros := SQL_ImpBoletojurosdia.AsFloat; DataMoraJuros := SQL_ImpBoletodata_vecto.AsDateTime; end; //Multa if SQL_ImpBoletoparam_multa.AsFloat > 0 then begin PercentualMulta := SQL_ImpBoletoparam_multa.AsFloat; end; Mensagem.Text := Mensagem.Text + SQL_ImpBoletohistorico.Text + ' / ' + SQL_ImpBoletomesano.Text; end; Agradeço pela atenção dedicada

BigWings, na verdade só ta funcionando o ambiente de produção, segundo eles, o ambiente de homologação está fora devidos a problemas no servidor deles. Testei com no ambiente de produção com o meu CNPJ e da o mesmo erro.

Caros colegas, após a mudança para o Trunk2, não consigo mais fazer nenhuma NFS-e para o provedor PVH. Ao tentar emitir uma nota usando o próprio Demo do ACBr, recebo a seguinte mensagem: Erro Interno: 12029 Erro HTTP: 0 Erro: Requisição não enviada. 12029 - Uma conexão com o servidor não pode ser estabelecida. Entrei com em contato com a prefeitura de PVH e enviei pra eles os xml's gerados e segundo eles, está certinho. Agradeço por qualquer ajuda

Caros colegas, estou tentando obter o protocolo de retorno do provedor PVH, mas não estou conseguindo, esta retornando em branco. A sequência que estou usando é a seguinte: Para enviar: ACBrNFSe1.EnviarSincrono(vNumLote); Depois que enviei, tento pegar o protocolo da seguinte forma: ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; Tentei dessa outra forma, mas sem sucesso. ACBrNFSe1.WebServices.ConsNFSe.Protocolo; Ja olhei no XML e o protocolo está preenchido: <Protocolo>27C1B3137B5A4418A3AC6C8A555A9B41</Protocolo> Agradeço pela atenção Marcos

Caros colegas, ao criar uma uma NFC-e em ambiente de homologação para o Acre, a mesma é gerada normalmente, más ao consultar pelo QRCode, estou recebendo a seguinte mensagem: 102 - QR Code Inválido Informo que estou alimentando as seguintes propriedades: ACBrNFe1.Configuracoes.Geral.CSC := A_Menu.LeRegistro('NFCe','Token'); ACBrNFe1.Configuracoes.Geral.IdCSC := A_Menu.LeRegistro('NFCe','ID_Token'); Estou informando com o CSC do cliente e o idCSC informados pela própria receita do estado. Alguém ja passou por isso? Agradeço pela a atenção Marcos

Caros colegas, atualizei o ACBr para os novos fontes do Truck2, mas segundo vi alguns posts, que a NFSe ainda tão estava finalizada. Alguém pode confirmar essa informação por favor? Outra dúvida seria como obter o arquivo INI de cada provedor, no meu caso o de PVH. Agradeço a atenção dedicada Marcos

Quando tento programar esse evento ela da o seguinte erro: Property and method ACBrTEFD1CliSiTefObtemCampo are not compatible Agradeço a atenção dos colegas Marcos

Caros colegas, ao tentar usar o TEFD com o gerenciador clisitef, ao o mesmo se encontra instalado em minha maquina, recebo a seguinte mensagem do programa de exemplo TEFDemo. Gostaria da ajuda colegas, para tentar resolver isso. Temos que implementar o TED Dedicado sitef em nosso sistema. Inicializando: gpCliSiTef Evento "OnObtemCampo" não programado Agradeço a atenção Marcos