Añadir lo seleccionado En el check en un nuevo registro de esa misma tabla
Publicado por luis vazquez (1 intervención) el 18/09/2019 20:05:41
buena tarde espero encontrar alguien que me ayude de favor, sucede que tengo esta sub, en la cual segun mis filtros me muestra un grid con checkbox para asi al yo seleccionar me tome los datos de ese seleccionado y aparte me inserte la fecha y usuario que autorizo , sucede que si me hace en cierta parte esto el proceso, sin embargo al momento de seleccionar el primero registro no me crea ningun registro nuevo, si selecciono el ultimo registro lo toma y me agrega los datos mas el usuario y la fecha, por que realizaara esto no comprendo alguien me pudiera ayudar estaria muy agradecido.
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
DO 'Reg'
DO 'RegFac'
sub 'Reg'
for each (NRASTNOMCON)
WHERE NMRASTNOMCIA = &NMRASTNOMCIA_G
WHERE NMRASTNOMGPO = &NMRASTNOMGPO_G
WHERE NMRASTNOMNOM = &NMRASTNOMNOM_G
WHERE NMRASTNOMANIO = &NMRASTNOMANIO_G
WHERE NMRASTNOMPER = &NMRASTNOMPER_G
WHERE NRASTNOMCON = &NRASTNOMCON_G
WHERE NMRASTNOMTDOC = &NMRASTNOMTDOC
WHERE NMRASTNOMNDOC = &NMRASTNOMNDOC
WHERE NMRASTMOV = &NMRASTMOV_G
// NMRASTMOV = 'FAC'
&NRASTNOMCON_G = NRASTNOMCON
exit
endfor
&NRASTNOMCON_G = &NRASTNOMCON_G + 1
EndSub
Sub 'RegFac'
New
NMRASTNOMCIA = &NMRASTNOMCIA_G
NMRASTNOMGPO = &NMRASTNOMGPO_G
NMRASTNOMNOM = &NMRASTNOMNOM_G
NMRASTNOMANIO = &NMRASTNOMANIO_G
NMRASTNOMPER = &NMRASTNOMPER_G
NRASTNOMCON = &NRASTNOMCON_G
NMRASTNOMTDOC = &NMRASTNOMTDOC
NMRASTNOMNDOC = &NMRASTNOMNDOC
NMRASTMOV = &NMRASTMOV_G
//NMRASTMOV = 'FAC'
NMRASTCNUSERID = &CNUSERID
NMRASTFECHA = serverdate()
EndNew
EndSub
Valora esta pregunta
0