Visual Basic - Sepa XML en visual basic

Life is soft - evento anual de software empresarial
   
Vista:

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 31/10/2015 11:28:46
Buenas.
Tengo un programa (visual basic 6) que genera el fichero de domiciliacion de adeudos sepa en c19 pero ahora en 2016 hay que entregarlo en XML.
Alguien me podria decir como seria este proceso ya que no se ni la estructura del fichero.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Sepa XML en visual basic

Publicado por Andres Leonardo (698 intervenciones) el 04/11/2015 16:58:11
Mira yo hace tiempo o hice a punta de strings... seria importante saber donde tienes los datos.. y cual es la estructura ...

A mi me funciono
**Debes tener un archivo xml de ejempo ....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 04/11/2015 17:31:37
Buenas.
Actualmente lo que genero es el sepa en "txt" C19. Tengo un fichero de clientes y otro de recibos. El tema seria en vez de generar ese fichero c19. Crear el XML con la estructura necesaria para los bancos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Sepa XML en visual basic

Publicado por Andres Leonardo (698 intervenciones) el 04/11/2015 17:41:39
Yonatan
Si pero yo no se las estructuras .. recuerda quizas ni soy de tu pais jejejej
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 04/11/2015 18:03:09
A vale me comentas de las estructuras del fichero sepa. Si te digo la verdad aun estoy intentando conseguirlas ya que los bancos tardan en dartelas. Ya que no me fio de lo que viene por internet, la ultima modificacion que tube que realizar me base en documentos de internet y no valian.
No se si me podrias pasar el codigo y yo adaptar las estructuras cuando las tenga.
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Sepa XML en visual basic

Publicado por Andres Leonardo (698 intervenciones) el 04/11/2015 18:14:33
mm bueno esto es parte de lo que a mi me servia para armar el xml... en todo caso .. entenderás que mucho codigo depende de una base de datyos en access que contenia los campos necesarios .. por eso te digo es necesario para poder hacer

cabe indicar que este me servia excelente para entrega de información y no diga que era lo optimo .. pero era funcional en base de armar strings... espero lo puedas entender...


SAludos
Cualquier duda me avisas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 04/11/2015 18:20:04
gracias.
Ya le comentare cuando pruebe
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan Gallego Perera (15 intervenciones) el 17/11/2015 19:13:49
Estoy bastante perdido.
La opcion que me pasaste no me vale ya que en este caso tengo los datos divididos en 4 tablas (recibos, remesa, empresa, clientes).
Entonces el fichero que tengo que crear las primeras lineas tengo que indicar los datos de la empresa que genera la remesa, el total de recibos y la cantidad de dinero.
Despues tengo que crear una linea por cada recibo en la que indico los datos del recibo y del cliente.
y al final otras lineas con mas datos de la empresa.
Hasta ahora que lo escribia en txt tan solo tenia que recorrer la tabla de recibos e ir escribiendo los campos en el txt.
Pero ahora la verdad que estoy muy perdido porque nunca he generado ficheros xml
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Sepa XML en visual basic

Publicado por Andres Leonardo (698 intervenciones) el 17/11/2015 19:43:22
si me pudieras pasar un ejemplo de los datos (asi sean ficticios como los tienes en la base osea la estrucura de los datos de la tablas)
y como lo deberias entregar para ver si puedo ayudarte a mejorar

**Espero poderte ayudar

**Por la confidencialidad no te preocupes .. .muchas personas con las que interactuo aqui saben que solo trato de ayudar en el foro.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan Gallego Perera (15 intervenciones) el 18/11/2015 09:45:57
Te adjunto un como deberia quedar el ficher xml.

1
2
3
4
5
6
7
8
9
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
<?xml version="1.0" encoding="utf-8"?>
<Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";>
<CstmrDrctDbtInitn>
<GrpHdr>
<MsgId>PRE2013102809583113000ES80B11111111</MsgId>
<CreDtTm>2013-10-28T09:58:31</CreDtTm>
<NbOfTxs>2</NbOfTxs>
<CtrlSum>2517.33</CtrlSum>
<InitgPty>
<Nm>EMPRESA PRUEBAS,S.L.U.</Nm>
     <Id>
         <OrgId>
             <Othr>
                 <Id>ES46J03118115</Id>
             </Othr>
         </OrgId>
     </Id>
</InitgPty>
</GrpHdr>
<PmtInf>
     <PmtInfId>2013-10-28_095831Remesa 218</PmtInfId>
     <PmtMtd>DD</PmtMtd>
     <PmtTpInf>
         <SvcLvl>
             <Cd>SEPA</Cd>
         </SvcLvl>
         <LclInstrm>
             <Cd>CORE</Cd>
         </LclInstrm>
         <SeqTp>RCUR</SeqTp>
         <CtgyPurp>
             <Cd>TRAD</Cd>
         </CtgyPurp>
     </PmtTpInf>
     <ReqdColltnDt>2013-09-30</ReqdColltnDt>
     <Cdtr>
             <Nm>EMPRESA PRUEBAS,S.L.U.</Nm>
             <Id>
                 <PrvtId>
                     <Othr>
                         <Id>ES46J03118115</Id>
                     </Othr>
                 </PrvtId>
             </Id>
     </Cdtr>
     <CdtrAcct>
             <Id>
                 <IBAN>ES8011111111111111111</IBAN>
             </Id>
             <Ccy>EUR</Ccy>
     </CdtrAcct>
     <CdtrAgt>
             <FinInstnId>
                 <BIC>BKBKESMM</BIC>
             </FinInstnId>
     </CdtrAgt>
     <ChrgBr>SLEV</ChrgBr>
<DrctDbtTxInf>
     <PmtId>
          <InstrId> 20130930Fra.509301</InstrId>
          <EndToEndId> 20130930Fra.509301</EndToEndId>
     </PmtId>
     <InstdAmt Ccy="EUR">2499.99</InstdAmt>
     <DrctDbtTx>
         <MndtRltdInf>
             <MndtId>4330027115</MndtId>
             <DtOfSgntr>2009-10-31</DtOfSgntr>
             <AmdmntInd>false</AmdmntInd>
         </MndtRltdInf>
         <CdtrSchmeId>
         <Id>
             <PrvtId>
                 <Othr>
                     <Id>ES46J03118115</Id>
                     <SchmeNm>
                         <Prtry>SEPA</Prtry>
                     </SchmeNm>
                 </Othr>
             </PrvtId>
         </Id>
         </CdtrSchmeId>
     </DrctDbtTx>
     <DbtrAgt>
         <FinInstnId>
             <BIC>BSABESBB</BIC>
         </FinInstnId>
     </DbtrAgt>
     <Dbtr>
         <Nm>CLIENTE 1, S.A.</Nm>
         <Id>
             <OrgId>
                 <BICOrBEI>BSABESBB</BICOrBEI>
             </OrgId>
         </Id>
     </Dbtr>
     <DbtrAcct>
         <Id>
             <IBAN>ES66111111118103221103</IBAN>
         </Id>
         <Ccy>EUR</Ccy>
     </DbtrAcct>
     <RmtInf>
         <Ustrd>Fra. 13 01            5.093</Ustrd>
     </RmtInf>
</DrctDbtTxInf>
<DrctDbtTxInf>
     <PmtId>
          <InstrId> 20130930Fra.508901</InstrId>
          <EndToEndId> 20130930Fra.508901</EndToEndId>
     </PmtId>
     <InstdAmt Ccy="EUR">17.34</InstdAmt>
     <DrctDbtTx>
         <MndtRltdInf>
             <MndtId>4350025048</MndtId>
             <DtOfSgntr>2009-10-31</DtOfSgntr>
             <AmdmntInd>false</AmdmntInd>
         </MndtRltdInf>
         <CdtrSchmeId>
         <Id>
             <PrvtId>
                 <Othr>
                     <Id>ES46J03118115</Id>
                     <SchmeNm>
                         <Prtry>SEPA</Prtry>
                     </SchmeNm>
                 </Othr>
             </PrvtId>
         </Id>
         </CdtrSchmeId>
     </DrctDbtTx>
     <DbtrAgt>
         <FinInstnId>
             <BIC>BSABESBB</BIC>
         </FinInstnId>
     </DbtrAgt>
     <Dbtr>
         <Nm>CLIENTE 2, S.L.</Nm>
         <Id>
             <OrgId>
                 <BICOrBEI>BSABESBB</BICOrBEI>
             </OrgId>
         </Id>
     </Dbtr>
     <DbtrAcct>
         <Id>
             <IBAN>ES55008103221100010XXXX</IBAN>
         </Id>
         <Ccy>EUR</Ccy>
     </DbtrAcct>
     <RmtInf>
         <Ustrd>Fra. 13 01            5.089</Ustrd>
     </RmtInf>
</DrctDbtTxInf>
</PmtInf>
</CstmrDrctDbtInitn>
</Document>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Sepa XML en visual basic

Publicado por Andres Leonardo (698 intervenciones) el 18/11/2015 18:28:03
Y podrias indicarme en la base como guardas esta informacion,, cuantas tablas que estructuras tienes...

El exito de esto es un buen query que tenga los datos que necesitas para poderlo formatearlos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan Gallego Perera (15 intervenciones) el 18/11/2015 18:37:40
Tengo una tabla emoresa que contiene los datos de la empresa con el numero de cuenta de cobro
Una tabla clientes con los datos del cliente y la cuenta donde se le cobra
Una tabla recibos que contiene el cliente al que se le cobra, cantidad y fecha de recibo
Una tabla remesa que contiene la fecha de cobro y la cantidad total que en realidad es la suma de los recibos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Nestor (5 intervenciones) el 24/11/2015 00:05:56
Yo tengo todos los datos en dos tablas llamadas Efectos, y bancos donde tengo todos los datos del cliente, factura, bicswift, iban, etc.
Voy aprobar esta estructura de XML, ya que me bajado la norma SEPA y tiene 6 paginas de conceptos. Pero veo que no aparecen todos.
¿Estos son los necesarios para poder emitir el fichero al Banco? Ya piden hasta el cumpleaños.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan Gallego (15 intervenciones) el 24/11/2015 00:52:12
Buenas
Tienes razón cada vez piden mas datos innecesarios, pronto piden hasta el numero de pie.
Yo como he comentado los tengo en varias tablas pero no me seria mucho problema juntarlos en una o en dos en una base de datos auxiliar.
Si me pudieses pasar como lo tienes hecho.
Yo he ido a hablar con el banco para ver si ellos tenían alguna información mas concisa sobre la estructura o sus informáticos y comentan que no tienen ni idea ni que campos serán obligatorios y cuales no
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Nestor (5 intervenciones) el 25/11/2015 20:55:47
Todavía estoy recopilando datos y probando. ando un poco desesperado. Según lo genero y lo pruebe lo pego.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan gallego (15 intervenciones) el 25/11/2015 21:30:15
Gracias.
Yo también ando investigando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan Gallego (15 intervenciones) el 01/12/2015 15:56:47
Que tal vas?
Yo bastante mal. No consigo generarlo correctamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Sepa XML en visual basic

Publicado por Nestor (5 intervenciones) el 03/12/2015 22:32:03
Hola, estoy esperando para probarlo oficialmente, pero tiene buena pinta.
Primero he estudiado el fichero xml para entender la estructura. Obteniendo uno completo desde la aplicación del Banco Sabadel.
setup-003_302.exe
Puedes cargar una remesa de adeudos domiciliados del cuaderno 58, y después lo trasformas a SEPA XML. Te pide algún dato como dirección, Bic cliente, etc.

El fichero consta de:
Cabecera de empresa:
<InitgPty> En esta etiqueta dentro en el ID: Debes indicar el ID del Acreeedor, consta del CIF de la empresa que lo presenta, y del sufijo facilitado por el banco, este te genera un código ESXX, siendo la estructura del fichero ESXX+Sufijo de 3 dígitos, normalmente 000+ el CIF de la empresa.
Lo puedes calcular desde esta web:
https://www.bancapueyo.es/index.php?option=com_content&view=article&id=126&Itemid=78

Una vez tengas estos datos es mas fácil montarlo.

Te resumo de lo que consta:
Cabecera de empresa.
Cabecera de la fecha de vencimiento.
Recibos asociados a la fecha de vencimiento.

Estos dos puntos se repiten constantemente hasta leer la tabla que tengas (todos los los datos).

Tienes otra opción (de momento en pruebas):
Cabecera de la fecha de vencimientos, junto con todos los recibos del vencimiento, y cerrando la etiqueta del xml de cierre de cabecera de la fecha de vencimiento.
así con todos.
Yo he optado por lo fácil de momento, cabecera, recibo, cierre.

De donde a donde van las etiquetas de la información:

Cabecera de empresa:
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- <Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
- <CstmrDrctDbtInitn>
- <GrpHdr>
.....
</GrpHdr>

Cabecera de la fecha de vencimiento:
<PmtInf>
...
Inicio de los datos del recibo, Recibos asociados a la fecha de vencimiento Pmtlnf:
<DrctDbtTxInf>
...
</DrctDbtTxInf> (fin de los datos del recibo presentado)
</PmtInf> (Cierre del vencimiento, junto con el recibo)

</CstmrDrctDbtInitn>
</Document>

Así me lo reconoce de nuevo el programa del Sabadell, incluso me indica donde esta el fallo (cierre, bic, etc "pero es un poco confuso"). Pero estoy a la espera de la respuesta del banco si funciona, en breve me dicen si funciona "espero".

Prueba. Lo he programado con el Visual Basic 6. Hasta entender estos datos he sufrido.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 03/12/2015 23:07:37
Lo voy a probar , pero como comente nunca había generado ficheros XML. Y me estaba costando demasiado.
Como he comentado lo voy a intentar pero no se si me podrías hacer el favor de pasarlo cuando te lo validen.
Gracias.
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Nestor (5 intervenciones) el 04/12/2015 16:36:55
Yo tampoco se crear un XML, lo he generado mediante un archivo plano txt, y luego le cambiado la extensión a XML. Lo he generado con Strings de texto, Incluyendo el reenplazo de caracteres no permitidos en un xml.

Suerte.

1
2
3
4
5
6
7
8
9
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
'<?xml version="1.0" encoding="UTF-8" standalone="true"?>
Criterio = "<?xml version="
Criterio = Criterio & """1.0"""
Criterio = Criterio & " encoding="
Criterio = Criterio & """UTF-8"""
Criterio = Criterio & " standalone="
Criterio = Criterio & """yes"
Criterio = Criterio & """?>"
Print #1, Criterio
 
 
 
	' create/load your xml document
	'Criterio = "'<?xml version="1.0"'"
	'Criterio = Criterio & " encoding="UTF-8""
	'Criterio = Criterio & " standalone="true"?>"
	'Print #1, Criterio
 
Criterio = "<Document xmlns="
Criterio = Criterio & """urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"
Criterio = Criterio & """ xmlns:xsi="""
Criterio = Criterio & "http://www.w3.org/2001/XMLSchema-instance"""
Criterio = Criterio & ">"
Print #1, Criterio
 
 
Print #1, "<CstmrDrctDbtInitn>"
Print #1, "<GrpHdr>"
 
Campo5FechaCliente = Date
Criterio = "<MsgId>"
Criterio = Criterio & "PRE"
Criterio = Criterio & Mid(Campo5FechaCliente, 7, 4) & Mid(Campo5FechaCliente, 4, 2) & Mid(Campo5FechaCliente, 1, 2)
Criterio = Criterio & Format(Time(), "hhmmss")
Criterio = Criterio & "00818bsWindowsAE11"
Criterio = Criterio & "</MsgId>"
Print #1, Criterio
 
'------ Fecha y hora de la remesa -------
Criterio = "<CreDtTm>"
Criterio = Criterio & Mid(Campo5FechaCliente, 7, 4) & "-" & Mid(Campo5FechaCliente, 4, 2) & "-" & Mid(Campo5FechaCliente, 1, 2)
Criterio = Criterio & "T"
Criterio = Criterio & Time()
Criterio = Criterio & "</CreDtTm>"
Print #1, Criterio
 
'------ Contar numero de recibos -------
Criterio = "<NbOfTxs>"
Criterio = Criterio & Contador
Criterio = Criterio & "</NbOfTxs>"
Print #1, Criterio
 
'------ Suma Total de recibos -------
Entero = Int(Total)
Decimas = (Total - Entero) * 100
Criterio = "<CtrlSum>"
Criterio = Criterio & Entero
Criterio = Criterio & "."
Criterio = Criterio & Format(Decimas, "00")
Criterio = Criterio & "</CtrlSum>"
Print #1, Criterio
 
Print #1, "<InitgPty>"
Criterio = "<Nm>"
Criterio = Criterio & NombreEmpresa
Criterio = Criterio & "</Nm>"
Print #1, Criterio
 
Print #1, "<Id>"
Print #1, "<PrvtId>"
Print #1, "<Othr>"
 
Criterio = "<Id>"
Criterio = Criterio & "ES19"
Criterio = Criterio & Sufijo
Criterio = Criterio & Mid(CifEmpresa, 1, 9)
Criterio = Criterio & "</Id>"
Print #1, Criterio
 
Print #1, "</Othr>"
Print #1, "</PrvtId>"
Print #1, "</Id>"
Print #1, "</InitgPty>"
Print #1, "</GrpHdr>"
 
'--------- Bucle Vencimiento por Cliente --------------------
ContadorRecibos = Contador
CursorEfectos.MoveFirst
'CursorEfectos.EOF
'--------------------------------- BUCLE INICIO CABECERA VENCIMIENTO Y DESPUES EL RECIBO --------------------
Do Until CursorEfectos.EOF
'ContadorRecibos = 0
'------------------------- VARIABLES --------------------------------------
	If IbanCliente = " " Then MsgBox ("Falta codigo IBAN en el cliente , No se puede continuar (" & CodigoCliente & ")(" & NombreCliente & ")"), vbInformation
	'msgbox("usted debe (" & tuvariable & ")" )
	If BicSwiftCliente = " " Then MsgBox ("Falta codigo BICSwift en el cliente , No se puede continuar (" & CodigoCliente & ")(" & NombreCliente & ")"), vbInformation
 
	If IbanEmpresa = " " Then MsgBox ("Falta codigo IBAN en la ficha de empresa , No se puede continuar (" & NombreEmpresa & ")"), vbInformation
	If BicSwiftEmpresa = " " Then MsgBox ("Falta codigo BICSwift en la ficha de empresa , No se puede continuar (" & NombreEmpresa & ")"), vbInformation
 
 
	NombreCliente = CursorEfectos!Nombre
	CodigoCliente = CursorEfectos!numcli
	BicSwiftCliente = CursorEfectos!BicSwift
	IbanCliente = CursorEfectos!IBAN
	BancoCliente = CursorEfectos!Banco
	AgenciaCliente = CursorEfectos!Sucursal
	NumeroFactura = CursorEfectos!NumeroFactura
	DigitoControl = CursorEfectos!DigitoControl
	NumeroCuenta = CursorEfectos!NCuenta
	Direccion = CursorEfectos!Direccion
	Poblacion = CursorEfectos!Poblacion
	CodigoPostal = CursorEfectos!CodigoPostal
	Campo4Vencimiento = Format(CursorEfectos!Vencimiento, "dd/mm/yyyy")
	EnteroCliente = Int(CursorEfectos!ImporteEfecto)
	DecimasCliente = (CursorEfectos!ImporteEfecto - EnteroCliente) * 100
	Campo5FechaCliente = Format(CursorEfectos!FechaRemesa, "dd/mm/yyyy")
'------------------------- FIN VARIABLES ----------------------------------
'------------------------- REEMPLAZAR CARACTERES NO COMPATIBLES -----------
'-------- NombreCliente ---- Ñ --- x --- N -------
	Dim v As String
	v = Replace(NombreCliente, "Ñ", "N")
	NombreCliente = v
	v = Replace(NombreCliente, "&", " ")
	NombreCliente = v
'-------- Direccion Cliente --se pondra un espacio ---- " " -------
	Dim D As String
	D = Replace(Direccion, "|", " ")
	Direccion = D
	D = Replace(Direccion, "º", " ")
	Direccion = D
	D = Replace(Direccion, "&", " ")
	Direccion = D
	D = Replace(Direccion, "<", " ")
	Direccion = D
	D = Replace(Direccion, ">", " ")
	Direccion = D
	D = Replace(Direccion, "'", " ")
	Direccion = D
	D = Replace(Direccion, "Ñ", "N")
	Direccion = D
 
 
 
	Print #1, "<PmtInf>"
	Criterio = "<PmtInfId>"
	Criterio = Criterio & Mid(Campo5FechaCliente, 7, 4) & Mid(Campo5FechaCliente, 4, 2) & Mid(Campo5FechaCliente, 1, 2)
	Criterio = Criterio & Format(Time(), "hhmmss")
	Criterio = Criterio & " SepaRemesa"
	Criterio = Criterio & "</PmtInfId>"
	Print #1, Criterio
 
	Criterio = "<PmtMtd>"
	Criterio = Criterio & "DD"
	Criterio = Criterio & "</PmtMtd>"
	Print #1, Criterio
 
	Criterio = "<BtchBookg>"
	Criterio = Criterio & "false"
	Criterio = Criterio & "</BtchBookg>"
	Print #1, Criterio
 
	Print #1, "<PmtTpInf>"
	Print #1, "<SvcLvl>"
 
	Criterio = "<Cd>"
	Criterio = Criterio & "SEPA"
	Criterio = Criterio & "</Cd>"
	Print #1, Criterio
 
	Print #1, "</SvcLvl>"
	Print #1, "<LclInstrm>"
 
	Criterio = "<Cd>"
	Criterio = Criterio & "CORE"
	Criterio = Criterio & "</Cd>"
	Print #1, Criterio
 
	Print #1, "</LclInstrm>"
 
	Criterio = "<SeqTp>"
	Criterio = Criterio & "RCUR"
	Criterio = Criterio & "</SeqTp>"
	Print #1, Criterio
 
	Print #1, "</PmtTpInf>"
 
	Criterio = "<ReqdColltnDt>"
	'Campo4Vencimiento = CursorEfectos!Vencimiento
	Criterio = Criterio & Mid(Campo4Vencimiento, 7, 4) & "-" & Mid(Campo4Vencimiento, 4, 2) & "-" & Mid(Campo4Vencimiento, 1, 2)
	Criterio = Criterio & "</ReqdColltnDt>"
	Print #1, Criterio
'<ReqdColltnDt>2016-01-25</ReqdColltnDt>
 
	Print #1, "<Cdtr>"
	Criterio = "<Nm>"
	Criterio = Criterio & NombreEmpresa
	Criterio = Criterio & "</Nm>"
	Print #1, Criterio
 
	Print #1, "<PstlAdr>"
 
	Criterio = "<Ctry>"
	Criterio = Criterio & "ES"
	Criterio = Criterio & "</Ctry>"
	Print #1, Criterio
 
	Criterio = "<AdrLine>"
	Criterio = Criterio & DireccionEmpresa
	Criterio = Criterio & " "
	Criterio = Criterio & LocalidadEmpresa
	Criterio = Criterio & " "
	Criterio = Criterio & ProvinciaEmpresa
	Criterio = Criterio & "</AdrLine>"
	Print #1, Criterio
 
	Print #1, "</PstlAdr>"
	Print #1, "</Cdtr>"
	Print #1, "<CdtrAcct>"
	Print #1, "<Id>"
 
	Criterio = "<IBAN>"
	Criterio = Criterio & IbanEmpresa
	Criterio = Criterio & CuentaEmpresa
	Criterio = Criterio & "</IBAN>"
	Print #1, Criterio
 
	Print #1, "</Id>"
	Print #1, "</CdtrAcct>"
	Print #1, "<CdtrAgt>"
	Print #1, "<FinInstnId>"
 
	Criterio = "<BIC>"
	Criterio = Criterio & BicSwiftEmpresa
	Criterio = Criterio & "</BIC>"
	Print #1, Criterio
 
	Print #1, "</FinInstnId>"
	Print #1, "</CdtrAgt>"
	Print #1, "<CdtrSchmeId>"
	Print #1, "<Id>"
	Print #1, "<PrvtId>"
	Print #1, "<Othr>"
 
	Criterio = "<Id>"
	Criterio = Criterio & idacreedor
	Criterio = Criterio & Sufijo
	Criterio = Criterio & Mid(CifEmpresa, 1, 9)
	Criterio = Criterio & "</Id>"
	Print #1, Criterio
 
	Print #1, "<SchmeNm>"
 
	Criterio = "<Prtry>"
	Criterio = Criterio & "SEPA"
	Criterio = Criterio & "</Prtry>"
	Print #1, Criterio
 
	Print #1, "</SchmeNm>"
	Print #1, "</Othr>"
	Print #1, "</PrvtId>"
	Print #1, "</Id>"
	Print #1, "</CdtrSchmeId>"
 
'---------------------------------------------- DATOS DE LOS CLIENTES ----------------------------------------
 
 
	Print #1, "<DrctDbtTxInf>"
	Print #1, "<PmtId>"
 
	Criterio = "<EndToEndId>"
	Criterio = Criterio & "000000"
	Criterio = Criterio & " "
	Criterio = Criterio & "0000000000"
	Criterio = Criterio & " "
	Criterio = Criterio & Mid(Campo5FechaCliente, 7, 4) & Mid(Campo5FechaCliente, 4, 2) & Mid(Campo5FechaCliente, 1, 2)
	Criterio = Criterio & "195412000"
	Criterio = Criterio & "</EndToEndId>"
	Print #1, Criterio
	'<EndToEndId>000000 0000000000 20151127195412000</EndToEndId>
	Print #1, "</PmtId>"
 
	'------ Suma recibo o recibos ----------------
	Criterio = "<InstdAmt Ccy="
	Criterio = Criterio & """EUR"""
	Criterio = Criterio & ">"
	Criterio = Criterio & EnteroCliente
	Criterio = Criterio & "."
	Criterio = Criterio & Format(DecimasCliente, "00")
	Criterio = Criterio & "</InstdAmt>"
	Print #1, Criterio
	'<InstdAmt Ccy="EUR">125.09</InstdAmt>
 
	Print #1, "<DrctDbtTx>"
	Print #1, "<MndtRltdInf>"
 
	Criterio = "<MndtId>"
	Criterio = Criterio & Format(CodigoCliente, "000000000000")
	Criterio = Criterio & "</MndtId>"
	Print #1, Criterio
	'<MndtId>000000030417</MndtId>
 
	Criterio = "<DtOfSgntr>"
	Criterio = Criterio & "2009-10-31"
	Criterio = Criterio & "</DtOfSgntr>"
	Print #1, Criterio
 
	Print #1, "</MndtRltdInf>"
	Print #1, "</DrctDbtTx>"
	Print #1, "<DbtrAgt>"
	Print #1, "<FinInstnId>"
 
	Criterio = "<BIC>"
	Criterio = Criterio & BicSwiftCliente
	Criterio = Criterio & "</BIC>"
	Print #1, Criterio
 
	Print #1, "</FinInstnId>"
	Print #1, "</DbtrAgt>"
	Print #1, "<Dbtr>"
 
	Criterio = "<Nm>"
	Criterio = Criterio & NombreCliente
	Criterio = Criterio & "</Nm>"
	Print #1, Criterio
 
	Print #1, "<PstlAdr>"
 
	Criterio = "<Ctry>"
	Criterio = Criterio & "ES"
	Criterio = Criterio & "</Ctry>"
	Print #1, Criterio
 
	Criterio = "<AdrLine>"
	Criterio = Criterio & Direccion
	Criterio = Criterio & CodigoPostal
	Criterio = Criterio & " "
	Criterio = Criterio & Poblacion
	Criterio = Criterio & "</AdrLine>"
	Print #1, Criterio
	'<AdrLine>C/ JON PEREZ, 11-2 PLANTA 28010 Barcelona. Barcelona</AdrLine>
 
	Print #1, "</PstlAdr>"
	Print #1, "</Dbtr>"
	Print #1, "<DbtrAcct>"
	Print #1, "<Id>"
 
	Criterio = "<IBAN>"
	Criterio = Criterio & IbanCliente
	Criterio = Criterio & BancoCliente
	Criterio = Criterio & AgenciaCliente
	Criterio = Criterio & DigitoControl
	Criterio = Criterio & NumeroCuenta
	Criterio = Criterio & "</IBAN>"
	Print #1, Criterio
	'<IBAN>ES2911112222334444444444</IBAN>
 
	Print #1, "</Id>"
	Print #1, "</DbtrAcct>"
	Print #1, "<RmtInf>"
	'-------------------------------- Concepto del cargo al cliente -----------------------
	Criterio = "<Ustrd>"
	Criterio = Criterio & NombreEmpresa
	Criterio = Criterio & " Factura:"
	Criterio = Criterio & NumeroFactura
	'Criterio = Criterio & "........................................"
	Criterio = Criterio & "</Ustrd>"
	Print #1, Criterio
 
	Print #1, "</RmtInf>"
	Print #1, "</DrctDbtTxInf>"
	Print #1, "</PmtInf>"
 
	CursorEfectos.MoveNext
 
Loop
 
 
	Print #1, "</CstmrDrctDbtInitn>"
	Print #1, "</Document>"
 
 
Close #1
MsgBox "Fichero:" & Fichero & " Grabado Correctamente"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Nestor (5 intervenciones) el 20/12/2015 21:41:47
¿Que tal te ha ido?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 20/12/2015 21:59:18
Sólo he generado la mitad porque con estas fechas lo he tenido que dejar, pronto lo retomaré. Ya te pasaré cuando termine que llevó algunas mejoras
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 11/01/2016 12:38:19
Hola, yo estoy haciendo lo mismo que vosotros, y de hecho ya lo tengo preparado, solo que no encuentro ninguna forma de validarlo.

conocéis alguna?

por cierto, en VB6 yo lo he hecho creando elementos dom


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim doc As MSXML2.DOMDocument
 
        Set doc = New DOMDocument
 
       'CABECERA Y ESQUEMA XML***************************
        Dim codificacion As Variant
        Set codificacion = doc.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
        doc.appendChild codificacion
 
        Dim esquema As IXMLDOMElement
        Set esquema = doc.createElement("Document")
        esquema.setAttribute "xmlns", "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"
        esquema.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"
 
        doc.appendChild esquema

etc

saludos y gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 11/01/2016 14:18:28
Yo me he puesto ahora de nuevo a hacerlo ya que lo deje por navidad.
Mi intención era mandar una remesa de pruebas al banco.
Yo lo estoy haciendo como comentó el compañero
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 11/01/2016 16:15:56
Lo tengo hecho ya, pero sin probar. Espero que durante esta semana lo pueda enviar al banco para que validen los ficheros resultantes (depende más del cliente final que de mí).

si funciona compartiré la función que he creado en VB6

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Yonatan (15 intervenciones) el 12/01/2016 12:20:30
Yo no se porque pero estoy cerrado ya y no sale.
He enviado un ejemplo al banco y nada.
Supuestamente lo tengo como el compañero indico pero me da erroneo.
He estado mirando por internet y mientras mas buscas mas se lia uno ya que en algunos sitios indica que necesitas la fecha de nacimiento,etc.
Me podeis hechar una mano.
Sino utilizare un conversor que me ha pasado el banco aunque en realidad me gustaria tenerlo en mi programa
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 12/01/2016 12:36:19
Hola Yonatan

Uf! ese conversor me vendría pdm! como es para un cliente, yo no lo tengo... ya sel o pediré al banco.

traas varias pruebas fallidas, le he pasado el xml al banco para que me diga... ya que en el herramienta online que tienen y desde donde el cliente envía sus ficheros.. daba un error demasiado genérico (formato erróneo).

ya te iré contanto como va la cosa

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 12/01/2016 20:25:01
Buenas tardes,

Yo estoy intentando tambien de generar los ficheros XML de los Cuadernos 19 y 34 desde aplicacion VB6.
No consigo adelantar.
Actualmente los estoy sacando en el formato TXT SEPA ,pero a partir del 1/2/2016 solo aceptan XML y me estoy volviendo loco.
He encontrado una aplicacion (gratuita) en la web , que te permite generar el XML de los cuadernos 34 y 19 ,introduciendo los datos o importandolos desde un excel o desde un txt.Lo he probado y estoy a la espera de que el banco me confirme.
de todas maneras no me gusta la idea de depender de este software,ya que no está el codigo fuente.
Me gustaria poder hacerlo directamente desde VB6.
Estaria infinitam,ente agradecido si alguien pudiera pasarme algun ejemplo o funcion de vb6 para poder realizarlo

Muchas Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 13/01/2016 09:10:26
Buenos días Jorge

Sería posible que me pasaras el codigo o funcion de vb6 (o algun ejemplo ) para la generacion de los cuadernos 19 y 34 ?

Estoy intentando y no se como rellenar los XML y estoy acojonado orque el 1/2/2016 se ha de poner en marcha

Muchas Gracias y Saludos

De momento uso un programa de rau252 que te lo genera a partir de un excel o Txt.Estoy pendiente de que banco confirme.Ya os dire
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 13/01/2016 10:27:53
Hola, tengo una función que genera un xml, pero no sé si está bien o mal, me lo tiene que validar el banco.

cuando haya comprobado que genera bien el fichero, yo prometo que lo compartiré por aquí.

el programa ese de rau252 cómo puedo descargarlo?

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 13/01/2016 11:25:37
Hola,

Puedes Descargatelo desde este enlace:

http://raul252.blogspot.com/2014/03/norma1934creatorsepa-beta-01.html

Yo de momento lo estoy usando para generar los 34 y 19.Estoy esperando respuesta del banco tambien.

Cualquier duda que tengas me comentas,que lo tengo bastante controlado

Muchas Gracias y espero ansioso esa funcion XDDDDD

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 13/01/2016 12:12:24
Pues debo ser un negao, que no hay forma de hacerlo funcionar XD errores ado por todos laos, en fin

yo lo único qu quiero es un archivo xml ejemplo para compararlo con el que tengo, ya que el banco no creo que me conteste muy pronto...


saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 13/01/2016 12:57:20
Buenas,

Pues a mi La Caixa ya me ha contestado (lo envie ayer un cuaderno 19) y me ha dicho que es correcto. ( lo he hecho con el programa que me comentas que te da errores ) importando los datos necesarios desde un excel.
A mi ningun problema. el programa Uso excel 2013 con windows 7

Si quieres te paso un ejemplo del xml que el banco me ha validado y me pasas el codigo en VB6 para probarlo yo tambien a ver si lo genera igual y adelantamos tiempo.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 13/01/2016 13:15:11
Te he pasao un mail con la función al mail que tienes publicao
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Makana (1 intervención) el 14/01/2016 19:22:24
¿Podrías poner el código de la función que has escrito para todos?
Te lo agradecería,
Un Saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por ALBERT (9 intervenciones) el 14/01/2016 19:36:44
Yo he adaptado el codigo de Jorge para con macro de excel imporrtar fichero txt y generar cuadernos 19 en formato b2b y cuadernos 34 de nominas y transferencias.Estoy pendiente de que el banco me valide los ficheros xml generados.
Cuando tenga confirmacion ya informare.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por sase sase2006@gmail.com (1 intervención) el 19/01/2016 13:22:18
Aquí podéis validarlos y también tenéis ejemplos. Poned la función (jorge)

http://www.mobilefish.com/services/sepa_xml_validation/sepa_xml_validation.php
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Pablo pablof1971@hotmail.com (3 intervenciones) el 22/01/2016 20:30:25
Hola Jorge estoy como loco intentando hacer la funcion en xml y no hay forma, si pudieras pasarme la función en vb6, te lo agradeceria, ya que no lo consigo, la tengo en formato txt, pero el mes que viene ya no me vale, y la necesito para la antigua n19 y 58, muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por jorge (10 intervenciones) el 22/01/2016 20:58:48
aun no me la,ha validado el banco, nosé si funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 22/01/2016 21:04:17
Buenas

A mi ya me los ha validado.Los tengo hechos para 19 y para 34.
Los tengo hechos en VBA (Excel), pero adaptarlos a VB6 es muy facil (casi un copiar y pegar )
Si alguien los quiere,que me pase un mail por privado y se los paso a un modico precio (es broma .....)

Saludos

P.D

el 19 es en formato B2B
del 34 tengo el de Transferencias y el de Nominas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Pablo pablof1971@hotmail.com (3 intervenciones) el 22/01/2016 21:10:00
Ok, pues muchisimas gracias, si puedes pasamelo al email que te aparece aqui al lado de mi nombre, y mil gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por jorge (10 intervenciones) el 22/01/2016 21:19:46
albert te ha validado el código que te pasé? yo estoy de permiso de paternidad y no estoy en la ofi estos días,pero miro el correo del curro y los del banco deben estar igual que yo xD.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por ALBERT (9 intervenciones) el 22/01/2016 21:25:34
El que me pasaste del 19 ,lo modifique para adaptarlo a b2b de empresas.Si,esta validado y todo Ok.
Si quieres te lo paso.Encontre algun error en algun nodo y lo modifique.
POR CIERTO MUCHAS FELICIDADES .!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Pablo pablof1971@hotmail.com (3 intervenciones) el 22/01/2016 21:25:39
Jorge, yo tengo un validador online con el banco, con lo que lo puedo comprobar al instante, si me pasas un archivo ejemplo en xml te lo puedo comprobar poniendo mis datos como emisor. O si me pasas la funcion, mando un ejemplo mio, lo que prefieras, de todas formas si me mandas el tuyo o el de Albert, una vez adaptado a vb y comprobando que fuincione la compartiria con quien la pudiera necesitar en vb6, saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por ALBERT albertetsbd@gmail.con (1 intervención) el 22/01/2016 22:07:40
Os lo he enviado al correo
Cualquier duda comentadlo.
Nos hemos de ayudar entre todos.
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 27/01/2016 15:26:15
Buenas

cuando ya lo tenia todo ,resulta que ahora el 19 ha de ser en norma CORE y no B2B como lo hice.

Alguien tiene la funcion que le pase modificada para hacer formato CORE ''??

Lo agradeceria infinitamente

y ya de paso algun fichero xml en formato CORE para poder comprobar

Gracias
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Nicolas (1 intervención) el 11/03/2016 01:54:44
Hola

Te adjunto un archivo xml del formato core 58
Es igual que el 19 solo que cambia que el Identificador del mensaje en vez de empezar por PRE lo hace con FSDD.

Si no te importa me podrias mandar lo que tienes en B2B pues yo creo que me seria fácil pasarlo a core

Yo tambien me estoy volviendo loco con este tema.

Gracias, Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Albert albertetsbd@gmail.com (9 intervenciones) el 11/03/2016 08:51:26
Hola nico

Te he mandado un mail...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ximo

Sepa XML en visual basic

Publicado por Ximo (2 intervenciones) el 08/08/2016 19:19:02
Hola, soy nuevo en el foro,
He visto que conseguisteis realizar en VB.NET el desarrollo del SEPA CORE y queria saber si también me lo podiais hacer llegar
Gracias

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 09/08/2016 08:01:55
Hola, adjunto un archivo txt comprimido con las funciones necesarias para construir el esquema core en xml en VB6.

Estuve un tiempo revisándolo junto con Albert y me funcionó correctamente con ibercajaonline.

el método principal es pGenN19.

Cualquier duda comentad en el foro

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de ximo navarro

Sepa XML en visual basic

Publicado por ximo navarro (2 intervenciones) el 09/08/2016 22:21:07
Muchas Gracias Jorge, tengo que desarrollar en VB.NET también
Voy a traducirlo y si os hace falta os lo paso

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Jorge (10 intervenciones) el 10/08/2016 11:25:25
a mi no me hace falta, pero que lo adjuntes en VB.NET no estaría de más.

Lo he colgado en VB6 para que los posibles futuros visitantes lo tengan también (yo no lo encontré en ningún sitio).

Todos los recursos que podamos ofrecer a la comunidad seguro que son bienvenidos.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sepa XML en visual basic

Publicado por Ricardo delarioja@telefonica.net (8 intervenciones) el 22/11/2016 12:22:01
Hola :
Yo tambien necesito crear los archivos para enviar remesas en XML.
Si me hariais el favor de enviarmelos al emal al lado de mi nombre o decirme donde me lo puedo descargar os lo agradeceria mucho.
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar