Grid

[rcb2002]

Mais uma pergunta:
Nunca consigo colocar valores na primeira linha do Grid (isso não acontecia antes). Na primeira informação e ele estando em branco, ao invés de preencher a primeira linha do Grid, começa pela segunda. A partir daí, segue normalmente. O trecho do código é esse aí:

Código: Selecionar todos

IF !EMPTY(Fm_Orca.Text_2.Value)
	IF !EMPTY(Fm_Orca.Text_4.Value)
		ADD ITEM {	"" , ;
		   Fm_Orca.Text_2.Value, ;
		   ALLTRIM (STR (Fm_Orca.Text_4.Value)), ;
	 	   ALLTRIM( STR( ROUND(Fm_Orca.Text_3.Value,2))), ;
	 	   ALLTRIM( STR( ROUND(nTTParcial,2))), ;
		   Fm_Orca.Text_1.Value } ;
		TO Grid_1 OF Fm_Orca
		Fm_Orca.Text_15.Value := ALLTRIM ( STR (ROUND(nTTGeral,2) ))
		Fm_Orca.Label_5.Value := ALLTRIM ( STR (ROUND(nTTGeral,2) ))

		Fm_Orca.Text_14.Value := ""
		Fm_Orca.Text_1.Value  := ""
		Fm_Orca.Text_2.Value  := ""
		Fm_Orca.Text_3.Value  := ""
		Fm_Orca.Text_4.Value  := 0
		Fm_Orca.Text_14.SetFocus
	ELSE
		MSGINFO ( "Preencha a QUANTIDADE!", "Atenção:" )
	ENDIF
ELSE
	MSGINFO ( "Produto não encontrado!", "Atenção:" )
ENDIF

Grato mais uma vez.

[Pablo César]

Assim com tão pouco código não dá para ter uma visão geral da coisa. Na minha opinião, faltou mostrar como você compõe a matriz, se ela está vazia ou como você criou. Se o primeiro registro do Grid nunca é adicionado, é porque ja deve existir um vazio (estou chutando, não dá pra saber sem o código desse módulo).

[Toledo]

Amigo, o que pode estar ocorrendo é que o Grid já tá vindo com um item vazio, então tenta deletar todos os itens do grid antes. Use o comando DELETE ITEM ALL FROM Grid_1 OF Fm_Orca antes de adicionar os itens no Grid.

Abraços,

[rcb2002]

Cara, voces sao mesmo um oraculo. Resolvido o problema que persistia a meses!!!
Mais uma vez, obrigado. Agora so falta uma e eu me aquieto!