Num formulário estou utilizando 3 tabelas Pedidos, Catalogo e Pagamentos.
Para trabalhar com comodidade estou usando a classe TXTBTNS do próprio Foxpro. Mas eu preciso fazer modificaçoes na tabela Pagamentos assim que tentei com este codigo (no evento CLICK de um botao), mas nao funciona (os controles TXTCONTROL ficam como read-only e nada é acrescentado na tabela, nem mesmo um registro vazio)
THISFORM.PAGEFRAME1.PAGE2.TEXT2.ENABLED = .T.
THISFORM.PAGEFRAME1.PAGE2.TEXT3.ENABLED = .T.
IF THISFORM.PAGEFRAME1.PAGE2.COMMAND1.CAPTION = "\
THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE = DATE()
WITH thisform
.PAGEFRAME1.PAGE2.TEXT2.VALUE=""
.PAGEFRAME1.PAGE2.TEXT2.VALUE=""
ENDWITH
THISFORM.PAGEFRAME1.PAGE2.COMMAND1.CAPTION = "\
ELSE
SELECT Pagamentos
APPEND blank
WITH thisform
replace pagamentos.ab_ped with (.text1.VALUE)
replace pagamentos.ab_fecha with (.PAGEFRAME1.PAGE2.text1.value)
replace pagamentos.ab_descrip with upper(.PAGEFRAME1.PAGE2.text2.value)
replace pagamentos.ab_cantidad with (.PAGEFRAME1.PAGE2.text3.value)
ENDWITH
thisform.PAGEFRAME1.PAGE2.COMMAND1.caption="\ THISFORM.REFRESH
ENDIF
Nota: na pagina 1 do pageframe estao os dados da tabela principal (pedidos) e da tabela (catalogo), na pagina 2 tenho alem dos TXTCONTROL citados no codigo acima, tenho uma grid com dados da tabela pagamentos
Alguem pode me dizer como acrescentar pagamentos com um botao?
A classe TXTBTNS tem o controle total das tabelas?
As tabelas estao incluidas no DATA ENVIRONMENT e estao ligadas entre si.