diff --git a/ba/bastsua.uml b/ba/bastsua.uml index 3fc34d5ac..e410fb516 100755 --- a/ba/bastsua.uml +++ b/ba/bastsua.uml @@ -2,16 +2,16 @@ PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8 -STRING F_INIZIO1 2 +STRING F_INIZIO1 5 BEGIN PROMPT 2 1 "Da cod. agente " HELP "Inserire il codice d'inizio " - FIELD LF_TABCOM->CODTAB[1,2] - USE %AGE - INPUT CODTAB[1,2] F_INIZIO1 - DISPLAY "Codice Agente" CODTAB[1,2] + FIELD LF_TABCOM->CODTAB[1,5] + USE AGE + INPUT CODTAB[1,5] F_INIZIO1 + DISPLAY "Codice Agente" CODTAB[1,5] DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB[1,2] + OUTPUT F_INIZIO1 CODTAB[1,5] GROUP 1 END @@ -19,28 +19,28 @@ STRING F_INIZIO2 2 BEGIN PROMPT 28 1 "Da cod. subagente " HELP "Inserire il codice d'inizio " - FIELD LF_TABCOM->CODTAB[3,4] - USE %SUA - INPUT CODTAB[1,2] F_INIZIO1 - INPUT CODTAB[3,4] F_INIZIO2 - DISPLAY "Codice Agente" CODTAB[1,2] - DISPLAY "Codice SubAgente" CODTAB[3,4] + FIELD LF_TABCOM->CODTAB[6,7] + USE SUA + INPUT CODTAB[1,5] F_INIZIO1 + INPUT CODTAB[6,7] F_INIZIO2 + DISPLAY "Codice Agente" CODTAB[1,5] + DISPLAY "Codice SubAgente" CODTAB[6,7] DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB[1,2] - OUTPUT F_INIZIO2 CODTAB[3,4] + OUTPUT F_INIZIO1 CODTAB[1,5] + OUTPUT F_INIZIO2 CODTAB[6,7] GROUP 1 END -STRING F_FINE1 2 +STRING F_FINE1 5 BEGIN PROMPT 2 3 "A codice agente " HELP "Inserire il codice di fine " - FIELD LF_TABCOM->CODTAB[1,2] + FIELD LF_TABCOM->CODTAB[1,5] COPY USE F_INIZIO1 - INPUT CODTAB[1,2] F_FINE1 + INPUT CODTAB[1,5] F_FINE1 COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB[1,2] + OUTPUT F_FINE1 CODTAB[1,5] GROUP 2 END @@ -49,15 +49,15 @@ STRING F_FINE2 2 BEGIN PROMPT 28 3 "A codice subagente " HELP "Inserire il codice di fine " - FIELD LF_TABCOM->CODTAB[3,4] - USE %SUA - INPUT CODTAB[1,2] F_FINE1 - INPUT CODTAB[3,4] F_FINE2 - DISPLAY "Codice Agente" CODTAB[1,2] - DISPLAY "Codice SubAgente" CODTAB[3,4] + FIELD LF_TABCOM->CODTAB[6,7] + USE SUA + INPUT CODTAB[1,5] F_FINE1 + INPUT CODTAB[6,7] F_FINE2 + DISPLAY "Codice Agente" CODTAB[1,5] + DISPLAY "Codice SubAgente" CODTAB[6,7] DISPLAY "Descrizione@50" S0 - OUTPUT F_FINE1 CODTAB[1,2] - OUTPUT F_FINE2 CODTAB[3,4] + OUTPUT F_FINE1 CODTAB[1,5] + OUTPUT F_FINE2 CODTAB[6,7] GROUP 2 END diff --git a/ba/batbban.uml b/ba/batbban.uml index 56c914ab8..6b969f834 100755 --- a/ba/batbban.uml +++ b/ba/batbban.uml @@ -28,6 +28,7 @@ BEGIN OUTPUT F_CODICEABI CODTAB[1,5] OUTPUT H_DENOMABI S0 MESSAGE COPY,H_CODICEABI + CHECKTYPE REQUIRED END NUMBER F_CODICECAB 5 @@ -48,8 +49,9 @@ BEGIN OUTPUT F_DENOM S0 MESSAGE SHOW,F_ISTIT|SHOW,F_CODICEDIP|HIDE,H_DENOMABI|SHOW,F_DENOM MESSAGE EMPTY HIDE,F_ISTIT|HIDE,F_CODICEDIP|SHOW,H_DENOMABI|HIDE,F_DENOM - VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB +// VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB GROUP GR_SEARCH + CHECKTYPE NORMAL END NUMBER F_CODICEDIP 4 diff --git a/ba/batbclr.uml b/ba/batbclr.uml index fe91cf40d..de069396b 100755 --- a/ba/batbclr.uml +++ b/ba/batbclr.uml @@ -41,7 +41,7 @@ BEGIN FLAGS "U" FIELD CODTAB[2,2] USE %CLR - INPUT CODTAB[1,1] F_CODICERATA + INPUT CODTAB[1,1] F_CODICERATA SELECT INPUT CODTAB[2,2] F_CODICEALFA DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Classificazione" CODTAB[2,2] diff --git a/ba/batbcpg.uml b/ba/batbcpg.uml index 3d64c90ea..f068698d8 100755 --- a/ba/batbcpg.uml +++ b/ba/batbcpg.uml @@ -53,7 +53,7 @@ BEGIN ITEM "10|Altro" END -LIST F_INIZIOSCAD 12 +LIST F_INIZIOSCAD 14 BEGIN PROMPT 4 7 "Inizio scadenze " FIELD LF_TABCOM->S7 diff --git a/ba/batbitl.rpt b/ba/batbitl.rpt index 9fd0280f2..04ef93ca8 100755 --- a/ba/batbitl.rpt +++ b/ba/batbitl.rpt @@ -2,7 +2,7 @@ 80 Tabella dei libri sociali 1|@2g%s|Cod. -1|@8g%s|Descriozione +1|@8g%s|Descrizione [Rows] 1|CODTAB|@2g@5,ls diff --git a/ba/batbivd.uml b/ba/batbivd.uml index 681aa50e7..5154f9372 100755 --- a/ba/batbivd.uml +++ b/ba/batbivd.uml @@ -38,7 +38,7 @@ BEGIN CHECKTYPE NORMAL HELP "Lettera secondo la IV dir. CEE" GROUP GR_SEARCH - VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM +// VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM END STRING F_DESCR_LETT 70 50 @@ -66,7 +66,7 @@ BEGIN OUTPUT F_DESCR_CLAS S0 CHECKTYPE NORMAL HELP "Classe secondo la IV dir. CEE (numero romano)" - VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM +// VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM END STRING F_DESCR_CLAS 70 50 @@ -95,7 +95,7 @@ BEGIN OUTPUT F_CLASSE CODTAB[3,6] OUTPUT F_DESCR S0 HELP "Numero (arabo) secondo la IV dir. CEE" - VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM +// VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM END TEXT DLG_NULL