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

Moderador: Moderadores
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
Usuários vendo este fórum: Google [Bot] e 8 visitantes