Diego Prado

Italo, você sabe o que seria esse NSU = Numero Sequencial Único?

Bom Dia. Já possível fazer a consultar por Destinatário na Nota Nacional? Já vi que alguns programas como Arquivei estão implementando esse recurso. Não encontrei nada na documentação alem da consulta pela chave.

Eu tenho uma duvida quando eu envio um lote de NFSe no padrão abrasf 2.036, se o uma das notas tiver problema o lote é processado parcialmente ou ele é negado inteiro?

Boa Tarde pessoal estou implementando o rastreamento e uma pessoa dos correios, me disse que para corrigir alguns códigos de serviço. Não sei se ouve mudança, se puderem adicionar. Apenas fiquei em dúvida no PAC que já existe o código 41106, mais se puderem implementar os faltantes. 40436 (Sedex) OK 40215 (Sedex 10 envelope) OK 40886 (Sedex 10 pacote) falta 40169 (Sedex 12 envelope) falta 40894 (Sedex 12 pacote) falta 41068 (PAC) falta?? 81019 (E-Sedex) OK

up

Bom Dia pessoal. Criei o tópico por que não sei se é um erro da minha parte ou é assim mesmo com todos. Fiz a consulta de manifestação pesquisando varios topicos aqui e a rotina mais satisfatoria foi començando o UltNSU = 0 até que IndCont retorne = 0 dentro do repeat como no fonte abaixo. lUltNSU := '0'; lIndCont := '0'; repeat ACBrNFe1.ConsultaNFeDest(cdsCNPJ.asstring, inTodas,ieTodos, lUltNSU); lUltNSU:= ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then begin cds2.Append; cds2chave.AsString := AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe; cds2Razao.AsString := AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome; cds2Valor.AsCurrency := AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF; cds2data.AsDateTime := AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi; cds2IE.AsString := AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE; cds2serie.AsString := copy(cds2chave.AsString,23,3); cds2Numero.AsString := copy(cds2chave.AsString,26,9); cds2CNPJ.AsString := copy(cds2chave.AsString,7,14); cds2Tipo.AsString := tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF); cds2SituacaoNF.AsString := SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe); cds2SituacaoManifesto.AsString := SituacaoManifDestToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitConf); cds2.Post; end ; end ; until (VarToStr(ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.indCont) = '0'); O problema é que ele só esta me retornando as notas do mes de setembro, vi em um dos topicos que os manifestos ficam disponiveis mais ou menos uns 15 dias. Existe um limite de dias ou é um limite de notas?? Ou minha rotina tem algo errado? O mais estranho é que notas que fiz em ambiente de homologação de agosto, quando consulto ainda aparecem, quando mudo pra produção, só vem as notas mais recentes, as que tinha em modo de produção em julho , agosto , não aparecem mais. Alguem poderia me ajuda?

Bom Dia Edson excelente componente, estou a algum tempo tentando desenvolver, Geração de etiqueta,Geração PLP,Rastreamento e Cálculo de preço. Tem intenção de implementar essas outras questões? Qualquer coisa se quiser trocar experiências.

Estava com mesmo problema. Não sei se é a mesma coisa mais fui debugando até essa linha RenameFile(fFilePart, sFileName); da ACBrDownloadClass. Pelo visto ele não conseguia renomear o arquivo pois eu coloquei o teste if not RenameFile(fFilePart, sFileName) then //aqui ele entrou. É estava preso e ficava sempre o .part, foi falha na minha aplicação no caso.

Compartilhando a resposta do suporte do BB. O arquivo que nos enviou não é o "retorno". Trata-se de um relatório com informações sobre a cobrança (Cbr724), não sendo adequado para processamento. O arquivo de retorno tem o nome de Cbr643, e está disponível para o cliente retirar no Gerenciador Financeiro. Arquivo de retorno a ser processado: Cbr643. No meu caso foi resolvido, era outro arquivo.

Boa Noite estou na mesma situação o cliente me passou um arquivo de retorno bancário igual a esse ai mais o correto não seria um arquivo assim : 02RETORNO01COBRANCA 16373000532088000000COMERCIAL GERAL DE TESTE LTDA 001BANCO DO BRASIL0402130000034 000000036510212500 Será que a pessoa esta baixando no site do banco no lugar errado? Alguem pode dar uma luz?

Obrigado amigo, mais uma coisa que tiver que mecher na minha unit do bradesco aqui é a posição da conta no arquivo está rAgencia := trim(Copy(ARetorno[1], 26, ACBrBanco.TamanhoAgencia)); rConta := trim(Copy(ARetorno[1], 31, ACBrBanco.TamanhoConta)); Mais a posição aqui está 30 eu mudei aqui funcionou perfeitamente. Não sei se a questão é que está sendo tratado o numero da conta no meu caso tem 5 digitos O arquivo veio assim onde está AAAA é a minha agencia e CCCCC é o numero da minha conta. 1000000000000000000000090AAAA00CCCCC0

Senhores essa linha do programa da unit do bradesco estava dando um problema pra mim já que ele manda o desconto em 2 campos que não tem o mesmo sentido. O primeiro campo valor desconto da posição 83 é pra antecipação ou seja, se eu der 1% de desconto em um boleto de 100 reais, e eu pago com 2 dias de antecipação vai me cobrar apenas 98 reais. O outro campo desconto não tem o mesmo sentido é ele vai sempre cobrar aquele valor independente dos dias. Isso da problema pra mim imagina essa situação eu pago com 2 dias de antecedência, vai me dar um valor de 97 reais o que é errado no meu contexto. No caso teria que criar outra variavel pra desconto ou seja algo mais complexo, ou um tipo de desconto e ele se virar ali. Alguem ja passou por isso ou teria que corrigir mesmo no componente? wLinha:= '1' + // ID Registro StringOfChar( '0', 19) + // Dados p/ Débito Automático '0'+ aCarteira + aAgencia + aConta + Cedente.ContaDigito + padL( SeuNumero,25,' ') +'000' + // Numero de Controle do Participante IfThen( PercentualMulta > 0, '2', '0') + // Indica se exite Multa ou não IntToStrZero( round( PercentualMulta * 100 ), 4) + // Percentual de Multa formatado com 2 casas decimais NossoNumero + DigitoNossoNumero + IntToStrZero( round( ValorDesconto * 100), 10) + TipoBoleto + 'N' + Space(10) + // Tipo Boleto(Quem emite) + 'N'= Nao registrar p/ Débito automático ' ' + '0' + ' ' + Ocorrencia + // Ind. Rateio de Credito + Aviso de Debito Aut. + Ocorrência padL( NumeroDocumento, 10) + FormatDateTime( 'ddmmyy', Vencimento) + IntToStrZero( Round( ValorDocumento * 100 ), 13) + StringOfChar('0',8) + padl(aEspecie,2) + 'N' + // Zeros + Especie do documento + Idntificação(valor fixo N) FormatDateTime( 'ddmmyy', DataDocumento ) + // Data de Emissão Protesto + IntToStrZero( round(ValorMoraJuros * 100 ), 13) + IfThen(DataDesconto < EncodeDate(2000,01,01),'000000', FormatDateTime( 'ddmmyy', DataDesconto)) + IntToStrZero( round( 0 * 100 ), 13) + IntToStrZero( round( ValorIOF * 100 ), 13) + IntToStrZero( round( ValorAbatimento * 100 ), 13) + TipoSacado + padR(OnlyNumber(Sacado.CNPJCPF),14,'0') + padL( Sacado.NomeSacado, 40, ' ') + padL( Sacado.Logradouro + Sacado.Numero + Sacado.Bairro + Sacado.Cidade + Sacado.UF, 40) + space(12) + padL( Sacado.CEP, 8 ) + padl( MensagemCedente, 60 );