[Utilizar API de um site JSON]

Ola a

Em 26/12/2017 at 17:39, LeandroLJM disse:

Boa Tarde Pessoal!

Tenho que consumir um servidor REST, estou usando os componentes nativos do RAD Stúdio Berlin. (RESTClient, RESTRequest, RESTResponse).

Só que agora o servidor quer que envie os arquivos JSON por HTTPS assinado por um certificado digital, faz uns 15 dias que estou tentando e não obtive sucesso.

Hoje faço dessa forma: (sem Assinatura)

    RESTClient1.BaseURL := 'https://hom.api.ms.gov.br/apifrig/classificadores?ie_frigorifico=99999999&cpf_classificador=99999999999&ie_empresa=999999999';
    RESTRequest1.Method := TRESTRequestMethod.rmPOST;
    RESTRequest1.Body.Add(jObj.ToString,ContentTypeFromString('application/json'));
    RESTRequest1.Execute;

Segue o exemplo em anexo em C# como deveria funcionar.

Obrigado.

 

ExeCsharp.rar

Ola amigo, qual foi a solucao deste problema, pois estou com exatamente a mesma duvida

[Problema Convenio 115/03 - Versão 2017]

Amigo, estou entrando nesse mundo agora da nota 21,22

me da uma ajuda em uma duvida, qual programa devo usar para enviar os arquivos gerados?, tenho q entrar em alguma site da receita ou algo do tipo, tem algum webservice?

[Rejeição: Município De Descarregamento Duplicado No Mdf-E]

este codigo serve tambem pra adicionar as notas dentro do mdfe?

[Property cieloPremia does not exist]

Ola boa noite, derrepente na minha aplicação feita em Delphi 7 comecou a dar esse erro quando se abre o form de ECF.

ja revirei tudo e nao faco ideia, alguem poderia me ajudar?

 

[Problemas WinCrypt]

Em 06/10/2017 at 16:01, Diego Henicka disse:

Boa tarde, ainda não, a solução foi deixar o cliente rodando com a Capcon

intendi, tive que fazer o seguinte, não é solucao definitiva, mas eu retirei a senha automatica do sistema, deixei o certificado pedir a senha ai posso emitir qts notas quiser, o unico problema é que eu nao emito nota direto do sistema, eu uso meu servidor de app pra varias maquinas emitirem nota, a unica dificuldade é que nao posso fechar o servidor, pois a 1º nota emitida ele pede senha la no servidor, rsrsrs,

tive que fazer isso. se v tiver uma outro solucao, me informe amigo  ...

agradecido 

[Problemas WinCrypt]

Em 14/08/2017 at 15:15, Diego Henicka disse:

Boa tarde, estou tendo o mesmo problema para emitir NFSe para a cidade de João Pessoa/Paraiba, ja segui as dicas, estou utilizando já a versão com WinCrypt sem precisar da capcon. Testei as diversas configurações da SSLType e nada, testei na minha máquina e na maquina do cliente mesmo erro. Funciona na versão antiga tendo que registrar a Capcon, alguem tem alguma dica. Agradeço. Segue configurações:

 

ACBrNFSe1.Configuracoes.Geral.SSLLib := libWinCrypt;

ACBrNFSe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBrNFSe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
ACBrNFSe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml;

ACBrNFSe1.SSL.SSLType := LT_all;

Oi amigo conseguiu resolver este problema?, uso o windows 7 e da esse mesmo erro, com estas mesmas configuracoes.

[Fazer um manifesto incluindo um conhecimento e uma nota]

Ok, amigo, muito obrigado, so pra modo de curiosidade, no sistema da receita daria pra fazer isso, jogar 1 cte e uma nfe em um manifesto?

[Fazer um manifesto incluindo um conhecimento e uma nota]

meu codigo .... veja se esta incorreto alguma coisa
 

     with infDoc.infMunDescarga.Add do
      begin
        qrymfitens.First;
        while not qrymfitens.Eof do
          begin
           //************************************************************************//
           //INCLUINDO DESCARREGAMENTO POR CIDADE                                    //
           //************************************************************************//

            cMunDescarga := qrymfitens.FindField('IBGE').AsInteger;
            xMunDescarga := qrymfitens.FindField('CIDADE').AsString;

            if qrymfitens.findfield('SERIENOTA').AsString = 'NE' then
              begin
                with infNFe.Add do
                  begin
                    chNFe    := qrymfitens.findfield('CODIGOBARRAS').AsString;
                    with infUnidTransp.Add do
                     begin
                        tpUnidTransp := utRodoTracao;
                        idUnidTransp := qrymfmestre.findfield('PLACA').AsString;

                       with lacUnidTransp.Add do
                        begin
                          nLacre := '123';
                        end;

                       with infUnidCarga.Add do
                        begin
                          tpUnidCarga := ucOutros;
                          idUnidCarga := 'SACOS';
                          with lacUnidCarga.Add do
                           begin
                            nLacre := '123';
                           end;
                          qtdRat := 1.0;
                        end;
                        qtdRat := 1.0;
                     end;
                  end;
              end;

            if qrymfitens.findfield('SERIENOTA').AsString = 'CT' then
              begin
                with infCTe.Add do
                  begin
                    chCTe    := qrymfitens.findfield('CODIGOBARRAS').AsString;
                    with infUnidTransp.Add do
                     begin
                        tpUnidTransp := utRodoTracao;
                        idUnidTransp := qrymfmestre.findfield('PLACA').AsString;

                       with lacUnidTransp.Add do
                        begin
                          nLacre := '123';
                        end;

                       with infUnidCarga.Add do
                        begin
                          tpUnidCarga := ucOutros;
                          idUnidCarga := 'SACOS';
                          with lacUnidCarga.Add do
                           begin
                            nLacre := '123';
                           end;
                          qtdRat := 1.0;
                        end;
                        qtdRat := 1.0;
                     end;
                  end;
              end;

            if qrymfitens.findfield('SERIENOTA').AsString = 'PR' then
              begin
                with infNF.Add do
                  begin

                    nNF  := qrymfitens.findfield('NOTA').AsInteger;
                    UF   := qrymfitens.findfield('ESTADO').AsString;
                    vNF  := qrymfitens.findfield('VLRTOTAL').AsFloat;
                    serie:= 1;
                    dEmi := Date;

                    with infUnidTransp.Add do
                     begin
                        tpUnidTransp := utRodoTracao;
                        idUnidTransp := qrymfmestre.findfield('PLACA').AsString;

                       with lacUnidTransp.Add do
                        begin
                          nLacre := '123';
                        end;

                       with infUnidCarga.Add do
                        begin
                          tpUnidCarga := ucOutros;
                          idUnidCarga := 'SACOS';
                          with lacUnidCarga.Add do
                           begin
                            nLacre := '123';
                           end;
                          qtdRat := 1.0;
                        end;
                        qtdRat := 1.0;
                     end;
                  end;
              end;
             qrymfitens.Next;
          end;
      end;

    tot.qCTe   := qrymfmestre.findfield('CONHECIMENTO').AsInteger;
    tot.qNFe   := qrymfmestre.findfield('QUANTIDADE').AsInteger;
    tot.qCarga := qrymfmestre.findfield('PESOBRUTO').AsFloat;
    tot.vCarga := qrymfmestre.findfield('VLRTOTAL').AsFloat;
    tot.cUnid  := uKG;

[Fazer um manifesto incluindo um conhecimento e uma nota]

Ola amigo ... 

Olha so ... o acbr nao deixa eu alimentar o componente com as 2 opcoes .... uma nota e um conhecimento.

 

0-env-lot.xml

[Fazer um manifesto incluindo um conhecimento e uma nota]

Ola bom dia, ja pesquisei e nao consegui uma solucao ....

Meu cliente é uma Tranportadora ... e a pergunta é ...

posso fazer um manifesto contendo um conhecimento e uma nota?
ele da o seguinte erro: 

quantidade informada no grupo de totalizadores não confere com a quantidade de documentos relacionada,
ja verifiquei e esta alimentando certinho so componentes ... mas da o erro acima.

 

desde ja Obrigado

[Enviar Arquivo pdf da NFe e NFSe por e-mail.]

Sim sim, amigo tudo linkado ... 

[Enviar Arquivo pdf da NFe e NFSe por e-mail.]

boa noite amigos, estou revirando e nao acho a solucao do meu problema.

gostaria que qdo eu enviasse o email, ele fosse junto com o pdf, so que nao sei como gerar esse pdf sozinho, olhe so o que faco

 

      ACBrMail.From     := Caminho('USERNFE=');
      ACBrMail.Host     := Caminho('SMTPNFE=');
      ACBrMail.Username := Caminho('USERNFE=');
      ACBrMail.Password := Caminho('PASSNFE=');
      ACBrMail.Port     := Caminho('PORTNFE=');
      ACBrMail.SetSSL   := False; // SSL - Conexão Segura
      ACBrMail.SetTLS   := False; // Auto TLS
      ACBrMail.ReadingConfirmation := False; //Pede confirmação de leitura do email
      ACBrMail.UseThread := False;           //Aguarda Envio do Email(não usa thread)
      ACBrMail.FromName := 'Nota Fiscal Eletronica Numero: ' + qryMvmestre.FindField('NUMERO').AsString;

      ACBrNFe.NotasFiscais.Items[0].EnviarEmail( F_EMAIL, 'Segue anexo arquivo XML de nota fiscal eletrônica',
                                               F_PRINCIPAL.sMemoNotaeletronica.Lines
                                               , True  // Enviar PDF junto
                                               , nil    // Lista com emails que serão enviado cópias - TStrings
                                               , nil); // Lista de anexos - TStrings

 

eu habilito a funcao como o amigo acima disse,que ele gera sozinho o pdf, mas nao faco ideia de como funciona, alguem tem alguma luz?

 

[Salvar PDF com nome definido pelo usuário [resolvido]]

amigos uma pergunta ... como faco pra na hora que gerar e validar o xml, ele ja gerar o arquivo pdf junto?

[Duvida Operadora de Cartao]

E se por acaso o cliente pagar com 50 no credito 50 no debito e 50 em dinheiro, como procedo?

 

obrigado

[Nao e possivel encontrar o modulo especificado]

Trunk2 ... mas eu acabei de resolver o problema ... 

esta na mudanca do sslib, mudar para capicom

 

obrigado

[Nao e possivel encontrar o modulo especificado]

nao condigo resolver este problema desde o dia que foi obrigatorio o campo       Ide.indFinal := cfConsumidorFinal; no dia 16/05/2016

e fica dando esse erro, alguem poderia ajudar!

ja atualizei o schema e nada, esse erro acontece ao enviar nota eletronica

orbigado desde já

[Sat erro quando coloca mais de 3 itens na venda]

alguem poderia dizer se o erro ja foi corrigido?se o problema de colocar mais de 3 itens ja foi solucionado?

[Erro descohecido ao enviar produtos ao Sat]

ola amigo, acabei de fazer isso, e o erro continua, tem um carinha parecido neste topico, parece q tbm nao foi resolvido

estou na luta aqui tentando ver o que pode ser ... 

mas ja tentei de tudo

 

[Erro descohecido ao enviar produtos ao Sat]

Entao, quando eu coloco mais de 3 itens ele da erro, mesmo usando o cfop 5405, se colocar 4 ites ja da erro, nao deixa enviar 

[Erro descohecido ao enviar produtos ao Sat]

Parece que nao consigo enviar mais de 2 itens, nao to entendendo ... 

 

codigosistema.txt

[Erro descohecido ao enviar produtos ao Sat]

Ola boa tarde, estou tendo problema ao enviar os produtos, ainda nao sei o que pode ser, havia postado o log em outro forum e me disseram que o problema estava na informacao do imposto por cada produto, mas ja corrigi e ainda sim o erro persiste ... 

 

SISLITELOG

[SAT para Consumidor Final]

obrigado e desculpe, nao havia percebido

[SAT para Consumidor Final]

Alguem poderia me dizer o que acontece nessa nota que eu nao consigo achar o erro?!

 

desde ja obrigado

SISLITELOG

[SAT para Consumidor Final]

No caso o cliente quer somente o cpf na nota, eu sou obrigado a informar as tags abaixo?

      Dest.xNome      := F_MOVIMENTO.dxEditNOME.Text;    

      Entrega.xLgr    := F_MOVIMENTO.dxEditENDERECO.Text;
      Entrega.nro     := F_MOVIMENTO.dxEditNUMERO.Text;
      Entrega.xCpl    := '';
      Entrega.xBairro := F_MOVIMENTO.dxEditBAIRRO.Text;
      Entrega.xMun    := F_MOVIMENTO.dxEditMUNICIPIO.Text;
      Entrega.UF      := F_MOVIMENTO.dxEditESTADO.Text;

 

[Erro ao enviar cupom eletronico SAT]

esta bem explicado Sérgio, muito obrigado, obrigado pela atenção!

fiquem em paz

este tópico esta resolvido!