Trabajando Con Vistas

Saludos !

Que tal amigo, bien, veo que estas realizando una vista origen de 2
tablas, bien, me pregunto si has definido un campo llave para la tabla que
intentas modificar ?, en caso de que no, seria conveniente que le
designaras por ejemplo un campo autoincrementable a tu tabla que te sirva
como ID por cada registro insertado.

Algo asi como:
create table ;
Tpacking( ID c(10), tpckfec c(10), tpckord c(10), tpckcaj c(10), tpckcan
c(10), tpcktal c(10)

Asumo q todos los campos son de 10 caracteres como atributos para
ejemplificar, bien en tu diseñador de tablas agregarias un campo ID con un
valor por default = SYS(2015) y este lo indexas y lo estableces como llave
primaria (pudieras utilizar el atributo de autoincrementar si trabajas con
version 8 ó 9 y afectar de la misma manera).

Bien ya que tienes definida tu llave en tu tabla, dentro del diseñador de
vistas, agregas la llave, en este caso perteneciente a la tabla que se
actualizara: "Tpacking", posteriormente dentro del mismo diseñador de
vista, localiza en las pestañas "Criterios de actualizacion" y si aun no
ha sido afectada, pulsa "Actualizar todo" y notaras registros palomeados,
deja palomeada la llave y el o los registros que se afectaran si llegas a
hacer cambios en esa vista.

Una ves en tu form, para salvar cambios y trabajando con un buffer=3, para
salvar los cambios en la vista afectando a la tabla origen, insertas este
codigo en algun boton:

select v_estparpck2 //Seleccionas tu vista y salvas los cambios en tabla
origen
=tableupcate(.t.)
... // Aqui tus filtros en caso de que existan
...
requery("v_estparpck2") // Recargas tu vista
thisform.grid.refresh // Actualizas el grid para reflejar los cambios

Bien esto solo afectara los campos, mas para eliminar el registro total de
la tabla, procediendo de esta vista, estara complicado, necesitaras pensar
en una forma distinta, he aqui donde no se si deseas eliminar de la
consulta y afectar la tabla origen, o bien solo afectar la vista ?, en
caso de ser la primera te recomiendo hacer algo así:

Dentro del grid claro el q contiene la vista antes mencionada, al estar
posicionado sobre el elemento a eliminar de la tabla, puedes programar que
al dar 2 clics hagas la pregunta de si desea eliminar, y te realizas este
pekeña sintaxis:

delete from Tpacking where Tpacking.tucampo = this.value
select Tpacking
=tableupdate(.T.)

Es un metodo que puedes adoptar talves hagas algo como un boton y el mismo
codigo, etc.

Hasta pronto espero haberte captado la idea, y de ser asi, espero haberte
dado buena respuesta.

Atte.
MonjE


****************************
M O N J E
Marco Antonio Mendez Bueno
Cd. Valles, San Luis Potosi, México
****************************


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway