Ao carregar o grid na tela traz a primeira linha em branco, sempre. Estou executando com uma query.
fwbrowse carrega a primeira linha em branco
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
3 respostas
-
-
-
Olá pessoal, estou com a mesma situação aqui.
Segue o fonte do protótipo de uma tela que usa FwDialogModal com FWBrowse.
/*/{Protheus.doc} CriaBrowse Função que monta o browse dos itens do pedido. @type Static Function @author Tiago Ajala @since 17/05/2024 @param (nNumPed) Número do pedido de venda @return /*/ Static Function CriaBrowse(nNumPed) LocaL aFields := {} as array LocaL aColumns := {} as array Local nIndex as numeric Local cQuery as char Local nTamCampo as numeric cQuery := "SELECT C6_ITEM, C6_PRODUTO, C6_DESCRI, C6_PRCVEN " cQuery += "FROM " + RetSqlName("SC6") + " SC6 " cQuery += "WHERE D_E_L_E_T_ <> '*' AND C6_NUM = '"+nNumPed+"' " cAliasQry := MpSysOpenQuery(cQuery) // Define os parâmetros do browse oBrowse := FWBrowse():New() oBrowse:SetDataTable(.T.) oBrowse:SetAlias(cAliasQry) oBrowse:DisableFilter() oBrowse:DisableLocate() oBrowse:DisableSeek() oBrowse:DisableReport() oBrowse:SetOwner(oPanel3) oBrowse:SetDescription("Produtos divergentes") // Define os campos aAdd(aFields, {"C6_ITEM", "Item"}) aAdd(aFields, {"C6_PRODUTO", "Produto"}) aAdd(aFields, {"C6_DESCRI", "Descrição"}) aAdd(aFields, {"C6_PRCVEN", "Prc. Venda"}) // Monta as colunas do browse for nIndex := 1 to LEN(aFields) AAdd(aColumns, FWBrwColumn():New()) nTamCampo := TamSx3(aFields[nIndex, 1])[1] aColumns[Len(aColumns)]:SetData(&("{|| " + aFields[nIndex, 1] + "}")) aColumns[Len(aColumns)]:SetTitle(aFields[nIndex, 2]) aColumns[Len(aColumns)]:SetSize(nTamCampo) aColumns[Len(aColumns)]:SetID(aFields[nIndex, 1]) if aFields[nIndex, 1] == 'C6_PRCVEN' aColumns[Len(aColumns)]:SetPicture("@E 999,999.9999") endif next // Seta as colunas e ativa o browse oBrowse:SetColumns(aColumns) oBrowse:Activate() Return-
Estou com o mesmo problema, conseguiu encontrar uma solução?
— Pablo Henrique Ribeiro da Silva 28 de May de 2024 -
Acho que essa classe FWBrowse está com algum problema. Estou no protheus 12.1.2310. Mudei a inicialização do browse para FWMBrowse():New() e funciona normal, sem aparecer a linha em branco... O ideal seria a usar a FWBrowse, mas não achei solução para ela.
— Tiago Ajala 28 de May de 2024 -
Consegui aqui utilizando a classe FWBrowse, alterei a função removendo o oBrowse:SetDataTable(.T.) para oBrowse:SetDataQuery() e utilizei a função SetQuery("SUA CONSULTA"), após realizar essa alteração deu certo o carregamento e não ficou com a primeira linha em branco.
— Pablo Henrique Ribeiro da Silva 28 de May de 2024
-
poderia compartilhar o fonte na parte que estaria criando sua grid?
— Tauani Vitória 15 de Sep de 2023