Patch level : 10.0
Files correlati : ve0.exe Ricompilazione Demo : [ ] Commento : Aggiunta ricerca per codice mnemonico alle maschere dei documenti delle lavanderie git-svn-id: svn://10.65.10.50/trunk@18168 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
fff659f797
commit
7cf43e4623
@ -1271,7 +1271,9 @@ void TMask_generator::genera( const TString& profilo )
|
||||
|
||||
_pro = new TConfig( proname );
|
||||
|
||||
const TString16 tipocf(_pro->get("TIPOCF", "MAIN"));
|
||||
const char tipo_cf = _pro->get_char("TIPOCF", "MAIN");
|
||||
const bool calimero = tipo_cf == 'C' && _pro->get("MODULE") == "lv";
|
||||
|
||||
TFilename _mskname(profilo);
|
||||
_mskname.ext( "msk" );
|
||||
|
||||
@ -1336,7 +1338,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
|
||||
_m->pagina( _m->page( ), title);
|
||||
|
||||
_m->control( T_CORNICE, DLG_NULL, 7806 );
|
||||
_m->control( T_CORNICE, DLG_NULL, calimero ? 7807 : 7806 );
|
||||
_m->begin( );
|
||||
_m->prompt( 1, 0, "" );
|
||||
_m->end( );
|
||||
@ -1344,7 +1346,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->control( T_STRINGA, F_CODNUM, 4 );
|
||||
_m->begin( );
|
||||
_m->prompt( 2, 1, "Cod. num. " );
|
||||
_m->field("CODNUM");
|
||||
_m->field(DOC_CODNUM);
|
||||
_m->use("%NUM", 1);
|
||||
temp_s.format("CODTAB %d", F_CODNUM);
|
||||
_m->input(temp_s);
|
||||
@ -1365,7 +1367,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
|
||||
_m->control( T_STRINGA, F_TIPODOC, 4 );
|
||||
_m->begin( );
|
||||
_m->field( "TIPODOC" );
|
||||
_m->field( DOC_TIPODOC );
|
||||
_m->prompt( 2, 2, "Tipo doc. " );
|
||||
_m->use("%TIP" , 1);
|
||||
temp_s.format("CODTAB %d", F_TIPODOC);
|
||||
@ -1381,18 +1383,15 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->control( T_LISTA, F_TIPOCF, 9 );
|
||||
_m->begin( );
|
||||
_m->prompt( 100, 100, "" );
|
||||
_m->field( "TIPOCF" );
|
||||
if ( tipocf == "C" )
|
||||
_m->item("C|Cliente");
|
||||
else
|
||||
_m->item("F|Fornitore");
|
||||
_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( "PROVV" );
|
||||
_m->field( DOC_PROVV );
|
||||
_m->flag( "D" );
|
||||
_m->end( );
|
||||
|
||||
@ -1406,7 +1405,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->control( T_STRINGA, F_ANNO, 4 );
|
||||
_m->begin( );
|
||||
_m->prompt( 2, 3, "Esercizio " );
|
||||
_m->field( "ANNO" );
|
||||
_m->field( DOC_ANNO );
|
||||
_m->flag( "GD" );
|
||||
_m->message( "CO,9@" );
|
||||
_m->end( );
|
||||
@ -1414,7 +1413,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->control( T_NUMERO, F_NDOC, 6 );
|
||||
_m->begin( );
|
||||
_m->prompt( 24, 3, "Numero doc. " );
|
||||
_m->field( "NDOC" );
|
||||
_m->field( DOC_NDOC );
|
||||
_m->message( "CO,6@" );
|
||||
_m->flag( "GDR" );
|
||||
_m->end( );
|
||||
@ -1422,7 +1421,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->control( T_DATA, F_DATADOC );
|
||||
_m->begin( );
|
||||
_m->prompt( 46, 3, "Data " );
|
||||
_m->field( "DATADOC" );
|
||||
_m->field( DOC_DATADOC );
|
||||
TString m("CO,7@");
|
||||
_m->message(m);
|
||||
// _m->flag( "A" );
|
||||
@ -1431,7 +1430,7 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->control( T_STRINGA, F_STATO, 1 );
|
||||
_m->begin( );
|
||||
_m->prompt( 67, 3, "Stato " );
|
||||
_m->field( "STATO" );
|
||||
_m->field( DOC_STATO );
|
||||
_m->use("%STD", 1);
|
||||
_m->input("CODTAB 105");
|
||||
_m->display("\"Codice\" CODTAB");
|
||||
@ -1442,38 +1441,60 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->flag( "DG" );
|
||||
_m->end( );
|
||||
|
||||
const int clifo_y = calimero ? 5 : 4;
|
||||
|
||||
if (calimero)
|
||||
{
|
||||
_m->control( T_STRINGA, F_RICALT, 30 );
|
||||
_m->begin( );
|
||||
_m->prompt( 2, clifo_y-1, "Codice mnemonico " );
|
||||
_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_CODCF, 6 );
|
||||
_m->begin( );
|
||||
if ( tipocf == "C" )
|
||||
if ( tipo_cf == 'C' )
|
||||
{
|
||||
_m->prompt( 2, 4, "Cliente " );
|
||||
_m->prompt( 2, clifo_y, "Cliente " );
|
||||
_m->warning( "Cliente assente" );
|
||||
_m->help( "Codice del cliente del documento" );
|
||||
}
|
||||
else
|
||||
{
|
||||
_m->prompt( 2, 4, "Fornitore " );
|
||||
_m->prompt( 2, clifo_y, "Fornitore " );
|
||||
_m->warning( "Fornitore assente" );
|
||||
_m->help( "Codice del fornitore del documento" );
|
||||
}
|
||||
_m->flag( "R" );
|
||||
_m->field( "CODCF" );
|
||||
_m->field( DOC_CODCF );
|
||||
_m->group( 1 );
|
||||
_m->use( LF_CLIFO, 1 );
|
||||
temp_s.format( "TIPOCF \"%s\"~CODCF %d", (const char *)tipocf, F_CODCF);
|
||||
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 %s", (const char *)tipocf);
|
||||
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 ( tipocf == "C" )
|
||||
if ( tipo_cf == 'C' )
|
||||
{
|
||||
_m->warning( "Cliente assente" );
|
||||
_m->help( "Ragione sociale del cliente del documento" );
|
||||
@ -1483,16 +1504,16 @@ void TMask_generator::genera( const TString& profilo )
|
||||
_m->warning( "Fornitore assente" );
|
||||
_m->help( "Ragione sociale del fornitore del documento" );
|
||||
}
|
||||
_m->prompt( 24, 4, "" );
|
||||
_m->prompt( 24, clifo_y, "" );
|
||||
_m->group( 1 );
|
||||
_m->use( LF_CLIFO, 2 );
|
||||
temp_s.format( "TIPOCF \"%s\"~RAGSOC %d", (const char *)tipocf, F_RAGSOC );
|
||||
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 %s", (const char *)tipocf);
|
||||
temp_s.format( "ADD RU cg0 -1 %c", tipo_cf);
|
||||
_m->outline( temp_s );
|
||||
_m->message( "CO,11@" );
|
||||
_m->end( );
|
||||
|
||||
@ -65,6 +65,7 @@
|
||||
#define F_G2 168
|
||||
#define F_DATAAGG 169 // GESTITO DAL MOTORE
|
||||
#define F_UTENTE 170 // GESTITO DAL MOTORE
|
||||
#define F_RICALT 171 // GESTITO DAL MOTORE
|
||||
#define F_TIPODOC 172 // GESTITO DAL MOTORE
|
||||
#define F_DESNUM 173 // GESTITO DAL MOTORE
|
||||
#define F_TIPIDOCS 174 // GESTITO DAL MOTORE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user