Ir para conteúdo
  • Cadastre-se

informais

Membros
  • Total de ítens

    26
  • Registro em

  • Última visita

Últimos Visitantes

1.203 visualizações

informais's Achievements

Apprentice

Apprentice (3/14)

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

Recent Badges

4

Reputação

  1. Obrigado a Todos pelo empenho em me ajudar, foi resolvido com a dica dos amigos apos a dica do amigo BigWings, Consegui resolver. Agradeço a todos que se empenharam em me ajudar
  2. Olá a Todos, resivei, mas não consequi encontrar o erro.. o erro continua validador-cnab240-cobranca.pdf
  3. Ok Obrigado por Responder... Vou refazer a Conferencia, mas já tinha Feito, Lembrando que estou usando VIA TXT, ou seja estou usando o AcbrMonitorPlus 1.2.0.25 Irei revisar Hoje
  4. Estranho que comparei cada campo do layout tudo parece estar correto... muito estranho mesmo...
  5. Obrigado mais uma vez por responderem Baixei e atualizei o ACBR, resolvido em partes, agora está aparecendo esse erro... A linha 3 do arquivo não foi reconhecida como padrão Febraban CNAB240, não possui exatamente 240 caracteres Estou usando esse link para fazer a validação http://www.sicoob.com.br/validador-cnab240-cobranca?p_auth=tcnwzBTv&p_p_id=validadorcnab_WAR_portalsicoobinternetsp&p_p_lifecycle=1&p_p_state=normal&p_p_mode=view&p_p_col_id=column-1&p_p_col_pos=1&p_p_col_count=2&_validadorcnab_WAR_portalsicoobinternetsp_javax.portlet.action=manterCNAB REM_756_0016.REM validador-cnab240-cobranca.pdf
  6. Muito obrigado por tentar me ajudar. fiz assim *---------------------------------------------------------------------------- * Linha incluida apenas para o banco sicob 756 *---------------------------------------------------------------------------- IF substr(ALLTRIM(T_NUMERO_DO_BANCO),01,03) = '756' Linha := Linha +'DigitoVerificadorAgenciaConta=0' + CHR(13)+CHR(10) ELSE Linha := Linha +'DigitoVerificadorAgenciaConta=' + CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------------- mas infelizmente o erro ainda continua *---------------------------------------------------------------------------- ORIGEM := oDiretorioMonitor+'\titulo.INI' Canal := FCreate( (ORIGEM),0) *---------------------------------------------------------------------------- Linha := '[Cedente]' + CHR(13)+CHR(10) Linha := Linha +'Nome='+ALLTRIM( IF(bancos->CEDENTE_DIFERENTE='N', M->T_NOME_EMPRESA,bancos->NOME_CEDENTE ) )+ CHR(13)+CHR(10) Linha := Linha +'CNPJCPF='+ALLTRIM(IF(bancos->CEDENTE_DIFERENTE='N',M->T_CNPJ_EMPRESA,alltrim(bancos->CPF_CNPJ_CEDENTE) ) ) + CHR(13)+CHR(10) Linha := Linha +'Logradouro='+ALLTRIM(M->T_ENDE_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'Numero='+ALLTRIM(M->T_NUME_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'Bairro='+ALLTRIM(M->T_BAIR_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'Cidade='+ALLTRIM(M->T_CIDA_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'CEP='+ tiratraco(ALLTRIM(M->T_CEP__EMPRESA)) + CHR(13)+CHR(10) Linha := Linha +'UF='+ALLTRIM(M->T_ESTA_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'RespEmis='+ IF(EMPTY(SUBSTR(ALLTRIM(T_RESPONSAVEL_PELA_EMISSAO),01,01)),'0',SUBSTR(ALLTRIM(T_RESPONSAVEL_PELA_EMISSAO),01,01) ) + CHR(13)+CHR(10) &&&& {'','0 - Cliente Emite','1 - Banco Emite','2 - Banco Reemite','3 - Banco Nao Reemite'} Linha := Linha +'TipoPessoa='+ IF(bancos->CEDENTE_DIFERENTE='N','1',IF(bancos->TIPO_CEDENTE='F','0','1') ) + CHR(13)+CHR(10) && 0-Pessoa Física 1-Pessoa Juridica 2-Outros Linha := Linha +'CodigoCedente='+ ALLTRIM(T_CODIGO_CEDENTE) + CHR(13)+CHR(10) *---------------------------------------------------------------------------- IF !EMPTY(ALLTRIM(T_VARIACAO_CARTEIRA)) Linha := Linha +'Modalidade=' + ALLTRIM(T_VARIACAO_CARTEIRA) +CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------------- Linha := Linha +'LayoutBol='+SUBSTR(ALLTRIM(T_LAYOUT_ACBR_BOLETO),01,01) + CHR(13)+CHR(10) &&&& '0 - Padrao','1 - Carne','2 - Fatura (Padrao)','3 - Padrao Entrega' Linha := Linha +'LayoutBol=0' + CHR(13)+CHR(10) Linha := Linha +'CaracTitulo='+'0'+ CHR(13)+CHR(10) &&& 0 - Cobrança Simples 1-Cobrança Vinculada 2-Cobrança Caucionada 3-Cobrança Descontada 4-Cobrança Vendor IF !EMPTY(ALLTRIM(T_CODIGO_TRANSMISSAO)) Linha := Linha +'CODTRANSMISSAO='+ALLTRIM(T_CODIGO_TRANSMISSAO)+CHR(13)+CHR(10) ENDIF IF ALLTRIM(T_NUMERO_DO_BANCO)='001' Linha := Linha +'CONVENIO='+ ALLTRIM(T_NUMERO_CONVENIO)+CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------------- Linha := Linha +''+ CHR(13)+CHR(10) Linha := Linha +'[Conta]'+ CHR(13)+CHR(10) Linha := Linha +'Conta='+strzero(val(ALLTRIM(T_NUMERO_CONTA_BANCARIA)),12,0) + CHR(13)+CHR(10) Linha := Linha +'DigitoConta='+ALLTRIM(T_DIGITO_CONTA_BANCARIA) + CHR(13)+CHR(10) Linha := Linha +'Agencia='+strzero(val(ALLTRIM(T_AGEN_BANCO)),05,0) + CHR(13)+CHR(10) Linha := Linha +'DigitoAgencia='+ALLTRIM(T_DGV_AGENCIA) + CHR(13)+CHR(10) *---------------------------------------------------------------------------- * Linha incluida apenas para o banco sicob 756 *---------------------------------------------------------------------------- IF substr(ALLTRIM(T_NUMERO_DO_BANCO),01,03) = '756' Linha := Linha +'DigitoVerificadorAgenciaConta=0' + CHR(13)+CHR(10) ELSE Linha := Linha +'DigitoVerificadorAgenciaConta=' + CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------------- Linha := Linha +''+ CHR(13)+CHR(10) Linha := Linha +'[Banco]' + CHR(13)+CHR(10) Linha := Linha +'Numero='+substr(ALLTRIM(T_NUMERO_DO_BANCO),01,03)+ CHR(13)+CHR(10) Linha := Linha +'CNAB='+ IF(EMPTY(ALLTRIM(SUBSTR(alltrim(T_LAYOUT_REMESSA),1,1))),'0',SUBSTR(alltrim(T_LAYOUT_REMESSA),1,1)) + CHR(13)+CHR(10) &&&&,"0 - CNAB240","1 - CNAB400" *Linha := Linha +'IndiceACBr='+'3' + CHR(13)+CHR(10) Linha := Linha +'Carteira='+if(empty(alltrim(T_CARTEIRA)),'RG',alltrim(T_CARTEIRA) ) + CHR(13)+CHR(10) Linha := Linha +''+ CHR(13)+CHR(10) *---------------------------------------------------------------------------- FOR nI = 1 to Len( aArray_Boletos_abertas ) IF aArray_Boletos_abertas[nI,01] = 'S' T_TXT_PROCESSANDO := 'Gerando Boletos'+ALLTRIM(STR(SEQ_BOLETO,10,0)) oT_TXT_PROCESSANDO : Refresh() *---------------------------------------------------------------------- T_VALOR_DIARIO_JUROS := ( ((VAL(aArray_Boletos_abertas[nI,08])+VAL(aArray_Boletos_abertas[nI,09])) - val(aArray_Boletos_abertas[nI,21])) * (T_INDICE_MORA_BOLETO / 100) ) *---------------------------------------------------------------------- Linha := Linha +'[Titulo'+ALLTRIM(STR(SEQ_BOLETO,10,0))+']'+ CHR(13)+CHR(10) Linha := Linha +'NumeroDocumento='+alltrim(aArray_Boletos_abertas[nI,03]) + CHR(13)+CHR(10) Linha := Linha +'NossoNumero='+alltrim(aArray_Boletos_abertas[nI,06]) + CHR(13)+CHR(10) Linha := Linha +'Carteira='+if(empty(alltrim(T_CARTEIRA)),'RG',alltrim(T_CARTEIRA)) + CHR(13)+CHR(10) Linha := Linha +'ValorDocumento='+ alltrim( Transform( VAL((aArray_Boletos_abertas[nI,08]))+VAL((aArray_Boletos_abertas[nI,09])),'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'Vencimento='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) Linha := Linha +'ValorMoraJuros='+ alltrim( Transform( T_VALOR_DIARIO_JUROS ,'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'DataDocumento='+alltrim(aArray_Boletos_abertas[nI,05]) + CHR(13)+CHR(10) Linha := Linha +'DataProcessamento='+alltrim(aArray_Boletos_abertas[nI,05]) + CHR(13)+CHR(10) Linha := Linha +'DataAbatimento='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) Linha := Linha +'DataDesconto='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) Linha := Linha +'DataMoraJuros='+alltrim( DTOC(CTOD(aArray_Boletos_abertas[nI,07])) ) + CHR(13)+CHR(10) Linha := Linha +'DiasDeProtesto='+alltrim( alltrim(str(T_DIAS_PROTESTO,05,0)) ) + CHR(13)+CHR(10) Linha := Linha +'DataProtesto='+alltrim( IF(T_DIAS_PROTESTO>0,DTOC(CTOD(aArray_Boletos_abertas[nI,07])+IF(T_DIAS_PROTESTO<0,5,T_DIAS_PROTESTO)), DTOC(CTOD('')) ) ) + CHR(13)+CHR(10) Linha := Linha +'DataMulta='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) Linha := Linha +'ValorAbatimento='+'0,00'+ CHR(13)+CHR(10) Linha := Linha +'ValorDesconto='+alltrim( Transform( VAL((aArray_Boletos_abertas[nI,21])),'@E 999999999.99') )+ CHR(13)+CHR(10) Linha := Linha +'ValorMoraJuros='+ alltrim( Transform( T_VALOR_DIARIO_JUROS ,'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'ValorIOF='+ alltrim( Transform( 0 ,'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'ValorOutrasDespesas='+ alltrim( Transform( 0 ,'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'MultaValorFixo='+ alltrim( Transform( 0 ,'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'PercentualMulta='+ alltrim( Transform( 0 ,'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'LocalPagamento='+ ALLTRIM(T_LOCAL_PAGAMENTO) + CHR(13)+CHR(10) Linha := Linha +'Especie='+ if(empty(alltrim(aArray_Boletos_abertas[nI,04])),'DM',alltrim(aArray_Boletos_abertas[nI,04])) + CHR(13)+CHR(10) Linha := Linha +'EspecieMod='+alltrim(M->cSimb) + CHR(13)+CHR(10) &&&&& R$ Linha := Linha +'Sacado.NomeSacado='+ alltrim(aArray_Boletos_abertas[nI,11]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.CNPJCPF='+alltrim(aArray_Boletos_abertas[nI,44]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Pessoa='+ if(len(alltrim(aArray_Boletos_abertas[nI,44]))=11,'0','1')+ CHR(13)+CHR(10) Linha := Linha +'Sacado.Logradouro='+alltrim(aArray_Boletos_abertas[nI,41]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Numero='+alltrim(aArray_Boletos_abertas[nI,42]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Bairro='+alltrim(aArray_Boletos_abertas[nI,43]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Complemento='+'' + CHR(13)+CHR(10) Linha := Linha +'Sacado.Cidade='+alltrim(aArray_Boletos_abertas[nI,48]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.UF='+alltrim(aArray_Boletos_abertas[nI,47])+ CHR(13)+CHR(10) Linha := Linha +'Sacado.CEP='+ alltrim(aArray_Boletos_abertas[nI,46]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Email='+' '+ CHR(13)+CHR(10) *------dia 06-11-2018--------------------------------------------------- Linha := Linha +'Sacado.SacadoAvalista.NomeAvalista='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.CNPJCPF='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Logradouro='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Numero='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Complemento='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Bairro='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Cidade='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.UF='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.CEP='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Email='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.Fone='+ CHR(13)+CHR(10) Linha := Linha +'Sacado.SacadoAvalista.InscricaoNr='+ CHR(13)+CHR(10) *---------------------------------------------------------------------- Linha := Linha +'Mensagem=' +'Id.:'+ALLTRIM(STR(VAL(aArray_Boletos_abertas[nI,03]),10,0)) + ' '+ alltrim(aArray_Boletos_abertas[nI,15]) + CHR(13)+CHR(10) Linha := Linha +'Instrucao1=10' + CHR(13)+CHR(10) Linha := Linha +'Instrucao2=11' + CHR(13)+CHR(10) Linha := Linha +'Aceite='+if(alltrim(aArray_Boletos_abertas[nI,18])='S','1','2') + CHR(13)+CHR(10) Linha := Linha +'OcorrenciaOriginal.TipoOcorrencia='+alltrim(aArray_Boletos_abertas[nI,12])+ CHR(13)+CHR(10) Linha := Linha +'Parcela=1' + CHR(13)+CHR(10) Linha := Linha +'TotalParcelas=1' + CHR(13)+CHR(10) Linha := Linha +'SeuNumero='+alltrim(aArray_Boletos_abertas[nI,03]) + CHR(13)+CHR(10) Linha := Linha +'TipoDiasProtesto=0' + CHR(13)+CHR(10) &&& Como preencher o campo TipoDiasProtesto (Tipo de Ocorrência) 0 - Dias corridos 1 - Dias úteis Linha := Linha +'TipoImpressao=1'+ CHR(13)+CHR(10) Linha := Linha +'TipoDesconto=0' + CHR(13)+CHR(10) Linha := Linha +'TipoDesconto2=0' + CHR(13)+CHR(10) Linha := Linha +''+ CHR(13)+CHR(10) *---------------------------------------------------------------------------- *---------------------------------------------------------------------- * alltrim( Transform( (((T_VALOR_BOLETO+T_CUSTO_EMISSAO)-T_DESCONTO) * (bancos_instrucoes->MORA_ATRASO / 100)) 1-Valor por Dia,2-Taxa Mensal,3-Isento,4-Acata Cadastramento CAIXA' *---------------------------------------------------------------------- IF T_INDICE_MORA_BOLETO > 0 Linha := Linha +'CodigoMora=1'+ CHR(13)+CHR(10) T_VALOR_DIARIO_JUROS := ( ((VAL(aArray_Boletos_abertas[nI,08])+VAL(aArray_Boletos_abertas[nI,09])) - val(aArray_Boletos_abertas[nI,21])) * (T_INDICE_MORA_BOLETO / 100) ) ENDIF *---------------------------------------------------------------------- * Se nao colocar esse campo (DataProtesto) ele nao passa *---------------------------------------------------------------------- *---------------------------------------------------------------------- IF T_DIAS_PROTESTO <= 0 Linha := Linha +'DataBaixa='+alltrim( DTOC(CTOD(aArray_Boletos_abertas[nI,07])+5) ) + CHR(13)+CHR(10) ENDIF SEQ_BOLETO := SEQ_BOLETO + 1 ENDIF NEXT fWrite( Canal, Linha ) FClose( Canal ) REM_756_0012.REM validador-cnab240-cobranca_REMESSA_12.pdf
  7. Obrigado por me responder anexo o arquivo de remessa REM_756_0011.REM
  8. Estou usando o AcbrMonitorPlus 1.2.0.24, e mesmo assim está com erros Estou passando os parametros ao gerar o arquivo de remessa, estou usando XHARBOR Linha := '[Cedente]' + CHR(13)+CHR(10) Linha := Linha +'Nome='+ALLTRIM( IF(bancos->CEDENTE_DIFERENTE='N', M->T_NOME_EMPRESA,bancos->NOME_CEDENTE ) )+ CHR(13)+CHR(10) Linha := Linha +'CNPJCPF='+ALLTRIM(IF(bancos->CEDENTE_DIFERENTE='N',M->T_CNPJ_EMPRESA,alltrim(bancos->CPF_CNPJ_CEDENTE) ) ) + CHR(13)+CHR(10) Linha := Linha +'Logradouro='+ALLTRIM(M->T_ENDE_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'Numero='+ALLTRIM(M->T_NUME_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'Bairro='+ALLTRIM(M->T_BAIR_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'Cidade='+ALLTRIM(M->T_CIDA_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'CEP='+ tiratraco(ALLTRIM(M->T_CEP__EMPRESA)) + CHR(13)+CHR(10) Linha := Linha +'UF='+ALLTRIM(M->T_ESTA_EMPRESA) + CHR(13)+CHR(10) Linha := Linha +'RespEmis='+ IF(EMPTY(SUBSTR(ALLTRIM(T_RESPONSAVEL_PELA_EMISSAO),01,01)),'0',SUBSTR(ALLTRIM(T_RESPONSAVEL_PELA_EMISSAO),01,01) ) + CHR(13)+CHR(10) &&&& {'','0 - Cliente Emite','1 - Banco Emite','2 - Banco Reemite','3 - Banco Nao Reemite'} Linha := Linha +'TipoPessoa='+ IF(bancos->CEDENTE_DIFERENTE='N','1',IF(bancos->TIPO_CEDENTE='F','0','1') ) + CHR(13)+CHR(10) && 0-Pessoa Física 1-Pessoa Juridica 2-Outros Linha := Linha +'CodigoCedente='+ ALLTRIM(T_CODIGO_CEDENTE) + CHR(13)+CHR(10) *---------------------------------------------------------------------------- IF !EMPTY(ALLTRIM(T_VARIACAO_CARTEIRA)) Linha := Linha +'Modalidade=' + ALLTRIM(T_VARIACAO_CARTEIRA) +CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------------- Linha := Linha +'LayoutBol='+SUBSTR(ALLTRIM(T_LAYOUT_ACBR_BOLETO),01,01) + CHR(13)+CHR(10) &&&& '0 - Padrao','1 - Carne','2 - Fatura (Padrao)','3 - Padrao Entrega' Linha := Linha +'LayoutBol=0' + CHR(13)+CHR(10) Linha := Linha +'CaracTitulo='+'0'+ CHR(13)+CHR(10) &&& 0 - Cobrança Simples 1-Cobrança Vinculada 2-Cobrança Caucionada 3-Cobrança Descontada 4-Cobrança Vendor IF !EMPTY(ALLTRIM(T_CODIGO_TRANSMISSAO)) Linha := Linha +'CODTRANSMISSAO='+ALLTRIM(T_CODIGO_TRANSMISSAO)+CHR(13)+CHR(10) ENDIF IF ALLTRIM(T_NUMERO_DO_BANCO)='001' Linha := Linha +'CONVENIO='+ ALLTRIM(T_NUMERO_CONVENIO)+CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------------- Linha := Linha +''+ CHR(13)+CHR(10) Linha := Linha +'[Conta]'+ CHR(13)+CHR(10) Linha := Linha +'Conta='+strzero(val(ALLTRIM(T_NUMERO_CONTA_BANCARIA)),12,0) + CHR(13)+CHR(10) Linha := Linha +'DigitoConta='+ALLTRIM(T_DIGITO_CONTA_BANCARIA) + CHR(13)+CHR(10) Linha := Linha +'Agencia='+strzero(val(ALLTRIM(T_AGEN_BANCO)),05,0) + CHR(13)+CHR(10) Linha := Linha +'DigitoAgencia='+ALLTRIM(T_DGV_AGENCIA) + CHR(13)+CHR(10) * Linha incluida apenas para o banco sicob 756 Linha := Linha +'DigitoVerificadorAgenciaConta=' + CHR(13)+CHR(10) *---------------------------------------------------------------------------- Linha := Linha +''+ CHR(13)+CHR(10) Linha := Linha +'[Banco]' + CHR(13)+CHR(10) Linha := Linha +'Numero='+substr(ALLTRIM(T_NUMERO_DO_BANCO),01,03)+ CHR(13)+CHR(10) Linha := Linha +'CNAB='+ IF(EMPTY(ALLTRIM(SUBSTR(alltrim(T_LAYOUT_REMESSA),1,1))),'0',SUBSTR(alltrim(T_LAYOUT_REMESSA),1,1)) + CHR(13)+CHR(10) &&&&,"0 - CNAB240","1 - CNAB400" *Linha := Linha +'IndiceACBr='+'3' + CHR(13)+CHR(10) Linha := Linha +'Carteira='+if(empty(alltrim(T_CARTEIRA)),'RG',alltrim(T_CARTEIRA) ) + CHR(13)+CHR(10) Linha := Linha +''+ CHR(13)+CHR(10) *---------------------------------------------------------------------------- FOR nI = 1 to Len( aArray_Boletos_abertas ) IF aArray_Boletos_abertas[nI,01] = 'S' T_TXT_PROCESSANDO := 'Gerando Boletos'+ALLTRIM(STR(SEQ_BOLETO,10,0)) oT_TXT_PROCESSANDO : Refresh() Linha := Linha +'[Titulo'+ALLTRIM(STR(SEQ_BOLETO,10,0))+']'+ CHR(13)+CHR(10) Linha := Linha +'NumeroDocumento='+alltrim(aArray_Boletos_abertas[nI,03]) + CHR(13)+CHR(10) Linha := Linha +'NossoNumero='+alltrim(aArray_Boletos_abertas[nI,06]) + CHR(13)+CHR(10) Linha := Linha +'Carteira='+if(empty(alltrim(T_CARTEIRA)),'RG',alltrim(T_CARTEIRA)) + CHR(13)+CHR(10) Linha := Linha +'ValorDocumento='+ alltrim( Transform( VAL((aArray_Boletos_abertas[nI,08]))+VAL((aArray_Boletos_abertas[nI,09])),'@E 999999999.99') ) + CHR(13)+CHR(10) Linha := Linha +'Vencimento='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) Linha := Linha +'DataDocumento='+alltrim(aArray_Boletos_abertas[nI,05]) + CHR(13)+CHR(10) Linha := Linha +'DataProcessamento='+alltrim(aArray_Boletos_abertas[nI,05]) + CHR(13)+CHR(10) Linha := Linha +'DataAbatimento='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) Linha := Linha +'DataDesconto='+alltrim(aArray_Boletos_abertas[nI,07]) + CHR(13)+CHR(10) *Linha := Linha +'DataMoraJuros='+alltrim( DTOC(CTOD(aArray_Boletos_abertas[nI,07])+1) ) + CHR(13)+CHR(10) Linha := Linha +'DataMoraJuros='+alltrim( DTOC(CTOD(aArray_Boletos_abertas[nI,07])) ) + CHR(13)+CHR(10) *---------------------------------------------------------------------- * alltrim( Transform( (((T_VALOR_BOLETO+T_CUSTO_EMISSAO)-T_DESCONTO) * (bancos_instrucoes->MORA_ATRASO / 100)) 1-Valor por Dia,2-Taxa Mensal,3-Isento,4-Acata Cadastramento CAIXA' *---------------------------------------------------------------------- IF T_INDICE_MORA_BOLETO > 0 Linha := Linha +'CodigoMora=1'+ CHR(13)+CHR(10) T_VALOR_DIARIO_JUROS := ( ((VAL(aArray_Boletos_abertas[nI,08])+VAL(aArray_Boletos_abertas[nI,09])) - val(aArray_Boletos_abertas[nI,21])) * (T_INDICE_MORA_BOLETO / 100) ) Linha := Linha +'ValorMoraJuros='+ alltrim( Transform( T_VALOR_DIARIO_JUROS ,'@E 999999999.99') ) + CHR(13)+CHR(10) ENDIF *---------------------------------------------------------------------- * Se nao colocar esse campo (DataProtesto) ele nao passa *---------------------------------------------------------------------- Linha := Linha +'DataProtesto='+alltrim( IF(T_DIAS_PROTESTO>0,DTOC(CTOD(aArray_Boletos_abertas[nI,07])+IF(T_DIAS_PROTESTO<0,5,T_DIAS_PROTESTO)), DTOC(CTOD('')) ) ) + CHR(13)+CHR(10) *---------------------------------------------------------------------- IF T_DIAS_PROTESTO <= 0 Linha := Linha +'DataBaixa='+alltrim( DTOC(CTOD(aArray_Boletos_abertas[nI,07])+5) ) + CHR(13)+CHR(10) ENDIF Linha := Linha +'ValorAbatimento='+'0,00'+ CHR(13)+CHR(10) Linha := Linha +'ValorDesconto='+alltrim( Transform( VAL((aArray_Boletos_abertas[nI,21])),'@E 999999999.99') )+ CHR(13)+CHR(10) Linha := Linha +'LocalPagamento='+ ALLTRIM(T_LOCAL_PAGAMENTO) + CHR(13)+CHR(10) Linha := Linha +'Especie='+ if(empty(alltrim(aArray_Boletos_abertas[nI,04])),'DM',alltrim(aArray_Boletos_abertas[nI,04])) + CHR(13)+CHR(10) Linha := Linha +'EspecieMod='+alltrim(M->cSimb) + CHR(13)+CHR(10) *Estava Assim **Linha := Linha +'EspecieMod=09' + CHR(13)+CHR(10) Linha := Linha +'Sacado.NomeSacado='+ alltrim(aArray_Boletos_abertas[nI,11]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.CNPJCPF='+alltrim(aArray_Boletos_abertas[nI,44]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Pessoa='+ if(len(alltrim(aArray_Boletos_abertas[nI,44]))=11,'0','1')+ CHR(13)+CHR(10) Linha := Linha +'Sacado.Logradouro='+alltrim(aArray_Boletos_abertas[nI,41]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Numero='+alltrim(aArray_Boletos_abertas[nI,42]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Bairro='+alltrim(aArray_Boletos_abertas[nI,43]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Complemento='+'' + CHR(13)+CHR(10) Linha := Linha +'Sacado.Cidade='+alltrim(aArray_Boletos_abertas[nI,48]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.UF='+alltrim(aArray_Boletos_abertas[nI,47])+ CHR(13)+CHR(10) Linha := Linha +'Sacado.CEP='+ alltrim(aArray_Boletos_abertas[nI,46]) + CHR(13)+CHR(10) Linha := Linha +'Sacado.Email='+' '+ CHR(13)+CHR(10) Linha := Linha +'Mensagem=' +'Id.:'+ALLTRIM(STR(VAL(aArray_Boletos_abertas[nI,03]),10,0)) + ' '+ alltrim(aArray_Boletos_abertas[nI,15]) + CHR(13)+CHR(10) Linha := Linha +'Instrucao1=10' + CHR(13)+CHR(10) Linha := Linha +'Instrucao2=11' + CHR(13)+CHR(10) Linha := Linha +'Aceite='+if(alltrim(aArray_Boletos_abertas[nI,18])='S','1','2') + CHR(13)+CHR(10) Linha := Linha +'OcorrenciaOriginal.TipoOcorrencia='+alltrim(aArray_Boletos_abertas[nI,12])+ CHR(13)+CHR(10) Linha := Linha +'Parcela=1' + CHR(13)+CHR(10) Linha := Linha +'TotalParcelas=1' + CHR(13)+CHR(10) Linha := Linha +'SeuNumero='+alltrim(aArray_Boletos_abertas[nI,03]) + CHR(13)+CHR(10) Linha := Linha +'TipoDiasProtesto=0' + CHR(13)+CHR(10) &&& Como preencher o campo TipoDiasProtesto (Tipo de Ocorrência) 0 - Dias corridos 1 - Dias úteis Linha := Linha +'TipoImpressao=1'+ CHR(13)+CHR(10) Linha := Linha +''+ CHR(13)+CHR(10) *---------------------------------------------------------------------------- SEQ_BOLETO := SEQ_BOLETO + 1 ENDIF NEXT fWrite( Canal, Linha ) FClose( Canal )
  9. olá amigo, agora só estou com esse problema 19.0 Seqüência (NSA) Número Seqüencial do Arquivo 158 163 6 - Num *G018 G018 Número Seqüencial do Arquivo Número seqüencial adotado e controlado pelo responsável pela geração do arquivo para ordenar a disposição dos arquivos encaminhados. Evoluir um número seqüencial a cada header de arquivo. Para gerar o arquivo estou fazendo assim Linha := 'BOLETO.GerarRemessa(C:\ACBrMonitorPLUS\,1,'+(NOME_BOLETO)+') ' + CHR(13)+CHR(10) fWrite( Canal, Linha ) FClose( Canal ) Preciso de uma forma colocar o numero sequencial da remessa. mesmo eu gerando 10 arquivos ele gera como sendo 0001 obrigado
  10. Anexo manual que o pessoal do banco me mandou Página 9 do manual anexo Documento_cnab240.pdf Vamos partes por partes Primeiro arquivo de remessa que gerei, (cheio de erros) **** Este aplicativo não pode ser utilizado como única forma de validação **** ======================================== HEADER ======================================== Cedente centralizador: A F GUIMARAES E CIA LTDA Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 22/11/2016 as 15:51:47 seq 000001 Convenio: 820709 Inscricao: 04.240.667/0001-12 Erro no HEADER. Codigos de erro: DV AGENCIA inválido na posição 58 ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 22/11/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ====================== Erro na capa de lote. Codigos de erro: DV AGENCIA inválido na posição 59 ================== Linha 3 SEGMENTO P. Codigos de erro: (09.3P) 12.3P, deveria ser 14 ou 11 ou 21 Este Título tem que estar marcado para protestar ou devolver. Data Emissão do título não pode ser igual ou posterior a data vencimento. Titulo com Nosso Numero de Registrada marcado como Sem Registro na posição 41 Linha 4 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 6 SEGMENTO P. Codigos de erro: (09.3P) 12.3P, deveria ser 14 ou 11 ou 21 Este Título tem que estar marcado para protestar ou devolver. Titulo com Nosso Numero de Registrada marcado como Sem Registro na posição 41 Linha 7 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 9 SEGMENTO P. Codigos de erro: (09.3P) 12.3P, deveria ser 14 ou 11 ou 21 Este Título tem que estar marcado para protestar ou devolver. Titulo com Nosso Numero de Registrada marcado como Sem Registro na posição 41 Linha 10 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 12 SEGMENTO P. Codigos de erro: (09.3P) 12.3P, deveria ser 14 ou 11 ou 21 Este Título tem que estar marcado para protestar ou devolver. Titulo com Nosso Numero de Registrada marcado como Sem Registro na posição 41 Linha 13 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 15 SEGMENTO P. Codigos de erro: (09.3P) 12.3P, deveria ser 14 ou 11 ou 21 Este Título tem que estar marcado para protestar ou devolver. Data Emissão do título não pode ser igual ou posterior a data vencimento. Titulo com Nosso Numero de Registrada marcado como Sem Registro na posição 41 Linha 16 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Total de registros do lote = 16 FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!! Segunda Tentativa de Homologação **** Este aplicativo não pode ser utilizado como única forma de validação **** ======================================== HEADER ======================================== Cedente centralizador: A F GUIMARAES E CIA LTDA Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 24/11/2016 as 10:37:35 seq 000001 Convenio: 820709 Inscricao: 04.240.667/0001-12 ======================================== HEADER OK ===================================== ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 24/11/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ===================================== CAPA DE LOTE OK ================================== Linha 3 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. Desconto não pode ser maior ou igual ao valor do título. Linha 4 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 6 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. Linha 7 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 9 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. Linha 10 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 12 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. Linha 13 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 15 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. Linha 16 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 18 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. Linha 19 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Total de registros do lote = 19 FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!! Terceira Tentativa **** Este aplicativo não pode ser utilizado como única forma de validação **** ======================================== HEADER ======================================== Cedente centralizador: A F GUIMARAES E CIA LTDA Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 24/11/2016 as 10:37:35 seq 000001 Convenio: 820709 Inscricao: 04.240.667/0001-12 ======================================== HEADER OK ===================================== ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 24/11/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ===================================== CAPA DE LOTE OK ================================== Linha 3 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Desconto não pode ser maior ou igual ao valor do título. Para -> NN: 14/000000000000002 SeuN: 1576 Linha 6 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000000001 SeuN: 1575 Linha 9 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000002101 SeuN: 1574 Linha 12 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000005551 SeuN: 1573 Linha 15 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000005551 SeuN: 1572 Linha 18 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000000001 SeuN: 1571 Total de registros do lote = 19 FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!! Quarta Tentativa (nesta ultima ele me disse que tem que retirar o Seguimento R do arquivo) **** Este aplicativo não pode ser utilizado como única forma de validação **** ======================================== HEADER ======================================== Cedente centralizador: A F GUIMARAES E CIA LTDA Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 19/12/2016 as 09:24:56 seq 000001 Convenio: 820709 Inscricao: 04.240.667/0001-12 ======================================== HEADER OK ===================================== ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 19/12/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ===================================== CAPA DE LOTE OK ================================== Linha 4 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 5 Total de registros do lote não confere !! informado 5 calculado 4 Linha 6 Total de registros do arquivo não confere !! FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!! Ai lascou.... Não vi como resolver
  11. Apos Varios Telefonemas o banco me retornou essa validação Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 19/12/2016 as 09:24:56 seq 000001 Convenio: 820709 Inscricao: 04.240.667/0001-12 ======================================== HEADER OK ===================================== ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 19/12/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ===================================== CAPA DE LOTE OK ================================== Linha 4 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 5 Total de registros do lote não confere !! informado 5 calculado 4 Linha 6 Total de registros do arquivo não confere !! FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!! Por fim eles me pediram para retirar o Seguimento R, mas isso nao tem como eu Setar o ACBr MonitorPLUS Ver.1.0.0.10
  12. Tem idiea de quando será compilado Daniel Simões de Almeida
  13. Bom dia o meu está dando esse erro **** Este aplicativo não pode ser utilizado como única forma de validação **** ======================================== HEADER ======================================== Cedente centralizador: NOME DA EMPRESA E CIA LTDA Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 19/12/2016 as 09:24:56 seq 000001 Convenio: 820709 Inscricao: 99.999.9999/0001-12 ======================================== HEADER OK ===================================== ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 19/12/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ===================================== CAPA DE LOTE OK ================================== Linha 4 SEGMENTO Q. Codigos de erro: (20.3Q,21.3Q,22.3Q) Linha 5 Total de registros do lote não confere !! informado 5 calculado 4 Linha 6 Total de registros do arquivo não confere !! FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!!
  14. Probelmas para geracao de arquivo de remessa da caixa ec. federal CNAB 240 O que pode estar errado *** Este aplicativo não pode ser utilizado como única forma de validação **** ======================================== HEADER ======================================== Cedente centralizador: A F GxxxxxxES E CIA LTDA Tipo de remessa: REMESSA-PRODUCAO Banco: CAIXA ECONOMICA FEDERAL Geracao: 24/11/2016 as 10:37:35 seq 000001 Convenio: 820709 Inscricao: 04.xxx.667/0001-12 ======================================== HEADER OK ===================================== ====================================== CAPA DE LOTE ==================================== Num remessa: 00000001 Gravacao: 24/11/2016 Convenio: 820709 Inscricao: 04.240.667/0001-12 ===================================== CAPA DE LOTE OK ================================== Linha 3 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Desconto não pode ser maior ou igual ao valor do título. Para -> NN: 14/000000000000002 SeuN: 1576 Linha 6 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000000001 SeuN: 1575 Linha 9 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000002101 SeuN: 1574 Linha 12 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000005551 SeuN: 1573 Linha 15 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000005551 SeuN: 1572 Linha 18 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Para -> NN: 14/000000000000001 SeuN: 1571 Total de registros do lote = 19 FIM DA VALIDAÇÃO, VERIFIQUE OS ERROS !!!
×
×
  • 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.