Page 1 of 1
Sintax error
Posted: Tue Mar 12, 2019 4:48 pm
by 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 ]))))))})
Re: Sintax error
Posted: Tue Mar 12, 2019 5:44 pm
by carlos vargas
Code: Select all | Expand
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
Re: Sintax error
Posted: Tue Mar 12, 2019 7:52 pm
by wartiaga
carlos vargas wrote:Code: Select all | Expand
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!
Re: Sintax error
Posted: Wed Mar 13, 2019 11:35 am
by 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 ],))))))})
Re: Sintax error
Posted: Wed Mar 13, 2019 2:19 pm
by wartiaga
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!