geanjesus

Ola, com qual certicado? a1 ou a3

Só mais uma pergunta... sera que eu posso colocar esses ajustes nessa mesma rotina?...

Puxa até que enfim , era exatamente isso que eu ainda nao tinha entendido, pois eu ficava mudando lá no windows , e nao adiantava nada... talvez o erro foi meu mesmo , pois ja saí..fazendo direto no meu sistema, nem parei para estudar muito o demo não...so tinha dado uma olhada, mas nao sabia quais parametros usar...entao agora acho que vai...Muito Obrigado aí...Daniel..

Ola Daniel ja sei, o que nao estou sabendo é como configurar o ssl e correlacoes...pois da erro ,,http 500 , dai eu coloco ssl 2.0 tls 1.2 no windows entao da erro 12 157 sei lá quais sao os parametros para funcionar e eu conseguir enviar uma nfe 4.0 em homologação em SP.. nao consegui ainda, mas e´a primeira vez que estou tentando, o XML com os campos ja estao todos ok, ja chequei, o problema é a comunicação com a sefaz e as configuraçoes do ACBR com relçao ao certificad, que ainda nao entendi nada... veja que no demo da NFE tem os combos lá...mas o problema é quais opcoes devo usar, na minha aplicaçao, nao estou usando o demo, para me comunicar com a sefaz a respeito do certificado..e o ssl...tinha que ter um antes e um Depois ai, porisso eu mandei meu codigo...antes bastava isso , mas agora parece que tem que informar um monte de coisas mais...sei lá...

Ola Srs do Acbr, ja perguntei em outros lugares sobre duvidas , mas como ninguem respondeu, significa que nao entenderam minha duvida entao abri este post e segue como eu fazia sempre para carregar o certificado na versao NFE 3.10 segue: o codigo procedure AjustarCertificados; var sfilial:String; sComputer:string; vNumeroSerie:string; begin sfilial:=dtmParametros.cdParmsFilial.AsString; sComputer:=dtmDFe.ComputerInfo.Identification.LocalComputerName; with dtmDFe.NFe.Configuracoes.Certificados do begin if dtmDfe.ExisteCertificado(sFilial,sComputer, vNumeroSerie)>0 then begin NumeroSerie := vNumeroSerie; end else raise Exception.Create(Format('O Certficado Digital não esta configurado' + #13#10 + 'nesta Filial (%s).', [sFilial])); end; end; ou seja eu somente informava o numero de serie do certificado Porem , agora parece que mudou e nao tenho a minima idéia de com fazer , precisaria de uma ajuda, Obs : SAC, pagamento em ordem...

Mais um duvida, o AcbrNFEservicos.ini precisa estar junto com meu executável? ...

Atualizado em 03-10-2017 o Acbr...

Olá Srs do ACbr , na consulta do webservice de homologaçao, retornou webservice ativo, mas na hora de enviar ERRO: http 500 , essa é a primeira vez que tento enviar para teste tambem nao sei se tem que configurar alguma coisa no ACBR, ou no meu programa , ou no certificado, ou no windows, pois os campos novos foram gerados no xml, mas , nao enviou nao... estou sem entender nada.... Alem dos ajustes dos Campos novos, devem ter ajustes, para serem feitos no ACBR...e outros, porem preciso de ajuda...

Ok BigWings, atualizei...na verdade reinstalei o acbr ultima versao... e ja funcionou...muito Brigado pels Dicas...valeu... Agora , respondendo minha própria pergunta...porque a forma de pagamento e valor nao aparece no XML?... porque nao estava lá...rsrsr...

Olá Bigwings, no caso do vPag voce tinha razão, era problema de ponto e virgula, ja arrumei, mas no caso do tPag ainda esta com 01 e o correto é 15 .... Olá , mais uma vez voce tem razão, olhei lá e nao tem a forma de pagamento 15, vou atualizar , valeu....>>>>

Ok BigWings, mas é o tPag nao é float, e ainda estou usando a conversão, e no meu sistema aparece lá string = '15'... com a conversao deveria aparecer no XML tPag=15, mas aparece 01, como se ele estivesse ignorando toda a carga do componente que fiz, talvez eu esteja fazendo a carga do componente de forma errada....sei lá... esse 01 do tPag deve ser algum default do acbr quando o forma esta em branco...sei lá...

Ola srs do ACBR, nao consigo pegar as formas de pagamento no XML, segue como estou fazendo e nao está funcionando onde estou errando... function GerarNFe: Boolean; begin dtmDFe.NFe.NotasFiscais.Clear; with dtmDFe.NFe.NotasFiscais.Add.NFe do begin LeDadosNFe(infNFe); // infNFe: TinfNFe LeIdentificacaoNFe(Ide, 1, fnNormal); // Ide : TIde LeEmitente(Emit); // Emit : TEmit LeDestinatario(Dest); // Dest : TDest LeLocalRetirada(Retirada); // Retirada : TRetirada LeLocalEntrega(Entrega); // Entrega : TEntrega LeItensNF(Det); // Det : TDetCollection LeTotais(Total); // Total : TTotal LeTransporte(Transp); // Transp : TTransp LeCobranca(Cobr); // Cobr : TCobr LePagtos(Pag); // Pag : TPagCollection Aqui nao esta funcionando...porque? LeInfoAdic(InfAdic); // InfAdic : TInfAdic LeDadosExporta(Exporta); // Exporta : TExporta LeInfoCompra(Compra); // Compra : TCompra end; end; function LePagtos(Pag : TPagCollection) : boolean; begin Result := false; try try if dtmDFe.cd_RefY.AsBoolean then begin if (dtmDFe.cd_RefYA.AsBoolean) and (dtmDFe.cd_YA.RecordCount > 0) then begin dtmdfe.cd_YA.First; while not dtmdfe.cd_YA.eof do begin with pag.add do begin tPag := strToFormaPagamento(OK,dtmDFe.cd_YAtpag.AsString); // aqui ja chequei com debug os dados estao aí.... vPag := strToFloatDef(dtmDFe.cd_YAvPag.AsString,0); // e aqui tambem....porem no xml sai tPag = 01 e vPag = 0.00 tpIntegra := StrToTpIntegra(OK,dtmDFe.cd_YAtpintegra.AsString); if dtmDFe.cd_YAtpIntegra.AsInteger = 1 then begin tBand := strToBandeiraCartao(OK,dtmDFe.cd_YAtBand.AsString); cAut := dtmDFe.cd_YAcAuto.AsString; CNPJ := dtmDFe.cd_YACNPJ.AsString; end; end; pag.vTroco := strtofloatdef(dtmDFe.cd_YAvTroco.AsString,0); dtmdfe.cd_YA.Next; end; Result := True; end; end; except on NFeException: EACBrNFeException do begin LogNFe(NFeException.Message); LogNFe('**Bloco de Informações de Pagamentos não pode ser carregado!**'); Exit; end; end; finally end; end; no XML saiu assim ......... ......... -<cobr> -<fat> <nFat>19942</nFat> <vOrig>158.70</vOrig> <vLiq>158.70</vLiq> </fat> -<dup> <nDup>019942</nDup> <dVenc>2017-10-03</dVenc> <vDup>158.70</vDup> </dup> </cobr> -<pag> -<detPag> <tPag>01</tPag> <vPag>0.00</vPag> </detPag> </pag> -<infAdic> ........ Onde foi que eu errei... Obs: o restante está tudo funcionando...já há tempos...

Preciso de um tutorial, um passo a passo e se for preciso um orçamento, .... para conversão, em no maximo 2 meses, um sistema retaguarda, e frente de loja que usa acbr, mas tem muitos componentes , que na maioria tem os fontes, e usa paradox , esta em delphi 7, mas o BDE esta dando alguns problemas, e ja chegou ao limite...em alguns clientes, preciso passar para firebird ou mysql, usando dbexpess, ou zeos, ou firedac, sei lá... preciso me livrar do BDE em principio, depois vou fazendo ajustes, o sistema ja esta em funcionamento a varios anos, ...e é bem completo, para automação e bem flexivel.. só preciso mudar a base, por enquanto... veja bem , nao é só trocar a base de dados de paradox para firebird, é trocar a base e adaptar isso no sistema....

Olá estou tentando migrar delphi 7 paradox pra delphi seatle firebird ou mysql, gostaria de alguma ajuda nesta empreitada...o que pega de mais ...sómente para passar de paradox para firebird/mysql? ou seja sair do BDE...pode ser DBexpress ou Firedac...help-me....isso em 2 meses no maximo...aceito sugestões, ou ajuda...

Olá André, da forma que esta no demo da NFE do ACBR funciona, mas eu usei outra forma, quando é GerarTXTSimultaneamente..e aí estava com erro... fiz umas mudanças no componente e agora esta funcionado ok... segue como fiz , nao sei se esta certo..por aqui resolveu function NotaFiscal.GravarTXT(NomeArquivo: String; PathArquivo: String): Boolean; var ATXT: String; i : integer; begin FNomeArq := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo); ATXT := GerarTXT; //alterado aqui em 20-09-2017 por Geanjesus, para acrescentar a 1 linha i := self.Collection.Count; ATXT := 'NOTA FISCAL|' + inttostr(i) + #13#10 + ATXT; Result := TACBrNFe(TNotasFiscais(Collection).ACBrNFe).Gravar( ChangeFileExt(FNomeArq, '.txt'),ATXT,'', False); //estou passando false aqui para controlar o UTF8 do TXT end; function TACBrDFe.Gravar(NomeArquivo: String; ConteudoXML: String; aPath: String; ConteudoEhUTF8: Boolean): Boolean; var UTF8Str, SoNome, SoPath: String; begin Result := False; try SoNome := ExtractFileName(NomeArquivo); if EstaVazio(SoNome) then raise EACBrDFeException.Create('Nome de arquivo não informado'); SoPath := ExtractFilePath(NomeArquivo); if EstaVazio(SoPath) then SoPath := aPath; if EstaVazio(SoPath) then SoPath := FPConfiguracoes.Arquivos.PathSalvar; SoPath := PathWithDelim(SoPath); ConteudoXML := StringReplace(ConteudoXML, '<-><->', '', [rfReplaceAll]); { Sempre salva o Arquivo em UTF8, independente de qual seja a IDE... FPC já trabalha com UTF8 de forma nativa } if ConteudoEhUTF8 and (not XmlEhUTF8(ConteudoXML)) then UTF8Str := '<' + ENCODING_UTF8 + '>' + ConteudoXML else // Alterado aqui em 19-09-2017 por Geanjesus, pois ConteudoEhUTF8 = False somente quando TXT e // nao pode acrescentar TAG UTF8 de XML...estava gerando errado... if not ConteudoEhUTF8 then UTF8Str := NativeStringtoUTF8(ConteudoXML) else UTF8Str := ConverteXMLtoUTF8(ConteudoXML); if not DirectoryExists(SoPath) then ForceDirectories(SoPath); NomeArquivo := SoPath + SoNome; WriteToTXT(NomeArquivo, UTF8Str, False, False); Result := True; except on E: Exception do GerarException('Erro ao salvar.', E); end; end;

Oi Italo, esse comando que voce me passou nao funcionou...pois estou alterando o proprio componente.do ACBR...nao posso chamar uma instancia do proprio componente nele mesmo...mas ja dei um jeito... usei da seguinte forma: var i : integer; begin i := self.collection.count e está funcionando...agora...

Valeu Italo...

Ola sr do acbr , como faço para converter i : integer; i := TACBrNFe(TNotasFiscais(Collection).Count) //nao funciona

Ola Sr do Acbr, ao tentar gerar o TXT, com ACBR ultima versao, no padrao sefaz houve o erro abaixo, no codigo tenta converter para UTF8 o TXT e ainda some com a primeira linha arquivo gerado com erro: <?xml version="1.0" encoding="UTF-8"?>A|3.10|NFe35170921798000000159550010000012101000012108 B|35|00001210|VENDA DE MERC. P/ FORA DO ESTADO AD TERC|0|55|1|1210|2017-09-18T21:15:30-03:00|2017-09-18T21:15:30-03:00|1|2|3550308|1|1|8|2|1|1|9|0|3.10.3|| C| . . arquivo como deveria ser: NOTA FISCAL|1 A|3.10|NFe35170921798000000159550010000012101000012108 B|35|00001210|VENDA DE MERC. P/ FORA DO ESTADO AD TERC|0|55|1|1210|2017-09-18T21:15:30-03:00|2017-09-18T21:15:30-03:00|1|2|3550308|1|1|8|2|1|1|9|0|3.10.3|| C| . . a pergunta é, voceis não farão mais correções disso? ou faltou eu setar alguma variavel....para sair correto...

Sim, Juliomar no combo pode ser 0, 1 ou 2

Acho que ja achei a resposta... ImprimirUnQtVlComercial := TImprimirUnidQtdeValor(cbxUnComTributavel.ItemIndex);

Ola Italo, Acho que nao entendeu minha dúvida, Não tenho problema na instalação, a instalação está tudo ok, o problema é no meu sistema com a mudança que foi feito, sumiram com a unit acima , preciso saber como proceder..só isso...de acordo com o change-log...sera´que basta trocar pelo outro nome..na user....como segue? essa é minha dúvida... ja fiz isso e o programa compilou sem o erro , mas minha duvida é...posso colocar nos clientes e vai funcionar como antes?, ou precisa fazer mais algum ajuste... Data: 19/03/2017 -- ACBrCapicom -- ***** PACOTE DESCONTINUADO ***** [*] Unit "ACBrHTTPReqResp" removida de ACBrDFeCapicom e movida para o pacote ACBrTCP com o nome de "ACBrWinINetReqResp", pois agora a mesma não depende mais da CAPICOM [*] Units "ACBrMSXML2_TLB.pas" e "ACBrCAPICOM_TLB.pas" movidas para "Fontes\Terceiros\Ole" (por: DSA)

Ola srs do Acbr Apos atualização , No meu sistema ImprimirUnQtVlComercial := true; deu erro entao como devo proceder agora...

Olá Srs do ACBR , depois de uma longo periodo, resolvi atualizar o acbr, só que como nao consegui baixar a ultima versao ,deu erro quando tentei puxar pelo SVN, instalei uma versao de 19/07/2017, quando compilo meu sistema , esta unit ACBrHTTPReqResp, nao foi encontrada, como devo proceder agora...

No meu sistema nao tenho um modulo de transporte para transportadora, meu sistema é para automacao comercial, como mercados,lojas de material de construcao, farmacias , conveniencias, restaurantes e afins, e nãa especifico para transportadora.. No meu enteder , para emitir CT-e , MDF-e seria mais para empresas que realmente prestam serviços de Transportes, , seja Rodoviario, Ferroviasrio, ,Maritimo ou Aéreo... no caso da automação comercial como disse acima, no maximo envolve transporte proprios, a pergunta é ..mesmo assim tenho que ter um modulo completo somente para transportadora? pois para se emitir CT-e. e MDF-e , vou precisar ter todos os dados exigidos de uma transportadora.. se entendi bem , todo sistema , mesmo que nao tenha nada a ver com prestacao de servicos de transportes , vão ter que ter um modulo somente para transportadora, por causa do CT-e e MDF-e..é isso? ..