Cleonir

Fiz um ajuste no CNAB 240 do Sicredi referente a negativação. Favor analisarem e se possível subirem para o SVN. ACBrBancoSicredi.pas

Você precisa importar os WSDL no delphi. Se você dar uma dar uma pesquisada encontra tutoriais de como fazer isso, é bem pratico. fazendo isso o delphi var criar as classes com todos os métodos para utilizar. Um exemplo de como utilizar o método para cadastrar o veículo na eFrete. Para os outros métodos é só seguir a mesma lógica. procedure TfrmEmissaoCIOT.btnGravarVeiculoClick(Sender: TObject); var GravarVeiculo: eFreteVeiculosService.GravarRequest; Retorno: eFreteVeiculosService.GravarResult; HTTPRIOVeiculo: THTTPRIO; begin HTTPRIOVeiculo := THTTPRIO.Create(Self); GravarVeiculo := eFreteVeiculosService.GravarRequest.Create; try try HTTPRIOVeiculo.HTTPWebNode.InvokeOptions := [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI]; HTTPRIOVeiculo.URL := URLVeiculosService; GravarVeiculo.Integrador := HashIntegrador_eFrete; GravarVeiculo.Versao := 1; GravarVeiculo.Token := TokenCIOTeFrete; GravarVeiculo.Veiculo := eFreteVeiculosService.Veiculo.Create; with GravarVeiculo.Veiculo do begin Placa := ...; Renavam := ...; Chassi := ...; RNTRC := ...; NumeroDeEixos := ...; Marca := ...; Modelo := ...; AnoFabricacao := ...; AnoModelo := ...; Cor := ...; Tara := ...; CapacidadeKg := ...; CapacidadeM3 := ...; TipoRodado := eFreteVeiculosService.TipoRodado.Truck; TipoCarroceria := eFreteVeiculosService.TipoCarroceria.Aberta; end; //Aqui envia e pega o retorno Retorno := (HTTPRIOVeiculo as VeiculosServiceSoap).Gravar(GravarVeiculo); try if not Retorno.Sucesso then ShowMessage('Erro ao gravar Veículo na eFrete! '+ Retorno.Excecao.Codigo+ ' - ' +Retorno.Excecao.Mensagem) else ShowMessage('Adicionado com Sucesso ! '+'ProtocoloServico: '+IntToStr(Retorno.ProtocoloServico)); finally FreeAndNil(Retorno); end; except on e:Exception do TUtil.ShowMessages('Erro ao gravar Veículo na eFrete ! ' + e.Message); end; finally FreeAndNil(GravarVeiculo); end; end;

Boa tarde. Não consegui pelo acbr. Não consegui fazer a parte do certificado. Não sei como esta agora se alguém fez mais alguma coisa... Acabei fazendo utilizando o WSDL.

Arquivo alterado novamente estava copiando um digito a mais. ACBrBancoCecred.pas

Tive um problema para pegar a conta corrente do Retorno do CNAB 240. Esta pegando somente 4 caracteres, o correto é 12 conforme manual. Em anexo parte do manual e arquivo alterado. ACBrBancoCecred.pas

Opa. Somente essa configuração ACBrCTE.Configuracoes.Geral.FormaEmissao := teSVCSP; eu estava setando outra.

Beleza. Era isso mesmo. Eu estava alimentando de forma errada. Obrigado...

Eu também estou alterando para SVC-SP e a url na rejeição esta aparecendo cte.fazenda.mg... O que esta faltando configurar?

Não sei oque esta errado. no xml vai o <tpEmis>8</tpEmis> falta mais alguma configuração?

Este. Erro Interno: 10091 Erro HTTP: 500 URL: https://cte.fazenda.mg.gov.br/cte/services/CteRecepcao Network subsystem is unusable Na hora de enviar.

O que fez para resolver Gustavo X. Furtado ? estou com o mesmo problema.

Ops, desculpem aí... SetLength(arrayViagens, 2); for i := 0 to 1 do begin arrayViagens := eFretePefService.Viagens3.Create; arrayViagens.DocumentoViagem := 'CTe 1 / 1'; arrayViagens.CodigoMunicipioOrigem := 1234567; arrayViagens.CodigoMunicipioDestino := 1234567; ... ... ... end;

Já Consegui.

Boa tarde. Estou precisando de ajuda com a frete. Importei o WSL mas estou tendo dificuldade para alimentar o array de viagens. Quando dou um Create da erro. Tem como você me disponibilizar somente esta rotina de criação do array?

Resolvido nas ultimas atualizações. Obrigado...

Coso esta este caso? eu preciso mostrar e adicionar no sistema o valor das tarifas. Teria que retirar aquele if. Em anexo arquivo com ajustes. Também adicionei mais dois Códigos de tarifas / custas são referente a Negativação no CNAB 240 esta no manual no inicio da pagina 82. ACBrBancoSicredi.pas

Bom dia fiz um pequeno ajuste, para resolver o problema de algumas logos de Banco que estavam saindo um pouco cortadas na parte superior. Em anexo arquivo modificado. ACBrBoletoFCFortesFr.dfm

Esta ok. Obrigado.

Esta ok. Obrigado pela atenção.

Boa tarde. Percebi um problema. Estou adicionando o 2% de multa e na remessa esta saindo 20 deveria ficar 02 por estar esperando um valor inteiro. Fiz um ajuste para corrigir o problema. ACBrBancoNordeste.pas PADRAO BNB - CNAB400.pdf

Pode é só baixar do BRANCHES. Se você conseguir ajudar na parte de envio. Não estou conseguindo. Não tenho muito conhecimento nesta parte... Vai fazendo e postando aqui as alterações, vamos fazer funcionar isso...

Consegui resolver adicionando mais um Parâmetro. RESTRequest1.Params.AddItem; RESTRequest1.Params.Items[1].name := 'Content-Disposition'; RESTRequest1.Params.Items[1].Value := 'form-data'; RESTRequest1.Params.Items[1].ContentType := ctMULTIPART_FORM_DATA; RESTRequest1.Params.Items[1].Kind := TRESTRequestParameterKind.pkREQUESTBODY;

Boa tarde estou com um problema na novo versão do delphi 10.3.1 com o envio de PDF para nossa api parece que esta sempre indo vazio, mas na versão anterior do delphi funcionava normalmente. Estou alimentando desta forma: RESTClient1.BaseURL := URL_Padrao; RESTClient1.ContentType := 'multipart/form-data'; RESTClient1.Accept := 'multipart/form-data'; RESTRequest1.Resource := URL_PDF + dadosEmp; RESTRequest1.Method := TRESTRequestMethod.rmPOST; RESTRequest1.Params.AddItem; //Adds a new Parameter Item RESTRequest1.Params.Items.name := 'Nome do arquivo'; RESTRequest1.Params.Items.Value := 'Diretório onde esta o pdf\'+'Arquivo.pdf'; RESTRequest1.Params.Items.ContentType := ctAPPLICATION_PDF; RESTRequest1.Params.Items.Kind := TRESTRequestParameterKind.pkFILE; O que estou fazendo errado?

Boa tarde pessoal. Fiz um ajuste para o banco Sicrédi CNAB 240, na posição 119 a 126 que é para (Data do juro de mora). Atualmente esta sendo preenchido com zeros esse campo. Em anexo arquivo alterado e parte do manual onde contem este campo. ACBrBancoSicredi.pas

Demo.rar Pacote.rar Manual WebService Sistema e-FRETE 4.4.pdf