Hetosoft Sistemas

em que evento eu coloco que o ecf ta toda vez 100%(em modo normal) tentei alerar esse comando neste evento ACBrTEFD1InfoECF da erro de float { case Operacao of ineSubTotal : begin ASubTotal := ACBrECF1.Subtotal ; ASubTotal := ASubTotal - ACBrECF1.TotalPago + StringToFloatDef(edValorDescAcre.Text, 0); RetornoECF := FloatToStr( ASubTotal ) ; end; ineTotalAPagar : RetornoECF := FloatToStr( CalculaTotalPago ); ineEstadoECF : begin Case ACBrECF1.Estado of estLivre : RetornoECF := 'L' ; estVenda : RetornoECF := 'V' ; estPagamento : RetornoECF := 'P' ; estRelatorio : RetornoECF := 'R' ; estNaoFiscal : RetornoECF := 'N' ; else RetornoECF := 'O' ; end; end; end; } RetornoECF := 'V' ; ho eu poderia trabalhar com ecfNaoFiscal com a Porta c:\ecf.txt e pega o evento ACBrTEFD1ComandaECFImprimeVia try case TipoRelatorio of trGerencial : //ACBrECF1.LinhaRelatorioGerencial( ImagemComprovante.Text ) ; MemoTEFSiTEF.Lines.Add(ImagemComprovante.Text); trVinculado : //ACBrECF1.LinhaCupomVinculado( ImagemComprovante.Text ); MemoTEFSiTEF.Lines.Add(ImagemComprovante.Text); end; o que achar?

na verdade ja servia usar o ACBrTEFD1 sem a necessidade do ACBrECF1 como eu fis para o paygo, mais é so pro final do ano agora, tem a opcao de usar o ACBrTEFD1 so pra autenticacao ? porque tirei as funcoe do ACBrECF dos eventos do ACBrTEFD e da pau pra burro.

emplantei o NFC-e no cliente, agora falta coloca o siTef, fis o siTef com ACBrECF1 e ACBrTEFD1, mais o NFC-e nao to usando ACBrECF1 tem como usar o ACBrTEFD1 puro? e qual a conseguencia disso? obrigado pela atencao.

porque adicionei , e ta dando erro, depois tirei essa opcao , e voltou ao normal, que dizer fez o ct-e. 90: begin Imp.ICMS.SituTrib := cst90; Imp.ICMS.ICMS90.CST := cst90; // ICMS Outros Imp.ICMS.ICMS90.pRedBC := StrToFloat( CalcularMargemColocada(1, DM12.Client_NotaFiscalF_VALOR1.text, DM12.Client_NotaFiscalCTE_VTOTAL.text) ); Imp.ICMS.ICMS90.vBC := DM12.Client_NotaFiscalF_VALOR1.AsFloat; if DM12.Client_NotaFiscalICMS_ALIG.AsFloat=0 then Imp.ICMS.ICMS90.pICMS := DM12.Client_ProdutoICMS.AsFloat else Imp.ICMS.ICMS90.pICMS := DM12.Client_NotaFiscalICMS_ALIG.AsFloat; //Imp.ICMS.ICMS90.pICMS := DM12.Client_ProdutoICMS.AsFloat; Imp.ICMS.ICMS90.vICMS := DM12.Client_NotaFiscalF_VALOR2.AsFloat; Imp.ICMS.ICMS90.vCred := DM12.Client_NotaFiscalF_VALOR4.AsFloat; end; end; // Valor Total dos Tributos vTotalOlhoNoImposto := SomarPorcentagem(2, DM12.Client_NotaFiscalCTE_VTOTAL.AsFloat, 12.0); imp.vTotTrib := vTotalOlhoNoImposto; // Obs do Contribuinte if (imp.vTotTrib <> 0.0) then begin with compl.ObsCont.Add do begin vPorcOlhoNoImposto:=(vTotalOlhoNoImposto*100)/DM12.Client_NotaFiscalCTE_VTOTAL.AsFloat; xCampo := 'Lei da Transparencia'; xTexto := 'O valor aproximado de tributos incidentes sobre o preço deste servico e de R$ ' + FormatFloat('##0.00', imp.vTotTrib) + ' (' + FormatFloat('#0.00', vPorcOlhoNoImposto) + '%) ' + 'Fonte: IBPT'; end; end; ERRO CT-E FINIMUNDI vTOTTRIB.bmp

brigadoooooooooooooooooooooooooooooooooooooo.

DM12.Client_Produto.First; while NOT DM12.Client_Produto.EOF do begin Servico.Discriminacao:=Servico.Discriminacao+DM12.Client_ProdutoPRODUTOS.Text+' '+DM12.Client_ProdutoOBS.Text+' | '; DM12.Client_Produto.Next; end; Servico.Discriminacao:=Servico.Discriminacao+#13+ Form_NotaFiscal.MemoNFSe.Lines.Text; Estou colocando um obs a mais , e esse obs esta em um memo, este memo tem 1400 caracteres, ate ai tudo ok, mais o cliente reclamou que ta sem formatacao ex: SERVICORE DE MAO DE OBRA JOAO 300,00 MARIA (TERCERIAZADA) 200,00 Sair assim SERVICORE DE MAO DE OBRA JOAO 300,00 MARIA (TERCERIAZADA) 200,00 Tenho que muda algo no meu codigo? o que devo fazer.

ja copiei os arquivos da pasta Schemas\V200\PL_CTe_200a_NT2013_013 e coloque na pasta Schemas mais da esse erro, ao enviar ?

No arquivo NotaFiscalEletronica.rav na pag2 onde fica PRODUTO/SERVICOS almentando o campo CProd e diminuindo o XPROD+infAdProd, salvei mais nao muda parace que nao fis nada, o que pode ser? sera que to no arquivo errado sabendo que ja confeirio caminho certinho.

no ACBrNFeDANFERaveCB1 aumentei o campo TAMANHDOCAMPOCODIGO para 19 e blz saiou os 13 numeros no danfe, mais o ACBrNFeDANFERave1 nao tem essa opcao, mais ele ajusta e aparec 11 e depois 3 na segunda linha, um cliente reclamou comigo falando que quando ér muito item a nota fica com muita folhas, resumindo tem comou eu fazer com que saia os 13 digido do produto, na mesma linha no danfe com ACBrNFeDANFERave1 obrigado pela antecao.

Descomentei ACBrBoletoFCQuickFr uses SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto, QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode, QRWebFilt, QRPDFFilt; // RLFilters, RLPDFFilter ; case Filtro of fiPDF : begin FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; MultiExport := TQRMultiExport.Create(self); try MultiExport.Report := RLLayout ; MultiExport.ExportFormat := qrxPDF ; MultiExport.FileName := NomeArquivo ; MultiExport.ShowDialog := MostrarSetup ; MultiExport.DPI := 300 ; MultiExport.DoExport ; finally MultiExport.Free ; end ; end ;

Descomentei ACBrBoletoFCQuickFr uses SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto, QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode, QRWebFilt, QRPDFFilt; // RLFilters, RLPDFFilter ; case Filtro of fiPDF : begin FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; MultiExport := TQRMultiExport.Create(self); try MultiExport.Report := RLLayout ; MultiExport.ExportFormat := qrxPDF ; MultiExport.FileName := NomeArquivo ; MultiExport.ShowDialog := MostrarSetup ; MultiExport.DPI := 300 ; MultiExport.DoExport ; finally MultiExport.Free ; end ; end ;

atualizei o acbr coloquei no ACBr.inc // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ {$DEFINE QReport_PDF} a funcao ACBrBoleto1.GerarPDF; e estou com QReport 5 nao ta mais gerando ?

atualizei o acbr coloquei no ACBr.inc // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ {$DEFINE QReport_PDF} a funcao ACBrBoleto1.GerarPDF; e estou com QReport 5 nao ta mais gerando ?

uma cliente disse que o gerente falou que o arquivo de remesa do boleto bradesco no arquivo de remessa modelo c400 esta enviando na possicao 109 e 110 o codigo 02(alteracao de boleto) e ocorreto seria 01(emisao de boleto), como faço isso para o componente enviar o 01 e nao o 02, brigadoo.

anfm. conseguir te esplicar melhor?

Blz, fiz um nfce em off , o cliente que a impressao , ai impirmo e sai cupom com qrcode no cupom blz, se eu consulta via internet nao vai min mostra o cupom no site da sefaz porque eu nao enviei ainda ok, quando eu envio este cupom - xml (sem modificacoes) para sefaz, e tento consultar o qrcode pelo cupom impresso , nao min mostrar nada. a pergunta é : não era para o grcode feito off , quando enviar, mostra a consulta. ------------------ mais se eu impirmir o cupom de novo com o xml ja enviado ele consulta blz. e eu acho que a unica diferenca entre o xml criado off e enviado é o Procnfe.digval ---------------------------- se for isto mesmo, o cliente ta levando um cupom invalido é isso.?.

Estou gerando o brcode asim Form_NFe.ACBrNFe1.NotasFiscais.Clear; Form_NFe.ACBrNFe1.NotasFiscais.LoadFromFile(RAIZ+'\SQL_PDV\NFe\EnvioDeResposta\'+chave+'-nfe.xml'); if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; Barcode2D_QRCode1.Barcode:= Memo1.Text; //////////////////////// e a nota off assim Form_NFe.ACBrNFe1.Configuracoes.Geral.FormaEmissao := teOffLine; Ide.tpEmis := teOffLine; Ide.dhCont := Now; Ide.xJust := 'Problemas Técnicos'; quando consutlo nao mostra nada na consulta é claro ainda nao ta na sefaz, mais quando envior blz, nao era para o mesmo qrcode , mostrar o conteudo na conulta da sefaz. se eu manda imprmir o qrcode pelo novo xml enviado ai da certo.

Coloco a data como coloco na nf-e mais ta dando esse erro. with Form_NFe.ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := StrToInt(NumNFe); //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.natOp := 'VENDA'; Ide.indPag := ipVista; Ide.modelo := 65; Ide.serie := StrToInt(Serie); Ide.nNF := StrToInt(NumNFe); Ide.dEmi := StrToDate( DM.Client_CUPOMDATA.Text ); //now; Ide.dSaiEnt := StrToDate( DM.Client_CUPOMDATA.Text ); //now; Ide.hSaiEnt := Now; mais ta dando esse erro. Rejeiicao: NFC-e com data-hora de emissao atrasada

Faço uma nfc-e do tipo emissao offline, ate ai blz, a nfc-e ainda nao ta na sefaz, so que quero cancelar o cupom o que eu faço? Executo o comando ... Form_NFe.ACBrNFe1.Enviar(vNumLote,False,Sincrono); e depois Cancelamento NFe com XML ou tem outra auternativa. o que fazer com o xml assinado e validado.?

Estou emplantando em meu PDV a nfc-e qual o melhor status para eu saber que nfc-e foi autorizada ou nao para eu poder finalizar o cupom ou deixar em aberto para tenta de novo. ACBrNFe1.Enviar(vNumLote,True,Sincrono); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); // MemoDados.Lines.Add('cStat: '+ ACBrNFe1.WebServices.Retorno.NFeRetorno; { ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].tpAmb ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].verAplic ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].dhRecbto ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].digVal ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].xMotivo } tipo se atutorizado finalizar o cupom se nao mostra messagem do erro para o cleinte. obrigado pela atencao.

Erro quando usor Imprimir DANFE usando NFC-e em contigencia (off) quando nfc-e normal ele abre o dandfe em folha A4. Fis outra post porque nao pode anexar dois arquivos blz.

Usei esses mesmo dados na nota 7 no nodo normal que envia direto, e deu certo. ----depois---- verdade fiz a nota 9 com Prod.CFOP := '5102'; //'5101'; e deu certo, so na hora de IMPRIMIR DANFE da erro Sabendo que nem vou usar o danfe que vem pos é A4, mais so pra saber porque da erro quando é tipo teOffLine; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; ACBrNFe1.WebServices.ConsultaDPEC.Executar; ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.NotasFiscais.Imprimir; end; pos a nfc-e 7 que foi feito normal sem off a funcao imprimir danfe funciona erro 51131103953552000102650010000000089000000083-nfe.xml

certo blz, mais uma estou usando assim para off ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; GerarNFCeOFF(vAux); ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Valida; ate ai blz quando envio ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); vNumLote:= '1'; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Enviar(vNumLote,True,True); DA ESSE ERRO Ambiente : 2 Versão Aplicativo : 3.00 Status Código : 716 Status Descrição : Rejeicao: NFC-e em operacao nao destinada a consumidor final UF : MT dhRecbto : 06/11/2013 12:35:41 chNFe : 51131103953552000102650010000000089000000083 vi que tem as opcoes Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; tenho que muda quando for OFF ?

Estou criando meu danfe da nfc-e pelo reportbuilder, tudo ok mais quando Ide.tpEmis := teOffLine; nao vem <nProt>151130000025703</nProt> tem algum problem o danfe quando for offline nao sair com Protocolo Atutorizacao?

Vamos lar, fiz um NFC-e em homologacao tudo ok abrir o xml via internet explorer -<protNFe versao="3.00">-<infProt><tpAmb>2</tpAmb><verAplic>3.00</verAplic><chNFe>51131103953552000102650010000000071000000072</chNFe><dhRecbto>2013-11-06T10:08:20</dhRecbto><nProt>151130000025703</nProt><digVal>89V4I4mmqAQiRALasSOf44x+9Uw=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></nfeProc> e o nProt ta preechido blz, quando uso umas das funcoes como Consultar carregando XML ou Cancelamento NFe com XML ele altera o xml que ta ok e tira o nProt da tag -<protNFe versao="2.00">-<infProt><tpAmb>2</tpAmb><verAplic>2.00</verAplic><chNFe>51131103953552000102650010000000071000000072</chNFe><dhRecbto/><nProt/><digVal/><cStat>701</cStat><xMotivo>Rejeicao: NF-e nao pode utilizar a versao 3.00 </xMotivo></infProt></protNFe></nfeProc> --------------------- descobrir --------------------------- coloquei a funcao Cancelamento NFe com XML ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.EnviarEventoNFe(StrToInt(idLote)); ai deu certo, eu pensava que so usava ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; para criar nfc-e, depois era atuomatico mais blz. Crieu uma funcaozinha para resolver seria isso mesmo? if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.verAplic='3.00' then begin ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; end else begin ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; end;