Macro GSAK Prémios GPS

Caríssimos, nos anos anteriores havia algures uma macro GSAK que marcava um custom field com "PremiosGPS_ano".

Tenho marcadas as caches de 2010 e 2011.
Há disso para as caches de 2012?



#**************************************************************************************************************************************
#premios 2010

$_sql="PRAGMA table_info(Custom)"
$Status=Sqlite("sql",$_sql)
IF At("PremiosGPS2010",$Status)=0
$Create = CustomConfig("Add","PremiosGPS2010,Boolean,Global,,0")
ENDIF

$data="'GC118MA', 'GC11BE', 'GC11CPZ', 'GC11GEN', 'GC11ZJP', 'GC1220J', 'GC126T1', 'GC12CRJ', 'GC12FB1', 'GC12J04', 'GC12RXH', 'GC136QE', 'GC13W5H', 'GC1471Q', 'GC14BRP', 'GC14T2P', 'GC14VBQ', 'GC14XQQ', 'GC14Y15', 'GC157ZG', 'GC158JW', 'GC15NC5', 'GC166KP', 'GC16F1A', 'GC16F2W', 'GC16TVF', 'GC16VMD', 'GC16ZN1', 'GC1704M', 'GC175B6', 'GC176CK', 'GC178D1', 'GC17AT0', 'GC17EWJ', 'GC17G6B', 'GC17JP8', 'GC17NC5', 'GC17TEP', 'GC18F1B', 'GC18HZP', 'GC18TPV', 'GC18Y13', 'GC18ZFT', 'GC1929P', 'GC192D7', 'GC19AJR', 'GC19MKN', 'GC1A3XV', 'GC1A4KZ', 'GC1A63C', 'GC1A65W', 'GC1AHB1', 'GC1B2AD', 'GC1B714', 'GC1B7DZ', 'GC1BET0', 'GC1BR06', 'GC1BRPH', 'GC1C1W9', 'GC1C33P', 'GC1C89', 'GC1CTPG', 'GC1D9NA', 'GC1D9PG', 'GC1DC15', 'GC1DG7T', 'GC1DNXC', 'GC1DW8D', 'GC1DXZJ', 'GC1E568', 'GC1E8D9', 'GC1EA9C', 'GC1EE4Q', 'GC1EFF5', 'GC1EFM0', 'GC1EMTV', 'GC1EYDM', 'GC1EZBA', 'GC1F66R', 'GC1FAE0', 'GC1FCTJ', 'GC1FDPF', 'GC1FKGY', 'GC1FNZ6', 'GC1G6MX', 'GC1GA5H', 'GC1GB4Q', 'GC1GBXR', 'GC1H4NW', 'GC1H6GX', 'GC1HB9Q', 'GC1HFRT', 'GC1HVEE', 'GC1HZYT', 'GC1JQQ3', 'GC1K14D', 'GC1KBBD', 'GC1KXYJ', 'GC1M2GY', 'GC1MB2Y', 'GC1MN4P', 'GC1MPDH', 'GC1MXD2', 'GC1N166', 'GC1N275', 'GC1N29P', 'GC1N9D1', 'GC1NCHH', 'GC1NQJB', 'GC1NR43', 'GC1P9ZV', 'GC1PA73', 'GC1Q295', '"
$data=$data+"GC1Q3GM', 'GC1RC3A', 'GC1RHW4', 'GC1RM1P', 'GC1T6YK', 'GC1T8Z2', 'GC1TX62', 'GC1V8CH', 'GC1V8DF', 'GC1VA2Y', 'GC1VBQK', 'GC1VYMT', 'GC1VZ02', 'GC1W60Y', 'GC1WG8T', 'GC1WGQ5', 'GC1WRND', 'GC1WTMC', 'GC1XFFX', 'GC1XTQ6', 'GC1YD7R', 'GC1YVN8', 'GC1ZM78', 'GC1ZM7H', 'GC1ZM8B', 'GC1ZM8G', 'GC1ZM8V', 'GC1ZMKR', 'GC1ZYF0', 'GC200M7', 'GC2012', 'GC2025', 'GC209F4', 'GC20A70', 'GC20PDZ', 'GC220EF', 'GC22NK4', 'GC22RRH', 'GC22V5F', 'GC238NW', 'GC23D6G', 'GC23GB6', 'GC23NF6', 'GC23P6Q', 'GC24VRE', 'GC250BY', 'GC256DA', 'GC25BB', 'GC25R3X', 'GC260X1', 'GC2633V', 'GC26DTB', 'GC26H16', 'GC26H18', 'GC271Q8', 'GC277BG', 'GC27FGF', 'GC27T15', 'GC2800R', 'GC284A5', 'GC284F2', 'GC29C4F', 'GC2B284', 'GC2B3CZ', 'GC2B4MV', 'GC2B7Q0', 'GC2BH3K', 'GC2BZYQ', 'GC2CC00', 'GC2CD6F', 'GC2CVCP', 'GC2D5XQ', 'GC2D7E2', 'GC2DNH1', 'GC2E26A', 'GC2E4E9', 'GC2E5BN', 'GC2E5TY', 'GC2EAEW', 'GC2FBCC', 'GC2FDNH', 'GC2FWH4', 'GC2HWAH', 'GC2J33F', 'GC2J35H', 'GC2JKTR', 'GC2K9R9', 'GC513F', 'GC54DD', 'GC57A6', 'GC640F', 'GC8522', 'GC88D3', 'GC8C23', 'GC8CFA', 'GC8D56', 'GC9F38', 'GCA14F', 'GCA262', 'GCA2D8', 'GCC353', 'GCD03E', 'GCED4F', 'GCED51', 'GCF508', 'GCGD9A', 'GCGE98', 'GCGEN1', 'GCGGAY', 'GCGMQ7', 'GCGQQ5', 'GCGZCK', 'GCH0Z3', 'GCH42C', 'GCH618', '"
$data=$data+"GCH744', 'GCHJ8R', 'GCHWVE', 'GCJ57Q', 'GCJ790', 'GCJN1H', 'GCJNX5', 'GCK1JY', 'GCK8F1', 'GCKBJ6', 'GCKGCX', 'GCM6WW', 'GCMR9D', 'GCN1A1', 'GCN3EY', 'GCN3NX', 'GCN5ND', 'GCNF9M', 'GCNY87', 'GCP007', 'GCP9A4', 'GCPD17', 'GCPDB6', 'GCPFJA', 'GCPM6J', 'GCPQVX', 'GCPT76', 'GCPZHC', 'GCQ05J', 'GCQHWR', 'GCQKTV', 'GCQNY1', 'GCQQ9H', 'GCQT3R', 'GCQXDH', 'GCR9RW', 'GCRAQA', 'GCRJQR', 'GCRQT1', 'GCRR0E', 'GCRYM3', 'GCTV7D', 'GCTYTF', 'GCV303', 'GCV3TK', 'GCV5AY', 'GCV5JJ', 'GCV6MG', 'GCVJ73', 'GCVQCF', 'GCVRYQ', 'GCVV68', 'GCW1JD', 'GCW2RN', 'GCW5EA', 'GCWDDE', 'GCWKCV', 'GCWPQ8', 'GCX596', 'GCXQ3D', 'GCXQFP', 'GCY37F', 'GCY503', 'GCYKH1', 'GCYNNH', 'GCZ4JT', 'GCZBTH'"


$_sql = "code not in (" + $data + ")"
MFILTER where=$_sql
MACROSET Dialog=Replace VarName=$ReplaceFalse
GLOBALREPLACE Settings=<macro>


$_sql = "code in (" + $data + ")"
MFILTER where=$_sql
MACROSET Dialog=Replace VarName=$ReplaceTrue
GLOBALREPLACE Settings=<macro>

<data> VarName=$ReplaceFalse
[TfmReplace]
cbxFields.Text=PremiosGPS2010
cbxWith.Text=False
edtDate.Text=~Date~
edtString.Text=
rbtAdd.Checked=False
rbtRemove.Checked=False
rbtReplace.Checked=True
rbtSwap.Checked=False
chkClose.Checked=True
rbtAddBefore.Checked=False
<enddata>

<data> VarName=$ReplaceTrue
[TfmReplace]
cbxFields.Text=PremiosGPS2010
cbxWith.Text=True
edtDate.Text=~Date~
edtString.Text=
rbtAdd.Checked=False
rbtRemove.Checked=False
rbtReplace.Checked=True
rbtSwap.Checked=False
chkClose.Checked=True
rbtAddBefore.Checked=False
<enddata>


#**************************************************************************************************************************************
#premios 2011

$_sql="PRAGMA table_info(Custom)"
$Status=Sqlite("sql",$_sql)
IF At("PremiosGPS2011",$Status)=0
$Create = CustomConfig("Add","PremiosGPS2011,Boolean,Global,,0")
ENDIF

$data="'GC1QNZM', 'GC25G1N', 'GC29J16', 'GC29JWE', 'GC2FDQ5', 'GC2FMAR', 'GC2G09W', 'GC2G31Y', 'GC2GB1G', 'GC2GZGT', 'GC2J9ZC', 'GC2JT8C', 'GC2JXHK', 'GC2JZ0Z', 'GC2KA42', 'GC2KAP8', 'GC2KNW4', 'GC2KQ0B', 'GC2KRBM', 'GC2KVM0', 'GC2KVM1', 'GC2KYNQ', 'GC2M4G4', 'GC2M5CE', 'GC2M9GZ', 'GC2MCGV', 'GC2ME03', 'GC2MEA1', 'GC2MG5H', 'GC2MHED', 'GC2MK07', 'GC2MM78', 'GC2MMTQ', 'GC2MN7F', 'GC2MNJC', 'GC2MQR0', 'GC2MTJ0', 'GC2MV81', 'GC2MVW9', 'GC2MWBN', 'GC2MWVE', 'GC2MXC8', 'GC2MXHF', 'GC2MXWQ', 'GC2MYTH', 'GC2MYZR', 'GC2MZ2A', 'GC2MZN9', 'GC2N16A', 'GC2N2QQ', 'GC2N899', 'GC2N98F', 'GC2NCBN', 'GC2NDN5', 'GC2NEJH', 'GC2NEW7', 'GC2NG8W', 'GC2NHVV', 'GC2NJDY', 'GC2NMVB', 'GC2NRQK', 'GC2NTMA', 'GC2NTRJ', 'GC2NW4N', 'GC2NW52', 'GC2NW6Q', 'GC2NW6Z', 'GC2NW78', 'GC2NW7K', 'GC2NXRD', 'GC2NZNE', 'GC2P2PZ', 'GC2P3FY', 'GC2P52E', 'GC2PAWM', 'GC2PB3D', 'GC2PB89', 'GC2PCYK', 'GC2PFCF', 'GC2PFD6', 'GC2PFER', 'GC2PH61', 'GC2PH92', 'GC2PK61', 'GC2PNA2', 'GC2PP5H', 'GC2PPJP', 'GC2PX3Z', 'GC2PYP9', 'GC2PYPF', 'GC2PYPZ', 'GC2PZH5', 'GC2Q046', 'GC2Q0YK', 'GC2Q357', 'GC2Q40F', 'GC2Q49V', 'GC2Q4XX', 'GC2Q7QX', 'GC2Q93P', 'GC2QA5P', 'GC2QBE2', 'GC2QCZG', 'GC2QEBN', 'GC2QF1G', 'GC2QFKA', 'GC2QJW6', 'GC2QW20', 'GC2QW8W', 'GC2QYFF', 'GC2QZBX', 'GC2QZQ7', '"
$data=$data+"GC2R20F', 'GC2R25E', 'GC2R3MK', 'GC2R8M3', 'GC2RARX', 'GC2RBPN', 'GC2RE4P', 'GC2RG14', 'GC2RHBJ', 'GC2RM59', 'GC2RMNX', 'GC2RMQQ', 'GC2RN88', 'GC2RQDJ', 'GC2RW0E', 'GC2RXXB', 'GC2T0M2', 'GC2T0X3', 'GC2T18H', 'GC2T3A0', 'GC2T5JG', 'GC2T5TB', 'GC2T693', 'GC2T6ZJ', 'GC2T748', 'GC2T7YB', 'GC2T89V', 'GC2TC75', 'GC2TCBH', 'GC2TEA7', 'GC2TF6K', 'GC2TM0D', 'GC2TXN6', 'GC2V0TC', 'GC2V2CA', 'GC2V3V5', 'GC2V4H2', 'GC2V5G5', 'GC2V5QT', 'GC2VAN6', 'GC2VGGJ', 'GC2VGJX', 'GC2VGJY', 'GC2VGJZ', 'GC2VGK5', 'GC2VHHR', 'GC2VJMP', 'GC2VNGQ', 'GC2VQ09', 'GC2VR6X', 'GC2VT9F', 'GC2VV3A', 'GC2VX8F', 'GC2VYE4', 'GC2VYXZ', 'GC2VZ09', 'GC2W05C', 'GC2W05F', 'GC2W0YF', 'GC2W0YK', 'GC2W16F', 'GC2W2DD', 'GC2W6NR', 'GC2W6ZB', 'GC2W8WA', 'GC2WC4C', 'GC2WC9R', 'GC2WE23', 'GC2WF86', 'GC2WHED', 'GC2WW1N', 'GC2WWJ4', 'GC2WWW4', 'GC2WX2J', 'GC2WX83', 'GC2WXZE', 'GC2WYJ6', 'GC2WYT7', 'GC2WZ1J', 'GC2WZ6A', 'GC2X231', 'GC2X39P', 'GC2X8Q3', 'GC2XAWF', 'GC2XCGA', 'GC2XE3X', 'GC2XEH4', 'GC2XR2B', 'GC2XRDB', 'GC2XVYA', 'GC2Y1JG', 'GC2Y21D', 'GC2Y5DV', 'GC2Y65Q', 'GC2Y6KP', 'GC2Y77C', 'GC2Y7W6', 'GC2Y8CF', 'GC2YC7X', 'GC2YG7H', 'GC2YJBW', 'GC2YKP4', 'GC2YMDZ', 'GC2YRV0', 'GC2YRV3', 'GC2YT01', 'GC2YTR0', 'GC2YTTY', 'GC2YTXQ', 'GC2YYQ5', 'GC2Z1NB', '"
$data=$data+"GC2Z6ZJ', 'GC2ZD79', 'GC2ZFYH', 'GC2ZKJB', 'GC2ZMMC', 'GC2ZNJK', 'GC2ZPJ0', 'GC2ZQF1', 'GC2ZQFE', 'GC2ZQGQ', 'GC2ZQH0', 'GC2ZR7A', 'GC2ZWHW', 'GC2ZWKF', 'GC2ZYH7', 'GC301DW', 'GC30418', 'GC30433', 'GC305WY', 'GC307JR', 'GC30BQ3', 'GC30FWW', 'GC30HPJ', 'GC30HQ2', 'GC30RYJ', 'GC30VR1', 'GC30W4J', 'GC31165', 'GC317F5', 'GC31C2D', 'GC31DGF', 'GC31EH1', 'GC31ER4', 'GC31FG3', 'GC31JDB', 'GC31MKF', 'GC31P4K', 'GC31P4T', 'GC325AM', 'GC32A18', 'GC32MBV', 'GC32QW9', 'GC32XD1', 'GC32ZGG', 'GC336A9', 'GC336MB', 'GC338MJ', 'GC33AJZ', 'GC33C9M', 'GC33ENR', 'GC33FXA', 'GC33HMQ', 'GC33JNN', 'GC33NB5', 'GC33PY0', 'GC33QDR', 'GC33QJP', 'GC33RPY', 'GC33W3N', 'GC33WFJ', 'GC33YAN', 'GC33Z8N', 'GC3412Y', 'GC343DP', 'GC343J5', 'GC344ED', 'GC344YY', 'GC346E2', 'GC3496Q', 'GC34AZZ', 'GC34C4K', 'GC34FCJ', 'GC34GQQ', 'GC34KH6', 'GC34KMH', 'GC34M0V', 'GC34N2Y', 'GC34PD5', 'GC34PK2', 'GC34PKF', 'GC34R91', 'GC34X55', 'GC34XME', 'GC34XWN', 'GC3509G', 'GC35289', 'GC352V9', 'GC3531K', 'GC35AKC', 'GC35BTE', 'GC35ECD', 'GC35EMB', 'GC35EZT', 'GC35KWF', 'GC360ZD', 'GC361YA', 'GC364EZ', 'GC366P1', 'GC36EF7', 'GC36ET6', 'GC36J4E', 'GC36PX4', 'GC36RBQ', 'GC36X0X', 'GC36YWQ', 'GC371HQ', 'GC372B7', 'GC372Z2', 'GC37459', 'GC37476', 'GC375QK', '"
$data=$data+"GC376MJ', 'GC377D3', 'GC379B9', 'GC379X1', 'GC37BG7', 'GC37D0R', 'GC37D21', 'GC37DYJ', 'GC37Q5V', 'GC37RQP', 'GC37VZJ', 'GC37ZWH', 'GC382GY', 'GC38968', 'GC389VX', 'GC38APZ', 'GC38C73', 'GC38CCB', 'GC38FGP', 'GC38GQ1', 'GC38J5R', 'GC38M6V', 'GC38MNM', 'GC38WG6', 'GC39340', 'GC395H6', 'GC396TV', 'GC39A3D', 'GC39E41', 'GC39NMV', 'GC39TJX'"

$_sql = "code not in (" + $data + ")"
MFILTER where=$_sql
MACROSET Dialog=Replace VarName=$ReplaceFalse2011
GLOBALREPLACE Settings=<macro>


$_sql = "code in (" + $data + ")"
MFILTER where=$_sql
MACROSET Dialog=Replace VarName=$ReplaceTrue2011
GLOBALREPLACE Settings=<macro>

CANCELFILTER
MFILTER WHERE=PremiosGPS2011 OR PremiosGPS2010

<data> VarName=$ReplaceFalse2011
[TfmReplace]
cbxFields.Text=PremiosGPS2011
cbxWith.Text=False
edtDate.Text=~Date~
edtString.Text=
rbtAdd.Checked=False
rbtRemove.Checked=False
rbtReplace.Checked=True
rbtSwap.Checked=False
chkClose.Checked=True
rbtAddBefore.Checked=False
<enddata>

<data> VarName=$ReplaceTrue2011
[TfmReplace]
cbxFields.Text=PremiosGPS2011
cbxWith.Text=True
edtDate.Text=~Date~
edtString.Text=
rbtAdd.Checked=False
rbtRemove.Checked=False
rbtReplace.Checked=True
rbtSwap.Checked=False
chkClose.Checked=True
rbtAddBefore.Checked=False
<enddata>

Nevermind. Found it. https://www.sugarsync.com/pf/D321047_8019447_110565

Pareço o Jasafara a falar sozinho e a responder aos meus posts.

A porra da macro não funciona. Preenche a flag em todas as caches que não tem já marcada a flag para os anos anteriores. Gah.

Façam o favor de retirar o btrodrigues da lista de inimigos porque ele está a colocar aqui uma dúvida!!!

Depois de ler o que escreveu não o devia ter tirado da lista...

Mas pronto...

https://dl.dropbox.com/u/14040081/GeoptBadgeFilterForGSAK-2.6.gsk

Esta macro faz isso e muito mais.

tu queres é esta: https://dl.dropboxusercontent.com/u/80474/PremiosGPS.gsk

passou a marcar numa coluna apenas, assinalando o ano em que foi nomeada. para além disso, também te dá as best of 2013 num novo campo.

tu queres é esta: https://dl.dropboxusercontent.com/u/80474/PremiosGPS.gsk

passou a marcar numa coluna apenas, assinalando o ano em que foi nomeada. para além disso, também te dá as best of 2013 num novo campo.

E a de cima, engloba esta e continua a marcar os anos individualmente

isso e muito mais confusão... para quem quer apenas isto não há necessidade.

isso e muito mais confusão... para quem quer apenas isto não há necessidade.

QFT. Não preciso dos badges para nada.

1. não se pode fazer pin a este tópico com a informação correcta da macro que assinala as caches nomeadas?
2. andar a correr macros à maluca fez a minha BD de GSAK ficar com uma porrada de campos extra - há alguma forma de martelar a tabela "custom" e retirar as colunas que não me interessam?

Waypoint -> Custom Data -> botão Fields e aí podes gerir o que quiseres.