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

José Manoel

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    47

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por José Manoel

    Declaração de Importação

    em ACBrDiversos

    Postado

    Em 24/10/2017 at 11:49, Renan Silva disse:

    Tive problemas para fazer com base no XML, ele é meio confuso, pois os impostos estão pela adição em seu total, mas pode existir varias mercadorias e por sua vez não é a divisão dos impostos.....

     

    Use o Romaneio, geralmente eles fazem um planinha de preenchimento dos impostos, caso consiga algo, poste ae!

    @Renan Silva onde você consegue esse romaneio?

    Importação de XML do Siscomex

    em Object Pascal - Delphi & Lazarus

    Postado

    Em 16/06/2017 at 10:01, Fernando Rodrigo disse:

    ola pessoal, alguem ja fez algo, estou começando a fazer a importação do xml, se alguem tiver interesse e juntar o pessoal todo para fazer acho que valeria a pena.

     

    A ideia é fazer dessa forma 

     

     

    Fernando, como está o desenvolvimento?

    Tenho interesse em participar desse projeto.

    Em 15/03/2016 at 08:47, valterpatrick disse:

    Alguém já desenvolveu algum sistema utilizando os componentes do ACBr para importar XML do Siscomex?

    Estou precisando desenvolver um aplicativo que importe o XML e gere os dados para uma Nota Fiscal de Entrada.

    Alguém ai pode me ajudar?

    Seria muito interessante ter esse recurso.

    Nossa demanda está aumentando. Hoje os despachantes mandam o xml já em "formato de NFe" para os nossos clientes, mas alguns estão dizendo que o trabalho deles é entregar apenas o xml da declaração de importação.

    Ainda estou iniciando no assunto. Tenho poucas informações, mas podemos nos unir e tentar desenvolver algo em conjunto.

    Prefeitura de Lorena/SP ACBrNFSe

    em ACBrNFSe

    Postado

    Prezados, bom dia.

    Estou procurando o procedor SIAPNet, da prefeitura da cidade de Lorena/SP, mas não estou encontrando.

    Gostaria de confirmar se esse provedor não está mesmo homologado, ou se está com outro nome.

    No arquivo Cidades.ini consta que usa o ISSNet, mas ao tentar enviar e em contato com o suporte da empresa (embras) fui informado que o caminho indicado no XML (http://www.issnetonline.com.br/webserviceabrasf/vsd/servico_enviar_lote_rps_envio.xsd), não se refere ao sistema deles.

    Url do serviço da prefeitura: https://siap.lorena.sp.gov.br/pmlorena/websis/siapnet/arrecadacao/issonline/iss.login.php

    Obrigado desde já pelas informações.

    Erro ao imprimir a NFSe

    em ACBrNFSe

    Postado

    Em 15/10/2015 at 17:38, Agnaldo Prates disse:

    Faz o seguinte, abra o seu D7 normalmente, vá na pasta "Acbr\Fontes\ACBrDFe\ACBrNFSe\DANFSE\Fortes", se for trunk2  "Acbr\Fontes\ACBrNFSe"

    Abra nesta ordem as units: ACBrNFSeDANFSeRL.pas -> vai ocorrer o erro, prossiga, até abrir o form.
    Abra esta unit ACBrNFSeDANFSeRLRetrato.pas, -> vai ocorrer o erro, prossiga, até abrir o form.

    Pressione F12 tanto na primeira quanto na ultima, abra uma linha em branco no final, ou simplesmente altere qualquer coisa que não interfira no arquivo e salve, faça isso nas duas units.

    Agora basta seguir a instalação normal.

    As informações são para o trunk2, mas o procedimento é o mesmo para trunk.

    Att.

    Solução perfeita!

    Obrigado.

    ACBrNFe 4.0 - Erro ao executar status Serviço

    em ACBrNFe

    Postado

    @BigWings 

    . Desmarquei a opção "Verificar se há certificados revogados do fornecedor";

    . Alterei a diretiva de compilação {$DEFINE USE_MINGW} e copiei as dlls para a pasta do projeto;

    . Coloquei no componente o arquivo pfx e a senha.

    Nenhum desses procedimentos deu certo. Será que tem mais alguma coisa?

    Muito obrigado.

     

    Em 10/07/2017 at 09:30, arce disse:

    Uma dúvida. Consigo emitir uma NFe com o layout 3.10 em homologação? Ou apenas 4.0?

    3.10 aqui está funcionando normalmente.

    ACBrNFe 4.0 - Erro ao executar status Serviço

    em ACBrNFe

    Postado

    1 hora atrás, JJA disse:

    Bom dia sandrovillas,

    acabei de testar aqui o componente atualizado. Consegui evoluir no seguinte ponto:
    - Antes não conseguia nenhum  resultado no status de serviço, nem em homologação e nem em produção.
    Hoje consegui obter sucesso no status de homologação, mas produção continua dando o erro 500.

    O que eu mudei:
    - Havia alterado o arquivo ACBr.inc para instalar com o tal de MinGW, mas como vi que algumas pessoas estavam conseguindo evoluir com o ACBr 4.0 para SP, então só  poderia ser algo que tinha feito.

    Pois bem, reverti o arquivo ACBr.inc e reinstalei o componente, e agora consegui obter sucesso no status de serviço em homologação, mas em produção ainda  sem sucesso.

    Agora se surgiu algumas dúvidas:
    1) ACBr com MinGW será que está com problemas?
    2) ACBr com MnGW serve apenas para atender certificados A3 correto? Se usar A1, nem preciso me preocupar em ativa-lo no ACBr?
    3) NFe 4.0 para  São Paulo realmente ainda não está disponível para produção?
     

    Também estou tendo problemas. Após rodar ACBrNFe.WebServices.StatusServico.Executar tenho a seguinte resposta:

    image.png.12fe74778dfcffd1721f81a7dc30b705.png

    NFe 4.0 - Modalidade de Frete

    em ACBrNFe

    Postado

    Prezados, boa tarde.
    Identifiquei uma inconsistência na NFe 4.0 em relação à Danfe;
    Na impressão, ao selecionar as modalidades 3 e 4, o campo Frete Por Conta fica em branco.
    Está assim: 

    function modFreteToDesStr(const t: TpcnModalidadeFrete): string;
begin
  case t  of
    mfContaEmitente     : result := '0 - EMITENTE';
    mfContaDestinatario : result := '1 - DEST/REM';
    mfContaTerceiros    : result := '2 - TERCEIROS';
    mfSemFrete          : result := '9 - SEM FRETE';
  end;
end;

    Poderia ser assim: 

    function modFreteToDesStr(const t: TpcnModalidadeFrete): string;
begin
  case t  of
    mfContaEmitente       : result := '0 - EMITENTE';
    mfContaDestinatario   : result := '1 - DEST/REM';
    mfContaTerceiros      : result := '2 - TERCEIROS';
    mfProprioRemetente    : result := '3 - PROP/REMT';
    mfProprioDestinatario : result := '4 - PROP/DEST';
    mfSemFrete            : result := '9 - SEM FRETE';
  end;
end;

    Obrigado.
    Att,

    Dados do Medicamento nas Informações Adicionais do Produto

    em ACBrNFe

    Postado

    17 minutos atrás, hleorj disse:

    Segue @José Manoel 

    
Function TACBrNFeFRClass.ManterMedicamentos( inItem:  integer  ) : String;
Var
  i : Integer;
begin
  Result := '';
  { detalhamento específico de medicamentos }
  with FNFe.Det.Items[inItem].Prod do
  begin
    if med.Count > 0 then
    begin
      Result := sQuebraLinha;
      for i := 0 to med.Count - 1 do
      begin
        if NFe.infNFe.Versao >= 4 then
          Result := Result + 'C.P. ANVISA '+ med.Items[i].cProdANVISA+ sQuebraLinha
        else
        begin
          Result := Result + 'LOTE: ' + med.Items[i].nLote+ sQuebraLinha;
          Result := Result + 'QTD: '  + FormatFloatBr(med.Items[i].qLote)+ sQuebraLinha;
          Result := Result + 'FAB: '  + FormatDateBr(med.Items[i].dFab)+ sQuebraLinha;
          Result := Result + 'VAL: '  + FormatDateBr(med.Items[i].dVal)+ sQuebraLinha;
        end;
        Result := Result + IfThen( med.Items[i].vPMC  > 0, 'PMC: ' + FormatFloatBr(med.Items[i].vPMC) + ';' , '');
      end;
    end;
  end;
end;

    Adicionado  : ManterRastro 

    
Function TACBrNFeFRClass.ManterRastro( inItem:  integer  ) : String;
Var
  i : Integer;
begin
  Result := '';
  { rastreabilidade do produto}
  with FNFe.Det.Items[inItem].Prod do
  begin
    if Rastro.Count > 0 then
    begin
      Result := sQuebraLinha;
      for i := 0 to Rastro.Count - 1 do
      begin
        Result := Result + 'LOTE: ' + rastro.Items[i].nLote+ sQuebraLinha;
        Result := Result + 'QTD: '  + FormatFloatBr(rastro.Items[i].qLote)+ sQuebraLinha;
        Result := Result + 'FAB: '  + FormatDateBr(rastro.Items[i].dFab)+ sQuebraLinha;
        Result := Result + 'VAL: '  + FormatDateBr(rastro.Items[i].dVal)+ sQuebraLinha;
        Result := Result + ACBrStr('C.AGREGAÇÃO: ' ) + rastro.Items[i].cAgreg+ ';';
      end;
    end;
  end;
end;

    Seria a solução ideal ?

    Não tenho certeza sobre o ManterRastro, pois a NT (Pág. 49) informa que somente os valores relacionados a FCP devem ser relacionados no infAdProd.

    Sobre o ManterMedicamentos acho que seu código está correto. Eu havia me esquecido do novo campo cProdAnvisa.

    Dados do Medicamento nas Informações Adicionais do Produto

    em ACBrNFe

    Postado 

    Function TACBrNFeFRClass.ManterMedicamentos( inItem:  integer  ) : String;
Var
  i : Integer;
begin
  Result := '';
  { detalhamento específico de medicamentos }
  with FNFe.Det.Items[inItem].Prod do
  begin
    if med.Count > 0 then
    begin
      Result := sQuebraLinha;
      for i := 0 to med.Count - 1 do
      begin
        if NFe.infNFe.Versao < 4 then
        begin
           Result := Result + 'LOTE: ' + med.Items[i].nLote+ sQuebraLinha;
           Result := Result + 'QTD: '  + FormatFloatBr(med.Items[i].qLote)+ sQuebraLinha;
           Result := Result + 'FAB: '  + FormatDateBr(med.Items[i].dFab)+ sQuebraLinha;
           Result := Result + 'VAL: '  + FormatDateBr(med.Items[i].dVal)+ sQuebraLinha;
        end;
        Result := Result + IfThen( med.Items[i].vPMC  > 0, 'PMC: ' + FormatFloatBr(med.Items[i].vPMC) + ';' , '');
      end;
    end;
  end;
end;

    Acredito que essa seja a implementação correta.

    Att,

    Dados do Medicamento nas Informações Adicionais do Produto

    em ACBrNFe

    Postado

    Boa tarde amigos.

    Percebi que a danfe em Fast está carregando os dados do medicamento para as informações adicionais do produto. Como esses dados foram movidos para a tag <rastro> os campos estão ficando vazios na danfe. Segue trecho de código do arquivo ACBrNFeDANFEFRDM. 

    Minha interpretação está correta?

    Obrigado. 

    Function TACBrNFeFRClass.ManterMedicamentos( inItem:  integer  ) : String;
Var
  i : Integer;
begin
  Result := '';
  { detalhamento específico de medicamentos }
  with FNFe.Det.Items[inItem].Prod do
  begin
    if med.Count > 0 then
    begin
      Result := sQuebraLinha;
      for i := 0 to med.Count - 1 do
      begin
        Result := Result + 'LOTE: ' + med.Items[i].nLote+ sQuebraLinha;
        Result := Result + 'QTD: '  + FormatFloatBr(med.Items[i].qLote)+ sQuebraLinha;
        Result := Result + 'FAB: '  + FormatDateBr(med.Items[i].dFab)+ sQuebraLinha;
        Result := Result + 'VAL: '  + FormatDateBr(med.Items[i].dVal)+ sQuebraLinha;
        Result := Result + IfThen( med.Items[i].vPMC  > 0, 'PMC: ' + FormatFloatBr(med.Items[i].vPMC) + ';' , '');
      end;
    end;
  end;


end;

     

    Sat Fiscal - Problema No Campo Infadic Obsfisco Xcampo / Xtexto

    em ACBrSAT

    Postado

    procedure TACBrSATExtratoESCPOS.GerarObsFisco;
    var
      i : integer;
    begin
      if (CFe.InfAdic.obsFisco.Count > 0) or
         (CFe.Emit.cRegTrib = RTSimplesNacional) then
         FBuffer.Add('<c> ');

      if CFe.Emit.cRegTrib = RTSimplesNacional then
         FBuffer.Add('<c>' + Msg_ICMS_123_2006 );

      for i:=0 to CFe.InfAdic.obsFisco.Count - 1 do
        if (CFe.InfAdic.obsFisco.Items.xCampo <> 'xCampo1')
            and (CFe.InfAdic.obsFisco.Items.xTexto <> 'xTexto1') then
          FBuffer.Add('<c>'+CFe.InfAdic.obsFisco.Items.xCampo+'-'+
                                       CFe.InfAdic.obsFisco.Items.xTexto);
    end;

     

    Prezados, bom dia.

    Será que podemos adicionar a condição acima no arquivo ACBrSATExtratoESCPOS.pas para que não sejam impressos esses campos? Será que há alguma implicação legal?

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