luizcnr
-
Total de ítens
48 -
Registro em
-
Última visita
Community Answers
-
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.
-
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;
-
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!
-
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.
-
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.