Ir para conteúdo
  • Cadastre-se

Fernando Rodrigo

Membros
  • Total de ítens

    514
  • Registro em

  • Última visita

  • Days Won

    3

Tudo que Fernando Rodrigo postou

  1. segue arquivo alterado a linha para codigo 3 conforme layout acima C026 Código para Protesto Código adotado pela FEBRABAN para identificar o tipo de prazo a ser considerado para o protesto. Domínio: '1' = Protestar Dias Corridos '2' = Protestar Dias Úteis '3' = Não Protestar ‘4’ = Protestar Fim Falimentar - Dias Úteis ‘5’ = Protestar Fim Falimentar - Dias Corridos ‘8’ = Negativação sem Protesto '9' = Cancelamento Protesto Automático (somente válido p/ CódigoMovimento Remessa = '31' - Descrição C004) ACBrBancoSafra.pas
  2. estou validando o banco safra e encontrei um problema na instrução bancaria na linha 716 da unit do safra esta calculando o campo Instrucao1 como 0 não protestar, so que no layout é codigo 3 para não protestar, veja o layout C026 Código para Protesto Código adotado pela FEBRABAN para identificar o tipo de prazo a ser considerado para o protesto. Domínio: '1' = Protestar Dias Corridos '2' = Protestar Dias Úteis '3' = Não Protestar ‘4’ = Protestar Fim Falimentar - Dias Úteis ‘5’ = Protestar Fim Falimentar - Dias Corridos ‘8’ = Negativação sem Protesto '9' = Cancelamento Protesto Automático (somente válido p/ CódigoMovimento Remessa = '31' - Descrição C004) Sabe se ja tem correção desse problema ? Linha 716 da unit ACBrBancoSafra.pas {Código para Protesto} case TipoDiasProtesto of diCorridos : ACodProtesto := '1'; diUteis : ACodProtesto := '2'; else ACodProtesto := '0'; end; if ((DataProtesto <> 0) and (DiasDeProtesto > 0)) then begin if not MatchText(Instrucao1, ['0', '1', '2', '3', '9']) then Instrucao1 := ACodProtesto; // Dias para protesto sDiasProtesto := PadLeft(IntToStr(DiasDeProtesto), 2, '0'); end else begin Instrucao1 := '0'; // Não protestar SDiasProtesto := '00'; end;
  3. preciso fazer a leitura do json abaixo, so que quando faço um parse esta dando erro de access violation, estou usando o delphi 2010 e usando esse unit uLkJSON, se alguem puder me ajudar estou enviando um demo com o json no campo memo. { "billing_info": { "doc_type": "CPF", "doc_number": "05218554111", "additional_info": [ { "type": "DOC_NUMBER", "value": "05218554111" }, { "type": "ZIP_CODE", "value": "73752020" }, { "type": "STREET_NUMBER", "value": "SN" }, { "type": "CITY_NAME", "value": "Planaltina" }, { "type": "DOC_TYPE", "value": "CPF" }, { "type": "STATE_NAME", "value": "Goiás" }, { "type": "NEIGHBORHOOD", "value": "Setor Leste" }, { "type": "FIRST_NAME", "value": "Tainá Figueiredo" }, { "type": "STREET_NAME", "value": "Quadra 2 Mr 2 Casa 32 Setor Leste" }, { "type": "SITE_ID", "value": "MLB" }, { "type": "LAST_NAME", "value": "almeida" } ] } } Project1.dpr uLkJSON.pas Unit1.dfm Unit1.pas
  4. vou enviar dessa forma para ver se tem rejeição, qualquer coisa abro novamente um tópico
  5. bom dia, no manual realmente não tem nada falando, somente quando vc faz a validação no site deles que da esse erro.
  6. estou homologando a remessa do Sicred e no site deles de homologação esta retornando um campo que deveria enviar em branco e o acbr esta enviando 000000 campo de data e valor de desconto, como poderia resolver esse problema ? olhei os fontes na função e esta mesmo informando zero caso não tenha nada function TACBrBancoSicredi.DefineDataDesconto(const ACBrTitulo: TACBrTitulo; AFormat: String): String; begin with ACBrTitulo do begin if (ValorDesconto > 0) then begin if (DataDesconto > 0) and (TipoDesconto in [ tdValorFixoAteDataInformada, tdPercentualAteDataInformada]) then Result := FormatDateTime(AFormat, DataDesconto) else Result := PadRight('', Length(AFormat), '0'); end else Result := PadRight('', Length(AFormat), '0'); end; end; 69144206.crm
  7. fazer publicação de produtos nos sites
  8. caros amigos, com a pandemia o mercado hoje tem grande necessidade de integração com Marketing place. O projeto ACBR tem projetos para fazer essa integração, talvez com Bling ou outra ferramenta ?
  9. posso usar sim @Victor H. Gonzales - Panda a api sem problema, so que quando envio esta com essa mensagem de erro abaixo, seria alguma configuração ?
  10. u coloquei cobBancoDoBrasilAPI e deu o erro abaixo depois mudei para cobBancoDoBrasilWS e não deu erro, mas gerou um xml com alguns erro que irei checar para ver o que é <ns0:textoMensagemErro>Informe valor ou percentual, conforme o Tipo de Juro. </ns0:textoMensagemErro>
  11. foi a primeira coisa que fiz, peguei o DEMO, informei os dados das chaves que cadastrei no banco e não deu certo, depois usei as chaves que esta no DEMO no arquivo txt, tambem não deu certo aparece a mensagem acima, estou fazendo a atualização dos fontes do zero para ver se resolve.
  12. Preciso começar a implementar o boleto on-line para o BB, e seguindo as orientações do @José M. S. Junior, fiz as configurações so que não estou conseguindo fazer a utilização, gerei as chaves no site do BB como homologação so que quando envio da a mensagem de erro abaixo. So preciso que me ajude a fazer um somente para entender como é feito, se alguem tiver um DEMO funcionando para me passar as orientações, vou ficar muito grato. //Dados para Homologaçao ACBrBoleto1.Cedente.CedenteWS.ClientID:= 'eyJpZCI6IjgwNDNiNTMtZjQ5Mi00YyIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxfQ'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret:= 'eyJpZCI6IjBjZDFlMGQtN2UyNC00MGQyLWI0YSIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxLCJzZXF1ZW5jaWFsQ3JlZGVuY2lhbCI6MX0'; ACBrBoleto1.Cedente.CedenteWS.Scope:= 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser:='J1234567'; // //Campos devem ser preenchidos conforme dados do Banco Título ex campos: ACBrBoleto1.Cedente.CodigoCedente := '4863177'; ACBrBoleto1.Cedente.Convenio := '1014051'; ACBrBoleto1.Cedente.Modalidade := '19'; Carteira := '17'; EspecieDoc := '99'; ------------------------------------------------------------------------------------ //Configuracoes/WebService SSLHTTPLib: httpWinHTTP SSCryptLib: cryWinCry SSLType: TLS 1.2 TimeOut: 30000 UseCertificateHTTP: False versao:= 1.2
  13. boa noite pessoal, isso é complicado mesmo, algum tempo atrás eu contratei um funcionário para ser gerente da nossa empresa, passou-se alguns anos, ele pediu para sair, não levou os fontes, mas montou uma empresa que desenvolve o mesmo sistema que a nossa empresa, e como ele sabia de toda a nossa carteira de cliente ele foi atrás deles oferecendo o sistema pela metade do preço. Fora que desenvolveu um sistema idêntico ao nosso, so que para web. Outra coisa, esse funcionário ele ja estava montando o sistema dele baseado no nosso ja fazia bastante tempo, so aprendendo sobre o funcionamento e as rotinas da empresa. Com software também seria a mesma coisa, vc contrata um funcionário ele aprende depois vira seu concorrente. mas mercado tem para todo mundo.
  14. como vc fez , teria como vc postar os codigos ?
  15. bom dia, o mesmo problema, ate parei de mexer no programa , mas tenho que começar tudo novamente
  16. boa notte @JHONLENONteria como vc dar um help para eu tambem implementar no meu sistema
  17. tudo funcionando certo, valeu pessoal, grande abraço a todos
  18. deu certo, muito obrigado, so tem um problema, na versao 1.0 a guia gera gerada com o numero do danfe para poder fazer um load no arquivo exportado, agora mudou o nome do arquivo, mas vou olhar para ver como irei fazer
  19. estou enviado uma guia para o estado de bahia e no xml se retorno esta dizendo GNRe - Versão dos Dados não suportada o que seria esse erro e o que poderia fazer para resolver 001-gnre.xml 20210808230402-env-lot.xml 20210808230403-rec.xml
  20. problema resolvido, tinha um codigo ascii na razão social do sacado
  21. estou gerando a remessa do sicoob cnab240 so que a linha Q esta gerando errado conforme abaixo a linha em negrido é a continuação do registro Q so que esta gerando com quebra de linha, invalidado no banco, alguem ja passou por isso, ja fiz a atualização do componente mas continua a mesma coisa segue anexo arquivo de remessa, se alguem puder me ajudar fico muito grato e o estranho que é somente o registro Q que fica dessa forma, o restante dos registros fica normal 7560001300002Q 011000085957593249BRUNO ANTUNES LOPES RUA TRINTA E UM DE MARCO 19 CENTRO 68625170PARAGOMINAS PA0000000000000000 000 cb040804.rem
  22. vamos sim
  23. não estava, estava passando o numero de série do certificado, como tinha bastante tempo que não usava as guias e agora um cliente teve que usar e deu problema
  24. para resolver @Juliomar Marchettieu criei os 2 campos que informar o caminho do pfx e a senha e resolveu, eu pesquisei esse erro aqui no forum e tem muita gente com o mesmo problema, e o que em alguns casos foi resolvido foi criar o caminha do arquivo pfx, valeu
  25. fiz a atualização do componente e agora esta retornando o erro abaixo na hora de envio a guia onde tenho que alterar para enviar as guias ACBrGNRE1.Enviar
×
×
  • 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.

The popup will be closed in 10 segundos...