×
Linguagem de Programação ADVPL
Perguntas Salvar hora final
- andreaj
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17160
por andreaj
Salvar hora final foi criado por andreaj
Olá. Estou desenvolvendo uma rotina de cadastro de atendimentos telefônicos. Preciso salvar a hora inicial e a hora final do atendimento. A hora inicial consigo no inicializador padrão usando Time(). Minha dúvida é: existe alguma forma de pegar a hora em que o usuário clicou no salvar para que eu possa gravar no banco e posteriormente fazer o cálculo dos minutos.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- andreaj
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17172
por andreaj
Respondido por andreaj no tópico Salvar hora final
Uso apenas um mbrowse só que qd clico no salvar as variáveis (M-> ) se perdem. Segue o fonte.
#include "protheus.ch"
User Function PLSCALL()
Local cAlias := "ZZ1"
Private cCadastro := "Cadastro de Atendimentos Telefonicos"
Private aRotina := {}
AADD(aRotina,{"Pesquisar" ,"AxPesqui" ,0,1})
AADD(aRotina,{"Visualizar" ,"AxVisual" ,0,2})
AADD(aRotina,{"Incluir" ,"U_BtInclui" ,0,3})
AADD(aRotina,{"Alterar" ,"AxAltera" ,0,4})
AADD(aRotina,{"Excluir" ,"AxDeleta" ,0,5})
dbSelectArea(cAlias)
dbSetOrder(1)
mBrowse(6,1,22,75,cAlias)
Return
USER FUNCTION BtInclui(cAlias, nReg, nOpc)
Local cTudoOk := "(Alert('OK'),.T.)"
AxInclui(cAlias,nReg,nOpc,,,,cTudoOk)
RETURN
#include "protheus.ch"
User Function PLSCALL()
Local cAlias := "ZZ1"
Private cCadastro := "Cadastro de Atendimentos Telefonicos"
Private aRotina := {}
AADD(aRotina,{"Pesquisar" ,"AxPesqui" ,0,1})
AADD(aRotina,{"Visualizar" ,"AxVisual" ,0,2})
AADD(aRotina,{"Incluir" ,"U_BtInclui" ,0,3})
AADD(aRotina,{"Alterar" ,"AxAltera" ,0,4})
AADD(aRotina,{"Excluir" ,"AxDeleta" ,0,5})
dbSelectArea(cAlias)
dbSetOrder(1)
mBrowse(6,1,22,75,cAlias)
Return
USER FUNCTION BtInclui(cAlias, nReg, nOpc)
Local cTudoOk := "(Alert('OK'),.T.)"
AxInclui(cAlias,nReg,nOpc,,,,cTudoOk)
RETURN
Por favor Acessar ou Registrar para participar da conversa.
- andreaj
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17178
por andreaj
Respondido por andreaj no tópico Salvar hora final
Resolvido. Criei uma função para pegar a hora do banco e usei no inicializador padrão do campo hora inicial. E uma trigger de insert para salvar a hora final do atendimento. Vlw.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.078 segundos