Hoje vou postar uma rotina para que possamos criar facilmente um markbrowse editável, assim o usuário pode selecionar os registros e tambem editar as informações.

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#Include "Protheus.ch"

/*/{Protheus.doc} SPMarkTe
Função SPMarkTe, cria um markbrowse editavel.
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/

User Function SPMarkTe()
Private lMarker     := .T.
Private aDespes := {}

//Alimenta o array
BUSDATA()


DEFINE MsDIALOG o3Dlg TITLE 'Clientes' From 0, 4 To 650, 1180 Pixel
    
    oPnMaster := tPanel():New(0,0,,o3Dlg,,,,,,0,0)
    oPnMaster:Align := CONTROL_ALIGN_ALLCLIENT

    oDespesBrw := fwBrowse():New()
    oDespesBrw:setOwner( oPnMaster )

    oDespesBrw:setDataArray()
    oDespesBrw:setArray( aDespes )
    oDespesBrw:disableConfig()
    oDespesBrw:disableReport()

    oDespesBrw:SetLocate() // Habilita a Localização de registros

    //Create Mark Column
    oDespesBrw:AddMarkColumns({|| IIf(aDespes[oDespesBrw:nAt,01], "LBOK", "LBNO")},; //Code-Block image
        {|| SelectOne(oDespesBrw, aDespes)},; //Code-Block Double Click
        {|| SelectAll(oDespesBrw, 01, aDespes) }) //Code-Block Header Click

    oDespesBrw:addColumn({"Codigo"              , {||aDespes[oDespesBrw:nAt,02]}, "C", "@!"    , 1,  20    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,02]",, .F., .T.,                                    , "ETDESPES1"    })
    oDespesBrw:addColumn({"Nome"                , {||aDespes[oDespesBrw:nAt,03]}, "C", "@!"    , 1, 100    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,03]",, .F., .T.,                                    , "ETDESPES2"    })
    oDespesBrw:addColumn({"End"                 , {||aDespes[oDespesBrw:nAt,04]}, "C", "@!"    , 1, 100    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,04]",, .F., .T.,                                    , "ETDESPES3"    })
    oDespesBrw:addColumn({"Cidade"              , {||aDespes[oDespesBrw:nAt,05]}, "C", "@!"    , 1, 100    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,05]",, .F., .T.,                                    , "ETDESPES4"    })

    oDespesBrw:setEditCell( .T. , { || .T. } ) //activa edit and code block for validation

    /*
    oDespesBrw:acolumns[2]:ledit     := .T.
    oDespesBrw:acolumns[2]:cReadVar:= 'aDespes[oBrowse:nAt,2]'*/

    oDespesBrw:Activate(.T.)

Activate MsDialog o3Dlg

return .t.



Static Function SelectOne(oBrowse, aArquivo)
aArquivo[oDespesBrw:nAt,1] := !aArquivo[oDespesBrw:nAt,1]
oBrowse:Refresh()
Return .T.



Static Function SelectAll(oBrowse, nCol, aArquivo)
Local _ni := 1
For _ni := 1 to len(aArquivo)
    aArquivo[_ni,1] := lMarker
Next
oBrowse:Refresh()
lMarker:=!lMarker
Return .T.





//Alimenta a tabela temporaria
Static Function BUSDATA()
Local cQuery    as Character
Local cQryT3    as Character

cQuery      := ""
cQryT3      := GetNextAlias()
aDespes := {}

cQuery+="SELECT * FROM " + RetSqlName("SA1")
cQuery+=" WHERE D_E_L_E_T_=''"
cQuery:=ChangeQuery(cQuery)
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ) , cQryT3, .T., .F. )

(cQryT3)->(DbGoTop())
While (cQryT3)->(!EOF())

    aadd(aDespes,{.f.,alltrim((cQryT3)->A1_COD+(cQryT3)->A1_LOJA),alltrim((cQryT3)->A1_NOME),alltrim((cQryT3)->A1_END),alltrim((cQryT3)->A1_MUN)    })

    (cQryT3)->(dbSkip())
EndDo
(cQryT3)->(dbCloseArea())
DbSelectArea('SA1')

Return .t.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Criar MarkBrowse editável em advpl apareceu primeiro em Sem Preju.

Algumas vezes precisamos executar o gatilho de um determinado campo, já aprendemos a verificar se um gatilho existe aqui, vamos agora aprender a executar o gatilho

Para isso existe a função RunTrigger, ela é responsável por executar os gatilhos de um determinado campo. A documentação oficial pode ser encontrada aqui.

Sintaxe

RunTrigger( <nTipo>, <nLin>, <cMacro>, <oObj>, <cField> )

Parâmetros

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

#Define ENTER Chr(13)+Chr(10)

/*/{Protheus.doc} SPEXCTG
Função SPEXCTG, para exemplificar o uso da Função RunTrigger().
@param Não recebe 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Dez|2020
/*/
User Function SPEXCTG()
Local cCampo := 'A1_CGC'

//Para Enchoice
 If ExistTrigger(cCampo) // verifica se existe trigger para este campo
	RunTrigger(1,Nil,Nil,,cCampo)
Endif

//Para aCols
If ExistTrigger(cCampo) // verifica se existe trigger para este campo
    RunTrigger(2,n,nil,,cCampo)
Endif

Return( Nil )

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Como verificar se campo possui gatilho aqui

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como executar o gatilho de um campo – RunTrigger apareceu primeiro em Sem Preju.

Algumas vezes precisamos verificar se um determinado campo possui gatinho, já sabemos que realizar um seek nas tabelas de dicionário deve ser evitado, então como realizar essa consulta?

Para isso existe a função ExistTrigger , ela verificar se para determinado campo possui gatilhos no SX7e devolve True quando possuir ou False quando não possuir

Sintaxe

ExistTrigger( <cCampo> )

Parâmetros

Necessário informar somente o nome do campo.

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

#Define ENTER Chr(13)+Chr(10)

/*/{Protheus.doc} SPEXISTG
Função SPEXISTG, para exemplificar o uso da Função ExistTrigger().
@param Não recebe 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Dez|2020
/*/
User Function SPEXISTG()
Local cCampo := 'A1_CGC'

If ExistTrigger( cCampo )
    MsgInfo( 'Campo: ' + cCampo + ENTER + "Possui Gatilho.", 'SemPreju' )
else
    MsgInfo( 'Campo: ' + cCampo + ENTER + "Não Possui Gatilho.", 'SemPreju' )
Endif
Return

Returno deverá ser semelhante a imagem abaixo:

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como verificar se existe gatilho para um campo – ExistTrigger apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para facilitar o entendimento da SX5.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Entendendo o SX5 – Tabelas Genéricas do Protheus apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para quem está precisando adicionar um novo modulo?

As vezes customizamos um processo inteiro em nosso cliente que as rotinas não se encaixam em nenhum módulo padrão!

No Protheus existe opção de criação de até três módulos específicos. Na realidade eles já existem, mas para que eles estejam disponíveis na escolha do módulos é necessário dar um nome a cada um deles como abaixo:

Não esqueça de dar permissão no configurador para o módulo e criar um menu =]

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#include 'totvs.ch'


/*/{Protheus.doc} SIGAESP - Módulo 97
Função ESPNOME - Define o nome para o módulo especifico - 97
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESPNOME
Return ("Novo Modulo 97")

/*/{Protheus.doc} ESP1NOME - Módulo 98
Função ESP1NOME - Define o nome para o módulo especifico - 98
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESP1NOME
Return ("Novo Modulo 98")

/*/{Protheus.doc} ESP2NOME - Módulo 99
Função ESP2NOME - Define o nome para o módulo especifico - 99
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESP2NOME
Return ("Novo Modulo 98")


//Tambem temos assim o ponto de entrada de carregamento do sistema, o nome da função é o mesmo da chamado do programa inicial.
user Function SigaEsp()
Alert( Time() )
Return .t. 

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Criação de Módulos Específicos no Protheus apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para quem está precisando abrir uma página dentro do protheus, a classe TWebEngine pode nos ajudar, abaixo no exemplo como executar a mesma, ainda é possivel usar webSockets para enviar e receber informações a página

Documentação oficial da função aqui.

aixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"


/*/{Protheus.doc} SPWEBENG
Função SPWEBENG exemplo de uso da classe TWebEngine
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Oct|2020
/*/
User Function SPWEBENG()
	If (aLLTRIM(FwRetIdiom()) =='en-us')
 		U_OpenPage('https://www.totvs.com/','TOTVS')
	Else
 		U_OpenPage('https://sempreju.com.br','Sempreju')
	Endif
Return


User Function OpenPage(cUrl,cTitle)
Local oModal
Local aSize           := {}
Local aObjects        := {} 
Local aInfo            := {} // Obt?m a a ?rea de trabalho e tamanho da dialog
Local nPort     :=  0
PRIVATE oWebChannel := TWebChannel():New()
PRIVATE oWebEngine 

DEFAULT cUrl	:=	"https://sempreju.com.br"
DEFAULT cTitle := cUrl
DEFAULT cRootPath	:=	"/"

aSize := MsAdvSize()
AAdd( aObjects, { 100, 100, .T., .T. } ) // Dados da Enchoice 
// Dados da ?rea de trabalho e separa??o
aInfo := { aSize[ 1 ], aSize[ 2 ], aSize[ 3 ], aSize[ 4 ], 3, 3 } 
aPosObj := MsObjSize( aInfo, aObjects,.T.)
DEFINE MSDIALOG oModal TITLE cTitle From aSize[7],0 To aSize[6],aSize[5] of oMainWnd PIXEL // Usar sempre PIXEL !!!
    nPort := oWebChannel::connect()
    oWebEngine := TWebEngine():New(oModal, 0, 0, 100, 100,, nPort)
    //oWebEngine:cLang := FwRetIdiom() Only in smartclient higher than 19.3.1.0
    oWebEngine:bLoadFinished := {|self,url| conout("Fim do carregamento da pagina " + url) }
    oWebEngine:navigate(cUrl)
    oWebEngine:Align := CONTROL_ALIGN_ALLCLIENT
  
  ACTIVATE DIALOG oModal CENTERED

Return

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como usar a classe TWebEngine e abrir páginas dentro do protheus apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para quem está precisando pegar informações do AppServer.ini ou do SmartCliente.ini e usar no ADVPL

Ainda é possivel criar uma seção totalmente customizada e utilizar os mesmos recuros! legal né, então vamos ver como isso é simples!

A documentação oficial da rotina pode ser encontrada aqui.

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
#INCLUDE "COLORS.CH"
#INCLUDE "FONT.CH"  


/*/{Protheus.doc} SPCHAVIN
Função SPCHAVIN para buscar uma chave no ini e retornar o valor
@param chave e valor padrao 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Mar|2020
/*/
User Function SPCHAVIN()          
Local cMensagem as Character        
Local cServerIni as Character        
Local cClientIni as Character
Local cSecao as Character
Local cChave as Character
Local cPadrao as Character


cServerIni := GetAdv97()
cClientIni := GetRemoteIniName()
cSecao := "General" //vamos ser os parametros da seção [General]
cChave := "InstallPath" //qual chave queremos retornar o valor
cPadrao := "NaoEncontrado" //se nao encontrar esse é o valor padrao a ser retornado

cMensagem := "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF
cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cServerIni) + "]" + CRLF+ CRLF+ CRLF

cMensagem += "Arquivo de configuração da estação: [" + cClientIni + "]" + CRLF
cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cClientIni) + "]" + CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Exemplo do GetPvProfString")


//é possivel assim criarmos uma chave customizada e usar ela em nossos fontes, como abaixo


cSecao := "SEMPREJU" //vamos ser os parametros da seção [SEMPREJU]
cChave := "url" //qual chave queremos retornar o valor
cPadrao := "URL Não encontrada" //se nao encontrar esse é o valor padrao a ser retornado

cMensagem := "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF
cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cServerIni) + "]" + CRLF+ CRLF+ CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Exemplo do GetPvProfString")


Return .T.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como buscar valores no Appserver.ini e SmartClient.ini apareceu primeiro em Sem Preju.

Hoje vou postar uma rotina que eu uso para documentar as minhas alterações no dicionario de dados em Excel, para ser entregue ao cliente no final de um projeto.

Abaixo o código fonte, a rotina é bem simples e tudo configurado em uma únida tela.

#INCLUDE "PROTHEUS.CH"    
#INCLUDE 'PARMTYPE.CH'
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "TOPCONN.CH"
#include "TOTVS.CH"
#Include "RWMAKE.CH"

//define os campos que serão exportados
#DEFINE CSX2FIELD "X2_CHAVE|X2_NOMEENG     |X2_NOME         |X2_MODO|X2_MODOUN  |X2_MODOEMP|X2_UNICO |      |"
#DEFINE CSX2Label "Key     |Name in English|Nome em Portuges|Mode   |Unit. Mode |Corp. Mode|Uniqe Key|Action|"

#DEFINE CSIXFIELD "INDICE|ORDEM|CHAVE|DESCENG      |DESCRICAO          |      |"
#DEFINE CSIXLabel "Table |Order|Key  |Title English|Titulo em Portugues|Action|"

#DEFINE CSX1FIELD "X1_GRUPO|X1_ORDEM|X1_PERENG    |X1_PERGUNT         |X1_TIPO|X1_TAMANHO|X1_DECIMAL|X1_GSC      |X1_F3         |X1_GRPSXG    |X1_VALID  |X1_VAR01|X1_PRESEL|X1_DEFENG1      |X1_DEF01           |X1_DEFENG2      |X1_DEF02           |X1_DEFENG3      |X1_DEF03           |X1_DEFENG4      |X1_DEF04           |X1_DEFENG5      |X1_DEF05           |X1_PICTURE|      |"
#DEFINE CSX1Label "Group   |Order   |Title English|Titulo em Portugues|Type   |Size      |Decimal   |Group fields|Standard Query|Group Fields |Validation|Variable|Selected |Option 1 English|Option 1 Portugues |Option 2 English|Option 2 Portugues |Option 3 English|Option 3 Portugues |Option 4 English|Option 4 Portugues |Option 5 English|Option 5 Portugues |Picture   |Action|"

#DEFINE CSX6FIELD "X6_VAR  |X6_TIPO|X6_DSCENG          |X6_DESCRIC            |X6_DSCENG1           |X6_DESC1                |X6_DSCENG2           |X6_DESC2                |X6_CONTENG|X6_VALID  |      |"
#DEFINE CSX6Label "Variable|Type   |Description English|Descricao em Portugues|Description English 1|Descricao em Portugues 1|Description English 2|Descricao em Portugues 2|Value     |Validation|Action|"

#DEFINE CSX7FIELD "X7_CAMPO|X7_SEQUENC|X7_REGRA|X7_CDOMIN|X7_TIPO|X7_SEEK|X7_ALIAS|X7_ORDEM|X7_CHAVE|X7_CONDIC|      |"
#DEFINE CSX7Label "Field   |Sequence  |Rule    |C. Domain|Type   |Seek   | Alias  |Order   |key     |Condition|Action|"

#DEFINE CSXAFIELD "XA_ALIAS|XA_TIPO|XA_ORDEM|XA_AGRUP|XA_DESCENG         |XA_DESCRIC            |      |"
#DEFINE CSXALabel "Alias   |Type   |Order   |Group   |Description English|Descricao em Portugues|Action|"

#DEFINE CSXBFIELD "XB_ALIAS|XB_TIPO|XB_SEQ  |XB_COLUNA|XB_DESCENG         |XB_DESCRI             |XB_CONTEM|      |"
#DEFINE CSXBLabel "Alias   |Type   |Sequence|Column   |Description English|Descricao em Portugues|Conteud  |Action|"

#DEFINE CSX3FIELD "SX3->X3_ARQUIVO  |SX3->X3_CAMPO   |cTypefield(SX3->X3_TIPO)  |SX3->X3_TAMANHO    |SX3->X3_DECIMAL    |SX3->X3_ORDEM  |SX3->X3_PICTURE    |SX3->X3_TITENG     |SX3->X3_DESCENG        |Ap5GetHelp(SX3->X3_CAMPO)   |SX3->X3_TITULO       |SX3->X3_DESCRIC         |Ap5GetHelp(SX3->X3_CAMPO)  |X3Uso()    |X3Obrigat(SX3->X3_CAMPO)   |IIF(SX3->X3_BROWSE=='S','Yes',IIF(SX3->X3_BROWSE=='N','No',''))    |SX3->X3_CBOXENG         |SX3->X3_CBOX         |IIF(SX3->X3_CONTEXT=='R','Real',IIF(SX3->X3_CONTEXT=='V','Virtual',''))   |SX3->X3_F3              |SX3->X3_RELACAO     |Iif(empty(SX3->X3_VALID),SX3->X3_VLDUSER,SX3->X3_VALID)          |SX3->X3_WHEN  |SX3->X3_GRPSXG            |SX3->X3_TRIGGER    |SX3->X3_INIBRW |SX3->X3_FOLDER |SX3->X3_AGRUP  |IIf(SX3->X3_PROPRI == 'U','Creation','Update')     |"
#DEFINE CSX3Label "File	            |Field	         |Type	                    |Size               |Decimal            |Order		    |Picture    		|Title English		|Description English    |Help English                |Titulo em Portugues  |Descricao em Portugues	|Help Portugues		        |Used		|Mandatory		            |Browse		                                                        |Combox(English)         |Combox(Portugues)    |Context		                                                              |Standard Search         |Standard Init       |Validation                                                       |When		     |Group of Fields		    |Trigger		    |Init Browse    |Folder 		|Grouping		|Action		                                        |"


#Define ENTER	Chr(13)+Chr(10)

/*/{Protheus.doc} SPDOCAUT
Rotina responsavel por documentar dicionario de dados

@type function
@author Rafael Goncalves
@since Set|2020
/*/
User Function SPDOCAUT(cTGet1,cTGet2,cTGet3,cTGet4,cTGet5,cTGet6,cTGet7,cTGet8)

Default cTGet1 := space(250)
Default cTGet2 := space(250)
Default cTGet3 := space(250)
Default cTGet4 := space(250)
Default cTGet5 := space(250)
Default cTGet6 := space(250)
Default cTGet7 := space(250)
Default cTGet8 := space(250)

// Habilita interface com data mostrada com 4 digitos no ano
// e Habilita data em formato britânico ( Dia/Mes/Ano )
SET CENTURY ON
SET DATE BRITISH

cRmtBuild := GetBuild(.T.)
cRmtIp := GetclientIP()
cUsrName := LogUserName()
dRmtDate := GetRmtDate()
cRmtTime := GetRmtTime()
aRmtInfo := GetRmtInfo()
cRmtTmp := GetTempPath(.T.)
lActivex := IsPlugin()
lSSLConn := IsSecure()
cInfo := ''
cInfo += 'SmartClient Build ....... ' + cRmtBuild + ENTER
cInfo += 'SmartClient Activex ..... ' + IIF(lActivex,"SIM","NAO") + ENTER
cInfo += 'SmartClient Connection .. ' + IIF(lSSLConn ,"SSL","TCP") + ENTER
cInfo += 'SmartClient is 64 bits .. ' + IIF(IsRmt64() ,"SIM","NAO") + ENTER
cInfo += 'Remote IP ............... ' + cRmtIp + ENTER
cInfo += 'Remote User Name ........ ' + cUsrName + ENTER
cInfo += 'Remote DateTime ......... ' + dtoc(dRmtDate)+' '+cRmtTime + ENTER
cInfo += 'Remote Temp Path ........ ' + cRmtTmp + ENTER
cInfo += 'Remote Computer Name .... ' + aRmtInfo[1] + ENTER
cInfo += 'Remote O.S. ............. ' + aRmtInfo[2] + ENTER
cInfo += 'Remote O.S. Detais ...... ' + aRmtInfo[3] + ENTER
cInfo += 'Remote Memory (MB) ...... ' + aRmtInfo[4] + ENTER
cInfo += 'Remote CPU Count ........ ' + aRmtInfo[5] + ENTER
cInfo += 'Remote CPU MHZ .......... ' + aRmtInfo[6] + ENTER
cInfo += 'Remote CPU String ....... ' + aRmtInfo[7] + ENTER
cInfo += 'Remote O.S. Language .... ' + aRmtInfo[8] + ENTER
cInfo += 'Remote Web Browser ...... ' + aRmtInfo[9] + ENTER
cInfo += 'Remote Version .......... ' + RemoteXVersion()+ ENTER
cInfo += 'Remote Ini Patch ........ ' + GetRemoteIniName()+ ENTER
conout(cInfo)

//TODO remover
cTGet1 := "SA1|SA2" + space(250)
cTGet2 := "A1_COD|A1_LOJA"
cTGet3 := "SA1|SA2_1" + space(250)
cTGet4 := "ACA890|ACA980" + space(250)
cTGet5 := "MV_330ATCM|MV_LOTE" + space(250)
cTGet6 := "A00_NIVAGR|A1_CGC_002" + space(250)
cTGet7 := "AA1|ABS|AD1_1" + space(250)
cTGet8 := "SA1|SA2|SA4" + space(250)

/*If GetRemoteType() == 1  //nao for executado do menu
    RpcSetType(3)
    RpcSetEnv('00','102030')
    FSGERFILES(,,cTGet1, cTGet2, cTGet3, cTGet4, cTGet5, cTGet6, cTGet7, cTGet8)
else
*/

    DEFINE MSDIALOG oDlg FROM 0,0 TO 700,500 TITLE "Fast Dictionary Production (F.D.P.) - V 1.0.0" OF oMainWnd PIXEL

        nLin := 40
        //SX2
        oTGet1 := TGet():New( nLin+10,01, bSetGet( cTGet1 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SX2 - Table Key(X2_CHAVE) Ex. SA1|SA2|SF1|"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        nLin += 30
        //SX3
        //oTGet2 := TGet():New( nLin+10,01, bSetGet( cTGet2 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SX3 - Table File or specific field Ex. SA1|A1_COD"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        @ nLin+10,01 SAY oSay PROMPT 'Information for SX3 - Table File or specific field Ex. SA1|A1_COD' SIZE 250,09 OF oDlg PIXEL
        @ nLin+20,01 GET oGet VAR cTGet2 SIZE 248,60 MULTILINE OF oDlg PIXEL
               
        nLin += 80
        //SIX
        oTGet3 := TGet():New( nLin+10,01, bSetGet( cTGet3 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SIX - Index in total or Index+Order order Ex. SA1|SA1_1|SA1_5|"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        nLin += 30
        //SX1
        oTGet4 := TGet():New( nLin+10,01, bSetGet( cTGet4 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SX1 - Pergunte Group Ex. ACA180|ACA190|"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        nLin += 30
        //SX6
        oTGet5 := TGet():New( nLin+10,01, bSetGet( cTGet5 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SX6 - Parameter Code Ex. MV_330ATCM|MV_LOTE"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        nLin += 30
        //SX7
        oTGet6 := TGet():New( nLin+10,01, bSetGet( cTGet6 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SX7 - Trigger Field or Field+Sequenc Ex. A00_NIVAGR|A1_CGC_002"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        nLin += 30
        //SXA
        oTGet7 := TGet():New( nLin+10,01, bSetGet( cTGet7 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SXA - Folder Alias or Alias+Order Ex. AA1|ACA_1"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )
        nLin += 30
        //SXB
        oTGet8 := TGet():New( nLin+10,01, bSetGet( cTGet8 ),oDlg, 250,009,"",/* [ bValid ]*/,/**nClrFore */,/**nClrBack */,/**oFont */,/**uParam12 */,/**uParam13 */, .t.,/**uParam15 */,/**uParam16 */, {|| .T.},/*uParam18*/ ,/**uParam19 */, /*bChange*/, /* lReadOnly */, /* lPassword */, /* uParam23 */, /* cReadVar */, /* uParam25 */, /* uParam26 */, /* uParam27 */, /* lHasButton */, /* lNoButton */, /* uParam30 */, "Information for SXB - Standard Query  Alias Ex. SA1|SA2|SB1"/* cLabelText */, 1/* nLabelPos */, /* oLabelFont */, /* nLabelColor */, /* cPlaceHold */, /* lPicturePriority */, /* lFocSel */ )

    ACTIVATE MSDIALOG oDlg CENTER ON INIT EnchoiceBar(oDlg,{|| nOpcA:= 1,;
        FWMsgRun(, {|oSay| FSGERFILES(oSay,oDlg,cTGet1, cTGet2, cTGet3, cTGet4, cTGet5, cTGet6, cTGet7, cTGet8) }, "Processando", "Aguarde Iniciando exportacao")},{|| oDlg:End() })
//Endif

Return .t.


/*/{Protheus.doc} FSGERFILES
Rotina gera arquivos
@type function
@author Rafael Goncalves
@since Set|2020
/*/
Static Function FSGERFILES(oSay,oDlg,cTGet1, cTGet2, cTGet3, cTGet4, cTGet5, cTGet6, cTGet7, cTGet8) as logical
Local _Ni as Numeric
Local _Nj as Numeric
Local lGerF as Logical
Local aGer as Array
Local aGer1 as Array
Local aFIELD as Array
Local aSX2 as Array
Local aSX3 as Array
Local aSIX as Array

Local aSX6 as Array
Local aSX7 as Array
Local aSXA as Array
Local aSXB as Array


//Excel Information
Local cArquivo    := GetTempPath()+'ExpDic_'+dtos(dDataBAse)+'_'+cvaltochar(hora())+'.xml'
Local oFWMSEx     := FWMsExcelEx():New()
Local oExcel

default oSay := nil
default oDlg := nil

lGerF := .F.
//Start SX2
If !Empty(alltrim(cTGet1))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gerando SX2"
        ProcessMessages()
    Endif
    aGer := {}
    aSX2 := {}
    aGer := StrTokArr(alltrim(cTGet1), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSX2FIELD), '|' ) //Fields to export
    aLabel := StrTokArr(alltrim(CSX2Label), '|' ) //Labels to export
    For _Ni := 1 to len(aGer)
        //Found lines
        DbSelectArea("SX2")
        SX2->( dbSetOrder( 1 ) ) //ARQUIVO
        If SX2->( msSeek( aGer[_Ni], .F. ) )
            //Loop Fields
            aGer1 := {}
            For _Nj := 1 to len(aFIELD)
                If !Empty(aFIELD[_Nj])
                    aAdd(aGer1,alltrim(SX2->&(aFIELD[_Nj])))
                Elseif alltrim(aLabel[_Nj]) == "Action"
                    /*If empty(SX2->X2_LOCTYP)
                        aAdd(aGer1,"Creation")
                    Else
                        aAdd(aGer1,"Update")
                    Endif */ 
                    aAdd(aGer1," ")                    
                Else
                    aAdd(aGer1," ")
                EndIf
            Next
            //add to array
            aAdd(aSX2,aGer1)
        Endif
    Next
Endif

//Start SX3

If !Empty(alltrim(cTGet2))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SX3"
        ProcessMessages()
    Endif
    aGer := {}
    aSX3 := {}
    aGer := StrTokArr(alltrim(cTGet2), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSX3FIELD), '|' ) //Fields to export
    aLabel := StrTokArr(alltrim(CSX3Label), '|' ) //Labels to export
    For _Ni := 1 to len(aGer)
        //Checa se gera tabela toda ou um campo
        If len(aGer[_Ni]) < 4 //tabela toda
            SX3->(dbSetOrder(1))
            SX3->(msSeek(aGer[_Ni]))
            While SX3->(!EOF()) .And.  SX3->X3_ARQUIVO == aGer[_Ni]
                aGer1 := {}
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                        xValue:=&(aFIELD[_Nj])
                        If ValType(xValue) == 'C' //Char
                            aAdd(aGer1,alltrim(&(aFIELD[_Nj])))
                        ElseIf ValType(xValue) == 'L' //Char
                            IF xValue
                                aAdd(aGer1,"Yes")
                            Else
                                aAdd(aGer1,"No")     
                            EndIf                       
                        else
                            aAdd(aGer1,&(aFIELD[_Nj]))
                        Endif                        
                        //aAdd(aGer1,alltrim(SX3->&(aFIELD[_Nj])))
                    Elseif aLabel[_Nj] == "Action"
                        /*If empty(SX3->X3_LOCTYP)
                            aAdd(aGer1,"Creation")
                        Else
                            aAdd(aGer1,"Update")
                        Endif */
                        aAdd(aGer1," ")                   
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next
                //add to array
                aAdd(aSX3,aGer1)
                SX3->(dbSkip())
            EndDo
        Else //campo especifico
            DbSelectArea("SX3")
            SX3->(DbSetOrder(2))
            If SX3->(msSeek(aGer[_Ni]))
                aGer1 := {}
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                        aAdd(aGer1,alltrim(&(aFIELD[_Nj])))
                    Elseif alltrim(aLabel[_Nj]) == "Action"
                        /*If empty(SX3->X3_LOCTYP)
                            aAdd(aGer1,"Creation")
                        Else
                            aAdd(aGer1,"Update")
                        Endif */ 
                        aAdd(aGer1," ")                    
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next
                //add to array
                aAdd(aSX3,aGer1)
                //cTitulo := TRIM(X3Titulo())
            EndIf
        Endif
    Next
Endif

//Start SIX
If !Empty(alltrim(cTGet3))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SIX"
        ProcessMessages()
    Endif
    aGer := {}
    aSIX := {}
    aGer := StrTokArr(alltrim(cTGet3), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSIXFIELD), '|' ) //Fields to export
    aLabel := StrTokArr(alltrim(CSIXLabel), '|' ) //Labels to export
    For _Ni := 1 to len(aGer)
        //Information for SIX - Index in total or Index+Order order Ex. SA1|SA1_1|SA1_5|
        cKey := aGer[_Ni]
        If !len(aGer[_Ni])<4 //expecific
            cKey := substring(aGer[_Ni],1,3) + substring(aGer[_Ni],5,len(aGer[_Ni]))
        Endif

        //Found lines
        dbSelectArea("SIX")
        SIX->( dbSetOrder( 1 ) ) //ARQUIVO
        If SIX->( msSeek( cKey, .F. ) )
            While !eof() .and. (SIX->INDICE == cKey .or. SIX->INDICE+SIX->ORDEM == cKey)
                //Loop Fields
                aGer1 := {}
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                        aAdd(aGer1,alltrim(SIX->&(aFIELD[_Nj])))
                    Elseif aLabel[_Nj] == "Action"
                        /*If empty(SIX->IX_LOCTYP)
                            aAdd(aGer1,"Creation")
                        Else
                            aAdd(aGer1,"Update")
                        Endif */
                        aAdd(aGer1," ")                     
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next

                //add to array
                aAdd(aSIX,aGer1)

                dbSelectArea("SIX")
                SIX->(DbSkip())
            EndDo

        Endif
    Next
Endif


/////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////// E X P O R T   S X 1 //////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

If !Empty(alltrim(cTGet4))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SX1"
        ProcessMessages()
    Endif
    aGer := {}
    aSX1 := {}
    aGer := StrTokArr(alltrim(cTGet4), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSX1FIELD), '|' ) //Fields to export
    For _Ni := 1 to len(aGer)
        //Found lines
        dbSelectArea("SX1")
        SX1->( dbSetOrder( 1 ) )
        If SX1->( msSeek( aGer[_Ni], .F. ) )
            While !eof() .and. (alltrim(SX1->X1_GRUPO) == alltrim(aGer[_Ni]) )
                //Loop Fields
                aGer1 := {}
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                        aAdd(aGer1,(SX1->&(aFIELD[_Nj])))
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next
                //add to array
                aAdd(aSX1,aGer1)
                dbSelectArea("SX1")
                SX1->(DbSkip())
            EndDo

        Endif
    Next
Endif


/////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////// E X P O R T   S X 6 //////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

If !Empty(alltrim(cTGet5))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SX6"
        ProcessMessages()
    Endif
    aGer := {}
    aSX6 := {}
    aGer := StrTokArr(alltrim(cTGet5), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSX6FIELD), '|' ) //Fields to export
    aLabel := StrTokArr(alltrim(CSX6Label), '|' ) //Labels to export
    For _Ni := 1 to len(aGer)
        //Found lines
        dbSelectArea("SX6")
        SX6->( dbSetOrder( 1 ) )
        If SX6->( msSeek(xFilial('SX6') +  aGer[_Ni], .F. ) )
            aGer1 := {}
            For _Nj := 1 to len(aFIELD)
                If !Empty(aFIELD[_Nj])
                    aAdd(aGer1,alltrim(SX6->&(aFIELD[_Nj])))
                Elseif aLabel[_Nj] == "Action"
                    /*If empty(SIX->IX_LOCTYP)
                        aAdd(aGer1,"Creation")
                    Else
                        aAdd(aGer1,"Update")
                    Endif*/
                    aAdd(aGer1," ")                      
                Else
                    aAdd(aGer1," ")
                EndIf
            Next
            //add to array
            aAdd(aSX6,aGer1)
        Endif
    Next
Endif





/////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////// E X P O R T   S X 7 //////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

If !Empty(alltrim(cTGet6))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SX7"
        ProcessMessages()
    Endif
    aGer := {}
    aSX7 := {}
    aGer := StrTokArr(alltrim(cTGet6), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSX7FIELD), '|' ) //Fields to export
    For _Ni := 1 to len(aGer)
        //Found lines
        dbSelectArea("SX7")
        SX7->( dbSetOrder( 1 ) )
        If SX7->( msSeek( aGer[_Ni], .F. ) )
            While SX7->X7_CAMPO == aGer[_Ni]
                aGer1 := {}                    
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                    aAdd(aGer1,alltrim(SX7->&(aFIELD[_Nj])))
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next
                SX7->(DbSkip())
                //add to array
                aAdd(aSX7,aGer1)                
            EndDo
        Endif
    Next
Endif



/////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////// E X P O R T   S X A //////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

If !Empty(alltrim(cTGet7))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SXA"
        ProcessMessages()
    Endif
    aGer := {}
    aSXA := {}
    aGer := StrTokArr(alltrim(cTGet7), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSXAFIELD), '|' ) //Fields to export
    For _Ni := 1 to len(aGer)
        //Found lines
        dbSelectArea("SXA")
//        SX7->( dbSetOrder( 1 ) )
        cIndex := CriaTrab(Nil, .F.)
        cChave := IndexKey()
        IndRegua("SXA", cIndex, "XA_ALIAS + XA_TIPO + XA_ORDEM", , , "Selecionando Registros...")
		nIndex := RetIndex("SXA") + 1        
        dbSelectArea("SXA")
		dbSetOrder(nIndex)

        If SXA->( msSeek( aGer[_Ni], .F. ) )
            While SXA->XA_ALIAS == aGer[_Ni]
                aGer1 := {}                    
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                    aAdd(aGer1,alltrim(SXA->&(aFIELD[_Nj])))
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next
                SXA->(DbSkip())
                //add to array
                aAdd(aSXA,aGer1)                
            EndDo
        Endif
    Next
Endif




/////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////// E X P O R T   S X B //////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

If !Empty(alltrim(cTGet8))
    lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando SXB"
        ProcessMessages()
    Endif
    aGer := {}
    aSXB := {}
    aGer := StrTokArr(alltrim(cTGet8), '|' ) //default optional fields
    aFIELD := StrTokArr(alltrim(CSXBFIELD), '|' ) //Fields to export
    For _Ni := 1 to len(aGer)
        //Found lines
        dbSelectArea("SXB")
        SXB->( dbSetOrder( 1 ) )
        If SXB->( msSeek(aGer[_Ni], .F. ) )
            While alltrim(SXB->XB_ALIAS) == alltrim(aGer[_Ni])
                aGer1 := {}
                For _Nj := 1 to len(aFIELD)
                    If !Empty(aFIELD[_Nj])
                        aAdd(aGer1,alltrim(SXB->&(aFIELD[_Nj])))
                    Else
                        aAdd(aGer1," ")
                    EndIf
                Next
                //add to array
                aAdd(aSXB,aGer1)
                SXB->(DbSkip())
            EndDo
        Endif
    Next
Endif


//Create Excel with informations
If lGerF := .T.
    If (GetRemoteType() == 1)
        oSay:cCaption := "Gereando Excel"
        ProcessMessages()
    Endif

    //SX2 Folder
    If !Empty(alltrim(cTGet1))
        aLabel := StrTokArr(alltrim(CSX2Label), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SX2","Table Information",aSX2,aLabel)
    EndIf

    //SX3 Folder
    If !Empty(alltrim(cTGet2))
        aLabel := StrTokArr(alltrim(CSX3Label), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SX3","Fields Information",aSX3,aLabel)
    EndIf

    //SIX Folder
    If !Empty(alltrim(cTGet3))
        aLabel := StrTokArr(alltrim(CSIXLabel), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SIX","Index Information",aSIX,aLabel)
    EndIf

    //SX1 Folder
    If !Empty(alltrim(cTGet4))
        aLabel := StrTokArr(alltrim(CSX1Label), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SX1","Question Information",aSX1,aLabel)
    EndIf

    //SX6 Folder
    If !Empty(alltrim(cTGet5))
        aLabel := StrTokArr(alltrim(CSX6Label), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SX6","Parameter Information",aSX6,aLabel)
    EndIf

    //SX7 Folder
    If !Empty(alltrim(cTGet6))
        aLabel := StrTokArr(alltrim(CSX7Label), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SX7","Triguer Information",aSX7,aLabel)
    EndIf

    //SXA Folder
    If !Empty(alltrim(cTGet7))
        aLabel := StrTokArr(alltrim(CSXALabel), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SXA","Grouping Information",aSXA,aLabel)
    EndIf

    //SXA Folder
    If !Empty(alltrim(cTGet8))
        aLabel := StrTokArr(alltrim(CSXBLabel ), '|' ) //Labels to export
        FSTABLE(@oFWMSEx,"SXB","Standard Query Information",aSXB,aLabel)
    EndIf

    //Criando o XML
    oFWMSEx:Activate()
    oFWMSEx:GetXMLFile(cArquivo)

    //Abrindo o excel e abrindo o arquivo xml
    oExcel := MsExcel():New()               //Abre uma nova conexão com Excel
    oExcel:WorkBooks:Open(cArquivo)         //Abre uma planilha
    oExcel:SetVisible(.T.)                  //Visualiza a planilha
    oExcel:Destroy()                        //Encerra o processo do gerenciador de tarefas
Endif

If !(GetRemoteType() == 1)
    msginfo("Gerados")
Else
    Conout("End table creation")
Endif



return .t.



//Gera a tabela
Static function FSTABLE(oFWMSEx,cTable,cDesc,aInfo,aLabel) as logical
Local _Ni as Numeric
Local _Nj as Numeric
 //Criando a Aba Teste 1
oFWMSEx:AddworkSheet(cTable)
    //Adicionando a tabela
    oFWMSEx:AddTable (cTable,cDesc)
        //Adicionando as colunas
        oFWMSEx:AddColumn(cTable,cDesc,"Atribute",1,1)
        oFWMSEx:AddColumn(cTable,cDesc,"Value"   ,1,1)

        //Adicionando Linhas
        //aLabel := StrTokArr(alltrim(CSX2Label), '|' ) //Labels to export
        For _Ni := 1 to len(aInfo) //Loop informations
            //Define colors
            oFWMSEx:SetCelFrColor("#FFFFFF")
            oFWMSEx:SetCelBgColor("#4682B4")
            //headers
            For _Nj := 1 to len(aLabel) //loop campos
                //aAdd(aGer1,alltrim(SX2->&(aFIELD[_Nj])))
                oFWMSEx:AddRow(cTable,cDesc,{alltrim(aLabel[_Nj]),(aInfo[_Ni,_Nj])},{1})
            Next

            //Pula uma linha
            oFWMSEx:SetCelFrColor("#FFFFFF")
            oFWMSEx:SetCelBgColor("#FFFFFF")
            oFWMSEx:AddRow(cTable,cDesc,{" "," "},{1,2})
        Next

return .t.



Static Function cTypefield(cChar)
    Local cRet as Character 
    cRet:=""
    If cChar == 'C'
        cRet:="Character"
    ElseIf cChar == 'D'
        cRet:="Date"
    ElseIf cChar == 'N'
        cRet:="Numeric"
    Else
        cRet:="Unknow"
    Endif     

return cRet

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Facilitador para documentar customizações no Dicionário – Protheus apareceu primeiro em Sem Preju.

A função FieldPos tem a funcionalidade de retornar a posição de um determinado campo dentro da estrutura do alias corrente. Caso o campo não exista na estrutura, é retornado zero.

Abaixo um exemplo onde verificamos se o campo A1_ZCOD existe em nosso ambiente.

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

#Define ENTER Chr(13)+Chr(10)

/*/{Protheus.doc} SPFLDPOS
Função SPFLDPOS, para exemplificar o uso da função FieldPos().
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Mai|2020
/*/
User Function SPFLDPOS()
	Local cMsgHead := "TDRFocus - Conhecimento sem limite"
	//-> Verifica se o novo campo existe.
	If FieldPos("A1_ZCOD") > 0
		MsgInfo("O campo A1_ZCOD existe!", cMsgHead)
	Else
		MsgStop("O campo A1_ZCOD não existe!", cMsgHead)
	EndIf
Return

Não deixe de assinar a nossa newsletter e fica por dentro de todos os post.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Aprenda a instalar o Protheus aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como usar a função FieldPos no advpl apareceu primeiro em Sem Preju.

Na linha de implementação da dialog, podemos adicionar o comando para definir o style DS_MODALFRAME, ficando o final da linha toda como STYLE DS_MODALFRAME.

Ainda podemos remover a funcionalidade de fechar a janela ao pressionar a tecla de escape ESC, para isso devemos alterar a pripriedade DIALOG:lEscClose := .F.

Aaixo o exemplo completo usado nesse post

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

User Function SPDIALO()
Local nTimeMsg as numeric

nTimeMsg := 60000 //defini um minuto para fechar a janela

//Adiciona linha no array com as cores
DEFINE 	MSDIALOG oDlg FROM  36,1 TO 300,540 TITLE "Fecha Automatico" PIXEL STYLE DS_MODALFRAME //dialog sem o X para fechar
    oDlg:lEscClose := .F. //desabilita fechar a janela ao pressinar esc.
    oDlg:lCentered := .T. //abre a janela centralizado.


    @ 0.5, 1.8 Say "Esta tela será finalizada automaticamente em " Of oDlg	
    @ 1.5, 1.8 Say AllTrim(Str((nTimeMsg/1000)/60))+" minutos."	 Of oDlg	


    oTimer2:= TTimer():New(nTimeMsg,{|| oDlg:End() },oDlg)
    oTimer2:Activate()

    DEFINE SBUTTON 	FROM 05, (oDlg:nRight / 2) - 40  TYPE 2  ENABLE OF oDlg ACTION ( oDlg:End() )
ACTIVATE MSDIALOG oDlg CENTERED
Return .T.

Não deixe de assinar a nossa newsletter e fica por dentro de todos os post.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Documentação original aqui.

Post interessantes:

Aprenda a instalar o Protheus aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Aprenda usar o FieldPos aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Remover o botão de fechar de uma Dialog no Protheus apareceu primeiro em Sem Preju.