root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretto errrore gestione utente all'inizio

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba0.cpp
View File

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

4
ba/ba1300.cpp
View File

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

30
ba/ba3300a.uml
View File

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

18
ba/ba3700a.uml
View File

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

8
ba/ba4300a.uml
View File

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

5
ba/batbclr.uml
View File

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

15
ba/batbdel.uml
View File

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

11
ba/batblbu.uml
View File

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

27
ba/batbpim.uml
View File

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

12
ba/batbpimc.uml
View File

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

2
ba/batbreg.uml
View File

@ -360,7 +360,7 @@ END
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN
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
FLAGS "M"
ITEM "13|Annuale"