Ir para conteúdo
  • Cadastre-se

luizcnr

Membros
  • Total de ítens

    48
  • Registro em

  • Última visita

Community Answers

  1. luizcnr's post in ERRO S@T Elgin Smart was marked as the answer   
    Galera, entramos em contato com a Elgin e eles identificaram o mesmo problema nos testes por lá também.
    Ou seja, eles irão atualizar a DLL e irão encaminhar para nós.
    Assim, que atualizarmos e os testes estiverem OK, posto aqui essa DLL atualizada.
    Obrigado pela ajuda.
  2. luizcnr's post in INTEGRAÇÃO IFOOD was marked as the answer   
    A solução encontrada, foi a seguinte:
     iJSONEnviar := TIdMultiPartFormDataStream.Create;
      try
        iJSON := ('{"merchantId": merchantID,' + //ID do Restaurante (MerchantID)",
                  '"externalCode":"311",' + //COD PDV, código do sistema
                  '"availability": "AVAILABLE",' + //Disponibilidade do item, AVAILABLE OU UNAVAILABLE
                  '"name": "X BURGUER - TESTE 2",' + //Nome do Item,
                  '"description": "",' + //Descrição do Item (Composição)
                  '"order": 2,' + //Ordem para o item aparecer no cardápio
                  '"schedules": [],' +
                  '"price":{' +
                     '"originalValue": 0,' +//Valor Original do Item (Somente preencher caso o item estiver em promoção)
                     '"promotional": false,' + //Item está em promoção? True ou False
                     '"value": 12.50}'+
                   '}');  //Valor do item (Valor que vai para aparecer na plataforma Ifood)
        mRetorno.Lines.Clear;
        mRetorno.Lines.Add(iJSON);
        iJSONEnviar.AddFormField('sku', iJSON, 'utf-8', 'application/json').ContentTransfer := '8bit';
        //Configura o HTTP
        IdHTTPConexao.Request.Clear;
        IdHTTPConexao.Request.ContentType := 'multipart/form-data; boundary=' + iJSonEnviar.Boundary;
        IdHTTPConexao.Request.CharSet := 'utf-8';
        IdHTTPConexao.Request.CustomHeaders.Clear;
        IdHTTPConexao.Request.CustomHeaders.AddValue('Content-Type', 'multipart/form-data');
        IdHTTPConexao.Request.CustomHeaders.AddValue('Authorization', 'Bearer ' + self.fToken);
        IdHTTPConexao.Response.ContentType := 'application/json';
        IdHTTPConexao.Response.CharSet := 'utf-8';
        try
          IdHTTPConexao.Post('https://pos-api.ifood.com.br/v1.0/skus', iJSONEnviar);
          //201 = Indica que novos parâmetros foram criados com sucesso
          if IdHTTPConexao.ResponseCode = 201 then
            Application.MessageBox(PWideChar('Produto Cadastrado com Sucesso!'),
                'Informação', MB_OK+MB_ICONINFORMATION);
        except
          on e:EIdHTTPProtocolException do
          begin
            if (e.ErrorCode <> 200) or (e.ErrorCode <> 201) then
            begin
              Application.MessageBox(PWideChar('Atenção! Ocorreu ao Cadastrar Produto no iFood. ' +
                  e.ErrorMessage),
                    'Aviso', MB_OK+MB_ICONWARNING);
              Exit;
            end;
          end;
        end;
      finally
        FreeAndNil(iJSONEnviar);
      end;
  3. luizcnr's post in Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk" was marked as the answer   
    Bom dia, Juliomar!
    Acabei resolvendo aqui. 
    O procedimento que utilizei, foi o seguinte:
    Limpei todo o conteúdo do FORTES, ou seja, deletei os arquivos e realizei o UPLOAD novamente, desinstalei o FORTES do delphi também.  E realizei a instalação pelo instalador do FORTES.
    Em seguida, realizei a limpeza do ACBr e fiz o upload da pasta novamente, desinstalei o que tinha do ACBr do delphi, utilizei o instalador do ACBr.
    Após, realizado esses procedimentos, o ACBr foi instalado com sucesso, sem problema algum em minha máquina.
    Muito obrigado!
  4. luizcnr's post in PROBLEMA AO VALIDAR NFE was marked as the answer   
    Problema solucionado. 
    Minha unit pcnNFeW, estava assim:
    if (trim(nfe.Cobr.Fat.nFat) <> '') or
        (nfe.Cobr.Fat.vOrig > 0) or
        (nfe.Cobr.Fat.vDesc > 0) or
        (nfe.Cobr.Fat.vLiq > 0) then
      begin
        Gerador.wGrupo('fat', 'Y02');
    //<<<<<<< .mine
        Gerador.wCampo(tcStr, 'Y03', 'nFat   ', 01, 60, 0, nfe.Cobr.Fat.nFat, DSC_NFAT);
        Gerador.wCampo(tcDe2, 'Y04', 'vOrig  ', 01, 15, 0, nfe.Cobr.Fat.vOrig, DSC_VORIG);
        Gerador.wCampo(tcDe2, 'Y05', 'vDesc  ', 01, 15, 0, nfe.Cobr.Fat.vDesc, DSC_VDESC);
        Gerador.wCampo(tcDe2, 'Y06', 'vLiq   ', 01, 15, 0, nfe.Cobr.Fat.vLiq, DSC_VLIQ);
    //||||||| .r15437
        Gerador.wCampo(tcStr, 'Y03', 'nFat   ', 01, 60, 0, nfe.Cobr.Fat.nFat, DSC_NFAT);
        .wCampo(tcDe2, 'Y04', 'vOrig  ', 01, 15, 0, nfe.Cobr.Fat.vOrig, DSC_VORIG);
        .wCampo(tcDe2, 'Y05', 'vDesc  ', 01, 15, 0, nfe.Cobr.Fat.vDesc, DSC_VDESC);
        Gerador.wCampo(tcDe2, 'Y06', 'vLiq   ', 01, 15, 0, nfe.Cobr.Fat.vLiq, DSC_VLIQ);
    //=======
        Gerador.wCampo(tcStr, 'Y03', 'nFat   ', 01, 60, IIf(FOpcoes.CamposFatObrigatorios and (NFe.infNFe.Versao >= 4),1,0), nfe.Cobr.Fat.nFat, DSC_NFAT);
        Gerador.wCampo(tcDe2, 'Y04', 'vOrig  ', 01, 15, IIf(FOpcoes.CamposFatObrigatorios and (NFe.infNFe.Versao >= 4),1,0), nfe.Cobr.Fat.vOrig, DSC_VORIG);
        Gerador.wCampo(tcDe2, 'Y05', 'vDesc  ', 01, 15, IIf(FOpcoes.CamposFatObrigatorios and (NFe.infNFe.Versao >= 4),1,0), nfe.Cobr.Fat.vDesc, DSC_VDESC);
        Gerador.wCampo(tcDe2, 'Y06', 'vLiq   ', 01, 15, IIf(FOpcoes.CamposFatObrigatorios and (NFe.infNFe.Versao >= 4),1,0), nfe.Cobr.Fat.vLiq, DSC_VLIQ);
    //>>>>>>> .r15563
        Gerador.wGrupo('/fat');
      end;
    Mesmo atualizando o ACBr, essa unit persistia, por isso estava repetindo os campos. Então, removi a unit e baixei novamente e ficou tudo correto.
    NFe emitindo corretamente.
  5. luizcnr's post in ARQUIVO DE REMESSA BOLETO BANCO BRB was marked as the answer   
    Problema resolvido. Atualizei os fontes do ACBr, mas não tinha dado certo. Mas, desinstalei e instalei novamente e deu certo.
×
×
  • 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.