foleyjf

Não achei esta rotina, onde ele esta??? Depois de um tempo achei sim .... obrigado

Não achei esta rotina, onde ele esta???

Mas não está... no suporte ( prefeitura juiz de fora ) eles alegam que tem um problema na certificação serasa e me questionaram se teria como usar o webservice sem o certificado. O suporte mesmo na verdade é BH.

Está com problema desde sábado dia 20/06/2015 o envio de rps via webservice, no suporte me questionou se existe a possibilidade de envio sem uso da certificação., acredito que sim e como seria ???

Você chegou a fazer para o QuickReport ??? Esta que você fez serviria para o QuickReport ???

Como eu faço esta referência ???

Já resolveu, se não podemos negociar.

Sim, tem valores um exemplo 10400000 2029708220001201641870000004693 01641108700000046953HIGIPRATIC COM E PREST SERVICOCAIXA ECONOMICA FEDERAL 22003201500533200127803000000 000 10400011T0100020 20029708220001201641870000004693 01641108700000046953HIGIPRATIC COM E PREST SERVICO 000012782003201500000000 1040001300001T 0601641108700000046953 870000948171 200320150000000000447862370218068000000000094813 0900000000000000008000000000094813 0000000000002950401010000 1040001300002U 06000000000000000000000000000000000000000000000000000000000000000000000044786000000000044491000000000000000000000000000000200320152303201523032015 10400015 00000400000300000000000139459 0000000000000000000000000000000000000000000000 10499999 000001000006

Já implementei a impressão do boleto e está correto o retorno estou fazendo só que o nosso numero vem zerado. A minha configuração de Banco e Cedente por enquanto esta toda no componente. Para importar o retorno estou usando o seguinte código : var i : integer; Begin if OpenDialog1.Execute then Begin ACBrBoleto1.LeCedenteRetorno := true ; ACBrBoleto1.DirArqRetorno:= 'C:\CAIXA\CobCAIXA\Retorno\'; ACBrBoleto1.NomeArqRetorno:= extractfilename(opendialog1.filename); ACBrBoleto1.LerRetorno; for i := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do begin DmDados.TbRetorno.Insert; Dmdados.TbRetorno.FieldByName('NossoNumero').Value := StrToInt(ACBrBoleto1.ListadeBoletos.Objects.NossoNumero); Dmdados.TbRetorno.FieldByName('DTO').Value := FormatDateTime('dd/mm/yyyy', ACBrBoleto1.ListadeBoletos.Objects.DataOcorrencia ); Dmdados.TbRetorno.FieldByName('VrPG').Value := ACBrBoleto1.ListadeBoletos.Objects.ValorDespesaCobranca; Dmdados.TbRetorno.FieldByName('VrTxC').Value := ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento; Dmdados.TbRetorno.FieldByName('VrCr').Value := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido; Dmdados.TbRetorno.FieldByName('NDoc').Value := ACBrBoleto1.ListadeBoletos.Objects.SeuNumero; Dmdados.TbRetorno.FieldByName('CDO').Value := ACBrBoleto1.ListadeBoletos.Objects.CodigoLiquidacaoDescricao; Dmdados.TbRetorno.FieldByName('DTC').Value := FormatDateTime('dd/mm/yyyy', ACBrBoleto1.ListadeBoletos.Objects.DataCredito ); Dmdados.TbRetorno.FieldByName('Seq').Value := ACBrBoleto1.ListadeBoletos.Objects.LinhaDigitada; Dmdados.TbRetorno.FieldByName('CDCd').Value := ACBrBoleto1.ListadeBoletos.Objects.LocalPagamento; DmDados.TbRetorno.post; end; Dmdados.TbRetorno.Free; ShowMessage('Retorno processado com sucesso !'); end; end;

Este projeto ainda esta parado ???

Fui acertando e resolvi uma das coisas principais não tinha colocado o tipo de cobrança cobCaixaSicob. Grato

Boa noite, Esta é a minha primeira experiência com boleto, estou por enquanto usando o demo para depois implementar no meu sistema mas esta dando divergência na linha digitavel acredito que o código de barras deve acompanhar a linha digitavel. Estou usando os seguintes parametros : Banco: Digito: 0 Banco: 104 Tamanho Maximo Nosso Numero: 16 Cedente : Agência : 1641 no componente ele coloca um zero antes Agencia Digito : 4 Conta : 00000461 no componente ele coloca zero antes também 0000000469 Conta Digito: 3 Convenio: 870 No executavel : Carteira: SR Nosso Numero : 800000000009428 Duplicata Numero: 800854 Valor: 654,00 Data Emissao : 20/02/2015 Vencimento: 23/02/2015 A linha do demo sai assim : 10498.70007 05800.200049 00000.942870 1 63480000065400 Nosso Numero : 24800000000009428-0 Agencia Codigo Cedente : 1641/87000000469-5 Já pelo sistema da caixa : linha digitavel : 10940.04698 16418.700007 00000.094284 4 63480000065400 Nosso Numero: 800000000009428-7 Agencia Codigo Cedente : 1641/87000000469-3 O que eu posso estar errando ????

Sim já uso em outros clientes com e-CNPJ, este cliente tem esta politica de cada funcionário ter seu certificado, hoje em dia eles emitem com ecpf no site da prefeitura isto já fazem dois anos, será que não é possivel ?

Tenho um cliente que usa para emitir a nota certificado dos funcionários no caso cpf com procuração para emissão das notas, como faço para informar neste caso?

Resolvido era isto mesmo que precisava.

MagoSchmidt vc disse que conseguiu usar procuração para BH teria modelo para exemplificar estou precisando, aqui a empresa tem procuração para os seus colaboradores, então quando tento enviar ainda não consegui.

Dúvidas ACBR NFSe Estou finalizando um projeto para emissão de NFSe estou com um problema na hora de informar a Natureza da Operação : Var Natureza : TnfseNaturezaOperacao; begin Natureza := Dmdados.TbNotaSaida.FieldByName('IDNATUREZAOPERACAO').AsVariant; // TnfseNaturezaOperacao = ( noTributacaoNoMunicipio, noTributacaoForaMunicipio, noIsencao, noImune, noSuspensaDecisaoJudicial, noSuspensaProcedimentoAdministrativo ); NaturezaOperacao := Natureza; NaturezaOperacao := noTributacaoNoMunicipio; Na maioria dos casos é noTributacaoNoMunicipio criei na tabela TbNotasSaidas um caso varchar onde armazeno a informação noTributacaoNoMunicipio só que quando jogo esta informação mas o problema esta na conversão do valor noTributacaoNoMunicipio, alguém já trabalhou e tem alguma luz?

Boa Tarde, Estou começando a usar o componente e não estou conseguindo usar o ambiente de teste aparentemente deve ser o endereço do webservice esta errado na documentação do prefeitura esta este endereço https://nfse.pjf.mg.gov.br/bhiss-ws/nfse?wsdl . Como alterar ?