Perguntas Vendas com reserva de materiais

Brother tem certeza que tem saldo na sb2 no mesmo armazen, a função usa SaldoSb2() normal.

cProduto := aCols[n][nPosProd]
cLocal := aColsDet[n][nPosDtLocal]

DbSelectArea( "SB1" )
DbSeek( xFilial() + cProduto )

DbSelectArea( "SB2" )
DbSeek( xFilial() + cProduto + cLocal )

DbSelectArea( "SB0" )
DbSeek( xFilial() + cProduto )

DbSelectArea( "SB9" )
DbSeek( xFilial() + cProduto + cLocal )

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Desabilita as teclas de atalho ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
FTVDSetKeys(.F.)

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Mostra dados do Produto. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
DEFINE MSDIALOG oEstoque FROM 10, 16 TO 29, 73.5 TITLE STR0060; //"Consulta Estoque"
STYLE nOr( DS_MODALFRAME, WS_DLGFRAME ) OF oDlgVA

//ÚÄÄÄÄÄÄÄÄ¿
//³ Dados ³
//ÀÄÄÄÄÄÄÄÄÙ
@ 8, 2 TO 43, 187 OF oEstoque PIXEL
@ 51, 2 TO 70, 187 OF oEstoque PIXEL
@ 76, 2 TO 135, 187 OF oEstoque PIXEL

@ 4, 2 SAY STR0061 SIZE 56, 7 OF oEstoque PIXEL // Dados do Produto:
@ 16, 4 SAY STR0062 SIZE 21, 7 OF oEstoque PIXEL // C¢digo
@ 15, 26 MSGET SB1->B1_COD SIZE 49, 9 OF oEstoque PIXEL When .F.
@ 16, 83 SAY STR0063 SIZE 25, 7 OF oEstoque PIXEL // Unidade
@ 15, 110 MSGET SB1->B1_UM SIZE 14, 9 OF oEstoque PIXEL When .F.
@ 16, 137 SAY STR0064 SIZE 18, 7 OF oEstoque PIXEL // Grupo
@ 15, 158 MSGET SB1->B1_GRUPO SIZE 14, 9 OF oEstoque PIXEL When .F.
@ 30, 4 SAY STR0065 SIZE 32, 7 OF oEstoque PIXEL // Descri‡Æo
@ 29, 36 MSGET SB1->B1_DESC SIZE 130, 9 OF oEstoque PIXEL When .F.
@ 40, 335 TO 40, 335 OF oEstoque PIXEL
@ 46, 3 SAY STR0066 + cLocal SIZE 60, 7 OF oEstoque PIXEL // "Estoque - Armazém "

//ÚÄÄÄÄÄÄÄÄ¿
//³ Saldo ³
//ÀÄÄÄÄÄÄÄÄÙ
@ 57, 4 SAY STR0067 SIZE 21, 7 OF oEstoque PIXEL // Inicial
@ 56, 25 MSGET SB9->B9_QINI Picture PesqPict("SB9","B9_QINI") SIZE 49, 9 OF oEstoque PIXEL When .F.
@ 57, 89 SAY STR0068 SIZE 18, 7 OF oEstoque PIXEL // Atual
@ 56, 107 MSGET SaldoSb2() Picture PesqPict("SB2","B2_QATU") SIZE 49, 9 OF oEstoque PIXEL When .F.