15 lines
701 B
Plaintext
15 lines
701 B
Plaintext
|
|
CALL busca_pt()
|
|
LET movi2[p_act].cod_n = pilas[curr1].cod_n
|
|
LET movi2[p_act].cod_grupo = pilas[curr1].cod_grupo
|
|
LET movi2[p_act].cod_tipo = pilas[curr1].cod_tipo
|
|
LET movi2[p_act].cod_sec = pilas[curr1].cod_sec
|
|
LET movi2[p_act].descrip_esp = pilas[curr1].descrip_esp
|
|
LET movi2[p_act].unidad_med = pilas[curr1].unidad_med
|
|
|
|
DISPLAY movi2[p_act].cod_n TO s_movi1.cod_n
|
|
DISPLAY movi2[p_act].cod_grupo TO s_movi1.cod_grupo
|
|
DISPLAY movi2[p_act].cod_tipo TO s_movi1.cod_tipo
|
|
DISPLAY movi2[p_act].cod_sec TO s_movi1.cod_sec
|
|
DISPLAY movi2[p_act].descrip_esp TO s_movi1.descrip_esp
|