por dbdc5554 » 27 Dez 2017 19:48
achei a relacao de ncm que sairam do ST
ta virando piada ano passado mes 10 fizeram isso
ai converto tudo
if substr(gmprod->ncm,1,4) = "2309" .or. ;
substr(gmprod->ncm,1,4) = "3916" .or. ;
substr(gmprod->ncm,1,4) = "3917" .or. ;
substr(gmprod->ncm,1,4) = "3918" .or. ;
substr(gmprod->ncm,1,4) = "3919" .or. ;
substr(gmprod->ncm,1,4) = "3920" .or. ;
substr(gmprod->ncm,1,4) = "3921" .or. ;
substr(gmprod->ncm,1,4) = "3922" .or. ;
substr(gmprod->ncm,1,4) = "3924" .or. ;
substr(gmprod->ncm,1,4) = "4814" .or. ;
substr(gmprod->ncm,1,4) = "6907" .or. ;
substr(gmprod->ncm,1,4) = "6908" .or. ;
substr(gmprod->ncm,1,4) = "6910" .or. ;
substr(gmprod->ncm,1,4) = "7003" .or. ;
substr(gmprod->ncm,1,4) = "7004" .or. ;
substr(gmprod->ncm,1,4) = "7005" .or. ;
substr(gmprod->ncm,1,4) = "7009" .or. ;
substr(gmprod->ncm,1,4) = "7016" .or. ;
substr(gmprod->ncm,1,4) = "7213" .or. ;
substr(gmprod->ncm,1,4) = "7312" .or. ;
substr(gmprod->ncm,1,4) = "7307" .or. ;
substr(gmprod->ncm,1,4) = "7310" .or. ;
substr(gmprod->ncm,1,4) = "7314" .or. ;
substr(gmprod->ncm,1,4) = "7318" .or. ;
substr(gmprod->ncm,1,4) = "7323" .or. ;
substr(gmprod->ncm,1,4) = "7324" .or. ;
substr(gmprod->ncm,1,4) = "7325" .or. ;
substr(gmprod->ncm,1,4) = "7326" .or. ;
substr(gmprod->ncm,1,4) = "7407" .or. ;
substr(gmprod->ncm,1,4) = "7412" .or. ;
substr(gmprod->ncm,1,4) = "7415" .or. ;
substr(gmprod->ncm,1,4) = "7610" .or. ;
substr(gmprod->ncm,1,4) = "7616" .or. ;
substr(gmprod->ncm,1,4) = "8301" .or. ;
substr(gmprod->ncm,1,4) = "8307" .or. ;
substr(gmprod->ncm,1,4) = "8311" .or. ;
substr(gmprod->ncm,1,4) = "8481" .or. ;
substr(gmprod->ncm,1,4) = "8504" .or. ;
substr(gmprod->ncm,1,4) = "8516" .or. ;
substr(gmprod->ncm,1,4) = "8517" .or. ;
substr(gmprod->ncm,1,4) = "8529" .or. ;
substr(gmprod->ncm,1,4) = "8531" .or. ;
substr(gmprod->ncm,1,4) = "8535" .or. ;
substr(gmprod->ncm,1,4) = "8536" .or. ;
substr(gmprod->ncm,1,4) = "8538" .or. ;
substr(gmprod->ncm,1,4) = "8544" .or. ;
substr(gmprod->ncm,1,4) = "7605" .or. ;
substr(gmprod->ncm,1,4) = "7614" .or. ;
substr(gmprod->ncm,1,4) = "8546" .or. ;
substr(gmprod->ncm,1,4) = "8547" .or. ;
substr(gmprod->ncm,1,4) = "9405" .or. ;
substr(gmprod->ncm,1,5) = "94059" .or. ;
substr(gmprod->ncm,1,5) = "95059" .or. ;
substr(gmprod->ncm,1,5) = "94059" .or. ;
substr(gmprod->ncm,1,6) = "902690" .or. ;
substr(gmprod->ncm,1,6) = "392690" .or. ;
substr(gmprod->ncm,1,6) = "730890" .or. ;
substr(gmprod->ncm,1,6) = "731700" .or. ;
substr(gmprod->ncm,1,6) = "853110" .or. ;
substr(gmprod->ncm,1,6) = "853400" .or. ;
substr(gmprod->ncm,1,6) = "903089" .or. ;
substr(gmprod->ncm,1,6) = "910700" .or. ;
substr(gmprod->ncm,1,6) = "940510" .or. ;
substr(gmprod->ncm,1,6) = "940540" .or. ;
substr(gmprod->ncm,1,7) = "3816001" .or. ;
substr(gmprod->ncm,1,8) = "85016100" .or. ;
substr(gmprod->ncm,1,8) = "85311090" .or. ;
substr(gmprod->ncm,1,8) = "90141000" .or. ;
substr(gmprod->ncm,1,8) = "90251990" .or. ;
substr(gmprod->ncm,1,8) = "90259010" .or. ;
substr(gmprod->ncm,1,8) = "90321010" .or. ;
substr(gmprod->ncm,1,8) = "90321090" .or. ;
substr(gmprod->ncm,1,8) = "90322000" .or. ;
substr(gmprod->ncm,1,8) = "38245000" .or. ;
substr(gmprod->ncm,1,8) = "39252000" .or. ;
substr(gmprod->ncm,1,8) = "39253000" .or. ;
substr(gmprod->ncm,1,8) = "68101900" .or. ;
substr(gmprod->ncm,1,8) = "69120000" .or. ;
substr(gmprod->ncm,1,8) = "70071900" .or. ;
substr(gmprod->ncm,1,8) = "70072900" .or. ;
substr(gmprod->ncm,1,8) = "70080000" .or. ;
substr(gmprod->ncm,1,8) = "72142000" .or. ;
substr(gmprod->ncm,1,8) = "73089010" .or. ;
substr(gmprod->ncm,1,8) = "72142000" .or. ;
substr(gmprod->ncm,1,8) = "73089010" .or. ;
substr(gmprod->ncm,1,8) = "72171090" .or. ;
substr(gmprod->ncm,1,8) = "72172090" .or. ;
substr(gmprod->ncm,1,8) = "73083000" .or. ;
substr(gmprod->ncm,1,8) = "73084000" .or. ;
substr(gmprod->ncm,1,8) = "73084000" .or. ;
substr(gmprod->ncm,1,8) = "73130000" .or. ;
substr(gmprod->ncm,1,8) = "73151100" .or. ;
substr(gmprod->ncm,1,8) = "73151290" .or. ;
substr(gmprod->ncm,1,8) = "73158200" .or. ;
substr(gmprod->ncm,1,8) = "74111010" .or. ;
substr(gmprod->ncm,1,8) = "74182000" .or. ;
substr(gmprod->ncm,1,8) = "76071990" .or. ;
substr(gmprod->ncm,1,8) = "76090000" .or. ;
substr(gmprod->ncm,1,8) = "76152000" .or. ;
substr(gmprod->ncm,1,8) = "83024100" .or. ;
substr(gmprod->ncm,1,8) = "83021000" .or. ;
substr(gmprod->ncm,1,8) = "85171899" .or. ;
substr(gmprod->ncm,1,8) = "85318000" .or. ;
substr(gmprod->ncm,1,8) = "85414011" .or. ;
substr(gmprod->ncm,1,8) = "85414021" .or. ;
substr(gmprod->ncm,1,8) = "85414022" .or. ;
substr(gmprod->ncm,1,8) = "85437092" .or. ;
substr(gmprod->ncm,1,8) = "74130000" .or. ;
substr(gmprod->ncm,1,8) = "94052000" .or. ;
substr(gmprod->ncm,1,8) = "33030010" .or. ;
substr(gmprod->ncm,1,8) = "33030020" .or. ;
substr(gmprod->ncm,1,8) = "33041000" .or. ;
substr(gmprod->ncm,1,8) = "33042010" .or. ;
substr(gmprod->ncm,1,8) = "33042090" .or. ;
substr(gmprod->ncm,1,8) = "33043000" .or. ;
substr(gmprod->ncm,1,8) = "33049100" .or. ;
substr(gmprod->ncm,1,8) = "33049910" .or. ;
substr(gmprod->ncm,1,8) = "33049990" .or. ;
substr(gmprod->ncm,1,8) = "33051000" .or. ;
substr(gmprod->ncm,1,8) = "33052000" .or. ;
substr(gmprod->ncm,1,8) = "33059000" .or. ;
substr(gmprod->ncm,1,8) = "33071000" .or. ;
substr(gmprod->ncm,1,8) = "33072010" .or. ;
substr(gmprod->ncm,1,8) = "33072090" .or. ;
substr(gmprod->ncm,1,8) = "33079000" .or. ;
substr(gmprod->ncm,1,8) = "34011190" .or. ;
substr(gmprod->ncm,1,8) = "34011900" .or. ;
substr(gmprod->ncm,1,8) = "34012010" .or. ;
substr(gmprod->ncm,1,8) = "34013000" .or. ;
substr(gmprod->ncm,1,8) = "48182000" .or. ;
substr(gmprod->ncm,1,8) = "82141000" .or. ;
substr(gmprod->ncm,1,8) = "82142000" .or. ;
substr(gmprod->ncm,1,8) = "96032900"
x_achou_ncm = .t.
endif