TDOLPHIN atribuir valor a objeto

Post Reply
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

TDOLPHIN atribuir valor a objeto

Post by MGA »

Como posso atribuir um valor a objeto da tdolphin?

estou fazendo assim, mais nao funciona:

nLenImportar := oProdutoImportar:Fcount()
nLenRow := oRow:Fcount()

for x := 1 to nLenImportar
for y := 1 to nLenRow
if Alltrim(oProdutoImportar : FieldName( x )) == Alltrim(oRow : FieldName( y ))
cVar := Alltrim(oRow : FieldName( y ))
? oRow : FieldGet( y ) //valor antes
oRow : &(cVar) := oProdutoImportar : FieldGet( x )
? oRow : FieldGet( y ) //valor depois
exit
endif
next
next

O código acima nao funciona :shock:
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
cmsoft
Posts: 653
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: TDOLPHIN atribuir valor a objeto

Post by cmsoft »

Prueba

Code: Select all

oRow := oProdutoImportar:GetRowObj()
 
Luego puedes asignarle a la query si lo quieres grabar

Code: Select all

oProdutoImportar:oRow := oRow
oProdutoImportar:Save()
 
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: TDOLPHIN atribuir valor a objeto

Post by MGA »

obrigado Cesar Gomez
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
Post Reply