Tbrowse anterior:
oTBrowse := { ;
{ " ", { | cStatus | cStatus := PedidoStatus( :Number( "IDPEDIDO" ), ;
:String( "PDSTATUS", 1 ), :String( "PDCONF", 1 ) ), ;
iif( "NF." $ cStatus .OR. ( "COMPRA" $ :String( "TRANSACAO", 12 ) .AND. :String( "PDCONF", 1 ) == "S" ), " ", ;
iif( "FATURAR" $ cStatus, Chr(2), Chr(2) ) ) }, ;
{ | cStatus | cStatus := PedidoStatus( :Number( "IDPEDIDO" ), ;
:String( "PDSTATUS", 1 ), :String( "PDCONF", 1 ) ), ;
iif( "NF." $ cStatus, { 9, 1 }, ;
iif( "FATURAR" $ cStatus, { 8, 1 }, { 7, 1 } ) ) } }, ;
{ "PEDIDO", { || Str( :Number( "IDPEDIDO" ), 6 ) } }, ;
{ "D.PEDIDO", { || :Date( "PDDATEMI" ) } }, ;
{ "CLIENTE", { || StrZero( :Number( "ZEROCADASTRO" ), 6 ) + " " + :String( "NOME", 30 ) } }, ;
{ "NF", { || Str( :Number( "FILIAL" ), 2 ) + "." + Str( :Number( "ZERONOTFIS" ), 9 ) } }, ;
{ "SITUAÇÃO", { || Pad( PedidoStatus( :Number( "IDPEDIDO" ), :String( "PDSTATUS", 1 ), :String( "PDCONF", 1 ) ), 10 ) } }, ;
{ "TRANSAÇÃO", { || :String( "TRANSACAO", 12 ) } }, ;
{ "VAL.NF", { || Transform( :Number( "PDVALNOT" ), "999,999,999.99" ) } } }
BrowseADO( cnSQL, oTBrowse, "NOME,ZERONOTFIS,ZEROCADASTRO", { || Str( :Number( "IDPEDIDO" ), 6 ) } )
:CloseRecordset()
TBrowse após alteração
oTBrowse := { ;
{ " ", iif( "NF." $ :String( "STATUS" ) .OR. ( "COMPRA" $ :String( "TRANSACAO" ) .AND. :String( "PDCONF", 1 ) == "S" ), " ", ;
iif( "FATURAR" $ :String( "STATUS" ), Chr(2), Chr(2) ) ), ;
{ || iif( "NF." $ :String( "STATUS" ), { 9, 1 }, ;
iif( "FATURAR" $ :String( "STATUS" ), { 8, 1 }, { 7, 1 } ) ) } }, ;
{ "PEDIDO", { || Str( :Number( "IDPEDIDO" ), 6 ) } }, ;
{ "D.PEDIDO", { || :Date( "PDDATEMI" ) } }, ;
{ "CLIENTE", { || StrZero( :Number( "ZEROCADASTRO" ), 6 ) + " " + :String( "NOME", 30 ) } }, ;
{ "NF", { || Str( :Number( "FILIAL" ), 2 ) + "." + Str( :Number( "ZERONOTFIS" ), 9 ) } }, ;
{ "SITUAÇÃO", { || :String( "STATUS", 10 ) } }, ;
{ "TRANSAÇÃO", { || :String( "TRANSACAO", 12 ) } }, ;
{ "VAL.NF", { || Transform( :Number( "PDVALNOT" ), "999,999,999.99" ) } } }
BrowseADO( cnSQL, oTBrowse, "NOME,ZERONOTFIS,ZEROCADASTRO", { || Str( :Number( "IDPEDIDO" ), 6 ) } )
Sei lá...
Como já estava um pouco otimizado, parece que em fonte não aliviou muito.
Em parte estava otimizado com uma prévia:
{ | cStatus | cStatus := ..., ... }
Com isso, eu usava uma variável temporária pra não ter que ficar repetindo.
Mas eliminou PedidoStatus( nIdPedido, pdStatus, pdconf ).