mari contribuabili

[Ene Toma - ORCTDB]

in legatura cu lista marilor contribuabili modificata,fara ca cei de la Finante sa opereze aceste inregistrari prin pachete!!!,
ca sa apara “registrul contribuabililor” si la ORC ca la FINANTE

daca stie cineva sa cupleze cele 2 selecturi, fara create table, sa posteze aici daca are timp
am testat ultimele transmisii din raspuns_cui, sa compar care nu a suferit modificari  cu lista marilor contribuabili transmisa de Finante prin e-mail
daca nu apare la Finante si apare in select inseamna ca e mare contribuabil la ORC si transmit corectie
daca a aparut un nou mare contribuabil acesta nu apare in lista (a suferit modificari)

vtr=3
* ULTIMELE TRANSMISII DIN RASPUNS_CUI

vsqlmc=sqlexec(nhandle,"select distinct cod_fiscal cui " + ;
                                " from raspuns_cui " + ;
                                " where jud_fisc=61 and grupa_cont=1 and nr_comert is not null and eroare is null  " + ;
                       " ")

if vsqlmc>0
   copy to C:\RegisN\finante\maricon
else
    WAIT 'EROARE LA SELECT istdiz !' 
    use C:\RegisN\finante\maricon excl
    zap in maricon
endif


store 0 to vnr

select 0
use C:\RegisN\finante\maricon
scan
  vcui=cui
 
 
  vsqlut=sqlexec(nhandle," select count(*) as nr, cod_fiscal from " + ;
                              "(select distinct cod_fiscal,jud_fisc, grupa_cont from " + ; 
                                     "(select cod_fiscal,jud_fisc, grupa_cont, data_inreg " + ; 
                                            " from raspuns_cui " + ; 
                                            " where eroare is null " + ;
                                                  " and cod_fiscal = ?vcui " + ;
                                            " order by data_inreg desc nulls last " + ;  
                                     " ) " + ;  
                                     " where rownum<?vtr " + ;
                              " ) " + ;
                              " group by cod_fiscal " + ;
                              "  ","cmc")
*having count(*)>1

  if cmc.nr=1
      vnr=vnr+1
      *\<<vnr>>. <<cmc.cod_fiscal>>  a suferit <<cmc.nr-1>> modificari in ultimele <<vtr-1>> transmisii din raspuns_cui
      \<<vnr>>. <<cmc.cod_fiscal>>  nu a suferit modificari in ultimele <<vtr-1>> transmisii din raspuns_cui
  endif   


select maricon
endscan