Digito Verificador da agência SICOOB

softcom.wendel · 27 Setembro, 2018

O Layout do SICOOB Mudou

Tive que alterar conforme imagem em anexo

Segue tbm o novo layout

LAYOUT COMERCIAL ELETRICA.xls

Jeferson Menegaldo · 28 Setembro, 2018

Como vc fez para resolver esse problema, achou onde informar esse digito no ACBR?

Juliomar Marchetti · 28 Setembro, 2018

caso queira contribuir anexe o fonte

informais · 6 Novembro, 2018

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 )

Juliomar Marchetti · 6 Novembro, 2018

favor anexar um txt com o arquivo completo

informais · 6 Novembro, 2018

Obrigado por me responder

anexo o arquivo de remessa

REM_756_0011.REM

Gr@c@ · 6 Novembro, 2018

a posição 72 do Header está = espaço por falta de informação. Tente informar '0'

* Linha incluida apenas para o banco sicob 756
	Linha	:= Linha	+'DigitoVerificadorAgenciaConta=' + CHR(13)+CHR(10)

informais · 6 Novembro, 2018

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

Editado 6 Novembro, 2018 por informais

José M. S. Junior · 7 Novembro, 2018

19 horas atrás, informais disse:

Estou usando o AcbrMonitorPlus 1.2.0.24, e mesmo assim está com erros

Bom dia, realize testes com a ultima versão 1.2.0.25, veja pelo manual que foi adicionado o campo: DigitoVerificadorAgenciaConta=

informais · 7 Novembro, 2018

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

informais · 7 Novembro, 2018

Estranho que comparei cada campo do layout tudo parece estar correto... muito estranho mesmo...

José M. S. Junior · 7 Novembro, 2018

Isso realmente não deveria ocorrer... O componente preenche os campos não informados com espaços ou zeros, conforme especificação do manual. Mas provavelmente algum campo deve estar incompleto, a forma mais facil de identificar é seguir o layout do banco e verificar qual campo não está preenchido no tamanho correto.

informais · 7 Novembro, 2018

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

informais · 12 Novembro, 2018

Olá a Todos, resivei, mas não consequi encontrar o erro..

o erro continua

validador-cnab240-cobranca.pdf

Editado 12 Novembro, 2018 por informais

BigWings · 12 Novembro, 2018

Em 07/11/2018 at 09:26, informais disse:

REM_756_0016.REM

Na coluna 109 do segmento P deve constar o tipo de aceite "A" ou "N".

No seu arquivo de remessa ele não está sendo gerado. Verifique o TXT enviado ao ACBrMonitorPLUS.

José M. S. Junior · 12 Novembro, 2018

Veja como preencher o campo Aceite: https://acbr.sourceforge.io/ACBrMonitor/ModeloTituloArquivoINI.html

https://acbr.sourceforge.io/ACBrMonitor/TabelappreenchimentoArquivoINI1.html

informais · 12 Novembro, 2018

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

Juliana Tamizou · 13 Novembro, 2018

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Entrar

Sobre nós...

Digito Verificador da agência SICOOB

Recommended Posts

softcom.wendel

Jeferson Menegaldo

Juliomar Marchetti

informais

Juliomar Marchetti

informais

Gr@c@

informais

José M. S. Junior

informais

informais

José M. S. Junior

informais

informais

BigWings

José M. S. Junior

informais

Juliana Tamizou

Links Rápidos

Links Rápidos

Parcerias

Clube Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br

	BigWings Ajude o Projeto ACBr crescer - Assine o SAC