Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 07-03-2016 em todas as áreas

  1. Bom dia Italo, Atualizei meu repositório para a revisão 11322 hoje e problema continou acontecendo. Na unit ACBrUtil, metodo NativeStringToUTF8 é chamado o "SetCodePage(RBS, 0, False);" que altera a string "CONSULTAR NÃO ENCERRADOS" para "CONSULTAR NÃO ENCERRADOS", alterei para "SetCodePage(RBS, 0, True);" e problema não acontece. Testei a emissão e cancelamento de algumas notas, fiz consulta de status dos serviços e está tudo funcionando. Obs.: Uso Delphi XE7.
    2 pontos
  2. https://www.invisionpower.com/ Vou marcar o oftalmologista. Ou teria que marcar algum para tratar a ansiedade, kkkkkkk. De qualquer forma obrigado !!!!
    2 pontos
  3. Se vc estiver usando Delphi XE7+ usa os componentes da REST.* Vc vai precisar 3 componentes: REST: TRESTClient; Request: TRESTRequest; Response: TRESTResponse; E vai montar o código parecido com esse: REST.BaseURL := ' http://cosmos.bluesoft.com.br/api'; Request.Client := REST; Request.Response := Response; Request.Method := rmGet; Request.Resource := '/gtins/{codigo}'; Request.Params.AddHeader('X-Cosmos-Token', 'SEU_TOKEN'); Request.Set Params.ParameterByName('codigo').Value := 'GTIN_DO_PRODUTO'; Request.Execute; if (Response.StatusCode = 200) then begin Meu_Objeto_Que_Representa_o_JSON_do_Cosmos := Meu_Parser_De_Json_Para_Algo_Que_Meu_Sistema_Entende(Response.JSONValue); end; Meu_Parser_De_Json_Para_Algo_Que_Meu_Sistema_Entende Aqui vc pode usar xSuperObject como o Renato falou ou outra biblioteca que lê JSON. Recomendo usar as do próprio Delphi System.JSON. Meu_Objeto_Que_Representa_o_JSON_do_Cosmos Aqui pode ser algo que o seu sistema conheça, um Objeto, um DataSet. Algo que represente o retorno do Cosmos. Um pequeno exemplo pra vc pegar valores do retorno do Cosmos usando a System.JSON: ResponseCosmos: TJSONValue; // Para pegar a description que está de exemplo no site: ResponseCosmos.GetValue<TJSONString>('description').Value; // Para pegar a o code do NCM que está de exemplo no site: ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('code').Value; ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('description').Value; ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('full_description').Value; // Note que os Parametros estao em minusculos, é CASESENSITIVE...
    2 pontos
  4. Caros deve ser de conhecimento comum que a tabela CEST mantem relacionamento para muitos e ate para todos. Pensei em algumas soluções e fui obrigado a pegar a tabela CEST e passar para TXT separado por (;) para depois para SQL Como o ACBr me ajuda muito, mesmo não sendo mais usuário do SAC, quero poder contribuir. Abraços a todos e parabéns a todos do ACBr. CEST12a.txt
    1 ponto
  5. Boa tarde Paulo, O Fortes Report é Free e o ACBr possui componentes para imprimir o DANFE da NF-e e NFC-e usando esse Report.
    1 ponto
  6. Aqui rodou os três testes. Quando sobrar um tempo vou te propor uma alteração nesses testes. Mas por enquanto acredito que já podemos encerrar esses tópico.
    1 ponto
  7. Eu faria o seguinte, se houver mais de um CEST mostre uma tela com todos os CEST para aquele NCM e deixe o usuário escolher. Por experiência própria, fazer tudo automaticamente pelo cliente, gera problemas e inconvenientes.
    1 ponto
  8. Boa tarde a todos, O componente ACBrNFe possui um método chamado DistribuicaoDFe que visa baixar as NF-e. Por favor leiam a Nota Técnica 2014/002 versão 1.01 Acredito que futuramente teremos algo semelhante para o CT-e.
    1 ponto
  9. O correto vai ser como abaixo , mas só a partir de 01/06/2016 que vai entrar CSOSN 400 , no leiaute 0.07 <ICMS> <ICMSSN102> <Orig>0</Orig> <CSOSN>400</CSOSN> </ICMSSN102> </ICMS> As alterações serão incorporadas na versão 0.07 do leiaute do CF-e-SAT a ser publicada pela SEFAZ. Nova redação, efeitos a partir de 01.06.16. Tributação do ICMS: pelo SIMPLES NACIONAL e CSOSN=102, 300, 400, 500
    1 ponto
  10. Na NFCe, não pode mesmo ter este bloco ICMSUFdest. este bloco é exclusivo para consumidor final, fora da UF do emitente. e NFCe NÃo permite emitir NFCe para fora da UF. ou seja, é apenas para dentro da própria UF do emitente. Então programe para que este bloco não seja inserido na NFCe.
    1 ponto
  11. Sugestão abre os arquivos no bloco de notas, altera as referencias remove os componentes e abre que vai funcionar seu projeto!
    1 ponto
  12. Olá @Dércio Luis Zanatta, @Agnaldo Prates e @Juliomar Marchetti e quem mais possa interessar. Consegui resolver os problemas referentes ao arquivo ACBRNFeServicos.ini da seguinte forma: Apaguei o arquivo ACBRNFeServicos.res que está na pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe acessei o prompt do DOS estando dentro da pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe, recompilei o arquivo ACBrNFeServicos.rc utilizando o comando BRCC32.EXE ACBRNFEServicos.rc O Delphi gerará um novo arquivo .res na pasta, copiei este novo arquivo gerado para a pasta \ACBr_trunk2\Lib\Delphi\LibD7 e agora está tudo funcionando perfeitamente sem a necessidade de enviar o arquivo .ini para o cliente. Concluo então que, diferente do que eu havia dito, o arquivo ACBrNFeServicos.ini está sim atualizado, porém o arquivo ACBrNFeServicos.res não é recompilado durante a instalação do componente. Agradeço pela atenção e desejo uma boa semana a todos.
    1 ponto
×
×
  • 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.