Note de calcul gratuite

[Ene Toma - ORCTDB]

 Inregistrarile gratuite, fara informatii si copii certificate

vsqlnrfirme=SQLEXEC(nHandle, "select NR_NOTA_CALCUL crr,DATA_NOTA_CALCUL dcrr, NUME_UTILIZATOR referent, SOLICITANT_NUME soli, TIP_CERERE tipm, " + ;
                                   " FIRMA_NUME firma, FIRMA_TIP_JURIDIC_RC tipju, FIRMA_NUMAR_RC ninm, FIRMA_AN_RC aninm, FIRMA_COD_FISCAL cui, '                 ' as codj " + ;
                                   " from tax.tx_note_calcul " + ;
                                   " where DATA_NOTA_CALCUL >= ?vdatainc and DATA_NOTA_CALCUL < ?vdatasf " + ;
                                         " and scutire='GR' " + ;
                                         " and TIP_CERERE NOT LIKE '%furnizare-info%' and TIP_CERERE NOT LIKE '%comanda-eliberare-acte%' " + ;
                                   " order by DATA_NOTA_CALCUL" )
                                   
                                   

if vsqlnrfirme>0
   copy to H:\RegisN\Gratuite\Raport\Datelib
else
  select 0
  use H:\RegisN\Gratuite\Raport\Datelib excl  
  zap in Datelib
  use in Datelib
  wait 'EROARE IN SELECT nrfirme!' 
  
endif                              


select 0
use H:\RegisN\Gratuite\Raport\Datelib excl
count to vinreg


select Datelib
go top
scan
 
  vcodj=alltrim(tipju)+'/'+alltrim(str(ninm))+'/'+alltrim(str(aninm))
  replace codj with vcodj in Datelib
  

select Datelib
endscan


if vinreg>0
   REPORT FORM H:\RegisN\Gratuite\Raport\listcc.frx PREVIEW
else
   MESSAGEBOX('NU EXISTA INREGISTRARI')
ENDIF