Power Builder - AYUDA CON JOIN

 
Vista:
sin imagen de perfil

AYUDA CON JOIN

Publicado por Edgar (87 intervenciones) el 12/12/2005 20:51:00
Amigos del foro tengo una consulta que hacerles, miren estoy realizando una importacion de datos de una tabla origen a una destino:
Me piden hacer un join con otra tabla que tomo como parametro la fecha de corte la tabla es cb_corte el campo co_fecha_fin
el origen me piden buscar si existe algun registro por la fecha de corte , si existe borrar todos los registro y realizar la migracion
con el este campo de la tabla destino realizar un secuencial sac_codsac

COMO LO HAGO ME PUEDEN AYUDAR EL SCRIPT YO LO TENGO ASI POR FA CORRIJAMEN SI ESTA MAL MUCHAS GRACIAS
//Declaracion de variables
long ll_numfilorigen,ll_numfildestino,ll_aux,ll_count
integer li_oficina,li_empresa
string ls_empresa

//Creacion de datastore
datastore lds_origen,lds_destino

lds_origen = create datastore
lds_destino = create datastore

lds_origen.dataobject = 'd_imp_l_saldo_cobis'
lds_destino.dataobject = 'd_imp_m_saldo_pcie'

lds_origen.Settransobject (sqlca_cobis)
lds_destino.Settransobject (sqlca)

ll_numfilorigen = lds_origen.Retrieve()

if sqlca_cobis.sqlcode < 0 then
return "Error al Recuperar los Datos del Sistema Cobis" + sqlca.sqlerrtext
end if

ll_numfildestino = lds_destino.Retrieve()

if sqlca.sqlcode < 0 then
return "Error al Recuperar los Datos del Sistema PCIE" + sqlca.sqlerrtext
end if

al_numins = 0
al_numupd = 0
al_numtot = 0
al_numdel = 0
al_numtot = ll_numfilorigen
ahpb_contador.minposition = 0
ahpb_contador.position = 0
ahpb_contador.maxposition = ll_numfilorigen

for ll_aux = 1 to lds_origen.RowCount()
li_oficina = lds_origen.GetitemNumber(ll_aux,'hi_oficina')
li_empresa = lds_origen.GetitemNumber(ll_aux,'hi_empresa')
ls_empresa = uf_obtener_codigo_empresa (li_empresa)

// Busco si existe informacion para la fecha de corte

SELECT count(*)
INTO :ll_count
FROM PCIE_EIS..sac_saldo_contable
WHERE sac_feccor = :adt_fecfin using sqlca;

if sqlca.sqlcode < 0 then
return "Error al buscar los datos de la fecha de corte en el sistema PCIE" + sqlca.sqlerrtext
end if
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