Ir para conteúdo
  • Cadastre-se

GONDIM

Membros
  • Total de ítens

    59
  • Registro em

  • Última visita

1 Seguidor

Contact Methods

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

Últimos Visitantes

1.253 visualizações

GONDIM's Achievements

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

8

Reputação

2

Community Answers

  1. GONDIM

    boleto bradesco

    bom dia, montei o arquivo em cobrança 400 e gerou o seguinte erro: Prezados, bom dia! Segue validação do arquivo e descrição dos ajustes. RELATÓRIO ARQUIVO REMESSA COBRANCA 400 Dados do arquivo: Código do convênio (acessório escritural): 1054406 Nome da Empresa: ASTRA Data de Gravação do Arquivo: 24/05/23 Número do sequencial de arquivo: 0000006 Contratos no arquivo: Car Agên Conta-Produto 009 0265-0010440-6 ============================================================================================================================ Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural inválido. Zeros à esquerda. Linha 2, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 3, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 4, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 5, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 6, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. Linha 7, colunas 037 a 037, Registro tipo 1, Dígito da conta-corrente inválido. ============================================================================================================================ Não sei onde estou fazendo errado, alguém pode me ajudar, se for o caso pago um consultoria. segue o arquivo. CB24500.REM BRADESCO_BOLETOS_PDF_REMESSA_NRO_6_24-05-2023_09-56-55.pdf
  2. GONDIM

    boleto bradesco

    pessoal boa tarde, não sei o que estou fazendo errado, coloquei os dados corretos conforme a imagem abaixo: o sistema gerou o arquivo e os campos foram unificados conforme abaixo, o arquivo este em anexo, e o banco fala que esta gerando este erro. Alguém pode ajudar? Se for o caso pago por uma consultória, deve ser coisa simples mas não sei o que eh. Linha 1, Header de arquivo, colunas 071 a 071, dígito da conta-corrente inválido. Linha 2, Header de lote, colunas 072 a 072, dígito da conta-corrente inválido. Linha 3, colunas 036 a 036, dígito da conta-corrente inválido. Linha 6, colunas 036 a 036, dígito da conta-corrente inválido. Linha 9, colunas 036 a 036, dígito da conta-corrente inválido. Linha 12, colunas 036 a 036, dígito da conta-corrente inválido.BRADESCO_BOLETOS_PDF_REMESSA_NRO_6_23-05-2023_10-38-27.pdf Linha 15, colunas 036 a 036, dígito da conta-corrente inválido. Linha 18, colunas 036 a 036, dígito da conta-corrente inválido. Número da Conta: 000000010440 - 6 INFORMAR CTA.PRODUTO: 02650105440 - 6 ACBrBoleto1.Cedente.Agencia := qryContaDS_AGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito := qryContaDS_DIGAG.AsString; ACBrBoleto1.Cedente.Conta := qryContaNR_CEDENTE.AsString;//qryContaCT_CORRENTE.AsString; ACBrBoleto1.Cedente.ContaDigito := qryContaDS_DIGCC.AsString; ACBrBoleto1.Cedente.CodigoCedente := qryContaNR_CEDENTE.AsString; ACBrBoleto1.Cedente.Nome := Trim(qryEmpresaNM_RAZAO_SOCIAL.AsString); ACBrBoleto1.Cedente.CNPJCPF := qryEmpresaNR_CGC.AsString; ACBrBoleto1.Cedente.Cidade := qryEmpresaDS_CIDADE.AsString; ACBrBoleto1.Cedente.Bairro := qryEmpresaDS_BAIRRO.AsString; ACBrBoleto1.Cedente.UF := qryEmpresaDS_ESTADO.AsString; ACBrBoleto1.Cedente.CEP := qryEmpresaDS_CEP.AsString; ACBrBoleto1.Cedente.Logradouro := qryEmpresaDS_ENDERECO.AsString; ACBrBoleto1.Cedente.NumeroRes := qryEmpresaNR_LOGRADOURO.AsString; ACBrBoleto1.Cedente.Complemento := qryEmpresaDS_COMPL_LOGR.AsString; ACBrBoleto1.Cedente.Convenio := qryContaNR_CONVENIO.AsString; ACBrBoleto1.Cedente.Modalidade := qryContaNR_MODALIDADE.AsString; CB23500.REM
  3. GONDIM

    boleto bradesco

    Pessoal, bom dia, estou gerando o boleto do bradesco alguém sabe me informar como vou casar os campo, pois o gerente me mandou estas informações: Conta produto 02650105440-6 onde informo este campo ? Carteira 09 Acessório estrutural negociado 5686515 onde informo este campo ? O campo espécie e modalidade seria qual ? minha tela possui estas informações a serem colocadas:
  4. bom dia, já tentei de todo jeito o que vc me aconselha, por favor
  5. bom dia estou usando libcrypto-1_1.dll, libssl-1_1.dll, libeay32.dll, ssleay32.dll
  6. boa tarde, não sei se é possível verificar este erro estou tentando enviar uma chamada de uma url que não tem retorno, já tentei de varias formas e todas geram o mesmo erro, conforme foto em anexo alguém consegue me ajudar, segue o exemplo. exemplo 1: mIdHTTP := TIdHTTP.Create(NIL); mIdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try try mIdHTTP.IOHandler := mIdSSL; mIdHTTP.Get('https://fornacedelivery.com.br/admin/endpointNotificacoes.php?t=9u2i0B6#!6UB&pedido=' + IntTOStr(CodigoPedido)); except on E:Exception do begin frmErros.AddErro('Erro na função VerificaAltCliente. ' + E.Message); frmErros.AcionaPopupErro; end; end; finally mIdHTTP.Free; mIdSSL.Free; end; exemplo 2: {try SSLSocket.SSLOptions.Method := sslvSSLv23; SSLSocket.SSLOptions.Mode := sslmClient; JsonStreamRetorno := TStringStream.Create('', TEncoding.UTF8); HTTPClient.Request.Clear; HTTPClient.Request.ContentType := 'application/json'; HTTPClient.Request.Charset := 'UTF-8'; HTTPClient.Request.BasicAuthentication := false; HTTPClient.Request.CustomHeaders.Clear; HTTPClient.Request.CustomHeaders.AddValue('cache-control', 'no-cache'); HTTPClient.Request.CustomHeaders.AddValue('Content-Type', 'application/json'); HTTPClient.Request.CustomHeaders.AddValue('Accept', 'application/json'); HTTPClient.Request.CustomHeaders.AddValue('cache-control', 'no-cache'); HTTPClient.Request.Accept := 'application/json'; HTTPClient.Get('https://fornacedelivery.com.br/admin/endpointNotificacoes.php?t=9u2i0B6#!6UB&pedido=' + IntTOStr(CodigoPedido));//, JsonStreamRetorno except on E : Exception do begin frmErros.AddErro('Erro na função VerificaAltCliente. ' + E.Message); frmErros.AcionaPopupErro; end; end; }
  7. GONDIM

    Boleto Sicredi

    Pessoal bom dia, consegui terminar o sicredi Se alguém tiver duvida, os campos que alteram em relação as outros bancos são: Numero banco = 748 Digito banco = 0 Agencia = colocar o numero sem o digito exemplo 0333-8 no caso seria apenas 0333 digito agencia = seria no numero do posto exemplo 26 numero da conta e digito são os valores normais. numero convenio = '' numero carteira = '1' modalidade = '' especie = 'DMI' eles não aceitam 'DM' quando for passar os parâmetros as mudanças principais que eu tive que alterar foi: ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := ''; CodigoMoraJuros := cjTaxaMensal; ValorMoraJuros := StrToCurrDef(FormatFloat('#,##0.00',qryRemessaVR_MORADIARIA.Asfloat),0); colocar o percentual não o valor em R$ //ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); tive que deixar em comentário pois eles não aceitam mensagens fora do padrão. //Mensagem.Text := qryRemessaDS_MEMBOLETO.AsString + #13#10 + qryRemessaDS_MEMBOLETO2.AsString; Espera ter ajudado. Abraços.
  8. GONDIM

    Boleto Sicredi

    bom dia, no caso do exemplo acima ACBrBoleto1.Cedente.Agencia := '03338' sendo 8 o digito da agencia ACBrBoleto1.Cedente.Agencia := '0333' ficaria desta forma e o digito da agencia onde vou passar que seria o 8 no caso? ACBrBoleto1.Cedente.AgenciaDigito := '26' seria o numero do posto. Eu passo neste lugar mesmo ? ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '0'; ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '' vai ficar vazio correto;
  9. GONDIM

    Boleto Sicredi

    Pessoal boa tarde, estou fazendo o boleto da Sicredi, gostaria de saber se estou casando do campos corretamente, tem um campo posto que segundo a informações, pediu para colocar a agencia junto com o digito dela e no campo agencia digito o campo posto, e o nosso numero o máximo seria 5 ou 10 dígitos eu verifiquei o valor é 5 mesmo? Estou pedindo para verificar antes que enviar para homologar: ACBrBoleto1.Cedente.Agencia := '03338' sendo 8 o digito da agencia ACBrBoleto1.Cedente.AgenciaDigito := '26' numero o posto ACBrBoleto1.Cedente.Conta := '22816'; ACBrBoleto1.Cedente.ContaDigito := '6'; ACBrBoleto1.Cedente.CodigoCedente := '22816'; ACBrBoleto1.Cedente.Nome := 'TESTE' ACBrBoleto1.Cedente.CNPJCPF := '04.048.938/0001-22' ACBrBoleto1.Cedente.Cidade := 'TESTE' ACBrBoleto1.Cedente.Bairro := 'TESTE' ACBrBoleto1.Cedente.UF := 'MG' ACBrBoleto1.Cedente.CEP := '38400000' ACBrBoleto1.Cedente.Logradouro := 'RUA TESTE' ACBrBoleto1.Cedente.NumeroRes := '1' ACBrBoleto1.Cedente.Complemento := ''; ACBrBoleto1.Cedente.Convenio := ''; ACBrBoleto1.Cedente.Modalidade := ''; ACBrBoleto1.LayoutRemessa := c240; ACBrBoleto1.DataArquivo := Date; ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := '0'; with Titulo do begin LocalPagamento := 'EM QULAQUER BANCO ATE O VENCIMENTO'; Vencimento := '07/10/2022'; DataDocumento := '07/10/2022'; NumeroDocumento := '123456' EspecieDoc := 'DM' Aceite := atSim; DataProcessamento := '07/10/2022'; Carteira := 'RG'; NossoNumero := IntToStrZero(qryContasReceberNR_BOLETO.AsInteger,5); ValorDocumento := '5950' Sacado.NomeSacado := 'TESTE' Sacado.CNPJCPF := OnlyNumber(qryClienteDS_CNPJFAT.AsString); if qryClienteTP_PESSOA.AsString = 'J' then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pFisica; Sacado.Logradouro := qryClienteDS_ENDERECO.AsString; Sacado.Numero := qryClienteNR_ENDFATU.AsString; Sacado.Bairro := qryClienteDS_BAIRRO.AsString; Sacado.Cidade := qryClienteDS_CIDADE.AsString; Sacado.UF := qryClienteDS_SIGLA.AsString; Sacado.CEP := TiraPontoVirgula(qryClienteDS_CEPFATU.AsString); ValorAbatimento := StrToCurrDef('0',0); LocalPagamento := qryContasReceberDS_LOCALPAGTO.AsString; ValorMoraJuros := StrToCurrDef(FormatFloat('#,##0.00',qryContasReceberVrMoraRS.Asfloat),0); ValorDesconto := StrToCurrDef('0',0); ValorAbatimento := StrToCurrDef('0',0); DataMoraJuros := StrToDateDef(DatetoStr(qryContasReceberDT_MULTA.AsDateTime), 0); DataMulta := StrToDateDef(DatetoStr(qryContasReceberDT_MULTA.AsDateTime), 0); //DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); //DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(DatetoStr(qryContasReceberDT_PROTESTO.AsDateTime), 0); PercentualMulta := StrToCurrDef(FormatFloat('#,##0.00',qryContasReceberVR_MULTA.Asfloat),0); Mensagem.Text := qryContasReceberDS_MEMBOLETO.AsString + #13#10 + qryContasReceberDS_MEMBOLETO2.AsString + #13#10 + qryContasReceberDS_MEMBOLETO3.AsString; //Instrucao1 := padL(trim(edtInstrucoes1.Text),2,'0'); //Instrucao2 := padL(trim(edtInstrucoes2.Text),2,'0'); ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end;
  10. Bom dia, Em minas gerais existe alguma forma do sistema retornar todos os cupons fiscais emitidos. Tipo manifesto do destinatário só que retorna o que o cliente emitiu. Se existir como pode ser implementado. Abraços.
  11. o fornecedor enviou apenas a chave. o xml a gente não tem.
  12. bom dia, esta eh uma chave: 3121 0529 7352 0400 0152 6510 1000 0453 2714 2923 4987 verifique que o nome fantasia e o telefone são alterados.
  13. Boa tarde, Eu não sei como o pessoal conseguiu fazer, sei que fizeram, mas já foi feito o boletim e a denuncia na receita. Mas com o certificado digital eles conseguem o CSC. Abraços
  14. Foi através de fornecedores, fizeram uma promoção no supermercado estava chegando vários cupons desta empresa quando o fornecedor(Ex: Coca Cola) colocou o CNPJ do cupom verificou que era outra empresa que no caso seria meu cliente. Eles entraram em contato com meu cliente e fomos ver o que estava ocorrendo. O fornecedor (tipo coca cola) enviou os cupons que foram gerados e no caso peguei para consultar, onde foi detectado a serie alta (tipo 100). No cupom eles mudam o nome fantasia e o telefone. Entendeu?
  15. Bom dia, a todos, peço desculpas por se tratar de um assunto que não faz parte do forum. Mas consegui falar com o pessoal da receita, me informaram que se trata de uma quadrilha no Espírito Santo que esta fazendo isto. Com certeza deve ter alguma empresa de gera certificados por traz disto, na verdade eles geram outro certificado com os dados da empresa de minas. Como o site da receita de minas não tem como verificar todos os cupons gerados no mês pode consultar apenas chave por chave fica difícil descobrir, pois eles colocam uma serie alta tipo 100 para não gerar duplicidade de notas. Se alguém estiver passando por isto, é o que esta ocorrendo. Abraços
×
×
  • 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...