En este grupo En todos

Foro de PowerBuilder



importar TXT aun dw y guardarlo en la base

adner18_20
Lima, Perú
Escrito por Adner18_20 Garagorri
el 03/06/2010

Experto nesesito que me ayudes en importar txt a un dw si puedes me haces un ejemplo con todo su codigo grasias

Cristian Correa Velez
Antioquia, Colombia
Escrito por Cristian Correa Velez
el 07/06/2010

Carga en una dw un archivo tipo TXT en la unidad a:


int l_file,l_largo,l_error,l_fila,l_si,l_funcion
string l_archivo,l_nombre,l_linea,l_codigo,l_orden,l_texto,l_referencia
string l_barras,l_region
l_archivo="a:\cargapt. Txt"
l_file=FileOpen(l_archivo)
if l_file < 1 then
MessageBox("Carga Terceros","Archivo no Existente en unidad A:")
return
end if
l_largo=FileRead(l_file,l_linea)
DO UNTIL l_largo < 5
l_nombre =Left(l_linea,20)
l_codigo =Mid(l_linea,35,5)
l_orden =Mid(l_linea,40,5)
l_referencia=Mid(l_linea,45,20)
l_barras =Mid(l_linea,65,2)
l_region =Mid(l_linea,67,2)
if l_referencia="" then
l_referencia="NRO REFERENCIA"
end if
w_inicio.dw_tercero.InsertRow(0)
l_fila=w_inicio.dw_tercero.RowCount()
w_inicio.dw_tercero.SetItem(l_fila,"pate",dec(l_codigo))
w_inicio.dw_tercero.SetItem(l_fila,"nombre",l_nombre)
w_inicio.dw_tercero.SetItem(l_fila,"orden",dec(l_orden))
w_inicio.dw_tercero.SetItem(l_fila,"region",dec(l_region))
w_inicio.dw_tercero.SetItem(l_fila,"referencia",l_referencia)
w_inicio.dw_tercero.SetItem(l_fila,"codigo_de_barras",dec(l_barras))
st_conta. Text=String(l_fila)
l_largo=FileRead(l_file,l_linea)
LOOP

FileClose(l_file)
w_inicio.dw_control.SetItem(1,"fecha_ultima_carga",today())
fecha_carga=today()
l_error=w_inicio.dw_tercero.Update()
if l_error= 1 then
COMMIT using SQLCA;
else
ROLLBACK using SQLCA;
return
end if