14 lines
450 B
Plaintext
14 lines
450 B
Plaintext
|
|
ON KEY(CONTROL-W)
|
|
IF INFIELD(cod_sp_sec) OR INFIELD(cod_sp) THEN
|
|
CALL busca_cliente()
|
|
LET otros_mov.cod_sp = clientes[idx].tipo_cliente
|
|
LET otros_mov.cod_sp_sec = clientes[idx].sec_cliente
|
|
LET otros_mov.descrip4 = clientes[idx].nombre
|
|
|
|
DISPLAY BY NAME otros_mov.cod_sp,
|
|
otros_mov.cod_sp_sec,
|
|
otros_mov.descrip4
|
|
EXIT INPUT
|
|
END IF
|