- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Construcao do FWMarkBrowse
×
Linguagem de Programação ADVPL
Perguntas Construcao do FWMarkBrowse
- Sombra
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
11 anos 1 mês atrás #17326
por Sombra
Construcao do FWMarkBrowse foi criado por Sombra
Boa tarde Srs.
.Tenho uma Tabela denominada SZT, ao qual estou montando um FWMarkBrowse para selecao de alguns campos dessa tabela.
O que ocorre e que eu estou Selecionando 9 REGISTRO dessa Tabela, para serem Visualizados no FWMarkBrowse, embora a Tabela SZT, possua mais campos, mas nao significativos para essa Rotina.
O que estar acontecendo e mesmo eu Especificando no ARRAY aCpos os campos que quero que aperecam, o sistema estar me Trazendo TODOS OS CAMPOS DA TABELA SZT, so que eu so quero na realidade os 9 Campos no vetor aCpos.
Alguma ai ja passou por essa situacao
dbSelectArea("SZT")
dbSetOrder(1)
aCpos := {}
aAdd(aCpos,{"ZT_XITEM" ,,"Nº ITEMNr" ,PesqPict("SZT","ZT_XITEM")})
aAdd(aCpos,{"ZT_XCODAM" ,,"Cod.Prod. AM" ,PesqPict("SZT","ZT_XCODAM")})
aAdd(aCpos,{"ZT_XCODFS" ,,"Cod.Prod FS" ,PesqPict("SZT","ZT_XCODFS")})
aAdd(aCpos,{"ZT_XOSVAM" ,,"Nº O.S" ,PesqPict("SZT","ZT_XOSVAM")})
aAdd(aCpos,{"ZT_XDTEMI" ,,"Data Emissao" ,PesqPict("SZT","ZT_XDTEMI")})
aAdd(aCpos,{"ZT_XCODCLI" ,,"Cod.Cliente" ,PesqPict("SZT","ZT_XCODCLI")})
aAdd(aCpos,{"ZT_XLOJA" ,,"Loja" ,PesqPict("SZT","ZT_XLOJA")})
aAdd(aCpos,{"ZT_XCODRG" ,,"Status" ,PesqPict("SZT","ZT_XCODRG")})
aAdd(aCpos,{"ZT_XQTDVD" ,,"Qtdade Pedido" ,PesqPict("SZT","ZT_XQTDVD")})
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Construcao do MarkBrowse ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
oMark:= FWMarkBrowse():NEW() // Cria o objeto oMark - MarkBrowse
oMark:SetAlias("SZT") // Define a tabela do MarkBrowse
oMark:SetDescription(cTitBrow) // Define o titulo do MarkBrowse
oMark:SetFieldMark("ZT_OK") // Define o campo utilizado para a marcacao
oMark:SetFilterDefault(cFilSZT)// Define o filtro a ser aplicado no MarkBrowse
oMark:SetFields(aCpos) // Define os campos a serem mostrados no MarkBrowse
oMark:SetSemaphore(.F.) // Define se utiliza marcacao exclusiva
oMark:DisableDetails() // Desabilita a exibicao dos detalhes do Browse
oMark:Activate() // Ativa o MarkBrowse
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Restaura condicao original ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SZT")
RetIndex("SZT")
dbClearFilter()
aRotina := ACLONE(aBkRotina)
Return
.Tenho uma Tabela denominada SZT, ao qual estou montando um FWMarkBrowse para selecao de alguns campos dessa tabela.
O que ocorre e que eu estou Selecionando 9 REGISTRO dessa Tabela, para serem Visualizados no FWMarkBrowse, embora a Tabela SZT, possua mais campos, mas nao significativos para essa Rotina.
O que estar acontecendo e mesmo eu Especificando no ARRAY aCpos os campos que quero que aperecam, o sistema estar me Trazendo TODOS OS CAMPOS DA TABELA SZT, so que eu so quero na realidade os 9 Campos no vetor aCpos.
Alguma ai ja passou por essa situacao
dbSelectArea("SZT")
dbSetOrder(1)
aCpos := {}
aAdd(aCpos,{"ZT_XITEM" ,,"Nº ITEMNr" ,PesqPict("SZT","ZT_XITEM")})
aAdd(aCpos,{"ZT_XCODAM" ,,"Cod.Prod. AM" ,PesqPict("SZT","ZT_XCODAM")})
aAdd(aCpos,{"ZT_XCODFS" ,,"Cod.Prod FS" ,PesqPict("SZT","ZT_XCODFS")})
aAdd(aCpos,{"ZT_XOSVAM" ,,"Nº O.S" ,PesqPict("SZT","ZT_XOSVAM")})
aAdd(aCpos,{"ZT_XDTEMI" ,,"Data Emissao" ,PesqPict("SZT","ZT_XDTEMI")})
aAdd(aCpos,{"ZT_XCODCLI" ,,"Cod.Cliente" ,PesqPict("SZT","ZT_XCODCLI")})
aAdd(aCpos,{"ZT_XLOJA" ,,"Loja" ,PesqPict("SZT","ZT_XLOJA")})
aAdd(aCpos,{"ZT_XCODRG" ,,"Status" ,PesqPict("SZT","ZT_XCODRG")})
aAdd(aCpos,{"ZT_XQTDVD" ,,"Qtdade Pedido" ,PesqPict("SZT","ZT_XQTDVD")})
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Construcao do MarkBrowse ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
oMark:= FWMarkBrowse():NEW() // Cria o objeto oMark - MarkBrowse
oMark:SetAlias("SZT") // Define a tabela do MarkBrowse
oMark:SetDescription(cTitBrow) // Define o titulo do MarkBrowse
oMark:SetFieldMark("ZT_OK") // Define o campo utilizado para a marcacao
oMark:SetFilterDefault(cFilSZT)// Define o filtro a ser aplicado no MarkBrowse
oMark:SetFields(aCpos) // Define os campos a serem mostrados no MarkBrowse
oMark:SetSemaphore(.F.) // Define se utiliza marcacao exclusiva
oMark:DisableDetails() // Desabilita a exibicao dos detalhes do Browse
oMark:Activate() // Ativa o MarkBrowse
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Restaura condicao original ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SZT")
RetIndex("SZT")
dbClearFilter()
aRotina := ACLONE(aBkRotina)
Return
Por favor Acessar ou Registrar para participar da conversa.
- Sombra
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
11 anos 1 mês atrás #17381
por Sombra
Respondido por Sombra no tópico Construcao do FWMarkBrowse
Pessoal a solução e a seguinte:
oMark:SetOnlyFields( { 'ZT_XITEM', 'ZT_XCODAM', 'ZT_XCODFS','ZT_XOSVAM','ZT_XDTEM','ZT_XCODCL','"ZT_XLOJA' } )
Obs.: No dicionatio de Dados e Necessario que os campos estejam marcados como que fazem parte do BROWSER
oMark:SetOnlyFields( { 'ZT_XITEM', 'ZT_XCODAM', 'ZT_XCODFS','ZT_XOSVAM','ZT_XDTEM','ZT_XCODCL','"ZT_XLOJA' } )
Obs.: No dicionatio de Dados e Necessario que os campos estejam marcados como que fazem parte do BROWSER
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Construcao do FWMarkBrowse
Tempo para a criação da página:0.097 segundos