Claudiomir

Saudações Régis Implantei as correções e ainda enfrento o problema da defasagem da hora. Sou do MT uf 51 e temos uma defasagem de uma hora com relação á Brasilia. Não consigo contato com a Sefaz daqui e o Escritório Contábil não está ciente de mudança nenhuma. Será erro meu?? Alguma idéia?? Claudiomir

Saudações Mais uma vez, esse grupo vem em meu auxílio com a sugestão correta. Grato, Juliomar, por sua ajuda. Foi fundamental para que eu resolvesse o problema. Claudiomir

Saudações Mais uma vez, esse grupo vem em meu auxílio com a sugestão correta. | Grato, Sérgio, por sua ajuda. Foi fundamental para que eu resolvesse o problema. Claudiomir

Saudações Gero a nfce em tempo de homologação. Tudo lindo e maravilhoso. Mudo para produção e quando vou emitir ele me retorna o seguinte erro: Falha na validação.... Element '....inf.br/nfe} VFCPUFDEST is unexcpeted according to content model of parent element 'http://portalfiscal.inf.br/nfe}IcmsTot'. Excpeting 'http://portalfiscal.inf.br/nfe}vbcst. Dados Relacionados: Csosn : 400 uf 51 - mato grosso bloco do Imposto: with Imposto do begin // lei da transparencia nos impostos vTotTrib := Roundto((vtributo), -2); // strtofloat(fprinci.BuscaTroca(trim(Format('%15.2f', [vtributo])), ',', '.')); // banana if cfgcfgcstcson.AsInteger = 101 then ICMS.CSOSN := csosn101; if cfgcfgcstcson.AsInteger = 102 then ICMS.CSOSN := csosn102; if cfgcfgcstcson.AsInteger = 103 then ICMS.CSOSN := csosn103; if cfgcfgcstcson.AsInteger = 201 then ICMS.CSOSN := csosn201; if cfgcfgcstcson.AsInteger = 202 then ICMS.CSOSN := csosn202; if cfgcfgcstcson.AsInteger = 203 then ICMS.CSOSN := csosn203; if cfgcfgcstcson.AsInteger = 300 then ICMS.CSOSN := csosn300; if cfgcfgcstcson.AsInteger = 400 then ICMS.CSOSN := csosn400; if cfgcfgcstcson.AsInteger = 503 then ICMS.CSOSN := csosn500; if cfgcfgcstcson.AsInteger = 900 then ICMS.CSOSN := csosn900; ICMS.pCredSN := 0; ICMS.vCredICMSSN := 0; with ICMS do begin CST := cst40; end; with PIS do begin CST := pis99; end; with ICMSUFDest do begin vBCUFDest := 0.00; pFCPUFDest := 0.00; pICMSUFDest := 0.00; pICMSInter := 0.00; pICMSInterPart := 0.00; vFCPUFDest := 0.00; vICMSUFDest := 0.00; vICMSUFRemet := 0.00; end; end; total.ICMSTot.vBC := 0; total.ICMSTot.vICMS := 0; total.ICMSTot.vBCST := 0; total.ICMSTot.vST := 0; total.ICMSTot.vProd := Roundto((vtotal), -2);'.')); total.ICMSTot.vFrete := 0; total.ICMSTot.vSeg := 0; total.ICMSTot.vDesc := Roundto((qvndvnddesconto.AsFloat), -2); total.ICMSTot.vII := 0; total.ICMSTot.vIPI := 0; total.ICMSTot.vPIS := 0; total.ICMSTot.vCOFINS := 0; total.ICMSTot.vOutro := 0; total.ICMSTot.vNF := Roundto((vtotal - qvndvnddesconto.AsFloat), -2); // strtofloat total.ICMSTot.vTotTrib := Roundto((vtribaprox), -2); // strtofloat(fprinci.BuscaTroca(trim(Format('%15.2f', [vtribaprox])), ',', '.')); // partilha do icms e fundo de probreza total.ICMSTot.vFCPUFDest := 0.00; total.ICMSTot.vICMSUFDest := 0.00; total.ICMSTot.vICMSUFRemet := 0.00; Qualquer idéia é muito bem vinda. Claudiomir

Saudações. Acusa um erro na emissão de boletos. “Error reading frxPDFExport.DataOnly: Property DataOnly does not exist". Segui a orientação que consta aqui no fórum no link: http://www.projetoacbr.com.br/forum/topic/6262-acbrboleto-com-fastreport/?page=2 do usuário haroldogb. Corrigi, reinstalei o pacote, tudo ok. Quando abro meu projeto e compilo o delphi acusa : [DCC Fatal Error] posirelo.dpr(408): F1026 File not found: 'ACBrBoletoFCFR.dcu' No entanto, verificando na pasta C:\componentes2010\Acbr - Trunk2\Fontes\ACBrBoleto\FC\Fast os dois arquivos .dcu estão lá. Criados, com a data de hoje. Eu fiquei sem entender o que estou fazendo errado. Qualquer idéia é muito bem vinda. Claudiomir

Saudações a Todos Situação Resolvida. O Escritório Contábil gerou o csc no modo produção e eu estava testando no modo homologação. Gerado novo csc e funcionou de primeira. Grato por vosso auxílio, Claudiomir

Saudações Regys Grato pelas respostas. Estou usando a UF 51 - MT. Como faço para descobrir se o servidor de homologação apresenta algum problema? Ou está com o horário errado? Claudiomir Saudações

Saudações Atualizei para o trunk2 e estou revendo o código. Encontrei duas situações estranhas. 1a - Nos testes, em homologação, ele só aceita se estiver com o horário de brasília. Sou do MT, uma hora de defasagem. Mudo o horário do computador e ele aceita. Por que?? 2a - Marquei a opção para enviar o qrcode para a sefaz mato grosso e recebi o erro de rejeição 462. Contatei o escritório contábil e pedi a geração de um novo idtoken e token. Copiei exatamente o que o escritório me enviou e confirmei cada caractere com eles antes de testar. O erro persiste. ACBrNFe1.Configuracoes.Geral.Idcsc := cfgcfgidtoken.AsString; //000003 ACBrNFe1.Configuracoes.Geral.csc := cfgcfgtoken.AsString; //73e176951228c70add41a12aec02f6b4 - estes valores foram conferidos e são passados corretamente Gastei o cérebro o dia todo e não encontrei uma solução. O que posso estar errando? Claudiomir

Saudações JfsCosta No meu caso eu atualizei o componente inteiro do acbr por que fazia tempo que eu não fazia isso. Depois abri o projeto e dei um build al em todo o projeto. abraços

Saudações Não. Não guardo. Tabela Retorno é temporária. Basicamente é o carro chefe que me diz qual parcela foi trabalhada (paga ou não) Se foi paga(Com juros, multa, etc) que eu uso para localizar as parcelas no meu banco de dados e sobre elas sim, eu trabalho(baixo no contas a receber, dou entrada na conta banco,etc,etc,etc). A Tabela Retorno simplesmente é uma relação das parcelas que o banco movimentou. Coisa que eu ainda não consegui implementar direito é os motivos que o banco trabalhou. (tipo código 'xx' baixa automática, 'xy' pago fora da agencia, etc). Se alguém tiver e quiser compartilhar... Sempre as ordens, Claudiomir.

Saudações Baseado no desenho acima como exemplo, temos o botão buscar Arquivo. procedure Tfretcobranca.blocalizararquivoClick(Sender: TObject); var i: integer; Titulo: TACBrTitulo; begin retorno.Open; retorno.EmptyTable; dire := extractfilepath(application.ExeName) + 'retorno'; pdire.Caption := dire; fprinci.ACBrBoleto1.DirArqRetorno := dire; OpenDialog.InitialDir := dire; if OpenDialog.Execute then begin narq := OpenDialog.FileName; if pos('.zip', narq) > 0 then begin { Zip.BaseDir := dire; Zip.FileName := narq; Zip.OpenArchive; Zip.ExtractFiles('*.*'); Zip.CloseArchive; } narq := extractfilename(narq); narq := dire + '\R' + copy(narq, 1, pos('_', narq) - 1) + '.' + copy(narq, pos('_', narq) + 1, 4); end; Edit1.Text := narq; fprinci.ACBrBoleto1.NomeArqRetorno := extractfilename(narq); fprinci.ACBrBoleto1.LerRetorno; if fileexists(pdire.Caption + '\' + fprinci.ACBrBoleto1.NomeArqRetorno) then begin BitBtn4.Enabled := true; BitBtn5.Enabled := true; fprinci.ACBrBoleto1.NomeArqRetorno := extractfilename(narq); fprinci.ACBrBoleto1.LerRetorno; retorno.Open; ProgressBar1.Visible := true; ProgressBar1.Max := fprinci.ACBrBoleto1.ListadeBoletos.Count; for i := 0 to fprinci.ACBrBoleto1.ListadeBoletos.Count - 1 do begin Titulo := fprinci.ACBrBoleto1.ListadeBoletos.Objects; // precisa verificar qual a quantidade de "nosso numero" dependendo do banco para a pesquisa abaixo. creachadados.Close; creachadados.Params[0].AsString := copy(fprinci.ACBrBoleto1.ListadeBoletos.Objects.NossoNumero, 1, 8); creachadados.Open; if creachadados.RecordCount > 0 then begin retorno.Append; retornoNumeroDoc.AsString := fprinci.ACBrBoleto1.ListadeBoletos.Objects.NossoNumero; retornoCliente.AsString := creachadadosclinome.AsString; retornoCrechave.AsInteger := creachadadoscrechave.AsInteger; retornoData.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataOcorrencia; // retornoocorrenciaoriginal.AsString := fprinci.ACBrBoleto1.ListadeBoletos.Objects.OcorrenciaOriginal.Tipo; retornoocorrenciaoriginaldescricao.AsString:=fprinci.ACBrBoleto1.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao; retornoMotivo.AsString := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComando.Text; retornoDataEmitido.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataProcessamento; retornoNumBoleto.AsString := creachadadoscrenumero.AsString; retornohisto.AsString := creachadadoscrehistorico.AsString; retornodataemissao.AsDateTime := creachadadoscreemissao.AsDateTime; retornovalor.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento; retornomulta.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorOutrasDespesas; retornojuros.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorMoraJuros; retornovalorbaixado.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido; retornodatabaixa.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataCredito; retornovalortarifa.AsFloat := fprinci.ACBrBoleto1.ListadeBoletos.Objects.ValorDespesaCobranca; retorno.Post; end; ProgressBar1.Position := ProgressBar1.Position + 1; ProgressBar1.Refresh; end; end; end; end;

Obrigado Juliana. Acho que consegui agora. Valeu! Claudiomir

Saudações Retorno do Sicredi ( e talvez demais bancos) Observem a imagem abaixo Caso eu não esteja totalmente maluco, sempre que o eu busco o arquivo de retorno ele me traz no campo Motivo um código que vem antes do texto. Na linha marcada como "1" ele me traz: "B3-Tarifa de registro de entrada do titulo". Já na linha marcada como "2" ele me traz: "H5-Recebimento de liquidação fora da rede". Por favor, considerem que sou bem leigo nisso, por isso pergunto: 1 - Todos os arquivos de retorno de todos os bancos vem assim? 2 - Devo gerar um teste em cada motivo recebido para descobrir o que é a operação ou tem outro jeito mais simples? 3 - A codificação "B3" é válida somente para o Sicredi ou é válida para todos os bancos? Assim como a codificação 00? 4 - Se não é válida para outros bancos, como faço para identificar o que está acontecendo com os arquivos de retorno de outros bancos, tipo Sicoob ou mesmo Itaú? 5 - Tendo como base a imagem acima, como faço para identificar corretamente os valores de cada operação? 6 - Existe uma tabela de codificações que está em algum lugar dentro do AcbrBoleto para "cobrir" todos os bancos? Ou se é individual para cada banco, como eu determino seu uso para o banco? De acordo com o número do banco? Desculpem-me, eu estou meio que me repetindo, mas estou bem perdido. Abraços Claudiomir

Saudações Denerbuzato Para a data da baixa, funcionou. Ainda fico tentando pegar os motivos do lançamento. Será que cada banco trabalho nisso de forma diferente?? Claudiomir

Saudações Desculpe, eu não encontrei nada sobre isso, de modos que aqui vai minha dúvida. Ela se relaciona a dois bancos diferentes. Sicredi--> Quando, usando a seguinte linha de comando --> retornomotivo.asstring:=ACBrBoleto1.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComando.Text; Ele me traz os dados corretos. Quando usando a linha de comando --> retornodatabaixa.AsDateTime := fprinci.ACBrBoleto1.ListadeBoletos.Objects.DataBaixa; Ele me traz 30/12/1899. Mesmo quando confirmado no banco que existe a data da baixa e que ela ocorreu em 05/12/2015. Mudo para o Sicoob--> Mesmas linhas acima e o retorno em ambas é vazio. Configurei tudo corretamente, até onde sei, mas não encontrei o motivo disso. Alguém tem alguma idéia?? Claudiomir

Problema Resolvido. Em minha defesa eu alego estresse, excesso de café, falta de pescaria, ou insanidade temporária. Fica a dica para os demais que enfrentarem o mesmo problema. Nunca, jamais, never, enfim... jamais cadastrem o código do cedente com o dígito. Foi só remover o dígito e o problema foi resolvido. Um abraço a todos, Claudiomir

Saudações Um dos meus clientes migrou sua conta para o Sicoob. Ao configurar a nova conta e o boleto para o referido banco, recebo mensagem de erro. Pesquisei, mas não encontrei nada sobre o erro. É bem provável que seja um erro meu, mas não encontro a razão. Banco 576 - Sicoob. Nosso número 7. Anexo envio imagem do erro. Não faço ideia de onde vem aquele "-". No aguardo de alguma ideia, Claudiomir Editado: " Sim, eu sei que nosso numero é 7, e em tudo que eu uso e testo ele mostra 7. Só que aqui teima em aparecer 8 dígitos"

Saudações Henrique. Acabo de verificar com o financeiro do cliente. As duplicatas desta nota existem. Eles lançam a nota como venda a vista, mas emitem as duplicatas. As duplicatas acompanham as mercadorias. Eu nunca imaginei uma lambança dessas. Claudiomir

The page cannot be found Tem outro link?? Não consigo abrir esse.

Sim. Anexo. Não encontrei as duplicatas, apesar delas virem junto com a nota (boleto físico) do banco. No aguardo Claudiomir DFE35150904692027001034550050018759501998305074.xml

Pois é, Juliomar. Não tem nada lá. Não deveria ser obrigatório enviar no xml?? Claudiomir

Saudações Consigo importar a NFE de um fornecedor, mas, apesar das duplicatas, valores e vencimentos constarem no corpo da nota, eu não as encontro no xml. Onde estou errando, ou não vem mesmo no xml?? Abraços

Ok Julio. Valeu!! Vou começar a migrar para o trunk2 nos próximos dias. Claudiomir

Saudações Juliomar. Não Trunk2. ( Ainda não cheguei lá!!) Sim, fazia um tempo que eu não atualizava. Talvez 8 meses. Instalei tudo agora. Todas as opções. Compilou normal. Não deu erro em nada na instalação. Abri o delphi. Abri o projeto. F9. Ele abriu esse erro. Por acaso essa opção foi descontinuada??? Ou tem outra maneira de fazer isso? Claudiomir

Saudações Tudo estava rodando certinho. Precisei atualizar o Acbr e agora estou encontrando alguns... erros. Por exemplo: ACBrNFe1.EnviarCartaCorrecao(0); Protocolo := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt; motivo := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo; istat := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.cStat; agora, na segunda linha, ele acusa que ACBrNFe1.WebServices.CartaCorrecao não existe. Ele não encontra a opção CartaCorreção. Houve alguma mudança que eu não sei? Ou quando eu reinstalei, eu esqueci de instalar algo com o acbrinstal?? Alguém tem alguma idéia??? Claudiomir