Rafael jorge

Como ffiquei em duvida sobre esse boleto que apareceu com o valor zerado, fiquei pro meu banco pra saber. so que eles nao conseguiram localizar este boleto nem na parte de quitados (eu dei quitação nele hoje ja que o prazo era ate hoje). vou ver se amanha ele aparece no retorno como quitado e se o banco localiza ele no sistema.

é normal quando se envia algum boleto via remessa pro banco, ele aparecer no proximo arquivo retorno com valor zerado? achei estranho isso, mas é normal?

a complementando o que eu fiz. tive que verificar se o destinatario da nota era nao contribuinte ai coloquei o icms.CSOSN := csosn300; o meu foi de boa. vou postar o xml aqui. 26160407231408000113550010000004561000004563-nfe.xml

uma pergunta... posso modificar meu sistema de nfe pra se for pessoa física automaticamente ficar assim: Dest.indIEDest := inNaoContribuinte; ide.indFinal := cfConsumidorFinal; to passando pelo mesmo problema mas so com clientes pessoa fisica. isso que eu disse procede?

O banco do brasil nao esta aceitando minha remessa. ele diz que tem que ser no formato cbr641 como devo fazer isso? vi que o layout que o boleto gera é cnab400. como devo proceder? eu nunca realizei remessa nesse componente e ate a remessa do exemplo nao ta indo.

então é o botão "Consultar carregando XML"? obrigado pela ajuda.

Uma duvida bem simples. vendo o exemplo não achei uma forma de verificar o status do MDFE, no máximo parecido que eu achei foi o botão "Consultar carregando XML". existe alguma forma de verificar o status de um manifesto assim como a gente verifica status de nota fiscal?

descobri que no meu codigo fonte quando eu mando ele pegar o numero do protocolo pela funcao: ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt; mas se o usuario passar manualmente funciona tipo com a funcao: InputQuery('Encerrar manifesto','Chave da MDF-e:', auxch); InputQuery('Encerrar manifesto','Protocolo da MDF-e:', auxpt); InputQuery('Encerrar manifesto','UF da descarga (mumero IBGE):', auxuf); InputQuery('Encerrar manifesto','Municipio da descarga (Numero IBGE):', auxmun); ai digitando pelo inputquery ele preencheu e passou pela validacao do erro do schema xml. mas eu to achando que é um erro no meu codigo. verifica o teu tambem.

descobri que mesmo passando o numero do protocolo o xml esta indo vazio. vou ver como corrigir isso aqui.

estou com esse mesmo erro. do nada agora todo encerramento ou cancelamento que eu to tentando no mdfe esta dando erro de schema xml.

descobri qual era o problema. um usuario la no servidor recuperou um backup da maquina e o arquivo xml que tinha la nao tinha sido enviado. por isso estava sem protocolo e etc. desculpa pelo vacilo por nao ter verificado isso antes, e que ate ontem estava tudo ok.

eu queria encerrar esse manifesto. pois tem mais entregas desse motorista e ele esta dizendo que tenho que encerrar. como eu faco pra recuperar o protocolo?

o erro é falha no schema xml especifico para o evento. em anexo o xml 26160210438012000156580010000000101000000100-mdfe.xml

obrigado Luis, o pessoal la fez exatamente isso e corrigiu. obrigado mesmo.

Estou numa situação complicada estou tentando encerrar um manifesto. Só que sempre da erro de falha no schema xml. Estou com o ACBr todo atualizado. Estou com os schemas atualizados. E até o demo do mdfe está dando esse erro. Não sei mas o que fazer.

to tendo o mesmo problema. pena que o luiz nao disse o que fez pra corrigir.

testei num pc windows 10 com 64 bits, outro windows 7 32. e na minha propia maquina outro win 10 64 bits e todas deram isso. o certificado é reconhecido tudo certinho mas na hora de pedir o pin ele fica pedindo direto sem parar. usei o demo do ACBR e ele tambem fica pedindo sem parar. Estou achando que é algo no certificado.

desculpa, nao entendi sua resposta. eu ja utilizava ele normalmente com certificado tipo a1. e em outro computador com esse certificado funcionou. so que nesse em especifico nao esta funcionando de jeito nenhum, sempre pedindo o PIN

Meu cliente mudou o certificado para leitora de cartão.o sistema operacional é um windows 7 32 bits. testei em outras maquinas e esta tudo ok. mas na maquina do rapaz que vai emitir os CTE´s simplesmente ele fica pedindo o PIN sem parar como se nunca conseguisse validar. como eu resolvo isso? será que tenho que baixar alguma atualização? instalar alguma coisa? pelo que eu pude ver é algum bug no ACBRCTE pois o emissor gratuito funciona perfeitamente.

consegui resolver, mas sendo honesto nao sei bem o pq deu isso. 1. retirei o calculo de porcentagem defini so como desconto como valor. 2. percebi que o easytef (não sei nem pq a gente aqui ainda usa isso, vou trocar pelo acbrtef) na função de venda e que tava dando alguma bronca na impressora. pronto ao fazer isso tudo funcionou. =)

eu sei. mas é o que acontece. eu mando o comando de venda, da esse erro de impressora nao respondendo e nem o comando é executado. ja nao sei mais o que fazer.

Ta ai o log, tudo funciona abrir o caixa, redução z, leitura x, sangria, tudo. mas quando eu tento vender um produto com a função vendeitem ele diz que a impressora não esta respondendo. ai esta o log para quem puder me ajudar. LogECF.txt

diz que a impressora nao esta respondendo. eu já fiz isso. baseei minha aplicação no ECFTeste.exe só que lógico tive que adaptar s minhas necessidades

Tenho um programa para emissão de cupom fiscal mas não esta funcionando a rotina de vender item. so esta rotina que não funciona. tudo esta ok. estou reaproveitando meu sistema que tenho a algum tempo. Ajustei tudo pra o trunk2 mas só essa rotina não ta rolando. obs, fiz ela na época em que o acbr so aceitava porcentagem no desconto. estou mantendo tudo como eu fiz aqui para ver se alguém me ajuda nisso. obrigado. function TFormPDVFiscal.Vendeitem: boolean; var indice : integer; Porcentagem_Desconto : double; ini : tinifile; begin if (self.editestoque.Valor <= 0) and (self.bloqueia_estoque_zerado = true) then begin aviso('O produto não possui estoque, por favor informe outro para esta venda', self.usuario_nome,maviso); result := false; end else begin //definindo descricao com grande if self.ACBrECF.Modelo <> ecfDataRegis then self.ACBrECF.DescricaoGrande := true; // ---------------------------- calculando o desconto. ------------------------- // Ex: Val.Unitário = 10,50 // Valor do Desconto = 0,50 // Porcentagem_Desconto = ( 0,50 / 10,50 ) * 100 = 4,7619 % // isso pq o acbr ecf so aceita procentagem de desconto // ----------------------------------------------------------------------------- result := false; try self.Escrevestatus('verificando se ja abril o cupom'); if not self.cupomAberto then self.NovoCupom; self.Escrevestatus('verificando se so vai vender com vendedor'); ini:= tinifile.create('PDV.ini'); if StrToBool2(Codifica('D',ini.readSTRING('Venda','so vender com vendedor','S'))) and (self.vendedor = 0) then aviso('Informe o vendedor para poder vender.', self.usuario_nome,maviso) else begin self.Escrevestatus('verificando se tem desconto. se tiver pedir senha se necessario'); Porcentagem_Desconto := 0; if self.eddesconto.valor <> 0 //se nao passou o supoervisor entao acnela tudo then if not LogaOperador(self.ponto, true, false, self, self.fsqlconnection) then begin aviso('Você passou um desconto e este não foi aprovado por um supervisor entao o produto não será vendido', self.usuario_nome, maviso); SetandoFocus(self.edCodigo); exit; end else begin self.Escrevestatus('calculando o desconto.'); //Ex: Val.Unitário = 10,50 // Valor do Desconto = 0,50 //Porcentagem_Desconto = ( 0,50 / 10,50 ) * 100 = 4,7619 % //isso pq o acbr ecf so aceita procentagem de desconto Porcentagem_Desconto := ( self.eddesconto.valor / Self.edPrecoUnita.valor ) * 100 end; //vendendo o item... if (self.eddescricao.text <> '') and (edcodigo.text <> '') and (edPrecoUnita.valor <> 0) then begin self.Escrevestatus('vendendo o item...'); self.Escrevestatus('vendo o modelo da impressora'); self.Escrevestatus('tentando vender com a acbr...'); //edICMS.Text := colocaicmsDeVenda(17); self.ACBrECF.VendeItem(edCodigo.Text, RetiraAcento(edDescricao.Text, false), edICMS.Text, edQtd.valor, edPrecoUnita.valor, Porcentagem_Desconto, edUN.Text, '%', 'D'); self.Escrevestatus('item vendido com acbr'); self.Escrevestatus('gravando o item no banco de dados'); //nao cadastrar a venda se tiver usando boate self.VENDA_ITENS.PDV_VENDA := self.venda; self.VENDA_ITENS.Ponto := strtoint(self.ponto); self.VENDA_ITENS.NUMERO := addnumero; self.venda_itens.custo := strtocurr2(campocdc('produto','custo','codigo = '+INTTOSTR(Self.codigoproduto), fsqlconnection, ultimo_erro)); self.VENDA_ITENS.PRODUTO := Self.codigoproduto; self.VENDA_ITENS.DESCRICAO := edDescricao.text; self.VENDA_ITENS.PRECO_UNITARIO := edPrecoUnita.Valor - self.eddesconto.valor; self.VENDA_ITENS.QUANTIDADE := edQtd.Valor; self.VENDA_ITENS.ST := edICMS.Text; self.VENDA_ITENS.EMPRESA := strtoint(self.ValidaEmpresa); self.VENDA_ITENS.icms := strtocurrdef(edICMS.Text,0); self.VENDA_ITENS.TOTAL := (edPrecoUnita.valor - self.eddesconto.valor) * edqtd.valor; self.VENDA_ITENS.ATUALIZASAO := now; self.VENDA_ITENS.UNIDADE := edUN.text; self.VENDA_ITENS.vendedor := vendedor; self.VENDA_ITENS.CODIGO := strtoint(autoincremento(nil,'pdv_venda_itens','codigo',self.fsqlconnection)); self.VENDA_ITENS.grava; //colocando o valor na descrição edDescricao.text := '';//edDescricao.text + ' ' +floattostr(edqtd.valor)+ ' x '+ formatcurr('#,##0.00',edPrecoUnita.valor); //calculando o total if SELF.ACBRECF.Modelo <> ecfDataRegis then begin total.valor := aCBrECF.Subtotal; totalTEF := StrToFloat(EasyTEF.tratarCupomFiscal(tmeSubTotal, [''])); end; self.Escrevestatus('colocando ele na grid'); indice := self.grid.Insert; // grid.Cells[0,0] := 'Número'; self.grid.Cells[0,indice] := inttostr(self.VENDA_ITENS.NUMERO); //grid.Cells[1,0] := 'Descrição do item'; self.grid.Cells[1,indice] := self.VENDA_ITENS.DESCRICAO; //grid.cells[2,0] := 'unidade'; self.grid.Cells[2,indice] := self.VENDA_ITENS.UNIDADE; //grid.cells[2,0] := 'Preço'; self.grid.Cells[3,indice] := formatfloat('##,##0.00',self.VENDA_ITENS.PRECO_UNITARIO); //grid.Cells[3,0] := 'Qtd.'; self.grid.Cells[4,indice] := currtostr(self.VENDA_ITENS.QUANTIDADE); //grid.Cells[4,0] := 'Total.'; self.grid.Cells[5,indice] := formatfloat('##,##0.00',self.VENDA_ITENS.PRECO_UNITARIO * self.VENDA_ITENS.QUANTIDADE); //grid.Cells[5,0] := 'codigo escondido'; self.grid.Cells[6,indice] := inttostr(self.VENDA_ITENS.PRODUTO); //se vai autenticar if prod_aut = true then self.grid.Cells[55,indice] := 'S' else self.grid.Cells[55,indice] := ''; //limpando os edits.. edCodigo.Text := ''; edICMS.Text := '0'; edQtd.valor := 0; edPrecoUnita.Text := '0'; edDesconto.valor := 0; edUN.Text := ''; editestoque.valor := 0; result := true; self.total.valor := self.grid.calculaCampo(5); end else begin aviso('Informe os dados do produto corretamente.'+#13+ 'Obs.: o sistema não permite vender um item com o preço zerado', self.usuario_nome, maviso); setandofocus(self.edcodigo); result := false; end; end; ini.free; finally //se deu pau ao abrir o cupom intao verificar configuraçoes dele end ; end; end;

Atualizei agora pro trunk2, corrigi as diferenças que tinha do antigo abr pro novo, tudo ok gerou o executável. Ai tentei emitir um manifesto e mesmo passando o cUnid esta dando este aviso: '00' violates anumeration constraint of '01 02'. the element '{http://www.portalfiscal.inf.br/mdfe}cunid' with value '00' failed to parse. o código que eu to usando é esse: if uppercase(manifesto.UNIDADE_MEDIDA) = uppercase('m3') then tot.cUnid := um3 else if uppercase(manifesto.UNIDADE_MEDIDA) = uppercase('KG') then tot.cUnid := uKG else if uppercase(manifesto.UNIDADE_MEDIDA) = uppercase('TON') then tot.cUnid := uTON else if uppercase(manifesto.UNIDADE_MEDIDA) = uppercase('UNIDADE') then tot.cUnid := uUNIDADE else if uppercase(manifesto.UNIDADE_MEDIDA) = uppercase('LITROS') then tot.cUnid := uLITROS;