...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function myBulk()
Local oBulk as object
Local aStruct as array
Local nX as numeric
aStruct := {}
aAdd( aStruct, { 'FIELD1', 'C', 10, 0 } )
aAdd( aStruct, { 'FIELD2', 'N', 10, 2 } )
aAdd( aStruct, { 'FIELD3', 'M', 10, 0 } )
aAdd( aStruct, { 'FIELD4', 'D', 8, 0 } )
aAdd( aStruct, { 'FIELD5', 'L', 1, 0 } )
FWDBCreate( 'BULKTBL', aStruct , 'TOPCONN' , .T.)
oBulk := FwBulk():New('BULKTBL',2)
oBulk:SetFields(aStruct)
For nX := 1 to 5
oBulk:AddData({cValToChar(nX),(nX,nX),cValToChar(nX),Date(),mod(nX,2)==0})
Next
oBulk:Close()
oBulk:Destroy()
oBulk := nil
Return
|