Adeudos Directos SEPA en euros Esquema B2B

FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by FiveWiDi »

Manuel Valdenebro wrote: 1) No sólo el asterisco. Para los españoles la Ñ y la Ç y en las zonas turísticas, todos los extranjeros con caracteres especiales. Pero aunque habrá que verlo, yo creo que el sistema se va a tragar todos _. Lo que puede ocurrir es que la persona que se llama CAÑO aparezca en el recibo como CANO o CA%O.
2) Según las normas del SEPA-CORE, tiene que haber, al menos, cuatro dias desde la fecha de creación del recibo (y envio al banco) hasta la fecha de cargo/cobro (fecha en la que el banco presentará a las otras entidades los recibos al cobro). Según las normas de emigración españolas, algunas entidades españolas bajaran de cuatro a tres dias este plazo.
Esto ya existía en la norma del CSB-19 anterior. No le veo la complicación ya que la fecha de confección del fichero y la fecha de cargo son constantes en el archivo. Es tan fácil como hacer fConfeccion=DTOS(DATE()) y fCargo = DTOS ( DATE()+4)), independientemente que el recibo sea del año catapún. Otra cosa es si hay vencimientos futuros que obliga a hacer bloques por cada fecha
Manuel,
En Banco Sabadell tuve problemas el martes por la noche y ayer por la noche, como los avisos que daba su página web sólo indicaban con claridad que llamara a un teléfono de pago (902), empecé a pensar en posibles causas que yo pudiera evitar, de ahí la comprobación de _.
Si que pude ver, cuando funcionó, que avisa que si el periodo de los 4 días no lo has respetado, el sistema te avisa que lo aplicará calculando él la fecha cobro. Aunque lo correcto es lo que propones para no tener problemas con otros bancos.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
elvira
Posts: 462
Joined: Fri Jun 29, 2012 12:49 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by elvira »

Hola Chicos,

¿Hay algún avance?.

Muy agradecida ;).
elvira
Posts: 462
Joined: Fri Jun 29, 2012 12:49 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by elvira »

Manuel,

Por favor, ¿tienes ejemplo2.rc?.

¿Y cómo se crea el .dll para hbmxml lib de Harbour por favor?.

Muy agradecida.
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by lucasdebeltran »

Hola,

Estoy con la creación del fichero.

Tengo tanto un viejo norma 19 y el mismo fichero convertido a SEPA, si alguien le interesa que me contacte por email.

Necesitaría por favor si alguien quiere compartir las funciones relativas a:
- Calcular el dígito control de acreedor AT2
- Calcular el dígito control del cuaderno
- Convertir _ de los nombres de los deudos no admitidos ñ, ç, etc

Muchas gracias. Iré comentando los resultados.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by FiveWiDi »

lucasdebeltran wrote:Hola,

Estoy con la creación del fichero.

Tengo tanto un viejo norma 19 y el mismo fichero convertido a SEPA, si alguien le interesa que me contacte por email.

Necesitaría por favor si alguien quiere compartir las funciones relativas a:
- Calcular el dígito control de acreedor AT2
- Calcular el dígito control del cuaderno
- Convertir _ de los nombres de los deudos no admitidos ñ, ç, etc

Muchas gracias. Iré comentando los resultados.
Lucas,

Yo los debo tener, pero ahora no recuerdo que es el "dígito control del cuaderno".

Pero no te los puedo enviar hasta la noche.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by FiveWiDi »

lucasdebeltran wrote:Hola,

Estoy con la creación del fichero.

Tengo tanto un viejo norma 19 y el mismo fichero convertido a SEPA, si alguien le interesa que me contacte por email.

Necesitaría por favor si alguien quiere compartir las funciones relativas a:
- Calcular el dígito control de acreedor AT2
- Calcular el dígito control del cuaderno
- Convertir _ de los nombres de los deudos no admitidos ñ, ç, etc

Muchas gracias. Iré comentando los resultados.

Code: Select all

/* ********************************************************************** */
FUNCTION cSEPAcaracteres( cCadena )
local nContador := 0
Local cCaracteresOK := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

cCaracteresOk := cCaracteresOk + Lower( cCaracteresOk )
cCaracteresOk := cCaracteresOk + "1234567890"
cCaracteresOk := cCaracteresOk + "/-?:().,'+ "

If Len( cCadena ) > 0

    cCadena := " " + cCadena + " "
    
    While AT( "ç", cCadena) > 0
        cCadena := Left( cCadena, AT( "ç", cCadena) -1 ) + "c" + Substr( cCadena, AT( "ç", cCadena) + 1 )
    End
    While AT( "Ç", cCadena) > 0
        cCadena := Left( cCadena, AT( "Ç", cCadena) -1 ) + "C" + Substr( cCadena, AT( "Ç", cCadena) + 1 )
    End
    While AT( "ñ", cCadena) > 0
        cCadena := Left( cCadena, AT( "ñ", cCadena) -1 ) + "n" + Substr( cCadena, AT( "ñ", cCadena) + 1 )
    End
    While AT( "Ñ", cCadena) > 0
        cCadena := Left( cCadena, AT( "Ñ", cCadena) -1 ) + "N" + Substr( cCadena, AT( "Ñ", cCadena) + 1 )
    End

    For nContador := 2 To Len( cCadena )
        If SubStr( cCadena, nContador, 1 ) $ cCaracteresOk
          Else
            cCadena := Left(cCadena, nContador - 1 ) + "-" + Substr( cCadena, nContador + 1 )
        EndIf
    Next

    cCadena := SubStr( cCadena, 2 )
    cCadena := Left( cCadena, Len( cCadena ) - 1 )

EndIf

Return cCadena
/* ********************************************************************** */
/* *********************************************************************************** */
FUNCTION cGetIdSEPABD( AMPAARRA )
Local cPais       := "ES"
local cSufix      := cGetSufixFact( AMPAARRA )
Local cNIF        := cGetNifBD( AMPAARRA )
Local cDigit      := cGetDigitIDSEPA( cNIF, cPais )

Return AllTrim( cPais + cDigit + cSufix + cNIF )
/* *********************************************************************************** */
FUNCTION cGetDigitIDSEPA( cNIF, cPais )
Local aLetras     := {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z" }
Local aValor      := {10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 }
Local cCadena     := AllTrim(cNIF) + cPais + "00"
Local nContador   := 0
Local cAux        := ""
Local nModulo     := 0
/* ES = 1428 */

cCadena := " " + cCadena + " "

For nContador := 1 to 26
    If AT( aLetras[ nContador], cCadena ) > 0
        cCadena := Left( cCadena, AT( aLetras[ nContador], cCadena ) - 1 ) + Str( aValor[ nContador ], 2, 0) + SubStr( cCadena, AT( aLetras[ nContador], cCadena ) + 1 )
    EndIf
Next

cCadena := AllTrim( cCadena )

//** PASO 3 aplicar el modulo de 97 a la cantidad auxiliar - 10(ISO 7604)
cAux := Left( cCadena, 9 )
//208100217

cCadena := SubStr( cCadena, 10 )
//00000104602142800

nModulo := ( Val( cAux ) % 97 )
//resto de 208100217 / 97

While Len( cCadena ) > 8
    If nModulo < 10
        cAux := AllTrim(Str( nModulo, 2, 0 )) + Left( cCadena, 8 )
        cCadena := SubStr( cCadena, 9 )
        nModulo := ( Val( cAux ) % 97 )
    Else
        cAux := AllTrim(Str( nModulo, 2, 0)) + Left( cCadena,7 )
        cCadena := SubStr( cCadena, 8 )
        nModulo := ( Val( cAux ) % 97 )
    Endif
End

cAux := AllTrim(Str( nModulo, 2, 0)) + cCadena
nModulo := ( Val( cAux ) % 97 )

nModulo := 98 - nModulo
If  nModulo < 10
    cAux := "0" + AllTrim(Str( nModulo, 2, 0))
Else
    cAux := Str( nModulo, 2, 0)
Endif

Return cAux
/* *********************************************************************************** */
 
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by lucasdebeltran »

Hola,

Muchas gracias por vuestra ayuda.

Me surge una duda por favor:

Veo que para meter los conceptos de los clientes sólo hay 140 caracteres.

¿No es posible meter más datos adicionales de alguna manera?.

Muchas gracias.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
User avatar
Joaquim Ferrer
Posts: 58
Joined: Sat Jan 14, 2012 3:46 pm
Location: Barcelona

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by Joaquim Ferrer »

@Lucas
Qué tipo de información no es suficiente con 140 caracteres ( 1 tweet ) ?
Fivewinner desde 1.9, programador PHP y Javascript, HTML5 evangelista
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by lucasdebeltran »

Joaquim,

En la asociación también venden material, y en el recibo sirve de factura, se añade base imponible, iva, total, etc. Y unos conceptos. Pero sobrepasa los 140 caracteres.

Pero en los recibos en papel que llegan a casa sí cabe más.


Otra duda que tengo, ¿cuánta diferencia tiene que haber entre la fecha de envío de la remesa y la fecha de cargo?.

Muchas gracias.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by FiveWiDi »

lucasdebeltran wrote:Joaquim,

En la asociación también venden material, y en el recibo sirve de factura, se añade base imponible, iva, total, etc. Y unos conceptos. Pero sobrepasa los 140 caracteres.

Pero en los recibos en papel que llegan a casa sí cabe más.


Otra duda que tengo, ¿cuánta diferencia tiene que haber entre la fecha de envío de la remesa y la fecha de cargo?.

Muchas gracias.
Lucas,

Estoy igual que tu. No és posible.
Es una norma hecha en y para Europa, y en Europa este tipo de pagos que hacemos en este país no está tan extendido, por tanto no tienen esa necesidad.
La solución que he adoptado yo es:
-creo en PDF el recibo sin datos personales y con el CCC incompleto (sustituyo 4 cifras por arteriscos) por el tema de la LOPD
-en esos 140 caracteres pondré algo así: "Para ver detalle: http://www.rebutsadoll.com/ampa32/13/rebuts/4dpj.pdf" (es una prueba)
-cuelgo los pdf en el sito web; si los piratean o los copian me da igual, no tienen información personal.
Hay un detalle importante, sigo trabajando como si del cuaderno 19 antíguo se tratará, sólo cambia el proceso de creación del fichero al banco, de esta manera puedo crear los PDF con toda la información.

Previamente a los asociados les enviaremos una carta explicando el cambio y aprovechando para actualizar autorizaciones y datos de email y teléfono (para reclamar impagados nos vendrá bien).

Respecto a la fecha de envío y la de cobro deben haber 4 días si es RCUR si es FRTS ¿7? está en la norma (no la tengo a mano).
Last edited by FiveWiDi on Tue Dec 03, 2013 11:36 pm, edited 3 times in total.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by FiveWiDi »

Joaquim Ferrer wrote:@Lucas
Qué tipo de información no es suficiente con 140 caracteres ( 1 tweet ) ?
Joaquim, ni te lo imaginas:

Conceptos de 40 caracteres:
Rueda patinatge 3,50
Paella 3 comensales 15,00
Taller de Teatro 19,00
Inglés extraescolar 25,00
Fundas botas patinage 6,00
Cuota AMPA 8,00
Reb.Cob. 852147
Mantenimiento de instalaciones deportivas
Vestido patinage matinal 15,00
ya llevo 9*40=360
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
Joaquim Ferrer
Posts: 58
Joined: Sat Jan 14, 2012 3:46 pm
Location: Barcelona

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by Joaquim Ferrer »

FiveWiDi wrote:
Joaquim Ferrer wrote:@Lucas
Qué tipo de información no es suficiente con 140 caracteres ( 1 tweet ) ?
Joaquim, ni te lo imaginas:

Conceptos de 40 caracteres:
Rueda patinatge 3,50
Paella 3 comensales 15,00
Taller de Teatro 19,00
Inglés extraescolar 25,00
Fundas botas patinage 6,00
Cuota AMPA 8,00
Reb.Cob. 852147
Mantenimiento de instalaciones deportivas
Vestido patinage matinal 15,00
ya llevo 9*40=360
Carlos, por lo que veo la limitación se impone en los 140 carácteres. En cierta medida tiene su lógica, ya que puestos a detallar conceptos, ¿ Cuál seria el límite ?
Podriamos poner conceptos indefinidamente, para eso está una factura no ?
De todas formas existe el detalle en muchos recibos, por ejemplo, aseguradoras o recibos domiciliados de los ayuntamientos (IBI, Basuras...) en los que esta limitación también tendrá consecuencias.
Veremos como lo solucionan...
Los 2 programas 'externos' que he probado (Generador Universal de Soportes de "la caixa" y Genesis 19 Sepa del Banco Sabadell) no contemplan el campo concepto para más de 140 carácteres.

@Lucas, los plazos de presentación puedes verlos en la siguiente tabla :
https://www.unicaja.es/PortalServlet?pa ... 9043556537
El plazo de presentación más corto es el COR1, una adaptación a la normativa Sepa que se han sacado de la manga ...
Seguiremos investigando
Fivewinner desde 1.9, programador PHP y Javascript, HTML5 evangelista
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by FiveWiDi »

Joaquim Ferrer wrote: El plazo de presentación más corto es el COR1, una adaptación a la normativa Sepa que se han sacado de la manga ...
Seguiremos investigando
Esa es la solución que deberán adoptar (sacárselo de la manga) si quieren seguir usando más de 140 (antes eran 640=8 lineasx80 caracteres). A ver como lo resuelven ese montón de entidades 'de peso' que usan el recibo para detallar las lecturas de contadores de agua, datos del seguro del coche, de la vivienda, de telefonía, etc.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
mgsoft
Posts: 398
Joined: Mon Aug 17, 2009 12:18 pm
Location: España

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by mgsoft »

Hola amigos,

No consigo ver la diferencia en la estructura de ambas normas salvo la versión del fichero.

¿Se me olvida algo?.

Muchas gracias.
Saludos,

Eduardo
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

Re: Adeudos Directos SEPA en euros Esquema B2B

Post by hmpaquito »

Hola,

En primer lugar gracias a todos los que habeis participado y especialmente a los que habeis hecho las clases que hay en el git de Joaquin.

Mi pregunta es:
En el git de Joaquin hay 2 tipos de generacion "texto plano", el de Joaquin y el de Manuel Calero. Parece que el de Calero es más reciente. ¿ Cual de ellas está mejor adaptada ? ¿ Funcionan las dos ? ¿ Alguien las ha utilizado en envios reales al banco ?

Gracias.

Cordialmente ** FELIZ NAVIDAD **
Post Reply