Nefele 4 Harbour

Respuestas de foro creadas

Viendo 2 entradas - de la 1 a la 2 (de un total de 2)

Autor

Entradas

10-11-2020 a las 17:45 en respuesta a: Comando para voltar do form a lista #1533

nilton_cpm

Participante

Hola, buenos dias

Otimas tus ideias, mas mi duda es otra. vamos por partes:

1- Tengo un listado de clientes, ahi tengo un botón para agregar nuevos clientes.

2- Quando clico nesse botón, voy para um otro procedure com un form, donde tengo los campos para informar los dados dos clientes, certo, nesse form tengo un botón (submit) que chamar otro procedure para gravar los dados na tabla:

procedure grava_novo
local cc_id := oCGI:GetCgiValue("obj_id","")
local cc_fantas := oCGI:GetCgiValue("obj_fantas","")
local cc_rsocia := oCGI:GetCgiValue("obj_rsocia","")
local cc_endere := oCGI:GetCgiValue("obj_endere","")
local cc_numero := oCGI:GetCgiValue("obj_numero","")
local cc_cep := oCGI:GetCgiValue("obj_cep","")

USE C:\Apache24\cgi-bin\nfse_clientes ALIAS CLIENTES
CLIENTES->(ORDSETFOCUS("C_ID"))
CLIENTES->(DBGoTop())

select CLIENTES
CLIENTES->(DBAppend())
CLIENTES->(RLock())
//replace c_id with cc_id
replace c_fantas with cc_fantas
replace c_rsocia with cc_rsocia
replace c_endere with cc_endere
replace c_numero with cc_numero
replace c_cep with cc_cep
CLIENTES->(DBUnlock())
//CLIENTES->(DBClose())

//oCGI:Console(cc_id)
//oCGI:Console(cc_fantas)
//oCGI:SendPage( :FullHtml() )


return

procedure grava_novo

local cc_id := oCGI:GetCgiValue("obj_id","")

local cc_fantas := oCGI:GetCgiValue("obj_fantas","")

local cc_rsocia := oCGI:GetCgiValue("obj_rsocia","")

local cc_endere := oCGI:GetCgiValue("obj_endere","")

local cc_numero := oCGI:GetCgiValue("obj_numero","")

local cc_cep := oCGI:GetCgiValue("obj_cep","")

USE C:\Apache24\cgi-bin\nfse_clientes ALIAS CLIENTES

CLIENTES->(ORDSETFOCUS("C_ID"))

CLIENTES->(DBGoTop())

select CLIENTES

CLIENTES->(DBAppend())

CLIENTES->(RLock())

//replace c_id with cc_id

replace c_fantas with cc_fantas

replace c_rsocia with cc_rsocia

replace c_endere with cc_endere

replace c_numero with cc_numero

replace c_cep with cc_cep

CLIENTES->(DBUnlock())

//CLIENTES->(DBClose())

//oCGI:Console(cc_id)

//oCGI:Console(cc_fantas)

//oCGI:SendPage( :FullHtml() )

return

O que falta nesse codigo para que o controle volte para o listado ?

29-10-2020 a las 22:20 en respuesta a: Tentando usar WMsgAlert() #1451

nilton_cpm

Participante

Agora sim, consegui tanto via (:cAjaxTimeOut) e tambem por (WButton).

Parabens pelo trabalho no framework é um trabalho fantastico para tão pouco tempo, agora vou começar a ver exemplos de acesso a base de dados e criar arquivo de funções.

Muito obrigado

Autor

Entradas

Viendo 2 entradas - de la 1 a la 2 (de un total de 2)