PC Toledo

Código: Selecionar todos

       @ 13,070 BROWSE oBrw1 DATABASE SIZE 1160,310 STYLE WS_TABSTOP     ;
                ON POSCHANGE {|| EVAL(oBrw2:bFirst), ESTOQUE_onPosChange(), oBrw2:Refresh(), oDlg_Busca:Refresh() }

       oBrw1:nHeadHeight := 25
       oBrw1:alias       := 'xESTOQUE'
       oBrw1:nColumns    := 14
       oBrw1:freeze      := 1
       oBrw1:lDispHead   := .T.
       oBrw1:lSep3d      := .T.
       oBrw1:lAdjRight   := .F.
.....
.....
       SELECT (oBrw1:alias)
       @ 13,390 BROWSE oBrw2 DATABASE SIZE 960,200 STYLE WS_TABSTOP AUTOEDIT                      ;
                FIRST {|| XARDEX->( DBSEEK(xESTOQUE->(SUBSTR(DESCRICAO,1,49)), .F.) ) }           ;
                WHILE {|| XARDEX->(SUBSTR(DESCRICAO,1,49)) == xESTOQUE->(SUBSTR(DESCRICAO,1,49))} ;
                ON UPDATE {|| kardex_onPosChange() }

       oBrw2:nHeadHeight := 24
       oBrw2:alias       := 'xARDEX'
       oBrw2:nColumns    := 4
       Obrw2:freeze      := 1

       SELECT (oBrw2:alias)

Código: Selecionar todos

     
     aVetorPai é o vetor populado a partir de sua tabela, onde axESTOQUE := { {"123", "ABC" }} valores da sua tabela DBF

     aVetorPai := {}
       
     DO WHILE ! EOF()
        aAdd( aVetorPai, {CAMPO1,CAMPO2}) CAMPO DO DBF
     ENDDO

     aVetorFilho := {}
     
     DO WHILE ! EOF()
        aAdd( aVetorFilho, {CAMPO1,CAMPO2}) CAMPO DO DBF
     ENDDO
              
     @ 13,070 BROWSE oBrw1 DATABASE SIZE 1160,310 STYLE WS_TABSTOP 

       oBrw1:nHeadHeight := 25
       oBrw1:aArray      := aVetorPai
       oBrw1:nColumns    := 14
       oBrw1:freeze      := 1
       oBrw1:lDispHead   := .T.
       oBrw1:lSep3d      := .T.
       oBrw1:lAdjRight   := .F.
       
       Carregar a GRID  a partir do dbf

       Não precisa atribuir na grid filho, quem fará isso é o change da primeira grid
              
.....
.....
       @ 13,390 BROWSE oBrw2 DATABASE SIZE 960,200 STYLE WS_TABSTOP AUTOEDIT 
   
       oBrw2:nHeadHeight := 24
       oBrw2:aArray      := {}
       oBrw2:nColumns    := 4
       Obrw2:freeze      := 1

       No change da primeira grid carregar a segunda grid

       nCurrent := oBrw1:nCurrent

       cDescricao := oBrw1:aArray[nCurrent,iPosicao] //iPosicao é a coluna onde está a descrição

       LOOP para popular a segunda grid a partir da primeira

       aGridFilho := {}

       FOR EACH oElemento IN aVetorFilho
          IF oElemento[iPosDescricao] = cDescricao //
             aAdd( aGridFilho, { oElemento[1], oElemento[2], oElemento[3], oElemento[4] } )
          ENDIF
      NEXT 
      
      oBrw2:aArray := aGridFilho 
      
      oBrw2:Refresh()

Código: Selecionar todos

Ou, no change da grid principal, fazer um seek na tabela que quer carregar os registros e popular a grid filha, tipo

No change da grid principal

aGridFilha := {}

nCurrent := gridprincipal:nCurrent

seek gridprincipal:aArray[nCurrent, coluna)

do while ! eof() .and. campox  = gridprincipal:aArray[nCurrent, coluna)
   aAdd( aGridFilha, {campo1, campo2}
   skip
enddo

GridFilha:aArray := aGridFilha
GridFilha:Refresh()

Código: Selecionar todos

   browse...
   ON POSCHANGE {||UpGet(nKey,oBrwItens),oBrwNFe:SetFocus()}
...
Static Function UpGet(nKey,oBrwItens)
...
            sb->(OrdSetFocus(1))
            sb->(OrdScope(0,cNF+cModel))
            sb->(OrdScope(1,cNF+cModel))
...