#include "protheus.ch"
#include "msmgadd.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} MyMrbwEnch
MsMget sample
@author totvs
@since 31/07/2019
//-----------------------------------------------------------------*/
User Function MyMrbwEnch()
Private cCadastro := "Cadastro de Clientes"
Private aRotina := {{"Pesquisar" , "axPesqui" , 0, 1},;
{"Visualizar" , "U_MyMsmGet" , 0, 2}}
DbSelectArea("SA1")
DbSetOrder(1)
MBrowse(6,1,22,75,"SA1")
Return
//-------------------------------------------------------------------
/*/{Protheus.doc} MyMsmGet
Função de manutenção do cadastro
@author totvs
@since 31/07/2019
//-----------------------------------------------------------------*/
User Function MyMsmGet(cAlias,nReg,nOpc)
Local oDlg
Local oEnch
Local lMemoria := .T.
Local lCreate := .T.
Local lSX3 := .T. //verifica se irá criar a enchoice a partir do SX3 ou a partir de um vetor.
Local aPos := {000,000,400,600} //posição da enchoice na tela
Local aCpoEnch := {} //campos que serão mostrados na enchoice
Local aAlterEnch := {"A1_COD", "A1_NOME"} //habilita estes campos para edição
Local aField := {}
Local aFolder := {"Cadastrais","Adm/Fin.", "Fiscais", "Vendas"}
Local cSvAlias := Alias()
DbSelectArea("SX3")
DbSetOrder(1)
DbSeek(cAlias)
// Exemplo da estrutura do array aField
//Aadd(aField, {"Codigo", "A1_COD", "C", 6, 0, "@!", 'IIF(Empty(M->A1_LOJA),.T.,ExistChav("SA1",M->A1_COD+M->A1_LOJA,,"EXISTCLI"))', .F., 1, "", "", "", .F., .F., "", 1, .F., "", "S"})
//Aadd(aField, {"campo 1", "CAMPO_1", "N", 6, 2, "@E 999.99", '', .F., 1, "", "", "", .F., .F., "", 1, .F., "", "S"})
//M->CAMPO_1 := 156
While !Eof() .And. SX3->X3_ARQUIVO == cAlias
If !(SX3->X3_CAMPO $ "A1_FILIAL") .And. X3Uso(SX3->X3_USADO)
AADD(aCpoEnch,SX3->X3_CAMPO)
EndIf
IF Alltrim(SX3->X3_CAMPO) $ "A1_COD|A1_NOME|A1_DESC|A1_COND|A1_ENDCOB|A1_ENDENT"
Aadd(aField, {X3TITULO(),; // [1] - Titulo
SX3->X3_CAMPO,; // [2] - campo
SX3->X3_TIPO,; // [3] - Tipo
SX3->X3_TAMANHO,; // [4] - Tamanho
SX3->X3_DECIMAL,; // [5] - Decimal
SX3->X3_PICTURE,; // [6] - Picture
SX3->X3_VALID,; // [7] - Valid
.F.,; // [8] - Obrigat
SX3->X3_NIVEL,; // [9] - Nivel
SX3->X3_RELACAO,; // [10]- Inicializador Padrão
SX3->X3_F3,; // [11]- F3
SX3->X3_WHEN,; // [12]- when
.F.,; // [13]- visual
.F.,; // [14]- chave
SX3->X3_CBOX,; // [15]- box
Val(SX3->X3_FOLDER),; // [16]- folder
.F.,; // [17]- nao alteravel
SX3->X3_PICTVAR,; // [18]- pictvar
SX3->X3_TRIGGER}) // [19]- gatilho
EndIf
DbSkip()
End
DEFINE MSDIALOG oDlg TITLE "Teste MsmGet" FROM 0,0 TO 355,600 PIXEL
oDlg:lMaximized := .T.
RegToMemory(cAlias, If(nOpc==3,.T.,.F.))
If lSX3
//exemplo de utilização da enchoice lendo as informações do SX3 - quando a variável lSX3 for .T.
oEnch := MsmGet():New(cAlias,nReg,nOpc,/*aCRA*/,/*cLetras*/,/*cTexto*/,aCpoEnch,aPos,aAlterEnch,;
/*nModelo*/,/*nColMens*/,/*cMensagem*/, /*cTudoOk*/,oDlg,/*lF3*/,lMemoria,/*lColumn*/,;
/*caTela*/,/*lNoFolder*/,/*lProperty*/,/*aField*/,/*aFolder*/,/*lCreate*/,;
/*lNoMDIStretch*/,/*cTela*/)
Else
//exemplo de utilização da enchoice por array
oEnch := MsmGet():New(,,nOpc,/*aCRA*/,/*cLetras*/,/*cTexto*/,aCpoEnch,aPos,aAlterEnch,/*nModelo*/,;
/*nColMens*/,/*cMensagem*/, /*cTudoOk*/,oDlg,/*lF3*/,lMemoria,/*lColumn*/,/*caTela*/,;
/*lNoFolder*/,/*lProperty*/,aField,aFolder,lCreate,/*lNoMDIStretch*/,/*cTela*/)
EndIf
oEnch:oBox:align := CONTROL_ALIGN_ALLCLIENT
ACTIVATE MSDIALOG oDlg CENTER ON INIT EnchoiceBar(oDlg,{|| oDlg:End()},{|| oDlg:End()},,,,.F.,.F.)
If !Empty(cSvAlias)
DbSelectArea(cSvAlias)
EndIf
return
|
