campo-sirio/ab/ab3100.cpp

#include "ab3.h"
#include "ablib01.h"



void test_analisi()
{
    //Questa parte di funzione serve per testare la read, write, delete_node, delete_tree, delete_subtree ecc  
  
  TLocalisamfile anas(LF_ANALISI);
  anas.set_curr(new TAnalisi_bil());
  anas.put(ABAN_CODAN,"A1");
  anas.read();  
  // readat -> vedi dopo
  //anas.remove();  //Solo per il test della delete_node o la rimozione di una intera tabella
  anas.write();
  
  
 /*Questa parte della funzione serve solo per testare la readat
    
    
    TRecnotype nrec = 14;  //Per capire quale numero ci va scommenta la riga di nrec e provare col debug
    TLocalisamfile anas1(LF_ANALISI);
   // nrec = anas1.recno(); //nrec è un TRecnotype: dice quale numero ci va dopo
    anas1.set_curr(new TAnalisi_bil());
    anas1.readat(nrec);
    //Abilitare solo una di queste funzioni
    anas1.remove();
    //anas1.write();
    
    E deve esserci solo questo pezzo: tutto il resto deve essere commentato */
}

void test_saldi()
{ 
  TLocalisamfile saldo(LF_ABSALDI);
//  TRecnotype nrec = 96; //Abilitare questa riga per testare la readat

  saldo.set_curr(new TABsaldo());
  saldo.put(ABMD_CODDITTA,"00001");
  saldo.put(ABMD_ANNO,"1996");
  saldo.put(ABMD_CODPDB,"001");
  saldo.put(ABMD_TIPOBIL,"E2");
  saldo.put(ABMD_CODCBL,"000000000200");
//  saldo.readat(nrec);   //Se si abilita il test della readat, commentare le righe che riguardano la read
  int err=saldo.read();
  if (err!=NOERR)
    CHECK (FALSE,"Errore nella letture del record di testata"); 
  
  //saldo.write();
  //saldo.remove();  
}


void TTest::main_loop()
{                 
  test_analisi(); //Esegue il test delle funzioni e degli oggetti per l'analisi
  //test_saldi();   //Esegue il test delle funzioni e degli oggetti per l'analisi
}


void ab3100(int argc, char **argv)
{
  TTest a;
  a.run(argc,argv, "Prova");
}