| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Duvida em tela personalizada |
|
Versão: |
12.1.33 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
Oracle |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
GUDEFENDI
em 28/04/2023, 11:38 h
Local: SP Registro: 10/07/2018 Postagens: 52 |
Bom dia a todos!
Tenho o fonte abaixo de uma rotina já funcionando, porém eu preciso incluir uma validação ao clicar no botão salvar.
Alguém consegue me ajudar como fazer essa chamada?
-----------------------------------------------------------------------------
#INCLUDE "rwmake.ch"
#INCLUDE ‘PROTHEUS.CH‘
#include "TOTVS.CH"
#INCLUDE "COLORS.CH"
#INCLUDE "FONT.CH"
#INCLUDE "TOPCONN.CH"
User Function PADRCOR()
Local cAlias := "Z48"
Local aCores := {}
Private cCadastro := "Padrão de Cor"
Private aRotina := {}
AADD(aRotina,{"Pesquisar" ,"PesqBrw" ,0,1})
AADD(aRotina,{"Visualizar" ,"AxVisual",0,2})
AADD(aRotina,{"Incluir " ,"AxInclui",0,3})
AADD(aRotina,{"Alterar" ,"AxAltera",0,4})
AADD(aRotina,{"Excluir" ,"AxDeleta",0,5})
AADD(aRotina,{"Legenda" ,"u_legen",0,6})
AADD(aRotina,{"Relatorio" ,"u_RDSV008",0,7})
AADD(aRotina,{"Etiqueta" ,"u_ETQART",0,8})
AADD(aCores,{"Z48_STATUS == ‘1‘", "BR_VERDE" })
AADD(aCores,{"Z48_STATUS == ‘2‘", "BR_AMARELO" })
AADD(aCores,{"Z48_STATUS == ‘3‘", "BR_AZUL" })
AADD(aCores,{"Z48_STATUS == ‘4‘", "BR_VERMELHO"})
mBrowse(6,1,22,75,cAlias,,,,,,aCores)
Return
//*********************************************************************************************
User Function Legen()
Local aLegenda := {}
AADD(aLegenda,{"BR_VERDE" ,"Aprovado cliente" })
AADD(aLegenda,{"BR_AMARELO" ,"Aprovado bispharma " })
AADD(aLegenda,{"BR_AZUL" ,"Aprovado com restrições" })
AADD(aLegenda,{"BR_VERMELHO","Reprovado" })
BrwLegenda(cCadastro, "Legenda", aLegenda)
Return Nil
//*********************************************************************************************
User Function DadCad()
Local cClip := M->Z48_CLIPPE
Local cCodPro := Posicione("SB1", 15, xFilial("SB1") + cClip, "B1_COD")
Local lRet := .t.
Local cCli
Local cRev := Posicione("SB1", 1, xFilial("SB1") + cCodPro, "B1_REVATU")
Local cComp := ‘27334 ‘
M->Z48_COD := Posicione("SB1", 1, xFilial("SB1") + cCodPro, "B1_COD")
M->Z48_REV := Posicione("SB1", 1, xFilial("SB1") + cCodPro, "B1_REVATU")
M->Z48_DESC := Posicione("SB1", 1, xFilial("SB1") + cCodPro, "B1_DESC")
M->Z48_CLI := Posicione("SB1", 1, xFilial("SB1") + cCodPro, "B1_ZZESP")
cDiam := Posicione("SG1", 1, xFilial("SG1") +cCodPro + cComp + cRev,"G1_ZZDIA")
cCompri := Posicione("SG1", 1, xFilial("SG1") +cCodPro + cComp + cRev,"G1_ZZCOMP")
M->Z48_DIAMET := cValToChar(cDiam)
M->Z48_COMP := cValToChar(cCompri)
M->Z48_CODEXT := Posicione("SG1", 1, xFilial("SG1") +cCodPro + cComp + cRev,"G1_ZZCDEXT")
cCli := M->Z48_CLI
M->Z48_CRTCLI := Posicione("SA1",5,xFilial("SA1")+Trim(cCli),"A1_ZQTDCAR")
RETURN(lRet)
//*********************************************************************************************
//*********************************************************************************************
User Function RespCor()
Local cClip1 := M->Z48_CLIPPE
Local cOriCad := " "
Local cOriNova := M->Z48_ORICOR
cQuery := " SELECT TRIM(NVL(dbms_lob.substr(estrutura.F(Z48_ORICOR) , 4000, 1 ),‘ ‘)) AS ORIENTA "
cQuery += " FROM Z48010 "
cQuery += " WHERE Z48_CLIPPE = ‘"+ cClip1 +"‘ "
cQuery += " AND D_E_L_E_T_ = ‘ ‘ "
If Select("TRB") > 0
TRB->(DbCloseArea())
EndIf
TcQuery cQuery New Alias "TRB"
DbSelectArea("TRB")
cOriCad := TRB->ORIENTA
IF cOriCad <> Trim(cOriNova)
Z48_RESP := UPPER(ALLTRIM(USRFULLNAME(RETCODUSR())))
ENDIF
Return
//*********************************************************************************************
User Function DadMet()
Local cCli := M->Z48_CLI
Local cCodCli := Posicione("SA1",5,xFilial("SA1")+Trim(cCli),"A1_COD")
Local cCod := M->Z48_COD
Local cRev := M->Z48_REV
//Carrega os dados do metodo do cliente
cQuery1 := "SELECT TRIM(NVL(dbms_lob.substr(estrutura.F(Z27_PADCOR) , 4000, 1 ),‘ ‘)) AS PADRCOR "
cQuery1 += " FROM Z27010 "
cQuery1 += " WHERE Z27_CODCLI = ‘" + cCodCli + "‘ "
cQuery1 += " AND Z27_LOJA = ‘01‘ "
cQuery1 += " AND D_E_L_E_T_ = ‘ ‘ "
If Select("TRC") > 0
TRC->(DbCloseArea())
EndIf
TcQuery cQuery1 New Alias "TRC"
DbSelectArea("TRC")
Z48_METODO := TRC->PADRCOR
//Carrega os dados do historico de revisao
cQuery2 := "SELECT TRIM(NVL(dbms_lob.substr(estrutura.F(G1_ZZHIST) , 4000, 1 ),‘ ‘)) AS HISTREV "
cQuery2 += " FROM SG1010 "
cQuery2 += " WHERE G1_COD = ‘" + cCod + "‘ "
cQuery2 += " AND G1_TRT = ‘" + cRev + "‘ "
cQuery2 += " AND G1_COMP = ‘27334‘ "
cQuery2 += " AND D_E_L_E_T_ = ‘ ‘ "
If Select("TRD") > 0
TRD->(DbCloseArea())
EndIf
TcQuery cQuery2 New Alias "TRD"
DbSelectArea("TRD")
Z48_HIST := TRD->HISTREV
Return |
|
|
|
Mensagem do
DIEGO404
em 09/05/2023, 21:43 h
Local: MS Registro: 26/05/2022 Postagens: 2 |
Ola.
Poste o trecho de codigo onde o botao de salvar foi declarado. Nesse que voce postou nao tem nenhuma interface grafica sendo mostrada |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
