- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Perguntas Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
- flaviodocarmo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 18
- Obrigados Recebidos: 0
8 anos 10 meses atrás #29911
por flaviodocarmo
Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser. foi criado por flaviodocarmo
Como Resolvo
esse ponto entrada funciona
alguem sabe
esse ponto entrada funciona
alguem sabe
Por favor Acessar ou Registrar para participar da conversa.
- Sombra
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
8 anos 10 meses atrás #29912
por Sombra
Respondido por Sombra no tópico Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Flavio tem esse exemplo desenvolvido pelo Marcelo Souza ( HelpFacil ), vê se te ajuda.
Use o MT410BRW(). Abaixo segue o fonte que uso para filtrar:
__________________________________________________
#INCLUDE "PROTHEUS.CH"
#INCLUDE "rwmake.ch"
#INCLUDE "tbiconn.ch"
User function MT410BRW() // P.E. de MATA410 - Ponto de entrada disparado antes da abertura do Browse
Local cRet
Public cCombo := " "
Private oDlg
Private vTempo :=SPACE(10)
OpcA:= {"Não Faturados","Faturados","Enviados","Não Enviados","Todos"}
DEFINE MSDIALOG oDlg TITLE "Visualizar Pedidos" FROM 379,492 TO 468,795 PIXEL
@ 011,059 ComboBox cCombo Items OpcA COLOR CLR_BLUE Size 089,010 PIXEL OF oDlg
@ 012,009 Say "Pedidos de Venda" Size 047,008 COLOR CLR_BLUE PIXEL OF oDlg
DEFINE SBUTTON FROM 028,120 TYPE 1 ENABLE OF oDlg ACTION (cRet:=grvOk(),oDlg:End())
ACTIVATE MSDIALOG oDlg CENTERED
Return cRet
Static Function grvOk
Local cRet
DbSelectArea("SC5")
SC5->(DBGoTop())
IF cCombo = "Enviados"
SET FILTER TO SC5->C5_EXENVIA == "SIM"
ELSEIF cCombo = "Não Enviados"
Private cEnviado :="NAO"
DbSelectArea("SC5")
SC5->(DBGoTop())
SC5->(DBSetOrder(6))
SC5->(DBSeek(xFilial("SC5")+cEnviado))
WHILE SC5->C5_EXENVIA == cEnviado
Reclock("SC5",.F.)
vTempo :=CvalToChar(DateDiffDay(DATE(),SC5->C5_EMISSAO))+" DIA(S)"
SC5->C5_EXTEMPO := vTempo
MsUnlock()
SC5->(DBSkip())
ENDDO
SC5->(DBGoTop())
SET FILTER TO SC5->C5_EXENVIA == "NAO"
ELSEIF cCombo = "Não Faturados"
SET FILTER TO SC5->C5_NOTA = ‘ ‘
ELSEIF cCombo = "Faturados"
SET FILTER TO SC5->C5_NOTA <> ‘ ‘
ELSEIF cCombo = "Todos"
// SET FILTER TO SC5->C5_OBRA <> "NAO EXIBIR"
cRet := ‘ ‘
ENDIF
RETURN cRet
Use o MT410BRW(). Abaixo segue o fonte que uso para filtrar:
__________________________________________________
#INCLUDE "PROTHEUS.CH"
#INCLUDE "rwmake.ch"
#INCLUDE "tbiconn.ch"
User function MT410BRW() // P.E. de MATA410 - Ponto de entrada disparado antes da abertura do Browse
Local cRet
Public cCombo := " "
Private oDlg
Private vTempo :=SPACE(10)
OpcA:= {"Não Faturados","Faturados","Enviados","Não Enviados","Todos"}
DEFINE MSDIALOG oDlg TITLE "Visualizar Pedidos" FROM 379,492 TO 468,795 PIXEL
@ 011,059 ComboBox cCombo Items OpcA COLOR CLR_BLUE Size 089,010 PIXEL OF oDlg
@ 012,009 Say "Pedidos de Venda" Size 047,008 COLOR CLR_BLUE PIXEL OF oDlg
DEFINE SBUTTON FROM 028,120 TYPE 1 ENABLE OF oDlg ACTION (cRet:=grvOk(),oDlg:End())
ACTIVATE MSDIALOG oDlg CENTERED
Return cRet
Static Function grvOk
Local cRet
DbSelectArea("SC5")
SC5->(DBGoTop())
IF cCombo = "Enviados"
SET FILTER TO SC5->C5_EXENVIA == "SIM"
ELSEIF cCombo = "Não Enviados"
Private cEnviado :="NAO"
DbSelectArea("SC5")
SC5->(DBGoTop())
SC5->(DBSetOrder(6))
SC5->(DBSeek(xFilial("SC5")+cEnviado))
WHILE SC5->C5_EXENVIA == cEnviado
Reclock("SC5",.F.)
vTempo :=CvalToChar(DateDiffDay(DATE(),SC5->C5_EMISSAO))+" DIA(S)"
SC5->C5_EXTEMPO := vTempo
MsUnlock()
SC5->(DBSkip())
ENDDO
SC5->(DBGoTop())
SET FILTER TO SC5->C5_EXENVIA == "NAO"
ELSEIF cCombo = "Não Faturados"
SET FILTER TO SC5->C5_NOTA = ‘ ‘
ELSEIF cCombo = "Faturados"
SET FILTER TO SC5->C5_NOTA <> ‘ ‘
ELSEIF cCombo = "Todos"
// SET FILTER TO SC5->C5_OBRA <> "NAO EXIBIR"
cRet := ‘ ‘
ENDIF
RETURN cRet
Por favor Acessar ou Registrar para participar da conversa.
- flaviodocarmo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 18
- Obrigados Recebidos: 0
8 anos 10 meses atrás #29913
por flaviodocarmo
Respondido por flaviodocarmo no tópico Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Luiz,
Estou no ambiente de teste. O problema que tenho é o seguinte: Ja testei o PE SACI008 também. O PE´s não estão sendo incluidos no RPO.
Sabe como resolver isto?
Att, Flavio.
Estou no ambiente de teste. O problema que tenho é o seguinte: Ja testei o PE SACI008 também. O PE´s não estão sendo incluidos no RPO.
Sabe como resolver isto?
Att, Flavio.
Por favor Acessar ou Registrar para participar da conversa.
- Sombra
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
8 anos 10 meses atrás #29914
por Sombra
Respondido por Sombra no tópico Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Flavio,
Já passei por isso, e na ocasião abri chamado junto TOTVS, e o pessoal do ADVPL, me orientou a compilar os Fontes no Próprio Servidor em que estar instalado o Protheus, que esse tipo de não conformidade ocorre em decorrência de um BUG do próprio IDE, quando você tenta compilar determinados fontes da estação de trabalho.
Já passei por isso, e na ocasião abri chamado junto TOTVS, e o pessoal do ADVPL, me orientou a compilar os Fontes no Próprio Servidor em que estar instalado o Protheus, que esse tipo de não conformidade ocorre em decorrência de um BUG do próprio IDE, quando você tenta compilar determinados fontes da estação de trabalho.
Por favor Acessar ou Registrar para participar da conversa.
- Sombra
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
8 anos 10 meses atrás #29915
por Sombra
Respondido por Sombra no tópico Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Flavio,
Já passei por isso, e na ocasião abri chamado junto TOTVS, e o pessoal do ADVPL, me orientou a compilar os Fontes no Próprio Servidor em que estar instalado o Protheus, que esse tipo de não conformidade ocorre em decorrência de um BUG do próprio IDE, quando você tenta compilar determinados fontes da estação de trabalho.
Já passei por isso, e na ocasião abri chamado junto TOTVS, e o pessoal do ADVPL, me orientou a compilar os Fontes no Próprio Servidor em que estar instalado o Protheus, que esse tipo de não conformidade ocorre em decorrência de um BUG do próprio IDE, quando você tenta compilar determinados fontes da estação de trabalho.
Por favor Acessar ou Registrar para participar da conversa.
- flaviodocarmo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 18
- Obrigados Recebidos: 0
8 anos 10 meses atrás #29916
por flaviodocarmo
Respondido por flaviodocarmo no tópico Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Compilei no servidor e nao deu certo.
Obrigado pelo retorno Luis.
Obrigado pelo retorno Luis.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Compilo o PE MT410BRW normalmente mas não aparece msg antes do browser.
Tempo para a criação da página:0.124 segundos