Jump to content

GONDIM

Membros
  • Content Count

    29
  • Joined

  • Last visited

Community Reputation

2 Neutral

1 Follower

About GONDIM

  • Rank
    Membro

Contact Methods

  • Website URL
    http://WWW.INFORSERVICE.COM.BR

Profile Information

  • Sexo
    Masculino
  • Localização
    UBERLANDIA

Recent Profile Visitors

664 profile views
  1. Juliana, boa tarde, Os campos estão sendo preenchidos desta forma ACBrBoleto1.Cedente.Convenio := 2985086 ACBrBoleto1.Cedente.Modalidade := 035 Titulo:= ACBrBoleto1.CriarTituloNaLista; Titulo.Carteira := 17 Seria a forma correta ou tenho que trocar ACBrBoleto1.Cedente.Modalidade := 035 por ACBrBoleto1.Cedente.Modalidade := 17
  2. Pessoal enviei o arquivo de remessa do banco do brasil e mandei para homologação, eles me retornaram estes erros: 1. Arquivo teste “BB_REMESSA_NRO_7_07-12-2018_12-01-09.TXT” analisado com base nos dados acima, com as seguintes inconsistências: > Segmento R < Lote 0001 > -------------------------------------------------------------------- Posições 067 a 074: Preencher com a data de cobrança da multa; Deverá ser posterior ao vencimento do título. > Segmento S < Lote 0001 > -------------------------------------------------------------------- Posições 018 a 018: Preencher com '8' para Bloqueto por email. Esse segmento é utilizado no Banco do Brasil somente para informar o email de Pagadores que receberão seus títulos por email. Para isso, é necessário o cadastramento prévio dessa opção no seu convênio de cobrança junto ao Banco do Brasil. Nesse caso, solicite a sua agência de relacionamento Posições 021 a 160: Informar o endereço de email do cliente; Pode ser informado mais de um, usando ' (sinal gráfico apóstrofo) Favor efetuar os ajustes no seu programa próprio e nos responder anexando novo arquivo remessa para continuidade do atendimento. 2. Inconsistências na diagramação dos boletos Ficha de Compensação - CARTEIRA: Informe código da modalidade de cobrança utilizada para a emissão do boleto, ou seja: 17 Ficha de Compensação - ACEITE: Informe 'N' Após ajuste das inconsistências apontadas acima podem encaminhar boletos para processo produtivo-impressão/expedição. Salientamos que, no processo produtivo, é de responsabilidade da empresa o correto preenchimento ou a ausência de dados nos campos da diagramação do boleto, em virtude de questões legais, fiscais, etc. Os boletos recebidos estão homologados/validados (por amostragem): Linha digitável: validado Código de Barras: validado Nosso Número: validado Caso não seja identificado retorno desta mensagem com arquivo modificado, no prazo de 5 dias corridos, o protocolo será encerrado em nossos sistemas. Gentileza, ao responder, conservar histórico desse mail. Atenciosamente, Cenop Brasília - Suporte Técnico 0800 729 0001 (Opções 8,4,1,5) - Demais localidades 4004 0001 (Opções 8,4,1,5) - Capitais [email protected] Antes de imprimir, pense em sua responsabilidade com o meio ambiente BB_REMESSA_NRO_7_07-12-2018_12-01-09.TXT boletos teste fernandes e aguiar 07-12-2018.pdf
  3. Pessoal boa tarde, Alguém conseguiu verificar, ou pode me indicar quem possa ter feito. Abraços
  4. bom dia, Alguém conseguiu gerar o boleto da Umicred de minas banco 136.
  5. Pessoal estou tentando ler o arquivo abaixo em delphi 7 com este código abaixo, só que esta gerando erro, alguém pode me ajudar: VAR JsonStream : TStringStream; Retorno : String; lHTTP: TIdHTTP; ja: TlkJSONobject; jl: TlkJSONlist; I : Integer; jsonRaiz :TlkJSONObject; Status,Motivo:String; Pedido: String; begin JsonStream:= TStringStream.Create(''); ja := TlkJSONobject.Create; jl := TlkJSONlist.Create; try { JsonStream conterá os dados JSON requisitados :} lHTTP.Get('http://painel.accon.io/fornace/wspartners/RecuperaDetalhesPedido.php?loja_id=3&ped_id=13487&salt=7ba7b2b55deb612f', JsonStream); JsonStream.Position := 0; Memo1.Lines.Clear; Memo1.Text := JsonStream.ReadString(JsonStream.Size); jsonRaiz := TlkJSON.ParseText(Memo1.Text) as TlkJSONObject; if(jsonRaiz <> nil)then begin jl :=jsonRaiz.Child[0].Field['dados'] as TlkJSONlist;/* neste local gera o erro for i := 0 to jl.Count-1 do begin pedido := VarToStr(jl.Child.Field['PED_ID'].Value); Status := VarToStr(jl.Child.Field['PED_STATUS'].Value); end; end; finally JsonStream.Free(); lHTTP.Free; end; este o arquivo: {"pedido":{"dados":{"PED_ID":"13487","PED_STATUS":"A","PED_DES_ID":"0","PED_DATA":"2018-05-14 16:43:30","PED_DATA_MOVIMENTO":"2018-05-14 00:00:00","PED_CLI_ID":"9469","PED_ORIGEM":"TGO","PED_OBS":"","PED_NOME_BALCAO":"TESTE ACCON","PED_PGTO_DESC":"Dinheiro","PED_VLR_PRODUTOS":"53.9","PED_VLR_DESCONTO":"0","PED_VLR_ACRESCIMOS":"0","PED_TAXA_ENTREGA":"0","PED_VLR_PEDIDO":"53.9","PED_VLR_PAGO":"100","PED_VLR_RECEBIDO":"100","PED_VLR_TROCO":"46.1","PED_CPF":"","PED_ECOMMERCE_PREPAGO":"N","PED_ECOMMERCE_PAYMENT_ID":"","PED_ECOMMERCE_PAYMENT_CARD":"","PED_ECOMMERCE_PAYMENT_TID":""},"itens":[{"PIT_PED_ID":"13487","PIT_ITEM":"3","PIT_PROD_ID":null,"PIT_DESCRICAO":"GRD Frango","PIT_COMBO":"0","PIT_ADICIONADO":"Sem Borda Recheada ","PIT_RETIRADOS":"","PIT_QTD":"1","PIT_FRACAO":"1","PIT_PRC_UNITARIO":"53.9","PIT_PRC_FRACAO":"53.9","PIT_PRC_TOTAL":"53.9","PIT_VLR_ADC":"0","PIT_VLR_ICM":"53.9","PIT_VALOR_DESCONTO":"0"}],"cliente":{"CLI_ID":"9469","CLI_NOME":"TESTE ACCON","CLI_DATA_CADASTRO":"2018-03-19 19:03:23","CLI_OBSERVACAO":"","CLI_CPF_CGC":"71667660187","CLI_EMAIL":"[email protected]","CLI_FONE":"11973973382"},"clienteendereco":{"CDA_ID":"9806","CDA_CLI_ID":"9469","CDA_LOGRADOURO":"Rua Bento Ferreira 75","CDA_CEP":"38060240","CDA_COMPLEMENTO":"","CDA_NUMERO":"","CDA_CIDADE":"Uberaba","CDA_BAIRRO":"Merces","CDA_PAIS":"MG","CDA_REFERENCIA":"BR","CDA_APTO_SALA":""}}}
  6. bom dia, Onde posso baixar o componente para ler o objeto json para delphi 7
  7. Pessoal, bom dia, Primeiramente me desculpe pelo post anterior, mas achei que poderia ajudar. Fiz algumas alterações na unit UnicredRS mas continua gerando erro conforme enviado pelo validador do banco descrito abaixo Estou colocando a unit modificada em anexo para verificar se podem ajudar . Abraços. ACBrBancoUnicredRSINFORSERVICE.pas
  8. boa tarde, Tendei de várias formas nenhuma delas funcionou.
  9. Bom dia, Alguém conseguiu verificar sobre a geração o boleto da UNICRED de Minas, ou sabe o que posso fazer pois o componente gera para o banco 99 e em minas o banco é 136 com formato diferente. Abraços.
  10. Boa tarde, Continuo com o mesmo problema, alguém pode me ajudar. Agradeço antecipadamente.
  11. Boa tarde, pela sua unit foi gerado o seguinte boleto em anexo. O banco me enviou que a linha digitável após validação esta diferente, favor ver o anexo. Preciso fazer alguma configuração antes ? Agradeço antecipadamente. LINHA DIGITAVEL.bmp Boleto - UNICRED Ag_5821-1 Conta_000000080975-6.pdf
  12. boa tarde peguei sua unit esta faltando duas uses uses Classes, SysUtils, Contnrs, ACBrBoleto,ACBRValidador,UFrmFiltroRemessa,Vcl.Dialogs; poderia me ajudar ? seria estas duas : UFrmFiltroRemessa,Vcl.Dialogs;
  13. Boa tarde, Estou gerando o boleto da Unicred para banco numero 136, é totalmente diferente no componente cujo o banco é 091, pois o numero de dígitos são 11 para nosso numero o que afeta todo o arquivo, alguém conseguiu fazer para Unicred de minas gerais banco 136. Agradeço antecipadamente.
  14. Bom dia, Sobre o boleto da Unicred no componente esta desta forma cobUnicredRS, existe alguma diferença para estado de Minas Gerais. Outro detalhe alguém tem a logo do banco em preto e branco que é impresso no boleto. Agradeço a atenção.
  15. Bom dia, vou te mandar meu código, já deu certo. O erro é porque você tem que preencher ou a data do protesto ou a data da baixa da uma olhada abaixo. Espero ter ajudado.
×
×
  • Create New...