FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Sintax error
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Sintax error
Posted: Tue Mar 12, 2019 04:48 PM

Hi,

Can you help me about this code sintax? The compiler results ")" error. Thanks in advance.

oFrPrn:SetUserDataSet( "aClientes", cFld,;
{ || nAt := 1, EVAL( bResync, nAt ) },;
{ || nAt++, EVAL( bResync, nAt ) },;
{ || nAt--, EVAL( bResync, nAt ) },;
{ || nAt > LEN( aClientes ) },;
{ |cFld| iif( cFld == "Codigo", aClientes[ nAt, 1 ],;
iif( cFld == "Nome", aClientes[ nAt, 2 ],;
iif( cFld == "Endereco", aClientes[ nAt, 3 ],;
iif( cFld == "Bairro", aClientes[ nAt, 4 ],;
iif( cFld == "Cidade", aClientes[ nAt, 5 ],;
iif( cFld == "Uf", aClientes[ nAt, 6 ]))))))})

Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Sintax error
Posted: Tue Mar 12, 2019 05:44 PM
Code (fw): Select all Collapse
oFrPrn:SetUserDataSet( "aClientes", cFld,;
{ || nAt := 1, EVAL( bResync, nAt ) },;
{ || nAt++   , EVAL( bResync, nAt ) },;
{ || nAt--   , EVAL( bResync, nAt ) },;
{ || nAt > LEN( aClientes )         },;
{ |cFld| Test1( cFld, nAt ) } )


static function Test1(cFld,nAt)
 local uRet
 do case
 case cFld == "Codigo"
  uRet = aClientes[ nAt, 1 ]
 case cFld == "Nome"
  uRet = aClientes[ nAt, 2 ]
 case cFld == "Endereco"
  uRet = aClientes[ nAt, 3 ]
 case cFld == "Bairro"
  uRet = aClientes[ nAt, 4 ]
 case cFld == "Cidade"
  uRet = aClientes[ nAt, 5 ]
 case cFld == "Codigo"
  uRet = aClientes[ nAt, 6 ]
 endcase
return uRet
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Re: Sintax error
Posted: Tue Mar 12, 2019 07:52 PM
carlos vargas wrote:
Code (fw): Select all Collapse
oFrPrn:SetUserDataSet( "aClientes", cFld,;
{ || nAt := 1, EVAL( bResync, nAt ) },;
{ || nAt++   , EVAL( bResync, nAt ) },;
{ || nAt--   , EVAL( bResync, nAt ) },;
{ || nAt > LEN( aClientes )         },;
{ |cFld| Test1( cFld, nAt ) } )


static function Test1(cFld,nAt)
 local uRet
 do case
 case cFld == "Codigo"
  uRet = aClientes[ nAt, 1 ]
 case cFld == "Nome"
  uRet = aClientes[ nAt, 2 ]
 case cFld == "Endereco"
  uRet = aClientes[ nAt, 3 ]
 case cFld == "Bairro"
  uRet = aClientes[ nAt, 4 ]
 case cFld == "Cidade"
  uRet = aClientes[ nAt, 5 ]
 case cFld == "Codigo"
  uRet = aClientes[ nAt, 6 ]
 endcase
return uRet


Thank you!
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Re: Sintax error
Posted: Wed Mar 13, 2019 11:35 AM
In your original code is missing the second part of last iif,

oFrPrn:SetUserDataSet( "aClientes", cFld,;
{ || nAt := 1, EVAL( bResync, nAt ) },;
{ || nAt++, EVAL( bResync, nAt ) },;
{ || nAt--, EVAL( bResync, nAt ) },;
{ || nAt > LEN( aClientes ) },;
{ |cFld| iif( cFld == "Codigo", aClientes[ nAt, 1 ],;
iif( cFld == "Nome", aClientes[ nAt, 2 ],;
iif( cFld == "Endereco", aClientes[ nAt, 3 ],;
iif( cFld == "Bairro", aClientes[ nAt, 4 ],;
iif( cFld == "Cidade", aClientes[ nAt, 5 ],;
iif( cFld == "Uf", aClientes[ nAt, 6 ],))))))})
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Re: Sintax error
Posted: Wed Mar 13, 2019 02:19 PM
AntoninoP wrote:In your original code is missing the second part of last iif,

oFrPrn:SetUserDataSet( "aClientes", cFld,;
{ || nAt := 1, EVAL( bResync, nAt ) },;
{ || nAt++, EVAL( bResync, nAt ) },;
{ || nAt--, EVAL( bResync, nAt ) },;
{ || nAt > LEN( aClientes ) },;
{ |cFld| iif( cFld == "Codigo", aClientes[ nAt, 1 ],;
iif( cFld == "Nome", aClientes[ nAt, 2 ],;
iif( cFld == "Endereco", aClientes[ nAt, 3 ],;
iif( cFld == "Bairro", aClientes[ nAt, 4 ],;
iif( cFld == "Cidade", aClientes[ nAt, 5 ],;
iif( cFld == "Uf", aClientes[ nAt, 6 ],))))))})


Thank you AntoninoP!

Continue the discussion