TDOLPHIN atribuir valor a objeto

TDOLPHIN atribuir valor a objeto

Postby MGA » Sat Dec 22, 2018 2:53 pm

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

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: TDOLPHIN atribuir valor a objeto

Postby cmsoft » Sat Dec 22, 2018 4:55 pm

Prueba
Code: Select all  Expand view

oRow := oProdutoImportar:GetRowObj()
 

Luego puedes asignarle a la query si lo quieres grabar
Code: Select all  Expand view

oProdutoImportar:oRow := oRow
oProdutoImportar:Save()
 
User avatar
cmsoft
 
Posts: 1204
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: TDOLPHIN atribuir valor a objeto

Postby MGA » Thu Dec 27, 2018 10:21 am

obrigado Cesar Gomez
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 33 guests