Sintax error

[wartiaga]

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 ]))))))})

[carlos vargas]

Code: Select all  Expand view  RUN

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
 

[wartiaga]

Code: Select all  Expand view  RUN

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!

[AntoninoP]

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 ],))))))})

[wartiaga]

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!