Grabar con DataStore
Publicado por guido (46 intervenciones) el 11/02/2017 06:12:59
Hola. Estoy importando información de una hoja de excel, lo importo en un dw external y después trato de pasar la información a un DataStore, lo cual lo hace; pero al momento de hacer el update en el DataStore me sale un error:
Alguna idea?
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
long ll_num_filas, ll_filasstring ls_error
DataStore ds_afiliados
ds_afiliados=Create DataStoreds_afiliados.DataObject="d_afiliados"
ds_afiliados.SetTransObject(SQLCA)
ds_afiliados.Retrieve()
ll_num_filas = dw_1.rowcount( )
for ll_filas = 1 to ll_num_filas - 1
ds_afiliados.insertrow( 0)
ds_afiliados.object.sc_number[ll_filas] = string(dw_1.object.sc_number[ll_filas])
ds_afiliados.object.sc_nombre[ll_filas] = string(dw_1.object.sc_name[ll_filas])
ds_afiliados.object.cod_pais[ll_filas] = string(dw_1.object.no_code[ll_filas])
ds_afiliados.object.sp_number[ll_filas] = string(dw_1.object.sp_number[ll_filas])
ds_afiliados.object.sp_name[ll_filas] = string(dw_1.object.sp_name[ll_filas])
ds_afiliados.object.sc_estado[ll_filas] = string(dw_1.object.status[ll_filas])
ds_afiliados.object.sc_fecha_nac[ll_filas] = date(dw_1.object.fecha[ll_filas])
ds_afiliados.object.cod_comunidad[ll_filas] = string(dw_1.object.c_cod[ll_filas])
ds_afiliados.object.sc_genero[ll_filas] = string(dw_1.object.sc_gender[ll_filas])
next
if ds_afiliados.Update() = 1 then
commit;
Destroy ds_afiliados
messagebox("Mensaje","Registros guardados con exito", Information!)
else
ls_error = sqlca.sqlerrtext
rollback;
Destroy ds_afiliados
messagebox("Error Guardando","La base de datos retorno el siguiente error y no se guardaron los cambios. " + ls_error,Stopsign!)
end if
Alguna idea?
Valora esta pregunta
0
