Claudiomir

Saudações a todos do grupo. Sou do Mato Grosso, UF 51. Sim, eu sei. Isso não tem nada a ver com ACBR. Nada. Absolutamente nada. Pra ser sincero, nem deveria constar aqui, mas... Mas é algo que eu preciso de opiniões sobre como proceder e eu prefiro perguntar para quem já passou por isso, uma vez que o contador do meu cliente não sabe responder. Tenho uma situação... irritante para dizer o mínimo. Meu cliente compra um relógio azul com bolinhas rosas. Com Nota fiscal de entrada. Paga os impostos, tudo legal. (quase sempre. Neste caso, sim, absolutamente legal) Vende para João o referido produto. João paga e vai embora. Dois meses depois, João volta e apresenta o produto com defeito. Ele deve ser enviado para garantia ( que geralmente, embora nem sempre, é fora do estado). Para o meu fornecedor, eu tenho que emitir nota fiscal de envio. Mas o x da questão é que eu não tenho mais o produto em estoque. Tenho que dar entrada no estoque via nota de devolução? Que cfop eu uso? Volto a ter este produto no estoque? Daí emito a nota de saída para o fornecedor com que cfop? Dou saída do estoque? Quando retornar o produto, dou entrada de novo? Pago imposto duas vezes? Como faço a "saída" do produto para o cliente? Não pode ser por meio de venda, pode? Por que se fizer isso, pago imposto mais uma vez?? E, quando o produto for... "frio"?? Sem nota de entrada?? Infelizmente, acontece. E meu cliente representa uma marca. Não importa onde, no país, você compre. Se chegar aqui, tem que enviar para garantia de qualquer forma. Como eu vou agir nesse caso? No aguardo de vossas idéias, Claudiomir

desculpe. tópico errado. perdão

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