PC Toledo

Código: Selecionar todos

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