Ir para conteúdo
  • Cadastre-se

José Manoel

Membros
  • Total de ítens

    47
  • Registro em

  • Última visita

Tudo que José Manoel postou

  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,
  13. Sim @hleorj, mas na NFe 4.0 eu vi que isso foi alterado. Na página 12 da NT 2016.002 V1.10 consta que esses campos foram excluídos desse bco. Eu esqueci de mencionar que o erro é da NFe 4.0.
  14. 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;
  15. Acabei de fazer o update e build. A consulta de status do serviço funciona. O enviar retorna o seguinte: Erro Interno: 0 Erro HTTP: 500 : 0
  16. Prezados, bom dia. Alguém já conseguiu transmitir com sucesso uma NFe 4.0 no estado de São Paulo? Obrigado.
  17. Verdade. Eu me confundi la leitura aqui. São urls diferentes. Vou aguardar para novos testes. Obrigado.
  18. Fiz os testes com o programa de demonstração. RS funciona normal. SP retorna o erro 500.
  19. Sim. Testei com os schemas da pasta de exemplos e com os do ultimo link do portal da sefaz. Ambos sem sucesso. Estou fazendo alguma coisa errada. SP e RS usam o mesmo serviço. Vou revisar tudo. Depois posto o resultado.
  20. Jonathan, de que estado você é? Aqui em São Paulo continua dando erro após alterar a função.
  21. 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.