Ir para conteúdo
  • Cadastre-se

dev botao

Digito Verificador da agência SICOOB


softcom.wendel
Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1962 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • 1 mês depois ...

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 )

 

Link para o comentário
Compartilhar em outros sites

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 por informais
Link para o comentário
Compartilhar em outros sites

  • Moderadores
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=

  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

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&amp;p_p_id=validadorcnab_WAR_portalsicoobinternetsp&amp;p_p_lifecycle=1&amp;p_p_state=normal&amp;p_p_mode=view&amp;p_p_col_id=column-1&amp;p_p_col_pos=1&amp;p_p_col_count=2&amp;_validadorcnab_WAR_portalsicoobinternetsp_javax.portlet.action=manterCNAB

 

 

 

 

 

 

REM_756_0016.REM

validador-cnab240-cobranca.pdf

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

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

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.

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1962 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.