Ir para conteúdo
  • Cadastre-se

José Manoel

Membros
  • Total de ítens

    47
  • Registro em

  • Última visita

Últimos Visitantes

1.352 visualizações

José Manoel's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputação

1

Community Answers

  1. @Renan Silva onde você consegue esse romaneio?
  2. Fernando, como está o desenvolvimento? Tenho interesse em participar desse projeto. 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.
  3. Isso quer dizer que não é suportado. Certo ?
  4. 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.
  5. @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. 3.10 aqui está funcionando normalmente.
  6. Também estou tendo problemas. Após rodar ACBrNFe.WebServices.StatusServico.Executar tenho a seguinte resposta:
  7. Não sei se é bem isso que você quer, mas dê uma pesquisada na Mix Fiscal. http://www.mixfiscal.com.br Boa sorte.
  8. Somente para informar, estou recebendo esse erro agora.
  9. 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,
  10. Não seria interessante parametrizar essa opção do <rastro>? Não encontrei nada que obrigasse emitir esses dados no Danfe, e acho que isso pode gerar reclamações por parte dos clientes.
  11. 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.
  12. 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,
×
×
  • 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.