Patch level : 10.0 patch 244
Files correlati : ve0 Ricompilazione Demo : [ ] Commento : Aggiunto il gruppo di testata delle lavanderie (4041) git-svn-id: svn://10.65.10.50/trunk@18304 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
		
							parent
							
								
									b434396504
								
							
						
					
					
						commit
						501dbfa92a
					
				
							
								
								
									
										379
									
								
								ve/ve0300.cpp
									
									
									
									
									
								
							
							
						
						
									
										379
									
								
								ve/ve0300.cpp
									
									
									
									
									
								
							@ -260,6 +260,7 @@ public:
 | 
			
		||||
  // Attiva la generazione della maschera
 | 
			
		||||
  void genera( const TString& profilo);
 | 
			
		||||
 | 
			
		||||
  void genera_testata_1();
 | 
			
		||||
  // Genera l'intestazione di una pagina ( non la prima )
 | 
			
		||||
  void intestazione_pagina( const char* def_title = TR("Parametri"));
 | 
			
		||||
  
 | 
			
		||||
@ -414,6 +415,7 @@ public:
 | 
			
		||||
  void present( bool p ) { _present = p; }
 | 
			
		||||
  bool present( ) const { return _present; }
 | 
			
		||||
  TArray& campi( ) { return _fields; }
 | 
			
		||||
  const bool is_testata() const;
 | 
			
		||||
  virtual TObject* dup() const;
 | 
			
		||||
 | 
			
		||||
  TGruppo ( int i );
 | 
			
		||||
@ -509,6 +511,17 @@ void TGruppo::add( TField * field )
 | 
			
		||||
  field->grp(this);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
const bool TGruppo::is_testata() const
 | 
			
		||||
{
 | 
			
		||||
  FOR_EACH_ARRAY_ITEM(_fields, i, o)
 | 
			
		||||
  {
 | 
			
		||||
    TField* campo = (TField*) o;
 | 
			
		||||
    if(campo->id() == F_STATO)
 | 
			
		||||
      return true;
 | 
			
		||||
  }
 | 
			
		||||
  return false;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
TGruppo::TGruppo( int i )
 | 
			
		||||
{
 | 
			
		||||
  _id = i;
 | 
			
		||||
@ -619,6 +632,7 @@ static void genera_gruppo( const TObject& gruppo )
 | 
			
		||||
    grp.present(FALSE); 
 | 
			
		||||
    if (_mask_generator == NULL)
 | 
			
		||||
      _mask_generator = &(grp.generatore());
 | 
			
		||||
 | 
			
		||||
    grp.campi().for_each(verifica_campo);
 | 
			
		||||
    do_events();
 | 
			
		||||
    if (grp.present())
 | 
			
		||||
@ -654,7 +668,7 @@ void TGruppo::genera( )
 | 
			
		||||
    // Passa alla pagina successiva
 | 
			
		||||
    maschera( ).end( );
 | 
			
		||||
    generatore( ).intestazione_pagina( );
 | 
			
		||||
    //maschera( ).line( MASK_FIRST_LINE );
 | 
			
		||||
    maschera( ).line( MASK_FIRST_LINE );
 | 
			
		||||
    oldlinea = MASK_FIRST_LINE;
 | 
			
		||||
  }
 | 
			
		||||
  _fields.for_each( genera_campo );
 | 
			
		||||
@ -1215,6 +1229,170 @@ void TMask_generator::genera_sheet(int line, bool show_list, bool genera_disp)
 | 
			
		||||
		_m->_sheet_generated = true;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void TMask_generator::genera_testata_1()
 | 
			
		||||
{
 | 
			
		||||
  TString temp_s;
 | 
			
		||||
  const char tipo_cf = _pro->get_char("TIPOCF", "MAIN");
 | 
			
		||||
 | 
			
		||||
  _m->control( T_CORNICE, DLG_NULL, 7806);
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 1, 0, "" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
 
 | 
			
		||||
  _m->control( T_STRINGA, F_CODNUM, 4 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 2, 1, "Cod. num.  " );
 | 
			
		||||
  _m->field(DOC_CODNUM);
 | 
			
		||||
  _m->use("%NUM", 1);
 | 
			
		||||
  temp_s.format("CODTAB %d", F_CODNUM);
 | 
			
		||||
  _m->input(temp_s);
 | 
			
		||||
  _m->display("\"Codice\" CODTAB~\"Descrizione@50\" S0");
 | 
			
		||||
  temp_s.format("%d S0", F_DESNUM);
 | 
			
		||||
  _m->output(temp_s);
 | 
			
		||||
  _m->check(S_NORMALE);
 | 
			
		||||
  _m->flag( "GDU" );
 | 
			
		||||
  _m->message( "CO,2@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
 | 
			
		||||
  _m->control( T_STRINGA, F_DESNUM, 50 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 24, 1 );
 | 
			
		||||
  _m->flag( "GD" );
 | 
			
		||||
  _m->message( "CO,3@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_STRINGA, F_TIPODOC, 4 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->field( DOC_TIPODOC );
 | 
			
		||||
  _m->prompt( 2, 2, "Tipo doc.  " );
 | 
			
		||||
  _m->use("%TIP" , 1);
 | 
			
		||||
  temp_s.format("CODTAB %d", F_TIPODOC);
 | 
			
		||||
  _m->input(temp_s);
 | 
			
		||||
  _m->display("\"Codice\" CODTAB~\"Descrizione@50\" S0");
 | 
			
		||||
  temp_s.format("%d S0", F_DESTIPODOC);
 | 
			
		||||
  _m->output(temp_s);
 | 
			
		||||
  _m->check(S_NORMALE);
 | 
			
		||||
  _m->flag( "GDU" );
 | 
			
		||||
  _m->message( "CO,4@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_LISTA, F_TIPOCF, 9 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 100, 100, "" );
 | 
			
		||||
  _m->field( DOC_TIPOCF );
 | 
			
		||||
  _m->item(tipo_cf == 'C' ? "C|Cliente" : "F|Fornitore");
 | 
			
		||||
  _m->flag( "D" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_STRINGA, F_PROVV, 1 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 100, 100, "<D><P>  " );
 | 
			
		||||
  _m->field( DOC_PROVV );
 | 
			
		||||
  _m->flag( "D" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
 | 
			
		||||
  _m->control( T_STRINGA, F_DESTIPODOC, 50 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 24, 2 );
 | 
			
		||||
  _m->flag( "GD" );
 | 
			
		||||
  _m->message( "CO,5@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_STRINGA, F_ANNO, 4 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 2, 3, "Esercizio  " );
 | 
			
		||||
  _m->field( DOC_ANNO );
 | 
			
		||||
  _m->flag( "GD" );
 | 
			
		||||
  _m->message( "CO,9@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_NUMERO, F_NDOC, 6 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 24, 3, "Numero doc. " );
 | 
			
		||||
  _m->field( DOC_NDOC );
 | 
			
		||||
  _m->message( "CO,6@" );
 | 
			
		||||
  _m->flag( "GDR" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_DATA, F_DATADOC );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 46, 3, "Data " );
 | 
			
		||||
  _m->field( DOC_DATADOC );
 | 
			
		||||
  TString m("CO,7@"); 
 | 
			
		||||
  _m->message(m); 
 | 
			
		||||
  _m->end( );
 | 
			
		||||
 
 | 
			
		||||
  _m->control( T_STRINGA, F_STATO, 1 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  _m->prompt( 67, 3, "Stato " );
 | 
			
		||||
  _m->field( DOC_STATO );
 | 
			
		||||
  _m->use("%STD", 1);
 | 
			
		||||
  _m->input("CODTAB 105");
 | 
			
		||||
  _m->display("\"Codice\" CODTAB");
 | 
			
		||||
	_m->display("\"Descrizione@50\" S0");
 | 
			
		||||
	_m->output("105 CODTAB");
 | 
			
		||||
  _m->message( "CO,8@" );
 | 
			
		||||
	_m->check(S_NORMALE);
 | 
			
		||||
  _m->flag( "DG" );
 | 
			
		||||
  _m->end( );     
 | 
			
		||||
 | 
			
		||||
  _m->control( T_STRINGA, F_CODCF, 6 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  if ( tipo_cf == 'C' )
 | 
			
		||||
  {
 | 
			
		||||
    _m->prompt( 2, 4, "Cliente    " );
 | 
			
		||||
    _m->warning( "Cliente assente" );
 | 
			
		||||
    _m->help( "Codice del cliente del documento" );
 | 
			
		||||
  }
 | 
			
		||||
  else
 | 
			
		||||
  {
 | 
			
		||||
    _m->prompt( 2, 4, "Fornitore  " );
 | 
			
		||||
    _m->warning( "Fornitore assente" );
 | 
			
		||||
    _m->help( "Codice del fornitore del documento" );
 | 
			
		||||
  }
 | 
			
		||||
  _m->flag( "R" );
 | 
			
		||||
  _m->field( DOC_CODCF );
 | 
			
		||||
  _m->group( 1 );
 | 
			
		||||
  _m->use( LF_CLIFO, 1 );
 | 
			
		||||
  temp_s.format( "TIPOCF \"%c\"~CODCF %d", tipo_cf, F_CODCF);
 | 
			
		||||
  _m->input( temp_s );
 | 
			
		||||
  _m->display( "\"Codice\" CODCF~\"Ragione Sociale@50\" RAGSOC~\"Partita IVA@12\" PAIV~\"Sospeso\" SOSPESO" );
 | 
			
		||||
  temp_s.format( "%d CODCF~%d RAGSOC", F_CODCF, F_RAGSOC );
 | 
			
		||||
  _m->output( temp_s );
 | 
			
		||||
  _m->check( S_OBBLIGATORIO );
 | 
			
		||||
  temp_s.format( "ADD RU cg0 -1 %c", tipo_cf);
 | 
			
		||||
  _m->outline( temp_s );
 | 
			
		||||
  _m->message( "CO,10@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  
 | 
			
		||||
  _m->control( T_STRINGA, F_RAGSOC, 50 );
 | 
			
		||||
  _m->begin( );
 | 
			
		||||
  if ( tipo_cf == 'C' )
 | 
			
		||||
  {
 | 
			
		||||
    _m->warning( "Cliente assente" );
 | 
			
		||||
    _m->help( "Ragione sociale del cliente del documento" );
 | 
			
		||||
  }
 | 
			
		||||
  else
 | 
			
		||||
  {
 | 
			
		||||
    _m->warning( "Fornitore assente" );
 | 
			
		||||
    _m->help( "Ragione sociale del fornitore del documento" );
 | 
			
		||||
  }
 | 
			
		||||
  _m->prompt( 24, 4, "" );
 | 
			
		||||
  _m->group( 1 );
 | 
			
		||||
  _m->use( LF_CLIFO, 2 );
 | 
			
		||||
  temp_s.format( "TIPOCF \"%c\"~RAGSOC %d", tipo_cf, F_RAGSOC );
 | 
			
		||||
  _m->input( temp_s );
 | 
			
		||||
  _m->display( "\"Ragione Sociale@50\" RAGSOC~\"Partita IVA@12\" PAIV~\"Codice\" CODCF" );
 | 
			
		||||
  temp_s.format( "%d CODCF~%d RAGSOC", F_CODCF, F_RAGSOC );
 | 
			
		||||
  _m->output( temp_s );
 | 
			
		||||
  _m->check( S_OBBLIGATORIO );
 | 
			
		||||
  temp_s.format( "ADD RU cg0 -1 %c", tipo_cf);
 | 
			
		||||
  _m->outline( temp_s );
 | 
			
		||||
  _m->message( "CO,11@" );
 | 
			
		||||
  _m->end( );
 | 
			
		||||
  _m->line( MASK_FIRST_LINE );
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void TMask_generator::genera( const TString& profilo )
 | 
			
		||||
{
 | 
			
		||||
  if( profilo == "-all" || profilo[0] == '*')
 | 
			
		||||
@ -1334,193 +1512,12 @@ void TMask_generator::genera( const TString& profilo )
 | 
			
		||||
		const TString80 title(_pro->get("Title", "MAIN", _m->page(), TR("Testata")));
 | 
			
		||||
 | 
			
		||||
    _m->pagina( _m->page( ), title);
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_CORNICE, DLG_NULL, 7807);
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 1, 0, "" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_CODNUM, 4 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 2, 1, "Cod. num.  " );
 | 
			
		||||
    _m->field(DOC_CODNUM);
 | 
			
		||||
    _m->use("%NUM", 1);
 | 
			
		||||
    temp_s.format("CODTAB %d", F_CODNUM);
 | 
			
		||||
    _m->input(temp_s);
 | 
			
		||||
    _m->display("\"Codice\" CODTAB~\"Descrizione@50\" S0");
 | 
			
		||||
    temp_s.format("%d S0", F_DESNUM);
 | 
			
		||||
    _m->output(temp_s);
 | 
			
		||||
    _m->check(S_NORMALE);
 | 
			
		||||
    _m->flag( "GDU" );
 | 
			
		||||
    _m->message( "CO,2@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_DESNUM, 50 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 24, 1 );
 | 
			
		||||
    _m->flag( "GD" );
 | 
			
		||||
    _m->message( "CO,3@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_TIPODOC, 4 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->field( DOC_TIPODOC );
 | 
			
		||||
    _m->prompt( 2, 2, "Tipo doc.  " );
 | 
			
		||||
    _m->use("%TIP" , 1);
 | 
			
		||||
    temp_s.format("CODTAB %d", F_TIPODOC);
 | 
			
		||||
    _m->input(temp_s);
 | 
			
		||||
    _m->display("\"Codice\" CODTAB~\"Descrizione@50\" S0");
 | 
			
		||||
    temp_s.format("%d S0", F_DESTIPODOC);
 | 
			
		||||
    _m->output(temp_s);
 | 
			
		||||
    _m->check(S_NORMALE);
 | 
			
		||||
    _m->flag( "GDU" );
 | 
			
		||||
    _m->message( "CO,4@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_LISTA, F_TIPOCF, 9 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 100, 100, "" );
 | 
			
		||||
    _m->field( DOC_TIPOCF );
 | 
			
		||||
    _m->item(tipo_cf == 'C' ? "C|Cliente" : "F|Fornitore");
 | 
			
		||||
    _m->flag( "D" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_PROVV, 1 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 100, 100, "<D><P>  " );
 | 
			
		||||
    _m->field( DOC_PROVV );
 | 
			
		||||
    _m->flag( "D" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_DESTIPODOC, 50 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 24, 2 );
 | 
			
		||||
    _m->flag( "GD" );
 | 
			
		||||
    _m->message( "CO,5@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_ANNO, 4 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 2, 3, "Esercizio  " );
 | 
			
		||||
    _m->field( DOC_ANNO );
 | 
			
		||||
    _m->flag( "GD" );
 | 
			
		||||
    _m->message( "CO,9@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_NUMERO, F_NDOC, 6 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 24, 3, "Numero doc. " );
 | 
			
		||||
    _m->field( DOC_NDOC );
 | 
			
		||||
    _m->message( "CO,6@" );
 | 
			
		||||
    _m->flag( "GDR" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_DATA, F_DATADOC );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 46, 3, "Data " );
 | 
			
		||||
    _m->field( DOC_DATADOC );
 | 
			
		||||
     TString m("CO,7@"); 
 | 
			
		||||
    _m->message(m); 
 | 
			
		||||
    _m->end( );
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_STATO, 1 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 67, 3, "Stato " );
 | 
			
		||||
    _m->field( DOC_STATO );
 | 
			
		||||
		_m->use("%STD", 1);
 | 
			
		||||
		_m->input("CODTAB 105");
 | 
			
		||||
		_m->display("\"Codice\" CODTAB");
 | 
			
		||||
		_m->display("\"Descrizione@50\" S0");
 | 
			
		||||
		_m->output("105 CODTAB");
 | 
			
		||||
    _m->message( "CO,8@" );
 | 
			
		||||
		_m->check(S_NORMALE);
 | 
			
		||||
    _m->flag( "DG" );
 | 
			
		||||
    _m->end( );     
 | 
			
		||||
 | 
			
		||||
    _m->control( T_STRINGA, F_CODCF, 6 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    if ( tipo_cf == 'C' )
 | 
			
		||||
    {
 | 
			
		||||
      _m->prompt( 2, 4, "Cliente    " );
 | 
			
		||||
      _m->warning( "Cliente assente" );
 | 
			
		||||
      _m->help( "Codice del cliente del documento" );
 | 
			
		||||
    }
 | 
			
		||||
    else
 | 
			
		||||
    {
 | 
			
		||||
      _m->prompt( 2, 4, "Fornitore  " );
 | 
			
		||||
      _m->warning( "Fornitore assente" );
 | 
			
		||||
      _m->help( "Codice del fornitore del documento" );
 | 
			
		||||
    }
 | 
			
		||||
    _m->flag( "R" );
 | 
			
		||||
    _m->field( DOC_CODCF );
 | 
			
		||||
    _m->group( 1 );
 | 
			
		||||
    _m->use( LF_CLIFO, 1 );
 | 
			
		||||
    temp_s.format( "TIPOCF \"%c\"~CODCF %d", tipo_cf, F_CODCF);
 | 
			
		||||
    _m->input( temp_s );
 | 
			
		||||
    _m->display( "\"Codice\" CODCF~\"Ragione Sociale@50\" RAGSOC~\"Partita IVA@12\" PAIV~\"Sospeso\" SOSPESO" );
 | 
			
		||||
    temp_s.format( "%d CODCF~%d RAGSOC", F_CODCF, F_RAGSOC );
 | 
			
		||||
    _m->output( temp_s );
 | 
			
		||||
    _m->check( S_OBBLIGATORIO );
 | 
			
		||||
    temp_s.format( "ADD RU cg0 -1 %c", tipo_cf);
 | 
			
		||||
    _m->outline( temp_s );
 | 
			
		||||
    _m->message( "CO,10@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
 | 
			
		||||
    _m->control( T_STRINGA, F_RICALT, 30 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    _m->prompt( 22, 4, "" );
 | 
			
		||||
    _m->warning( "Cliente assente" );
 | 
			
		||||
    _m->help( "Codice mnemonico del cliente del documento" );
 | 
			
		||||
    _m->group( 1 );
 | 
			
		||||
    _m->use( LF_CLIFO, 6 );
 | 
			
		||||
    temp_s.format( "TIPOCF \"%c\"~RICALT %d", tipo_cf, F_RICALT);
 | 
			
		||||
    _m->input( temp_s );
 | 
			
		||||
    _m->display( "\"Mnemonico@30\" RICALT~\"Codice\" CODCF~\"Ragione Sociale@50\" RAGSOC~\"Partita IVA@12\" PAIV~\"Sospeso\" SOSPESO" );
 | 
			
		||||
    temp_s.format( "%d RICALT~%d CODCF~%d RAGSOC", F_RICALT, F_CODCF, F_RAGSOC );
 | 
			
		||||
    _m->output( temp_s );
 | 
			
		||||
    _m->check( S_NORMALE );
 | 
			
		||||
    temp_s.format( "ADD RU cg0 -1 %c", tipo_cf);
 | 
			
		||||
    _m->outline( temp_s );
 | 
			
		||||
    _m->end( );    
 | 
			
		||||
  
 | 
			
		||||
    _m->control( T_STRINGA, F_RAGSOC, 50 );
 | 
			
		||||
    _m->begin( );
 | 
			
		||||
    if ( tipo_cf == 'C' )
 | 
			
		||||
    {
 | 
			
		||||
      _m->warning( "Cliente assente" );
 | 
			
		||||
      _m->help( "Ragione sociale del cliente del documento" );
 | 
			
		||||
    }
 | 
			
		||||
    else
 | 
			
		||||
    {
 | 
			
		||||
      _m->warning( "Fornitore assente" );
 | 
			
		||||
      _m->help( "Ragione sociale del fornitore del documento" );
 | 
			
		||||
    }
 | 
			
		||||
    _m->prompt( 2, 5, "Ragione Sociale     " );
 | 
			
		||||
    _m->group( 1 );
 | 
			
		||||
    _m->use( LF_CLIFO, 2 );
 | 
			
		||||
    temp_s.format( "TIPOCF \"%c\"~RAGSOC %d", tipo_cf, F_RAGSOC );
 | 
			
		||||
    _m->input( temp_s );
 | 
			
		||||
    _m->display( "\"Ragione Sociale@50\" RAGSOC~\"Partita IVA@12\" PAIV~\"Codice\" CODCF" );
 | 
			
		||||
    temp_s.format( "%d CODCF~%d RAGSOC", F_CODCF, F_RAGSOC );
 | 
			
		||||
    _m->output( temp_s );
 | 
			
		||||
    _m->check( S_OBBLIGATORIO );
 | 
			
		||||
    temp_s.format( "ADD RU cg0 -1 %c", tipo_cf);
 | 
			
		||||
    _m->outline( temp_s );
 | 
			
		||||
    _m->message( "CO,11@" );
 | 
			
		||||
    _m->end( );
 | 
			
		||||
    _m->line( MASK_FIRST_LINE+1 ); // La prima pagina ha un'intestazione più lunga
 | 
			
		||||
  
 | 
			
		||||
    // Generazione
 | 
			
		||||
  
 | 
			
		||||
    // Scorro l'array dei gruppi, e ne creo una copia ordinata
 | 
			
		||||
    // con solo i gruppi visibili
 | 
			
		||||
  
 | 
			
		||||
    TArray sortedgroups;
 | 
			
		||||
    TString16 chiave, chiavegruppo;
 | 
			
		||||
    last = _pro->get_int( "NGROUPS", "ORDINEGRUPPI" );
 | 
			
		||||
    for( i = 1; i <= last; i ++ )
 | 
			
		||||
    {
 | 
			
		||||
      do_events();
 | 
			
		||||
    {      
 | 
			
		||||
      chiave.format( "%d", i ); 
 | 
			
		||||
      const TString key(_pro->get( chiave, "ORDINEGRUPPI" ));
 | 
			
		||||
          
 | 
			
		||||
@ -1536,12 +1533,24 @@ void TMask_generator::genera( const TString& profilo )
 | 
			
		||||
          sortedgroups.add(key);
 | 
			
		||||
       }
 | 
			
		||||
    }
 | 
			
		||||
  
 | 
			
		||||
 | 
			
		||||
    // Generazione  
 | 
			
		||||
    // Scorro l'array dei gruppi, e ne creo una copia ordinata
 | 
			
		||||
    // con solo i gruppi visibili
 | 
			
		||||
 | 
			
		||||
    TString80 message;
 | 
			
		||||
  
 | 
			
		||||
		_m->_sheet_generated = false;
 | 
			
		||||
    message.format("Generazione profilo : %s", (const char *)profilo);
 | 
			
		||||
    _bar = new TProgind(sortedgroups.items(), message, FALSE, TRUE);
 | 
			
		||||
 | 
			
		||||
    TGruppo* gruppo1 = (TGruppo*)sortedgroups.objptr(0);
 | 
			
		||||
 | 
			
		||||
    if (gruppo1->is_testata())
 | 
			
		||||
      _m->line(0);
 | 
			
		||||
    else
 | 
			
		||||
      genera_testata_1();   
 | 
			
		||||
 | 
			
		||||
    sortedgroups.for_each( genera_gruppo );
 | 
			
		||||
    delete _bar; _bar = NULL;
 | 
			
		||||
    _m->end( );
 | 
			
		||||
@ -1550,7 +1559,7 @@ void TMask_generator::genera( const TString& profilo )
 | 
			
		||||
      intestazione_pagina(TR("Righe"));
 | 
			
		||||
			genera_sheet();
 | 
			
		||||
		}
 | 
			
		||||
  
 | 
			
		||||
 | 
			
		||||
    // Generazione pagina dei piedi
 | 
			
		||||
    {
 | 
			
		||||
      TToken_string s(_pro->get("CAMPICALC", "MAIN"));
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										253
									
								
								ve/ve0300a.src
									
									
									
									
									
								
							
							
						
						
									
										253
									
								
								ve/ve0300a.src
									
									
									
									
									
								
							@ -49,6 +49,7 @@
 | 
			
		||||
 | 
			
		||||
#include "veuml.h"
 | 
			
		||||
#include "veuml1.h"
 | 
			
		||||
#include "veuml3.h"
 | 
			
		||||
#include "veini.h"
 | 
			
		||||
 | 
			
		||||
[OCCASEDIT]
 | 
			
		||||
@ -84,20 +85,6 @@ DISPLAY="Codice Fiscale@16" COFI~"Ragione sociale@50" RAGSOC~"Codice" CODCF~"Ind
 | 
			
		||||
OUTPUT=@F_CODCF
 | 
			
		||||
SIZE=16
 | 
			
		||||
 | 
			
		||||
[RICALT]
 | 
			
		||||
// il campo e' letto nel file 20 clifo
 | 
			
		||||
GROUP=100
 | 
			
		||||
X=2
 | 
			
		||||
Y=0
 | 
			
		||||
MSKID=F_RICALT
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT="Ric. alt."
 | 
			
		||||
USE=LF_CLIFO KE 6
 | 
			
		||||
INPUT=TIPOCF F_TIPOCF SELECT~RICALT F_RICALT
 | 
			
		||||
DISPLAY="Ricerca Altrenativa@30" RICALT~"Ragione sociale@50" RAGSOC~"Codice" CODCF~"Indrizzo@35" INDCF
 | 
			
		||||
OUTPUT=@F_CODCF
 | 
			
		||||
SIZE=30
 | 
			
		||||
 | 
			
		||||
[STATOPAIV]
 | 
			
		||||
// il campo e' letto nel file 20 clifo
 | 
			
		||||
GROUP=100
 | 
			
		||||
@ -940,7 +927,7 @@ TYPE=T_NUMERO
 | 
			
		||||
PROMPT="Stato      "
 | 
			
		||||
SIZE=3
 | 
			
		||||
FLAG=Z
 | 
			
		||||
USE=@F_STATOCF
 | 
			
		||||
USE=%STA
 | 
			
		||||
INPUT=CODTAB F_STATOSP
 | 
			
		||||
OUTPUT=F_DESSTATOSP S0
 | 
			
		||||
SPECIAL=CH SEARCH
 | 
			
		||||
@ -963,7 +950,7 @@ TYPE=T_STRINGA
 | 
			
		||||
PROMPT="Comune     "
 | 
			
		||||
SIZE=4
 | 
			
		||||
FLAG=U
 | 
			
		||||
USE=@F_COMCF
 | 
			
		||||
USE=LF_COMUNI
 | 
			
		||||
INPUT=STATO F_STATOSP~COM F_COMSP
 | 
			
		||||
OUTPUT=F_DENCOMSP DENCOM~F_PROVCOMSP PROVCOM
 | 
			
		||||
SPECIAL=CH SEARCH
 | 
			
		||||
@ -1689,13 +1676,242 @@ SPECIAL=CH NORMAL
 | 
			
		||||
 | 
			
		||||
[DESCRMAGC]
 | 
			
		||||
GROUP=2900
 | 
			
		||||
X=25
 | 
			
		||||
X=2
 | 
			
		||||
Y=1
 | 
			
		||||
MSKID=F_DESCRMAGC
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT=""
 | 
			
		||||
SIZE=50
 | 
			
		||||
 | 
			
		||||
[LVGROUP]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=1
 | 
			
		||||
Y=0
 | 
			
		||||
MSKID=F_LVGROUP
 | 
			
		||||
TYPE=T_CORNICE
 | 
			
		||||
SIZE=7907
 | 
			
		||||
PROMPT=""
 | 
			
		||||
 | 
			
		||||
[LVCODNUM]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=2
 | 
			
		||||
Y=1
 | 
			
		||||
FIELDNAME=CODNUM
 | 
			
		||||
MSKID=F_CODNUM
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=4
 | 
			
		||||
PROMPT="Cod. Num. "
 | 
			
		||||
FLAG=GDU
 | 
			
		||||
USE=%NUM
 | 
			
		||||
INPUT=CODTAB F_CODNUM
 | 
			
		||||
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
 | 
			
		||||
OUTPUT=F_DESNUM S0
 | 
			
		||||
SPECIAL=CH NORMAL~ME CO,2@
 | 
			
		||||
 | 
			
		||||
[LVDESNUM]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=18
 | 
			
		||||
Y=1
 | 
			
		||||
MSKID=F_DESNUM
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=45
 | 
			
		||||
PROMPT=""
 | 
			
		||||
FLAG=GD
 | 
			
		||||
SPECIAL=ME CO,3@
 | 
			
		||||
 | 
			
		||||
[LVSTATO]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=71
 | 
			
		||||
Y=1
 | 
			
		||||
FIELDNAME=STATO
 | 
			
		||||
MSKID=F_STATO
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=1
 | 
			
		||||
PROMPT="Stato "
 | 
			
		||||
FLAG=GD
 | 
			
		||||
USE=%STD
 | 
			
		||||
INPUT=CODTAB F_STATO
 | 
			
		||||
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
 | 
			
		||||
OUTPUT=F_STATO CODTAB
 | 
			
		||||
SPECIAL=CH NORMAL~ME CO,8@
 | 
			
		||||
 | 
			
		||||
[LVPROVV]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=200
 | 
			
		||||
Y=1
 | 
			
		||||
FIELDNAME=PROVV
 | 
			
		||||
MSKID=F_PROVV
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=1
 | 
			
		||||
PROMPT="Provvisorio/Definitivo"
 | 
			
		||||
FLAG=D
 | 
			
		||||
 | 
			
		||||
[LVTIPODOC]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=2
 | 
			
		||||
Y=2
 | 
			
		||||
FIELDNAME=TIPODOC
 | 
			
		||||
MSKID=F_TIPODOC
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=4
 | 
			
		||||
PROMPT="Tipo Doc. "
 | 
			
		||||
FLAG=GDU
 | 
			
		||||
USE=%TIP
 | 
			
		||||
INPUT=CODTAB F_TIPODOC
 | 
			
		||||
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
 | 
			
		||||
OUTPUT=F_DESTIPODOC S0
 | 
			
		||||
SPECIAL=CH NORMAL~ME CO,4@
 | 
			
		||||
 | 
			
		||||
[LVDESTIPODOC]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=18
 | 
			
		||||
Y=2
 | 
			
		||||
MSKID=F_DESTIPODOC
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=45
 | 
			
		||||
PROMPT=""
 | 
			
		||||
FLAG=GD
 | 
			
		||||
SPECIAL=ME CO,5@
 | 
			
		||||
 | 
			
		||||
[LVNDOC]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=64
 | 
			
		||||
Y=2
 | 
			
		||||
FIELDNAME=NDOC
 | 
			
		||||
MSKID=F_NDOC
 | 
			
		||||
TYPE=T_NUMERO
 | 
			
		||||
SIZE=4
 | 
			
		||||
PROMPT="Num. Doc. "
 | 
			
		||||
FLAG=GDR
 | 
			
		||||
SPECIAL=ME CO,6@
 | 
			
		||||
 | 
			
		||||
[LVANNO]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=2
 | 
			
		||||
Y=3
 | 
			
		||||
FIELDNAME=ANNO
 | 
			
		||||
MSKID=F_ANNO
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=4
 | 
			
		||||
PROMPT="Esercizio "
 | 
			
		||||
FLAG=GD
 | 
			
		||||
SPECIAL=ME CO,9@
 | 
			
		||||
 | 
			
		||||
[LVDATADOC]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=18
 | 
			
		||||
Y=3
 | 
			
		||||
FIELDNAME=DATADOC
 | 
			
		||||
MSKID=F_DATADOC
 | 
			
		||||
TYPE=T_DATA
 | 
			
		||||
SPECIAL=ME CO,7@
 | 
			
		||||
 | 
			
		||||
[LVGIORNO]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=34
 | 
			
		||||
Y=3
 | 
			
		||||
MSKID=F_LVGIORNO
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT =""
 | 
			
		||||
SIZE=9
 | 
			
		||||
FLAG=D
 | 
			
		||||
 | 
			
		||||
[LVSETTIMANA]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=44
 | 
			
		||||
Y=3
 | 
			
		||||
MSKID=F_LVSETTIMANA
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT="Settimana "
 | 
			
		||||
SIZE=1
 | 
			
		||||
FLAG=D
 | 
			
		||||
 | 
			
		||||
[LVTIPOCF]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=200
 | 
			
		||||
Y=4
 | 
			
		||||
FIELDNAME=TIPOCF
 | 
			
		||||
MSKID=F_TIPOCF
 | 
			
		||||
TYPE=T_LISTA
 | 
			
		||||
ITEMS=C|Cliente
 | 
			
		||||
SIZE=9
 | 
			
		||||
PROMPT=""
 | 
			
		||||
FLAG=D
 | 
			
		||||
 | 
			
		||||
[LVCODCF]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=2
 | 
			
		||||
Y=4
 | 
			
		||||
FIELDNAME=CODCF
 | 
			
		||||
MSKID=F_CODCF
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=6
 | 
			
		||||
PROMPT="Cliente   "
 | 
			
		||||
FLAG=R
 | 
			
		||||
USE=LF_CLIFO
 | 
			
		||||
INPUT=TIPOCF "C"~CODCF F_CODCF
 | 
			
		||||
DISPLAY="Codice" CODCF~"Mnemonico" RICALT~"Ragione Sociale@50" RAGSOC
 | 
			
		||||
OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC~F_LVRICALT RICALT
 | 
			
		||||
SPECIAL=CH REQUIRED~ADD  RU cg0 -1 "C"~ME CO,10@
 | 
			
		||||
 | 
			
		||||
[LVRICALT]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=23
 | 
			
		||||
Y=4
 | 
			
		||||
MSKID=F_LVRICALT
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=30
 | 
			
		||||
PROMPT=""
 | 
			
		||||
USE=LF_CLIFO KE 6
 | 
			
		||||
INPUT=TIPOCF "C"~RICALT F_LVRICALT
 | 
			
		||||
DISPLAY="Mnemonico" RICALT~"Codice" CODCF~"Ragione Sociale@50" RAGSOC
 | 
			
		||||
OUTPUT=@F_CODCF
 | 
			
		||||
 | 
			
		||||
[LVCODCONT]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=66
 | 
			
		||||
Y=4
 | 
			
		||||
FIELDNAME=CODCONT
 | 
			
		||||
MSKID=F_LVCODCONT
 | 
			
		||||
TYPE=T_NUMERO
 | 
			
		||||
PROMPT="Contratto "
 | 
			
		||||
SIZE=2
 | 
			
		||||
FLAG=D
 | 
			
		||||
 | 
			
		||||
[LVRAGSOC]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=2
 | 
			
		||||
Y=5
 | 
			
		||||
MSKID=F_RAGSOC
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
SIZE=50
 | 
			
		||||
PROMPT="Ragione Sociale      "
 | 
			
		||||
USE=LF_CLIFO KE 2
 | 
			
		||||
INPUT=TIPOCF "C"~RAGSOC F_RAGSOC
 | 
			
		||||
DISPLAY="Ragione Sociale@50" RAGSOC~"Codice" CODCF~"Mnemonico" RICALT
 | 
			
		||||
OUTPUT=@F_CODCF
 | 
			
		||||
SPECIAL=CH REQUIRED~ADD RU cg0 -1 "C"~ME CO,11@
 | 
			
		||||
 | 
			
		||||
[LVCODCAU]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=2
 | 
			
		||||
Y=7
 | 
			
		||||
MSKID=F_LVCODCAU
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT="Causale    "
 | 
			
		||||
SIZE=5
 | 
			
		||||
FLAG=DU
 | 
			
		||||
 | 
			
		||||
[LVDESCAU]
 | 
			
		||||
GROUP=4041
 | 
			
		||||
X=19
 | 
			
		||||
Y=7
 | 
			
		||||
MSKID=F_LVDESCAU
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT=""
 | 
			
		||||
SIZE=50
 | 
			
		||||
FLAG=DU
 | 
			
		||||
 | 
			
		||||
[BLANK]
 | 
			
		||||
GROUP=4000
 | 
			
		||||
X=100
 | 
			
		||||
@ -1703,5 +1919,4 @@ Y=0
 | 
			
		||||
MSKID=F_BLANK
 | 
			
		||||
TYPE=T_STRINGA
 | 
			
		||||
PROMPT=""
 | 
			
		||||
SIZE=1
 | 
			
		||||
 | 
			
		||||
SIZE=1
 | 
			
		||||
							
								
								
									
										13
									
								
								ve/veuml3.h
									
									
									
									
									
										Executable file
									
								
							
							
						
						
									
										13
									
								
								ve/veuml3.h
									
									
									
									
									
										Executable file
									
								
							@ -0,0 +1,13 @@
 | 
			
		||||
#ifndef __VEUML3_H
 | 
			
		||||
#define __VEUML3_H
 | 
			
		||||
 | 
			
		||||
// campi del gruppo lavanderie (4041)
 | 
			
		||||
#define F_LVGROUP         800
 | 
			
		||||
#define F_LVRICALT        801
 | 
			
		||||
#define F_LVGIORNO        802
 | 
			
		||||
#define F_LVSETTIMANA     803
 | 
			
		||||
#define F_LVCODCONT       804
 | 
			
		||||
#define F_LVCODCAU        805
 | 
			
		||||
#define F_LVDESCAU        806
 | 
			
		||||
 | 
			
		||||
#endif // __VEUML3_H
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user