Clipper On Line

PESSOAL PRECISO PEGAR TODOS OS ITENS QUE COLOQUEI NA GRID NA SUA ORDEM E GRAVAR NUM BANCO DE DADOS
PEGAR O TOTAL CONSEGUI ITEMCOUNT

ola

Function Grava_Imprimi_Pedido(ss,xtipo)
Local i := Pedidos.Grid_1.ItemCount , aTemp

While .t.
         For x:= 1 To i
             If Adireg('Pedidocp', 10)
               aTemp := Pedidos.Grid_1.Item(x) \\aqui a primeira linha do grid
               Replace npedido    With StrZero(xnp,6)
               Replace firma      With Pedidos.Text_2.Value
               Replace data       With Pedidos.DatePicker_1.Value
               Replace vendedor   With Pedidos.Text_12.Value
               Replace codigo     With StrZero(Val(aTemp[1]), 6) \\aqui o primeiro campo do grid
               Replace soma       With Val(aTemp[5]) \\aqui o quinto campo do grid
               Replace mercadoria With aTemp[3] \\aqui o terceiro campo do grid
               Replace quant      With Val(aTemp[2]) \\aqui o segundo campo do grid
               Replace preco      With Val(aTemp[4]) \\aqui o quarto campo do grid
               DBUnLock()
              DBCommit()
            Else
               MsgInfo("Aguarde Banco de Dados em Uso")
            EndIf
         Next x
         Exit
    End