Corretto errrore gestione utente all'inizio

git-svn-id: svn://10.65.10.50/trunk@604 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-11 18:01:12 +00:00
parent 430a49010b
commit 1155d509e5
11 changed files with 820 additions and 780 deletions

View File

@ -445,8 +445,8 @@ void TMenu_application::test_temp() const
{ {
TFilename dir; dir.tempdir(); // Directory temporanea TFilename dir; dir.tempdir(); // Directory temporanea
TFilename name = dir; TFilename name;
name << "/" << "*.*"; // Cerca tutti i file name << dir << "/" << "*.*"; // Cerca tutti i file
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
struct _find_t f; struct _find_t f;

View File

@ -1,16 +1,16 @@
#include <stdlib.h> #include <stdlib.h>
#include <applicat.h> #include <applicat.h>
#include <xvtility.h> #include <xvtility.h>
#include <utility.h> #include <utility.h>
#include <prefix.h> #include <prefix.h>
#include <mask.h> #include <mask.h>
#include <isam.h> #include <isam.h>
#include <string.h>
#include <sheet.h> #include <sheet.h>
#include <msksheet.h>
#include <progind.h> #include <progind.h>
#include <urldefid.h> #include <urldefid.h>
#include <validate.h> #include <validate.h>
#include "ba1.h" #include "ba1.h"
#include "ba1300.h" #include "ba1300.h"
#include "ba1300a.h" #include "ba1300a.h"

View File

@ -5,6 +5,7 @@ PAGE "Stampa fogli libro bollato" -1 -1 74 20
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 3 3 "Anno Riferimento " PROMPT 3 3 "Anno Riferimento "
HELP "Anno a cui si riferisce il bollato"
USE REG USE REG
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE INPUT CODTAB[5,7] F_CODICE
@ -30,6 +31,7 @@ END
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 3 4 "Codice Registro " PROMPT 3 4 "Codice Registro "
HELP "Codice del registro da numerare"
FLAGS "U" FLAGS "U"
COPY ALL F_ANNO COPY ALL F_ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -39,7 +41,7 @@ END
STRING F_REGISTRO 50 STRING F_REGISTRO 50
BEGIN BEGIN
PROMPT 3 6 "Registro " PROMPT 3 6 "Registro "
HELP "Indicare la descrizione del registro" HELP "Descrizione del registro da numerare"
USE REG KEY 2 USE REG KEY 2
INPUT S0 F_REGISTRO INPUT S0 F_REGISTRO
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -54,6 +56,7 @@ STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 3 7 "Ragione sociale " PROMPT 3 7 "Ragione sociale "
FLAGS "U" FLAGS "U"
HELP "Ragione sociale dell'intestatario del registro"
// USE LF_NDITTE KEY 2 // USE LF_NDITTE KEY 2
// INPUT RAGSOC F_RAGSOC // INPUT RAGSOC F_RAGSOC
// DISPLAY "Ragione sociale @50" RAGSOC // DISPLAY "Ragione sociale @50" RAGSOC
@ -65,6 +68,7 @@ END
STRING F_INDIRIZZO 35 STRING F_INDIRIZZO 35
BEGIN BEGIN
PROMPT 3 8 "Indirizzo " PROMPT 3 8 "Indirizzo "
HELP "Indirizzo dell'intestatario del registro"
// USE LF_UNLOC // USE LF_UNLOC
// CHECKTYPE NORMAL // CHECKTYPE NORMAL
// INPUT CODULC "1" // INPUT CODULC "1"
@ -79,31 +83,37 @@ END
STRING F_CIV 10 STRING F_CIV 10
BEGIN BEGIN
PROMPT 51 8 "N.civico " PROMPT 51 8 "N.civico "
HELP "Numero civico dell'intestatario del registro"
END END
STRING F_CAP 5 STRING F_CAP 5
BEGIN BEGIN
PROMPT 3 9 "CAP " PROMPT 3 9 "CAP "
HELP "CAP del comune dell'intestatario del registro"
END END
STRING F_CODCOM 4 STRING F_CODCOM 4
BEGIN BEGIN
PROMPT 15 9 "Comune " PROMPT 15 9 "Comune "
HELP "Codice del comune dell'intestatario del registro"
END END
STRING F_COM 28 STRING F_COM 28
BEGIN BEGIN
PROMPT 29 9 "" PROMPT 29 9 ""
HELP "Nome del comune dell'intestatario del registro"
END END
STRING F_PROV 5 STRING F_PROV 5
BEGIN BEGIN
PROMPT 60 9 "Prov." PROMPT 60 9 "Prov."
HELP "Provincia dell'intestatario del registro"
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 3 10 "Codice fiscale " PROMPT 3 10 "Codice fiscale "
HELP "Codice fiscale dell'intestatario del registro"
// USE LF_ANAG KEY 2 // USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC // INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA // DISPLAY "Tipo" TIPOA
@ -117,6 +127,7 @@ END
STRING F_PAIV 12 STRING F_PAIV 12
BEGIN BEGIN
PROMPT 44 10 "Partita I.V.A " PROMPT 44 10 "Partita I.V.A "
HELP "Partita IVA dell'intestatario del registro"
// USE LF_ANAG KEY 2 // USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC // INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA // DISPLAY "Tipo" TIPOA
@ -130,6 +141,7 @@ END
NUMBER F_NPAGINI 6 NUMBER F_NPAGINI 6
BEGIN BEGIN
PROMPT 3 12 "Numero pagina iniziale " PROMPT 3 12 "Numero pagina iniziale "
HELP "Numero della prima pagina da numerare"
FLAGS "RU" FLAGS "RU"
NUM_EXPR {#THIS_FIELD >= 0} NUM_EXPR {#THIS_FIELD >= 0}
WARNING "Numero pagina iniziale errato: non puo' essere negativo" WARNING "Numero pagina iniziale errato: non puo' essere negativo"
@ -138,6 +150,7 @@ END
NUMBER F_NPAGFI 6 NUMBER F_NPAGFI 6
BEGIN BEGIN
PROMPT 3 13 "Numero pagina finale " PROMPT 3 13 "Numero pagina finale "
HELP "Numero dell'ultima pagina da numerare"
FLAGS "R" FLAGS "R"
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI} NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale" WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
@ -146,11 +159,13 @@ END
BOOLEAN F_PRIMO BOOLEAN F_PRIMO
BEGIN BEGIN
PROMPT 3 14 "Inizio numerazione dopo primo foglio " PROMPT 3 14 "Inizio numerazione dopo primo foglio "
HELP "Indicare se iniziare la numerazione nel secondo foglio"
END END
LIST F_TIPOST 7 LIST F_TIPOST 7
BEGIN BEGIN
PROMPT 3 15 "Tipo di stampa " PROMPT 3 15 "Tipo di stampa "
HELP "Larghezza del foglio"
ITEM "0|132" ITEM "0|132"
ITEM "1|132 c." ITEM "1|132 c."
ITEM "2|198" ITEM "2|198"
@ -159,6 +174,7 @@ END
NUMBER F_LUNG 2 NUMBER F_LUNG 2
BEGIN BEGIN
PROMPT 3 16 "Numero di righe " PROMPT 3 16 "Numero di righe "
HELP "Lunghezza del foglio"
FLAGS "R" FLAGS "R"
END END
@ -175,15 +191,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

View File

@ -16,7 +16,7 @@ END
STRING F_CODICE 4 STRING F_CODICE 4
BEGIN BEGIN
PROMPT 6 1 "Codice " PROMPT 6 1 "Codice "
HELP "Inserire il codice di pagamento" HELP "Codice condizione di pagamento"
FIELD %CPG->CODTAB FIELD %CPG->CODTAB
USE %CPG KEY 1 ALIAS 50 USE %CPG KEY 1 ALIAS 50
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
@ -31,7 +31,7 @@ END
STRING F_DESC 50 STRING F_DESC 50
BEGIN BEGIN
PROMPT 6 2 "Descrizione " PROMPT 6 2 "Descrizione "
HELP "Inserire la descrizione" HELP "Descrizione condizione di pagamento"
FIELD %CPG->S0 FIELD %CPG->S0
END END
@ -43,6 +43,7 @@ END
STRING F_INIZIOSCAD 1 STRING F_INIZIOSCAD 1
BEGIN BEGIN
PROMPT 6 5 "Part.iniz. calcolo " PROMPT 6 5 "Part.iniz. calcolo "
HELP "Modalit… di inizio conteggio calcolo scadenza"
FIELD %CPG->S1 FIELD %CPG->S1
SHEET "Cod|Descrizione@30" SHEET "Cod|Descrizione@30"
INPUT F_INIZIOSCAD INPUT F_INIZIOSCAD
@ -55,12 +56,14 @@ END
BOOLEAN F_MESECOMM BOOLEAN F_MESECOMM
BEGIN BEGIN
PROMPT 49 5 " Mese commerciale" PROMPT 49 5 " Mese commerciale"
HELP "Indicare se si utilizza il mese commerciale (30 gg)"
FIELD %CPG->B0 FIELD %CPG->B0
END END
STRING F_TIPO_PRIMA_RATA 1 STRING F_TIPO_PRIMA_RATA 1
BEGIN BEGIN
PROMPT 6 6 "Tipo prima rata " PROMPT 6 6 "Tipo prima rata "
HELP "Tipo di conteggio per la prima rata"
FIELD %CPG->S3 FIELD %CPG->S3
SHEET "Cod|Descrizione@60" SHEET "Cod|Descrizione@60"
INPUT F_TIPO_PRIMA_RATA INPUT F_TIPO_PRIMA_RATA
@ -77,6 +80,7 @@ END
LIST F_RATE_DIFF 27 LIST F_RATE_DIFF 27
BEGIN BEGIN
PROMPT 35 6 " Rate " PROMPT 35 6 " Rate "
HELP "Descrizione delle rate"
ITEM "1|Differenziate" ITEM "1|Differenziate"
ITEM "2|Uguali" ITEM "2|Uguali"
ITEM "3|Uguali dall'ultima modificata" ITEM "3|Uguali dall'ultima modificata"
@ -87,11 +91,13 @@ END
NUMBER F_NUM_RATE 3 NUMBER F_NUM_RATE 3
BEGIN BEGIN
PROMPT 6 7 "Numero di rate " PROMPT 6 7 "Numero di rate "
HELP "Numero delle rate"
END END
NUMBER F_INT_RATE 4 NUMBER F_INT_RATE 4
BEGIN BEGIN
PROMPT 35 7 "Intervallo tra rate successive " PROMPT 35 7 "Intervallo tra rate successive "
HELP "Giorni di intervallo tra una data e l'altra"
END END
SPREADSHEET F_SHEET_RPG 70 9 SPREADSHEET F_SHEET_RPG 70 9
@ -113,12 +119,14 @@ PAGE "" -1 -1 78 15
NUMBER 101 4 NUMBER 101 4
BEGIN BEGIN
PROMPT 4 1 "Numero giorni " PROMPT 4 1 "Numero giorni "
HELP "Numero di giorni per la scadenza"
/* FIELD %RPG->I0 */ /* FIELD %RPG->I0 */
END END
NUMBER 102 8 2 NUMBER 102 8 2
BEGIN BEGIN
PROMPT 4 3 "Percentuale " PROMPT 4 3 "Percentuale "
HELP "Percentuale della rata"
/* FIELD %RPG->R0 */ /* FIELD %RPG->R0 */
END END
@ -126,7 +134,7 @@ END
NUMBER 103 2 0 NUMBER 103 2 0
BEGIN BEGIN
PROMPT 4 4 "Tipo pagamento " PROMPT 4 4 "Tipo pagamento "
HELP "" HELP "Tipo di pagamento per la rata"
SHEET "Codice|Tipo pagamento@32" SHEET "Codice|Tipo pagamento@32"
INPUT 103 INPUT 103
OUTPUT 103 OUTPUT 103
@ -143,7 +151,7 @@ END
STRING 104 12 STRING 104 18
BEGIN BEGIN
PROMPT 4 5 "Pagamento " PROMPT 4 5 "Pagamento "
FLAGS "D" FLAGS "D"
@ -161,7 +169,7 @@ BEGIN
OUTPUT 105 CODTAB OUTPUT 105 CODTAB
/* OUTPUT 103 CODTAB[1,1] */ /* OUTPUT 103 CODTAB[1,1] */
/* CHECKTYPE NORMAL */ /* CHECKTYPE NORMAL */
HELP "Scegliere uno dei codici della tabella, oppure lasciare il campo vuoto" HELP "Codice per ulteriore classificazione della data"
END END

View File

@ -401,14 +401,14 @@ END
DATE FLD_GD2_DINIZIOATT DATE FLD_GD2_DINIZIOATT
BEGIN BEGIN
PROMPT 1 5 "Inizio Attivit" PROMPT 1 5 "Inizio Attivita'"
FIELD LF_NDITTE->DINIZIOATT FIELD LF_NDITTE->DINIZIOATT
HELP "Data di inizio attivita'" HELP "Data di inizio attivita'"
END END
NUMBER FLD_GD2_NULC 3 NUMBER FLD_GD2_NULC 3
BEGIN BEGIN
PROMPT 45 5 "Numero Unit… Locali " PROMPT 45 5 "Numero Unita' Locali "
FIELD LF_NDITTE->NULC FIELD LF_NDITTE->NULC
FLAGS "RZ" FLAGS "RZ"
HELP "Numero delle unita' locali di appartenenza" HELP "Numero delle unita' locali di appartenenza"
@ -486,12 +486,12 @@ END
NUMBER LST_GD2_STATOSOC 1 NUMBER LST_GD2_STATOSOC 1
BEGIN BEGIN
PROMPT 1 9 "Stato societ " PROMPT 1 9 "Stato societa' "
FIELD LF_NDITTE->STATOSOC FIELD LF_NDITTE->STATOSOC
SHEET "Codice|Stato@70" SHEET "Codice|Stato@70"
INPUT LST_GD2_STATOSOC INPUT LST_GD2_STATOSOC
OUTPUT LST_GD2_STATOSOC OUTPUT LST_GD2_STATOSOC
HELP "Codice dello stato della societ" HELP "Codice dello stato della societa'"
ITEM " |Sconosciuto" ITEM " |Sconosciuto"
ITEM "1|Soggetto in normale attivita'" ITEM "1|Soggetto in normale attivita'"
ITEM "2|Soggetto in liquidazione per cessazione di attivita'" ITEM "2|Soggetto in liquidazione per cessazione di attivita'"

View File

@ -11,6 +11,7 @@ PAGE "Ulteriore classificazione" -1 -1 78 13
STRING F_CODICERATA 1 STRING F_CODICERATA 1
BEGIN BEGIN
PROMPT 4 1 "Codice " PROMPT 4 1 "Codice "
HELP "Codice della rata dell'ulteriore classificazione"
FIELD %CLR->CODTAB[1,1] FIELD %CLR->CODTAB[1,1]
SHEET "Cod|Descrizione@60" SHEET "Cod|Descrizione@60"
INPUT F_CODICERATA INPUT F_CODICERATA
@ -39,7 +40,7 @@ BEGIN
OUTPUT F_CODICERATA CODTAB[1,1] OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2] OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
HELP "Inserire il codice dell' ulteriore classificazione" HELP "Codice dell' ulteriore classificazione"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -55,7 +56,7 @@ BEGIN
OUTPUT F_CODICERATA CODTAB[1,1] OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2] OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
HELP "Inserire la descrizione dell' ulteriore classificazione" HELP "Descrizione dell' ulteriore classificazione"
END END
ENDPAGE ENDPAGE

View File

@ -11,6 +11,7 @@ PAGE "Tabella deleghe IVA" -1 -1 78 15
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 4 1 "Ditta " PROMPT 4 1 "Ditta "
HELP "Codice ditta a cui si riferisce la delega"
FIELD CODTAB[1,5] FIELD CODTAB[1,5]
FLAGS "FR" FLAGS "FR"
KEY 1 KEY 1
@ -27,6 +28,7 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 4 2 "Ragione sociale " PROMPT 4 2 "Ragione sociale "
HELP "Ragione sociale ditta a cui si riferisce la delega"
KEY 1 KEY 1
USE LF_NDITTE KEY 2 USE LF_NDITTE KEY 2
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
@ -59,7 +61,7 @@ BEGIN
OUTPUT F_ANNO CODTAB[6,9] OUTPUT F_ANNO CODTAB[6,9]
OUTPUT F_MESE CODTAB[10,11] OUTPUT F_MESE CODTAB[10,11]
OUTPUT F_TIPO CODTAB[12,12] OUTPUT F_TIPO CODTAB[12,12]
HELP "Introdurre l'anno di versamento" HELP "Anno di versamento"
END END
LIST F_MESE 10 LIST F_MESE 10
@ -69,7 +71,7 @@ BEGIN
FLAGS "MA" FLAGS "MA"
KEY 1 KEY 1
COPY ALL F_ANNO COPY ALL F_ANNO
HELP "Introdurre il mese di versamento" HELP "Mese di versamento"
ITEM "13|Annuale" ITEM "13|Annuale"
MESSAGE "2",F_TIPO MESSAGE "2",F_TIPO
VALIDATE MTCHECK_FUNC VALIDATE MTCHECK_FUNC
@ -80,7 +82,7 @@ BEGIN
PROMPT 4 5 "Tipo " PROMPT 4 5 "Tipo "
FIELD CODTAB[12,12] FIELD CODTAB[12,12]
KEY 1 KEY 1
HELP "Introdurre il tipo di versamento" HELP "Tipo di versamento"
ITEM "1|normale" ITEM "1|normale"
MESSAGE ENABLE,F_MESE MESSAGE ENABLE,F_MESE
ITEM "2|annuale" ITEM "2|annuale"
@ -99,12 +101,13 @@ DATE F_DATA
BEGIN BEGIN
PROMPT 4 7 "Data " PROMPT 4 7 "Data "
FIELD D0 FIELD D0
HELP "Introdurre la data di versamento" HELP "Data di versamento"
END END
NUMBER F_BANCA1 5 NUMBER F_BANCA1 5
BEGIN BEGIN
PROMPT 4 8 "Codice ABI " PROMPT 4 8 "Codice ABI "
HELP "Codice ABI banca di appoggio"
FIELD S7 FIELD S7
FLAGS "RZ" FLAGS "RZ"
USE %BAN USE %BAN
@ -122,6 +125,7 @@ END
NUMBER F_BANCA2 5 NUMBER F_BANCA2 5
BEGIN BEGIN
PROMPT 4 9 "Codice CAB " PROMPT 4 9 "Codice CAB "
HELP "Codice CAB banca di appoggio"
FIELD S8 FIELD S8
FLAGS "RZ" FLAGS "RZ"
COPY ALL F_BANCA1 COPY ALL F_BANCA1
@ -134,12 +138,13 @@ BEGIN
PROMPT 4 10 "Importo " PROMPT 4 10 "Importo "
FIELD R0 FIELD R0
FLAGS "R" FLAGS "R"
HELP "Introdurre l'importo versato" HELP "Importo versato"
END END
BOOLEAN F_STAMPATO BOOLEAN F_STAMPATO
BEGIN BEGIN
PROMPT 4 12 "Stampato " PROMPT 4 12 "Stampato "
HELP "Indicare se si tratta di delega gi… stampata"
FIELD B0 FIELD B0
END END

View File

@ -11,6 +11,7 @@ PAGE "Tabella libro unico" -1 -1 78 18
NUMBER F_CODLIB 1 NUMBER F_CODLIB 1
BEGIN BEGIN
PROMPT 4 1 "Codice libro unico " PROMPT 4 1 "Codice libro unico "
HELP "Codice libro unico da gestire"
FIELD %LBU->CODTAB FIELD %LBU->CODTAB
KEY 1 KEY 1
USE %LBU USE %LBU
@ -19,6 +20,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 53 1 "Anno esercizio " PROMPT 53 1 "Anno esercizio "
HELP "Anno d'esercizio a cui si riferisce il libro"
FIELD %LBU->I0 FIELD %LBU->I0
END END
@ -42,6 +44,7 @@ PAGE "" -1 -1 78 18
BOOLEAN F_FLG_STAMPA_BOLLATO BOOLEAN F_FLG_STAMPA_BOLLATO
BEGIN BEGIN
PROMPT 4 1 "Flag di stampa su bollato " PROMPT 4 1 "Flag di stampa su bollato "
HELP "Indicare se viene stampato su bollato"
FIELD %LBU->B0 FIELD %LBU->B0
END END
@ -52,18 +55,21 @@ PAGE "" -1 -1 71 15
STRING 101 5 STRING 101 5
BEGIN BEGIN
PROMPT 1 1 "Numero iniziale pagina registro unico " PROMPT 1 1 "Numero iniziale pagina registro unico "
HELP "Numero della pagina iniziale del libro unico"
FIELD %LBU->I1 FIELD %LBU->I1
END END
NUMBER 102 5 NUMBER 102 5
BEGIN BEGIN
PROMPT 1 2 "Numero finale pagina registro unico " PROMPT 1 2 "Numero finale pagina registro unico "
HELP "Numero della pagina finale del libro unico"
FIELD %LBU->I2 FIELD %LBU->I2
END END
NUMBER 103 5 NUMBER 103 5
BEGIN BEGIN
PROMPT 1 4 "Codice ditta " PROMPT 1 4 "Codice ditta "
HELP "Codice ditta a cui si riferisce il libro unico"
FIELD %LBU->I3 FIELD %LBU->I3
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA 103 INPUT CODDITTA 103
@ -76,12 +82,14 @@ END
STRING 104 50 STRING 104 50
BEGIN BEGIN
PROMPT 1 5 "Ragione sociale " PROMPT 1 5 "Ragione sociale "
HELP "Ragione sociale ditta a cui si riferisce il libro unico"
FIELD %LBU->S0 FIELD %LBU->S0
END END
NUMBER 105 3 NUMBER 105 3
BEGIN BEGIN
PROMPT 1 7 "Codice registro " PROMPT 1 7 "Codice registro "
HELP "Codice resgistro ?????"
FIELD %LBU->I4 FIELD %LBU->I4
USE REG USE REG
INPUT CODTAB[5,7] 105 INPUT CODTAB[5,7] 105
@ -94,6 +102,7 @@ END
STRING 106 50 STRING 106 50
BEGIN BEGIN
PROMPT 1 8 "Descrizione " PROMPT 1 8 "Descrizione "
HELP "Descrizione ???????"
FIELD %LBU->S1 FIELD %LBU->S1
COPY USE 105 COPY USE 105
INPUT S0 106 INPUT S0 106
@ -104,12 +113,14 @@ END
NUMBER 107 5 NUMBER 107 5
BEGIN BEGIN
PROMPT 1 10 "Numero iniziale pagina registro utente " PROMPT 1 10 "Numero iniziale pagina registro utente "
HELP "????"
FIELD %LBU->I5 FIELD %LBU->I5
END END
NUMBER 108 5 NUMBER 108 5
BEGIN BEGIN
PROMPT 1 11 "Numero finale pagina registro utente " PROMPT 1 11 "Numero finale pagina registro utente "
HELP "??????"
FIELD %LBU->I6 FIELD %LBU->I6
END END

View File

@ -31,6 +31,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 4 "Anno " PROMPT 4 4 "Anno "
HELP "Anno d'esercizio di competenza"
FLAGS "A" FLAGS "A"
FIELD LF_TAB->CODTAB[1,4] FIELD LF_TAB->CODTAB[1,4]
USE PIM USE PIM
@ -58,7 +59,7 @@ END
STRING F_ATTIVITA 5 STRING F_ATTIVITA 5
BEGIN BEGIN
PROMPT 4 5 "Codice attivita " PROMPT 4 5 "Codice attivita "
HELP "Introdurre il codice dell' attivita'" HELP "Codice dell' attivita' della ditta"
FIELD LF_TAB->CODTAB[5,9] FIELD LF_TAB->CODTAB[5,9]
USE LF_ATTIV USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@ -75,17 +76,18 @@ END
STRING F_REGISTRO 3 STRING F_REGISTRO 3
BEGIN BEGIN
PROMPT 4 6 "Codice registro " PROMPT 4 6 "Codice registro "
HELP "Codice registro di riferimento"
FIELD LF_TAB->CODTAB[10,12] FIELD LF_TAB->CODTAB[10,12]
FLAGS "R" FLAGS "R"
USE REG USE REG
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB[1,3] F_REGISTRO INPUT CODTAB[1,4] F_REGISTRO
INPUT CODTAB[4,7] F_ANNO INPUT CODTAB[5,7] F_ANNO
DISPLAY "Codice registro" CODTAB[1,3] DISPLAY "Codice registro" CODTAB[1,3]
DISPLAY "Anno" CODTAB[4,7] DISPLAY "Anno" CODTAB[4,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,3] OUTPUT F_REGISTRO CODTAB[1,4]
OUTPUT F_ANNO CODTAB[4,7] OUTPUT F_ANNO CODTAB[5,7]
WARNING "Codice registro assente" WARNING "Codice registro assente"
KEY 1 KEY 1
END END
@ -93,6 +95,7 @@ END
LIST F_MESE 10 LIST F_MESE 10
BEGIN BEGIN
PROMPT 4 7 "Mese " PROMPT 4 7 "Mese "
HELP "Mese a cui si fa riferimento"
FIELD LF_TAB->CODTAB[13,14] FIELD LF_TAB->CODTAB[13,14]
FLAGS "MA" FLAGS "MA"
VALIDATE MTCHECK_FUNC VALIDATE MTCHECK_FUNC
@ -102,6 +105,7 @@ END
NUMBER F_TIPOCR 1 NUMBER F_TIPOCR 1
BEGIN BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo " PROMPT 4 8 "Tipo Costo/Ricavo "
HELP "Tipo di conto costo o ricavo"
FIELD LF_TAB->CODTAB[15,15] FIELD LF_TAB->CODTAB[15,15]
COPY ALL F_ANNO COPY ALL F_ANNO
KEY 1 KEY 1
@ -110,6 +114,7 @@ END
STRING F_CODIVA 3 STRING F_CODIVA 3
BEGIN BEGIN
PROMPT 4 10 "Codice IVA " PROMPT 4 10 "Codice IVA "
HELP "Codice IVA da applicare"
FIELD LF_TAB->CODTAB[16,18] FIELD LF_TAB->CODTAB[16,18]
USE %IVA USE %IVA
INPUT CODTAB F_CODIVA INPUT CODTAB F_CODIVA
@ -122,6 +127,7 @@ END
LIST F_IMPORTO 5 LIST F_IMPORTO 5
BEGIN BEGIN
PROMPT 4 9 "Tipo Importo " PROMPT 4 9 "Tipo Importo "
HELP "Tipo importo da applicare"
FIELD PIM->I0 FIELD PIM->I0
ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
@ -131,6 +137,7 @@ END
NUMBER F_IMPONIBILE 15 NUMBER F_IMPONIBILE 15
BEGIN BEGIN
PROMPT 4 11 "Imponibile " PROMPT 4 11 "Imponibile "
HELP "Importo dell'imponibile IVA"
FIELD LF_TAB->R0 FIELD LF_TAB->R0
FLAGS "R" FLAGS "R"
END END
@ -138,6 +145,7 @@ END
NUMBER F_IVA 15 NUMBER F_IVA 15
BEGIN BEGIN
PROMPT 4 12 "IVA " PROMPT 4 12 "IVA "
HELP "Importo dell'imposta IVA"
FIELD LF_TAB->R1 FIELD LF_TAB->R1
FLAGS "R" FLAGS "R"
END END
@ -145,6 +153,7 @@ END
NUMBER F_IMPLORDO 15 NUMBER F_IMPLORDO 15
BEGIN BEGIN
PROMPT 4 13 "Importo lordo " PROMPT 4 13 "Importo lordo "
HELP "Importo imponibile+IVA"
FIELD LF_TAB->R2 FIELD LF_TAB->R2
FLAGS "R" FLAGS "R"
END END
@ -152,11 +161,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

View File

@ -31,6 +31,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 4 "Anno " PROMPT 4 4 "Anno "
HELP "Anno d'esercizio di competenza"
FLAGS "A" FLAGS "A"
FIELD LF_TAB->CODTAB[1,4] FIELD LF_TAB->CODTAB[1,4]
USE PIM USE PIM
@ -55,7 +56,7 @@ END
STRING F_ATTIVITA 5 STRING F_ATTIVITA 5
BEGIN BEGIN
PROMPT 4 5 "Codice attivita " PROMPT 4 5 "Codice attivita "
HELP "Introdurre il codice dell' attivita'" HELP "Codice dell' attivita' della ditta"
FIELD LF_TAB->CODTAB[5,9] FIELD LF_TAB->CODTAB[5,9]
USE LF_ATTIV USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@ -72,6 +73,7 @@ END
STRING F_REGISTRO 3 STRING F_REGISTRO 3
BEGIN BEGIN
PROMPT 4 6 "Codice registro " PROMPT 4 6 "Codice registro "
HELP "Codice registro di riferimento"
FIELD LF_TAB->CODTAB[10,12] FIELD LF_TAB->CODTAB[10,12]
FLAGS "R" FLAGS "R"
USE REG USE REG
@ -90,6 +92,7 @@ END
NUMBER F_MESE 2 NUMBER F_MESE 2
BEGIN BEGIN
PROMPT 4 7 "Mese " PROMPT 4 7 "Mese "
HELP "Mese a cui si fa riferimento"
FIELD LF_TAB->CODTAB[13,14] FIELD LF_TAB->CODTAB[13,14]
FLAGS "RZ" FLAGS "RZ"
COPYUSE F_ANNO COPYUSE F_ANNO
@ -115,6 +118,7 @@ END
NUMBER F_TIPOCR 1 NUMBER F_TIPOCR 1
BEGIN BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo " PROMPT 4 8 "Tipo Costo/Ricavo "
HELP "Tipo di conto costo o ricavo"
FIELD LF_TAB->CODTAB[15,15] FIELD LF_TAB->CODTAB[15,15]
KEY 1 KEY 1
END END
@ -122,6 +126,7 @@ END
LIST F_IMPORTO 5 LIST F_IMPORTO 5
BEGIN BEGIN
PROMPT 4 9 "Tipo importo " PROMPT 4 9 "Tipo importo "
HELP "Tipo importo da applicare"
ITEM "1|Netti" ITEM "1|Netti"
MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
ITEM "2|Lordi" ITEM "2|Lordi"
@ -132,6 +137,7 @@ END
STRING F_CODIVA 3 STRING F_CODIVA 3
BEGIN BEGIN
PROMPT 4 10 "Codice IVA " PROMPT 4 10 "Codice IVA "
HELP "Codice IVA da applicare"
FIELD LF_TAB->CODTAB[15,17] FIELD LF_TAB->CODTAB[15,17]
COPYUSE F_ANNO COPYUSE F_ANNO
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
@ -155,6 +161,7 @@ END
NUMBER F_IMPONIBILE 15 NUMBER F_IMPONIBILE 15
BEGIN BEGIN
PROMPT 4 11 "Imponibile " PROMPT 4 11 "Imponibile "
HELP "Importo dell'imponibile IVA"
FIELD LF_TAB->R0 FIELD LF_TAB->R0
FLAGS "R" FLAGS "R"
END END
@ -162,6 +169,7 @@ END
NUMBER F_IVA 15 NUMBER F_IVA 15
BEGIN BEGIN
PROMPT 4 12 "IVA " PROMPT 4 12 "IVA "
HELP "Importo dell'imposta IVA"
FIELD LF_TAB->R1 FIELD LF_TAB->R1
FLAGS "R" FLAGS "R"
END END
@ -169,9 +177,11 @@ END
NUMBER F_IMPLORDO 15 NUMBER F_IMPLORDO 15
BEGIN BEGIN
PROMPT 4 13 "Importo lordo " PROMPT 4 13 "Importo lordo "
HELP "Importo imponibile+IVA"
FIELD LF_TAB->R2 FIELD LF_TAB->R2
FLAGS "R" FLAGS "R"
END END
BUTTON DLG_OK BUTTON DLG_OK
BEGIN BEGIN
PROMPT 42 14 "" PROMPT 42 14 ""

View File

@ -360,7 +360,7 @@ END
LIST F_MESE_STAMPA_ULTIMA_LIQ 10 LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN BEGIN
PROMPT 2 10 "Mese stampa ultima liquidazione " PROMPT 2 10 "Mese stampa ultima liquidazione "
HELP "Mese in cui Š stat stampata l'ultima liquidazione" HELP "Mese in cui e' stata stampata l'ultima liquidazione"
FIELD I4 FIELD I4
FLAGS "M" FLAGS "M"
ITEM "13|Annuale" ITEM "13|Annuale"