Gracias a Manuel por modificar la funci贸n usando XML. Esto nos ayudar谩 a profundizar en esta clase.
Y tambi茅n gracias a Joaqu铆n por el enlace al programa. S贸lo lo he mirado por encima pero creo que ser谩 suficiente para generar un recibo y mirarle las "tripas" para ver los cambios.
Manuel,
Respecto a las 贸rdenes de domiciliaci贸n tanto CORE como B2B, si no estoy equivocado la normativa SEPA nos obliga a tener en el documento todos los redactados en el idioma oficial del pais y en ingl茅s.
A ver si alguno de los presentes lo ha entendido como yo.
Supongo que por eso el modelo oficial tiene 2 idiomas.
Gracias,
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
local oDoc := mxmlNewElement( oXml, "xfdf" )
local oFields , xDato
mxmlElementSetAttr( oXml, "encoding", 'ISO-8859-1' ) // a帽adido mientras se encuentra mejor soluci贸n por compatibilidad .
.......Hola a todos,
Tengo una maldita duda sobre como debe ser la identificaci贸n del acreedor en los adeudos directos SEPA.
Por un lado en la p谩gina 3 del cuaderno AEB 19-14 de noviembre-2012, se dice que la identificaci贸n debe ser del tipo:
ES99888AAAAAAAAAAAAA.. (hasta 35 caracteres en total), en donde 888 vendr铆an a ser el sufijo que hasta ahora se est谩 utilizando.
Por otro lado en ese mismo cuaderno Anexo VII p谩gina 67 se indica que las reglas de migraci贸n de adeudos espa帽oles para ese mismo dato establecen que debe ser NIF-SUFIJO:
ES99AAAAAAA888.... (hasta 35 caracteres en total).
Donde meteran ustedes el sufijo en la identificaci贸n de acreedor?
Perdonen la cuesti贸n por no ser propia de FiveWin pero, como el hilo ha dado tanto de si...
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
FiveWiDi wrote:
Tengo una maldita duda sobre como debe ser la identificaci贸n del acreedor en los adeudos directos SEPA.
mastintin wrote:
聽 聽 聽 聽 聽 聽 if(CC_iban<10){
聽 聽 聽 聽 聽 聽 CC_iban = "0" + CC_iban;
聽 聽 聽 聽 聽 聽 }
FUNCTION fIban( cPais, cBanco, cSucursal, cDC, cCuenta)
local nIban, cIban, nMod, nContador, cPais2:=''
// comprueba ccc es correcto
IF !CCC (cBanco, cSucursal, cDC, cCuenta)
聽 聽MsgInfo ("CCC incorrecto.")
聽 聽// devuelve cadena vacia por error CCC
聽 聽RETURN ' '
ENDIF聽 聽聽 聽 聽 聽
聽 聽
聽 FOR ncontador = 1 TO 2
聽 聽 聽 IF ASC(SUBSTR(cPais, ncontador, 1)) >= 65
聽 聽 聽 聽 聽 聽cPais2 += STR( (ASC(UPPER(SUBSTR(cPais, ncontador, 1)))-55), 2, 0)
聽 聽 聽 聽ELSE
聽 聽 聽 聽 聽 聽 cPais2 += SUBSTR(cPais, ncontador, 1)
聽 聽 聽 ENDIF
聽 NEXT聽
聽 cIban := cBanco + cSucursal
聽 nMod := INT ( VAL(cIban) % 97)
聽 cIban := LTRIM(STR(nMod,3,0))+cDC+SUBS(cCuenta,1,2)
聽 nMod := INT ( VAL(cIban) % 97)
聽 cIban := LTRIM(STR(nMod,3,0))+SUBS(cCuenta,3) + cPais2 + "00"
聽 nMod := INT ( VAL(cIban) % 97 )
聽 nIban := INT ( 98 - ( VAL(cIban) % 97) )
聽 return cPais + STRZERO( nIban, 2)+cBanco+cSucursal+cDC+cCuentaQuerido Manuel,
驴Has conseguido hacer funcionar SEPA norma 19?.
Muy agradecida 
Manuel Valdenebro wrote:FiveWiDi wrote:
Tengo una maldita duda sobre como debe ser la identificaci贸n del acreedor en los adeudos directos SEPA.
La identificaci贸n del acreedor (AT-02) con un m谩ximo de 35 caracteres, debe tener la siguiente estructura:
AA codigo del pais ("ES" para Espa帽a)
DD d铆gito de control (a calcular segun mod-97-10)
SSS sufijo acreedor (normalmente 000)
NNNNNNNNN (nif del acreedor)
y hasta 35 caracteres si quieres a帽adirle algo mas.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
FUNCTION FusionaDatos()
LOCAL ScanOK
LOCAL oApp
LOCAL oAVDoc, okAVD
LOCAL oPDDoc
LOCAL oForm,oFields,ofield,cfield
LOCAL cPath := "c:\SEPA\ordenes\sepa2.pdf"
LOCAL i, nLen
oApp := CreateObject( "AcroExch.App" )
oAVDoc := CreateObject("AcroExch.AVDoc")
oKAVD = oAVDoc:Open(cPath, "sepa2.pdf")
pausa( oKAVD )
oForm:= CreateObject("AFormAut.App")
oFields = oForm:fields()
nLen := oFields:Count()
pausa(nLen)
For Each oField In oFields
cField:= oField:Name()
If cField == "c2"
oField:Value:= "NIF de la empresa"
ELSEIF cField == "c32"
oField:Value:= "Nombre de la empresa"
ELSEIF cField == "c33"
oField:Value:= "Direccion de la empresa"
...... // resto de los campos arrellenar
endif
Next Field
oPDDoc := createobject("AcroExch.PDDoc")
oPDDoc := oAvDoc:GetPDDoc()
oPDDoc:Save(1, "c:\SEPA\ordenes\ordenfinal.pdf")
oPDDoc:Close()
oPDDoc := nil
oAVDoc:BringToFront()
oAVDoc:Maximize(1)
//
RETURN nilelvira wrote:Querido Manuel,
驴Has conseguido hacer funcionar SEPA norma 19?.
Hola a todos,
Os comento mi experiencia (poca de momento).
El Banco de Sabadell (desconozco si es por definici贸n del cuaderno 19-14, B谩sico en Txt), no acepta en un mismo fichero para el mismo deudor dos cargos con la misma referencia, ni tan siquiera en diferentes remesas del mismo acreedor con diferente fecha cargo; no me lo puedo creer. Por tanto a modificar programa. Como los cangrejos, vamos 'pa tras'.
He tenido que incorporar validaci贸n de los caracteres ya sea del nombre del acreedor, deudor, u otros posibles textos, ya que por ejemplo el arterisco no est谩 permitido seg煤n la definici贸n del cuaderno; seguimos yendo 'pa tras'.
Cuando la aplicaci贸n de internet del Banc Sabadell funciona (dudo que funcione siempre, al menos para SEPA), te permite validar el fichero antes de enviarlo definitivamente; al final volveremos a remesar en papel... 'vaya tela'.
Si veo algo m谩s que sea curioso lo comento.
A脩ADO.
En BS la fecha de cargo de los adeudos no puede ser anterior a la fecha de creaci贸n del fichero. Bien, no se porque lo han definido as铆, para mi creo que es complicarle la vida al que gestiona recibos de asociaciones o clubes o por el estilo, en donde la fecha de 'vencimiento' tiene un valor relativo. Ala, a modificar la rutina para otra 'parida'.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
FiveWiDi wrote:
1)He tenido que incorporar validaci贸n de los caracteres ya sea del nombre del acreedor, deudor, u otros posibles textos, ya que por ejemplo el arterisco no est谩 permitido seg煤n la definici贸n del cuaderno; seguimos yendo 'pa tras'.
2)En BS la fecha de cargo de los adeudos no puede ser anterior a la fecha de creaci贸n del fichero. Bien, no se porque lo han definido as铆, para mi creo que es complicarle la vida al que gestiona recibos de asociaciones o clubes o por el estilo, en donde la fecha de 'vencimiento' tiene un valor relativo.