Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

geanjesus

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    475

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por geanjesus

    Como configurar certificado na NFE 4.0

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    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..

    Como configurar certificado na NFE 4.0

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por geanjesus

    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á...

     

    Como configurar certificado na NFE 4.0

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    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...

     

     

    Erro HTTP 500 - Nfe 4.0

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    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...

    Porque a forma de pagamento e valor nao aparece no XML

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por geanjesus

    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á...

    Porque a forma de pagamento e valor nao aparece no XML

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por geanjesus

    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...

    alguem ja fez conversao de sistema delphi 7 paradox p/ seatle firebird/mysql

    em Classificados

    Postado · Editado por geanjesus

    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....

     

    erro ao gerar TXT padrao sefaz

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    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;

     

    converter count em inteiro

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por geanjesus

    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...

     

    • Curtir 1

    erro ao gerar TXT padrao sefaz

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    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...


     

    ACBrHTTPReqResp nao encontrado apos atualização

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por geanjesus

    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)
     

     

    Ajuda Com AcbrMonitorPlus

    em ACBrMonitor PLUS

    Postado

    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?

    ..

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.