From 0d415c959b4d0d8bb62ae2a477f3198217db8e2f Mon Sep 17 00:00:00 2001 From: luca Date: Fri, 13 Mar 2009 11:44:30 +0000 Subject: [PATCH] Patch level :10.0 Files correlati : Ricompilazione Demo : [ ] Commento :eliminate maschere di tabella mai chiamate dal menu, non presenti in install.ini e senza modifiche nella storia git-svn-id: svn://10.65.10.50/trunk@18520 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/vetbacr.uml | 170 ----------- ve/vetbdip.uml | 574 ------------------------------------ ve/vetbfid.uml | 780 ------------------------------------------------- ve/vetbpro.uml | 108 ------- ve/vetbspt.uml | 89 ------ 5 files changed, 1721 deletions(-) delete mode 100755 ve/vetbacr.uml delete mode 100755 ve/vetbdip.uml delete mode 100755 ve/vetbfid.uml delete mode 100755 ve/vetbpro.uml delete mode 100755 ve/vetbspt.uml diff --git a/ve/vetbacr.uml b/ve/vetbacr.uml deleted file mode 100755 index d3d1e04f3..000000000 --- a/ve/vetbacr.uml +++ /dev/null @@ -1,170 +0,0 @@ -#include "vetbacr.h" -#define LF_ANAMAG 47 //ANAGRAFICA DI MAGAZZINO -#define LF_PCON 19 //PIANO DEI CONTI - - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Archivio costi e ricavi " -1 -1 78 8 - - -LISTBOX F_TIPO 8 -BEGIN - PROMPT 3 3 "Tipo lavoro " - FIELD %ACR->S0 - ITEM "1|Ricavi " - MESSAGE SHOW, F_CODGRUPPOR - MESSAGE HIDE, F_CODGRUPPOC - MESSAGE SHOW, F_CODCONTOR - MESSAGE HIDE, F_CODCONTOC - MESSAGE SHOW, F_CODSTCONTOR - MESSAGE HIDE, F_CODSTCONTOC - ITEM "2|Costi " - MESSAGE SHOW, F_CODGRUPPOC - MESSAGE HIDE, F_CODGRUPPOR - MESSAGE SHOW, F_CODCONTOC - MESSAGE HIDE, F_CODCONTOR - MESSAGE SHOW, F_CODSTCONTOC - MESSAGE HIDE, F_CODSTCONTOR - FLAG "R" -END - -STRING F_CODCATCON 3 -BEGIN - PROMPT 3 5 "Cod. cat. contabile " - FIELD %ACR->CODTAB[1,3] - KEY 1 - FLAG "U" - USE CCO // CATEGORIE CONTABILI C/F - - INPUT CODTAB F_CODCATCON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_CODCATCON CODTAB - OUTPUT F_CODCATCON S0 - CHECKTYPE REQUIRED -END - - -STRING F_CODART 20 -BEGIN - PROMPT 3 7 "Codice articolo " - FIELD %ACR->CODTAB[4,24] - KEY 1 - USE LF_ANAMAG KEY 1 - INPUT CODART F_CODART - - DISPLAY "Codice articolo" CODART - DISPLAY "Descrizione@30" DESCR - OUTPUT F_CODART CODART - OUTPUT F_DESART DESCR - -END - -STRING F_DESART 50 -BEGIN - PROMPT 23 9 "" - FLAG "U" - - USE LF_ANAMAG KEY 2 - INPUT DESCR F_DESART - DISPLAY "Codice articolo" CODART - DISPLAY "Descrizione@30" DESCR - OUTPUT F_CODART CODART - OUTPUT F_DESART DESCR - -END - -NUMBER F_CODGRUPPOR 3 -BEGIN - PROMPT 3 11 "Codice conto ricavo " - FIELD %ACR->S3 - END - -NUMBER F_CODCONTOR 3 -BEGIN - PROMPT 30 11 "" - FIELD %ACR->S4 - USE LF_PCON SELECT INDBIL="4" - INPUT GRUPPO F_CODGRUPPOR - INPUT CONTO F_CODCONTOR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOR GRUPPO - OUTPUT F_CODCONTOR CONTO - ADD RUN CG0 -0 - END - -NUMBER F_CODSTCONTOR 6 -BEGIN - PROMPT 39 11 "" - FIELD %ACR->S5 - USE LF_PCON - INPUT GRUPPO F_CODGRUPPOR - INPUT CONTO F_CODCONTOR - INPUT SOTTOCONTO F_CODSTCONTOR - - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOR GRUPPO - OUTPUT F_CODCONTOR CONTO - OUTPUT F_CODSTCONTOR SOTTOCONTO - OUTPUT F_DESSTCONTO DESCR - ADD RUN CG0 -0 -END - -NUMBER F_CODGRUPPOC 3 -BEGIN - PROMPT 3 11 "Codice conto costo " - FIELD %ACR->S3 - END - -NUMBER F_CODCONTOC 3 -BEGIN - PROMPT 30 11 "" - FIELD %ACR->S4 - USE LF_PCON SELECT INDBIL="3" - INPUT GRUPPO F_CODGRUPPOC - INPUT CONTO F_CODCONTOC - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOC GRUPPO - OUTPUT F_CODCONTOC CONTO - ADD RUN CG0 -0 - END - -NUMBER F_CODSTCONTOC 6 -BEGIN - PROMPT 39 11 "" - FIELD %ACR->S5 - USE LF_PCON - INPUT GRUPPO F_CODGRUPPOC - INPUT CONTO F_CODCONTOC - INPUT SOTTOCONTO F_CODSTCONTOC - - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODGRUPPOC GRUPPO - OUTPUT F_CODCONTOC CONTO - OUTPUT F_CODSTCONTOC SOTTOCONTO - OUTPUT F_DESSTCONTO DESCR - ADD RUN CG0 -0 -END - -STRING F_DESSTCONTO 50 -BEGIN - PROMPT 23 13 "" - FLAG "D" -END - -ENDPAGE -ENDMASK - diff --git a/ve/vetbdip.uml b/ve/vetbdip.uml deleted file mode 100755 index 735557312..000000000 --- a/ve/vetbdip.uml +++ /dev/null @@ -1,574 +0,0 @@ -#include "vetbdip.h" - -TOOLBAR "" 0 20 60 2 -#include -ENDPAGE - -PAGE "Tabella dipendenti" 11 60 14 - -GROUPBOX DLG_NULL 75 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -STRING F_CODICE 16 -BEGIN - PROMPT 2 1 "Codice " - FIELD CODTAB - KEY 1 - USE DIP - FLAGS "U" - INPUT CODTAB F_CODICE - DISPLAY "Codice@16" CODTAB - DISPLAY "Cognome@40" S0[1,40] - DISPLAY "Nome@30" S0[41,70] - OUTPUT F_CODICE CODTAB - OUTPUT F_COGNOME S0[1,40] - OUTPUT F_NOME S0[41,70] - CHECKTYPE REQUIRED - MESSAGE COPY,11@ -END - -STRING F_COGNOME 40 -BEGIN - PROMPT 2 2 "Cognome " - FIELD S0[1,40] - KEY 2 - USE DIP KEY 2 - INPUT S0[1,40] F_COGNOME - DISPLAY "Cognome@40" S0[1,40] - DISPLAY "Nome@30" S0[41,70] - DISPLAY "Codice@16" CODTAB - COPY OUTPUT F_CODICE - CHECKTYPE REQUIRED - MESSAGE COPY,12@ -END - -STRING F_NOME 30 -BEGIN - PROMPT 2 3 "Nome " - FIELD S0[41,70] - KEY 2 - USE DIP KEY 2 - INPUT S0[41,70] F_NOME - DISPLAY "Nome@30" S0[41,70] - DISPLAY "Cognome@40" S0[1,40] - DISPLAY "Codice@16" CODTAB - COPY OUTPUT F_CODICE - CHECKTYPE REQUIRED - MESSAGE COPY,13@ -END - -BOOLEAN F_COLLAB -BEGIN - PROMPT 2 5 "Collaboratore" - FIELD B0 - MESSAGE FALSE CLEAR,F_CODFORN|ENABLE,10@ - MESSAGE TRUE ENABLE,F_CODFORN|CLEAR,10@ -END - -NUMBER F_CODFORN 6 -BEGIN - PROMPT 2 6 "Codice fornitore " - FIELD I6 - USE LF_CLIFO - INPUT TIPOCF "F" - INPUT CODCF F_CODFORN - DISPLAY "Codice" CODCF - DISPLAY "Ragione Sociale@50" RAGSOC - OUTPUT F_CODFORN CODCF - OUTPUT F_ADDRESS INDCF - OUTPUT F_CIVICO CIVCF - OUTPUT F_STATO STATOCF - OUTPUT F_COMUNE COMCF - OUTPUT F_LOCALITA LOCALITACF - OUTPUT F_CAP CAPCF - OUTPUT F_CODFIS COFI - OUTPUT F_CODIVA PAIVA -END - -STRING F_CODFIS 16 -BEGIN - PROMPT 2 7 "Codice fiscale " - FIELD S3[5,21] - FLAGS "U" - GROUP 10 -END - -GROUPBOX DLG_NULL 76 6 -BEGIN - PROMPT 1 8 "@bRecapito" -END - -STRING F_ADDRESS 35 -BEGIN - PROMPT 2 9 "Indirizzo " - FIELD S1[1,35] - GROUP 10 -END - -STRING F_CIVICO 5 -BEGIN - PROMPT 65 9 "N. " - FIELD S3[26,35] - GROUP 10 -END - -NUMBER F_STATO 3 -BEGIN - PROMPT 2 10 "Comune: Stato " - FIELD I7 - FLAGS "Z" - USE %STA - INPUT CODTAB F_STATO - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT F_STATO CODTAB - OUTPUT F_DESTATO S0 - CHECKTYPE NORMAL - GROUP 10 -END - -STRING F_DESTATO 50 -BEGIN - PROMPT 23 10 "" - USE %STA KEY 2 - INPUT S0 F_DESTATO - DISPLAY "Stato@60" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_STATO - GROUP 10 -END - -STRING F_COMUNE 4 -BEGIN - PROMPT 8 11 ":Codice " - FIELD S3[22,25] - FLAGS "U" - USE LF_COMUNI - INPUT STATO F_STATO SELECT - INPUT COM F_COMUNE - DISPLAY "Stato" STATO - DISPLAY "Codice" COM - DISPLAY "Comune@50" DENCOM - OUTPUT F_STATO STATO - OUTPUT F_COMUNE COM - OUTPUT F_CAP CAPCOM - OUTPUT F_DENCOM DENCOM - OUTPUT F_PROV PROVCOM - CHECKTYPE NORMAL - ADD RUN ba4 -0 - GROUP 10 -END - -STRING F_DENCOM 50 -BEGIN - PROMPT 23 11 "" - USE LF_COMUNI KEY 2 - INPUT DENCOM F_DENCOM - DISPLAY "Comune@50" DENCOM - DISPLAY "Stato" STATO - DISPLAY "Codice" COM - COPY OUTPUT F_COMUNE - ADD RUN ba4 -0 - GROUP 10 -END - -STRING F_LOCALITA 35 -BEGIN - PROMPT 2 12 "Localita' " - FIELD S1[36,70] - GROUP 10 -END - -STRING F_CAP 5 -BEGIN - PROMPT 53 12 "CAP " - FIELD I8 - GROUP 10 -END - -STRING F_PROV 5 -BEGIN - PROMPT 64 12 "Prov" - FLAGS "D" - GROUP 10 -END - -BOOLEAN F_MRP_ATTIVO -BEGIN - PROMPT 1 14 "@bCollegamento M.R.P.:" - MESSAGE FALSE CLEAR,9@ - MESSAGE TRUE ENABLE,9@ -// FLAGS "H" -END - -STRING F_IMPIANTO 5 -BEGIN - PROMPT 23 14 "Impianto " - FIELD S8 - USE IMP - INPUT CODTAB F_IMPIANTO - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_IMPIANTO CODTAB - GROUP 9 -END - -STRING F_LINEA 5 -BEGIN - PROMPT 45 14 "Linea " - FIELD S9 - USE LNP - INPUT CODTAB F_LINEA - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_LINEA CODTAB - GROUP 9 -END - -ENDPAGE - -PAGE "Pagina 2" 11 60 14 - -GROUPBOX DLG_NULL 75 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -STRING DLG_NULL 16 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "UD" - GROUP 11 -END - -STRING DLG_NULL 40 -BEGIN - PROMPT 2 2 "Cognome " - FLAGS "D" - GROUP 12 -END - -STRING DLG_NULL 30 -BEGIN - PROMPT 2 3 "Nome " - FLAGS "D" - GROUP 13 -END - -STRING F_CODIVA 4 -BEGIN - PROMPT 2 7 "Codice IVA " - FIELD S3[1,4] - FLAGS "U" - USE %IVA - INPUT CODTAB F_CODIVA - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODIVA CODTAB - OUTPUT F_DESIVA S0 - CHECKTYPE NORMAL -END - - -STRING F_DESIVA 50 -BEGIN - PROMPT 25 7 "" - USE %IVA KEY 2 - INPUT S0 F_DESIVA - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice " CODTAB - COPY OUTPUT F_CODIVA - CHECKTYPE NORMAL -END - -STRING F_CODVAL 4 -BEGIN - PROMPT 2 8 "Codice valuta " - FIELD S4 - FLAGS "U" - USE %VAL - INPUT CODTAB F_CODVAL - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODVAL CODTAB - OUTPUT F_DESVAL S0 - CHECKTYPE NORMAL -END - -STRING F_DESVAL 50 -BEGIN - PROMPT 25 8 "" - USE %VAL KEY 2 - INPUT S0 F_DESVAL - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CODVAL - CHECKTYPE NORMAL -END - -LISTBOX F_CAMPI 15 -BEGIN - PROMPT 2 9 "Campo default " - FIELD S6 - ITEM "Q|Qta prezzo " - MESSAGE SHOW,1@|ENABLE,2@ - FLAGS "D" -END - -CURRENCY F_PREZZO 15 -BEGIN - PROMPT 2 10 "Prezzo " - FIELD R0 - FLAGS "U" - GROUP 1 -END - -NUMBER F_QTA 13 5 -BEGIN - PROMPT 35 10 "Quantita' " - FIELD R1 - GROUP 1 2 -END - -STRING F_UM 2 -BEGIN - PROMPT 63 10 "U.M. " - FIELD S7 - FLAGS "U" - USE %UMS - INPUT CODTAB F_UM - DISPLAY "U.M." CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_UM CODTAB - CHECKTYPE NORMAL - GROUP 1 -END - -NUMBER F_GRUPPOV 3 -BEGIN - PROMPT 2 11 "Conto vendita " - FIELD I0 - CHECKTYPE NORMAL - END - -NUMBER F_CONTOV 3 -BEGIN - PROMPT 22 11 "" - FIELD I1 - USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="") - INPUT GRUPPO F_GRUPPOV - INPUT CONTO F_CONTOV - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOV GRUPPO - OUTPUT F_CONTOV CONTO - CHECKTYPE NORMAL - ADD RUN CG0 -0 - WARNING "Il conto deve essere un ricavo" - END - -NUMBER F_SOTTOV 6 -BEGIN - PROMPT 30 11 "" - FIELD I2 - USE LF_PCON SELECT SOTTOCONTO!="" - JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO - INPUT GRUPPO F_GRUPPOV - INPUT CONTO F_CONTOV - INPUT SOTTOCONTO F_SOTTOV - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOV GRUPPO - OUTPUT F_CONTOV CONTO - OUTPUT F_SOTTOV SOTTOCONTO - OUTPUT F_DESCRCONTOV DESCR - CHECKTYPE NORMAL - WARNING "Sottoconto errato" - ADD RUN CG0 -0 -END - -STRING F_DESCRCONTOV 50 -BEGIN - PROMPT 17 12 "" - FLAG "U" - USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") - JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO - INPUT DESCR F_DESCRCONTOV - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOV - CHECKTYPE NORMAL - WARNING "Il conto deve essere un ricavo" - ADD RUN CG0 -0 -END - -NUMBER F_GRUPPOA 3 -BEGIN - PROMPT 2 13 "Conto acquisti " - FIELD I3 - CHECKTYPE NORMAL - END - -NUMBER F_CONTOA 3 -BEGIN - PROMPT 22 13 "" - FIELD I4 - COPY USE F_CONTOV - INPUT GRUPPO F_GRUPPOA - INPUT CONTO F_CONTOA - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOA GRUPPO - OUTPUT F_CONTOA CONTO - CHECKTYPE NORMAL - WARNING "Il conto deve essere un costo" - ADD RUN CG0 -0 - END - -NUMBER F_SOTTOA 6 -BEGIN - PROMPT 30 13 "" - FIELD I5 - COPY USE F_SOTTOV - INPUT GRUPPO F_GRUPPOA - INPUT CONTO F_CONTOA - INPUT SOTTOCONTO F_SOTTOA - COPY DISPLAY F_SOTTOV - OUTPUT F_GRUPPOA GRUPPO - OUTPUT F_CONTOA CONTO - OUTPUT F_SOTTOA SOTTOCONTO - OUTPUT F_DESCRCONTOA DESCR - CHECKTYPE NORMAL - WARNING "Sottoconto errato" - ADD RUN CG0 -0 -END - -STRING F_DESCRCONTOA 50 -BEGIN - PROMPT 17 14 "" - FLAG "U" - COPY USE F_DESCRCONTOV - INPUT DESCR F_DESCRCONTOA - COPY DISPLAY F_DESCRCONTOV - COPY OUTPUT F_SOTTOA - CHECKTYPE NORMAL - WARNING "Il conto deve essere un ricavo" - ADD RUN CG0 -0 -END - -STRING F_GRUPPOPCIA 3 -BEGIN - PROMPT 2 15 "Conto industr. " - FLAGS "Z" - FIELD S2[21,23] - CHECKTYPE NORMAL - END - -STRING F_CONTOPCIA 3 -BEGIN - PROMPT 22 15 "" - FLAGS "Z" - FIELD S2[24,26] -END - -STRING F_SOTTOPCIA 6 -BEGIN - PROMPT 30 15 "" - FLAGS "Z" - FIELD S2[27,32] - USE PCI SELECT CODTAB[7,12]!="" - INPUT CODTAB[1,3] F_GRUPPOPCIA - INPUT CODTAB[4,6] F_CONTOPCIA - INPUT CODTAB[7,12] F_SOTTOPCIA - DISPLAY "Gruppo" CODTAB[1,3] - DISPLAY "Conto" CODTAB[4,6] - DISPLAY "Sottoconto" CODTAB[7,12] - DISPLAY "Descrizione@50" S0 - OUTPUT F_GRUPPOPCIA CODTAB[1,3] - OUTPUT F_CONTOPCIA CODTAB[4,6] - OUTPUT F_SOTTOPCIA CODTAB[7,12] - OUTPUT F_DESCRCONTOPCIA S0 - CHECKTYPE NORMAL - ADD RUN BA3 -0 PCI -END - -STRING F_DESCRCONTOPCIA 50 -BEGIN - PROMPT 2 16 "acquisti " - FLAG "U" - USE PCI KEY 2 SELECT (CODTAB[7,12]!="") - INPUT S0 F_DESCRCONTOPCIA - DISPLAY "Descrizione@50" S0 - DISPLAY "Gruppo" CODTAB[1,3] - DISPLAY "Conto" CODTAB[4,6] - DISPLAY "Sottoconto" CODTAB[7,12] - COPY OUTPUT F_SOTTOPCIA - CHECKTYPE NORMAL - ADD RUN BA0 -3 PCI -END - -STRING F_GRUPPOPCIV 3 -BEGIN - PROMPT 2 17 "Conto industr. " - FLAGS "Z" - FIELD S2[1,3] - CHECKTYPE NORMAL -END - -STRING F_CONTOPCIV 3 -BEGIN - PROMPT 22 17 "" - FLAGS "Z" - FIELD S2[4,6] -END - -STRING F_SOTTOPCIV 6 -BEGIN - PROMPT 30 17 "" - FLAGS "Z" - FIELD S2[7,12] - USE PCI SELECT CODTAB[7,12]!="" - INPUT CODTAB[1,3] F_GRUPPOPCIV - INPUT CODTAB[4,6] F_CONTOPCIV - INPUT CODTAB[7,12] F_SOTTOPCIV - DISPLAY "Gruppo" CODTAB[1,3] - DISPLAY "Conto" CODTAB[4,6] - DISPLAY "Sottoconto" CODTAB[7,12] - DISPLAY "Descrizione@50" S0 - OUTPUT F_GRUPPOPCIV CODTAB[1,3] - OUTPUT F_CONTOPCIV CODTAB[4,6] - OUTPUT F_SOTTOPCIV CODTAB[7,12] - OUTPUT F_DESCRCONTOPCIV S0 - CHECKTYPE NORMAL - ADD RUN BA3 -0 PCI -END - -STRING F_DESCRCONTOPCIV 50 -BEGIN - PROMPT 2 18 "vendita " - FLAG "U" - USE PCI KEY 2 SELECT (CODTAB[7,12]!="") - INPUT S0 F_DESCRCONTOPCIV - DISPLAY "Descrizione@50" S0 - DISPLAY "Gruppo" CODTAB[1,3] - DISPLAY "Conto" CODTAB[4,6] - DISPLAY "Sottoconto" CODTAB[7,12] - COPY OUTPUT F_SOTTOPCIV - CHECKTYPE NORMAL - ADD RUN BA0 -3 PCI -END - - -ENDPAGE - -ENDMASK diff --git a/ve/vetbfid.uml b/ve/vetbfid.uml deleted file mode 100755 index a757c8b41..000000000 --- a/ve/vetbfid.uml +++ /dev/null @@ -1,780 +0,0 @@ -#include "vetbfid.h" - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Tabella controllo fido clienti " 11 60 14 - - -TEXT F_TESTO1 -BEGIN - PROMPT 1 0 "Tipo documento da considerare nel calcolo fido :" -END - -TEXT F_TESTO2 -BEGIN - PROMPT 1 2 "Codice descr. documento" -END - -TEXT F_TESTO3 -BEGIN - PROMPT 50 2 "Valido fino allo stato" -END - -STRING F_COD 2 -BEGIN - PROMPT 1 1 "Codice tabella " - FIELD FID->CODTAB - KEY 1 - CHECKTYPE REQUIRED -END - - -STRING F_DESC1 2 -BEGIN - PROMPT 1 3 " 1) " - FIELD FID->S0[1,2] - USE %TPD - INPUT CODTAB F_DESC1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC1 CODTAB - OUTPUT F_TIPO1 S0 -END - -STRING F_TIPO1 50 -BEGIN - PROMPT 13 3 "" - FLAG "D" -END - -NUMBER F_VALID1 1 -BEGIN - PROMPT 66 3 "" - FIELD FID->S4[1] -END - -STRING F_DESC2 2 -BEGIN - PROMPT 1 4 " 2) " - FIELD FID->S0[3,4] - USE %TPD - INPUT CODTAB F_DESC2 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC2 CODTAB - OUTPUT F_TIPO2 S0 -END - -STRING F_TIPO2 50 -BEGIN - PROMPT 13 4 "" - FLAG "D" -END - - -NUMBER F_VALID2 1 -BEGIN - PROMPT 66 4 "" - FIELD FID->S4[2] -END - -STRING F_DESC3 2 -BEGIN - PROMPT 1 5 " 3) " - FIELD FID->S0[5,6] - USE %TPD - INPUT CODTAB F_DESC3 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC3 CODTAB - OUTPUT F_TIPO3 S0 -END - -STRING F_TIPO3 50 -BEGIN - PROMPT 13 5 "" - FLAG "D" -END - -NUMBER F_VALID3 1 -BEGIN - PROMPT 66 5 "" - FIELD FID->S4[3] -END - -STRING F_DESC4 2 -BEGIN - PROMPT 1 6 " 4) " - FIELD FID->S0[7,8] - USE %TPD - INPUT CODTAB F_DESC4 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC4 CODTAB - OUTPUT F_TIPO4 S0 -END - -STRING F_TIPO4 50 -BEGIN - PROMPT 13 6 "" - FLAG "D" -END - -NUMBER F_VALID4 1 -BEGIN - PROMPT 66 6 "" - FIELD FID->S4[4] -END - -STRING F_DESC5 2 -BEGIN - PROMPT 1 7 " 5) " - FIELD FID->S0[9,10] - USE %TPD - INPUT CODTAB F_DESC5 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC5 CODTAB - OUTPUT F_TIPO5 S0 -END - -STRING F_TIPO5 50 -BEGIN - PROMPT 13 7 "" - FLAG "D" -END - -NUMBER F_VALID5 1 -BEGIN - PROMPT 66 7 "" - FIELD FID->S4[5] -END - -STRING F_DESC6 2 -BEGIN - PROMPT 1 8 " 6) " - FIELD FID->S0[11,12] - USE %TPD - INPUT CODTAB F_DESC6 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC6 CODTAB - OUTPUT F_TIPO6 S0 -END - -STRING F_TIPO6 50 -BEGIN - PROMPT 13 8 "" - FLAG "D" -END - -NUMBER F_VALID6 1 -BEGIN - PROMPT 66 8 "" - FIELD FID->S4[6] -END - -STRING F_DESC7 2 -BEGIN - PROMPT 1 9 " 7) " - FIELD FID->S0[13,14] - USE %TPD - INPUT CODTAB F_DESC7 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC7 CODTAB - OUTPUT F_TIPO7 S0 -END - -STRING F_TIPO7 50 -BEGIN - PROMPT 13 9 "" - FLAG "D" -END - - -NUMBER F_VALID7 1 -BEGIN - PROMPT 66 9 "" - FIELD FID->S4[7] -END - -STRING F_DESC8 2 -BEGIN - PROMPT 1 10 " 8) " - FIELD FID->S0[15,16] - USE %TPD - INPUT CODTAB F_DESC8 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC8 CODTAB - OUTPUT F_TIPO8 S0 -END - -STRING F_TIPO8 50 -BEGIN - PROMPT 13 10 "" - FLAG "D" -END - -NUMBER F_VALID8 1 -BEGIN - PROMPT 66 10 "" - FIELD FID->S4[8] -END - -STRING F_DESC9 2 -BEGIN - PROMPT 1 11 " 9) " - FIELD FID->S0[17,18] - USE %TPD - INPUT CODTAB F_DESC9 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC9 CODTAB - OUTPUT F_TIPO9 S0 -END - -STRING F_TIPO9 50 -BEGIN - PROMPT 13 11 "" - FLAG "D" -END - -NUMBER F_VALID9 1 -BEGIN - PROMPT 66 11 "" - FIELD FID->S4[9] -END - -STRING F_DESC10 2 -BEGIN - PROMPT 1 12 "10) " - FIELD FID->S0[19,20] - USE %TPD - INPUT CODTAB F_DESC10 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC10 CODTAB - OUTPUT F_TIPO10 S0 -END - -STRING F_TIPO10 50 -BEGIN - PROMPT 13 12 "" - FLAG "D" -END - -NUMBER F_VALID10 1 -BEGIN - PROMPT 66 12 "" - FIELD FID->S4[10] -END - -STRING F_DESC11 2 -BEGIN - PROMPT 1 13 "11) " - FIELD FID->S0[21,22] - USE %TPD - INPUT CODTAB F_DESC11 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC11 CODTAB - OUTPUT F_TIPO11 S0 -END - -STRING F_TIPO11 50 -BEGIN - PROMPT 13 13 "" - FLAG "D" -END - -NUMBER F_VALID11 1 -BEGIN - PROMPT 66 13 "" - FIELD FID->S4[11] -END - -STRING F_DESC12 2 -BEGIN - PROMPT 1 14 "12) " - FIELD FID->S0[23,24] - USE %TPD - INPUT CODTAB F_DESC12 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC12 CODTAB - OUTPUT F_TIPO12 S0 -END - -STRING F_TIPO12 50 -BEGIN - PROMPT 13 14 "" - FLAG "D" -END - -NUMBER F_VALID12 1 -BEGIN - PROMPT 66 14 "" - FIELD FID->S4[12] -END - -STRING F_DESC13 2 -BEGIN - PROMPT 1 15 "13) " - FIELD FID->S0[25,26] - USE %TPD - INPUT CODTAB F_DESC13 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC13 CODTAB - OUTPUT F_TIPO13 S0 -END - -STRING F_TIPO13 50 -BEGIN - PROMPT 13 15 "" - FLAG "D" -END - -NUMBER F_VALID13 1 -BEGIN - PROMPT 66 15 "" - FIELD FID->S4[13] -END - -STRING F_DESC14 2 -BEGIN - PROMPT 1 16 "14) " - FIELD FID->S0[27,28] - USE %TPD - INPUT CODTAB F_DESC14 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC14 CODTAB - OUTPUT F_TIPO14 S0 -END - -STRING F_TIPO14 50 -BEGIN - PROMPT 13 16 "" - FLAG "D" -END - -NUMBER F_VALID14 1 -BEGIN - PROMPT 66 16 "" - FIELD FID->S4[14] -END - -STRING F_DESC15 2 -BEGIN - PROMPT 1 17 "15) " - FIELD FID->S0[29,30] - USE %TPD - INPUT CODTAB F_DESC15 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESC15 CODTAB - OUTPUT F_TIPO15 S0 -END - -STRING F_TIPO15 50 -BEGIN - PROMPT 13 17 "" - FLAG "D" -END - -NUMBER F_VALID15 1 -BEGIN - PROMPT 66 17 "" - FIELD FID->S4[15] -END - -ENDPAGE - -PAGE "Tabella controllo fido clienti " 11 60 14 - -TEXT F_TESTO4 -BEGIN - PROMPT 1 1 "Gruppo conto cli/for del piano dei conti" -END - -STRING F_GRUPPO1 2 -BEGIN - PROMPT 3 3 "" - FIELD FID->S2[1,2] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO1 - INPUT CONTO F_CONTO1 - INPUT SOTTOCONTO F_SOTTO1 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO1 GRUPPO - OUTPUT F_CONTO1 CONTO - OUTPUT F_SOTTO1 SOTTOCONTO - OUTPUT F_CLIFOR1 DESCR -END - -STRING F_CONTO1 2 -BEGIN - PROMPT 9 3 "" - FIELD FID->S3[1,2] -END - -STRING F_SOTTO1 6 -BEGIN - PROMPT 13 3 "" - FIELD FID->S1[1,6] -END - -STRING F_CLIFOR1 50 -BEGIN - PROMPT 24 3 "" - FLAG "D" -END - -STRING F_GRUPPO2 2 -BEGIN - PROMPT 3 4 "" - FIELD FID->S2[3,4] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO2 - INPUT CONTO F_CONTO2 - INPUT SOTTOCONTO F_SOTTO2 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO2 GRUPPO - OUTPUT F_CONTO2 CONTO - OUTPUT F_SOTTO2 SOTTOCONTO - OUTPUT F_CLIFOR2 DESCR -END - -STRING F_CONTO2 2 -BEGIN - PROMPT 9 4 "" - FIELD FID->S3[3,4] -END - -STRING F_SOTTO2 6 -BEGIN - PROMPT 13 4 "" - FIELD FID->S1[7,12] -END - -STRING F_CLIFOR2 50 -BEGIN - PROMPT 24 4 "" - FLAG "D" -END - -STRING F_GRUPPO3 2 -BEGIN - PROMPT 3 5 "" - FIELD FID->S2[5,6] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO3 - INPUT CONTO F_CONTO3 - INPUT SOTTOCONTO F_SOTTO3 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO3 GRUPPO - OUTPUT F_CONTO3 CONTO - OUTPUT F_SOTTO3 SOTTOCONTO - OUTPUT F_CLIFOR3 DESCR -END - -STRING F_CONTO3 2 -BEGIN - PROMPT 9 5 "" - FIELD FID->S3[5,6] -END - -STRING F_SOTTO3 6 -BEGIN - PROMPT 13 5 "" - FIELD FID->S1[13,18] -END - -STRING F_CLIFOR3 50 -BEGIN - PROMPT 24 5 "" - FLAG "D" -END - -STRING F_GRUPPO4 2 -BEGIN - PROMPT 3 6 "" - FIELD FID->S2[7,8] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO4 - INPUT CONTO F_CONTO4 - INPUT SOTTOCONTO F_SOTTO4 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO4 GRUPPO - OUTPUT F_CONTO4 CONTO - OUTPUT F_SOTTO4 SOTTOCONTO - OUTPUT F_CLIFOR4 DESCR -END - -STRING F_CONTO4 2 -BEGIN - PROMPT 9 6 "" - FIELD FID->S3[7,8] -END - -STRING F_SOTTO4 6 -BEGIN - PROMPT 13 6 "" - FIELD FID->S1[19,24] -END - -STRING F_CLIFOR4 50 -BEGIN - PROMPT 24 6 "" - FLAG "D" -END - -STRING F_GRUPPO5 2 -BEGIN - PROMPT 3 7 "" - FIELD FID->S2[9,10] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO5 - INPUT CONTO F_CONTO5 - INPUT SOTTOCONTO F_SOTTO5 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO5 GRUPPO - OUTPUT F_CONTO5 CONTO - OUTPUT F_SOTTO5 SOTTOCONTO - OUTPUT F_CLIFOR5 DESCR -END - -STRING F_CONTO5 2 -BEGIN - PROMPT 9 7 "" - FIELD FID->S3[9,10] -END - -STRING F_SOTTO5 6 -BEGIN - PROMPT 13 7 "" - FIELD FID->S1[25,30] -END - -STRING F_CLIFOR5 50 -BEGIN - PROMPT 24 7 "" - FLAG "D" -END - -STRING F_GRUPPO6 2 -BEGIN - PROMPT 3 8 "" - FIELD FID->S2[11,12] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO6 - INPUT CONTO F_CONTO6 - INPUT SOTTOCONTO F_SOTTO6 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO6 GRUPPO - OUTPUT F_CONTO6 CONTO - OUTPUT F_SOTTO6 SOTTOCONTO - OUTPUT F_CLIFOR6 DESCR -END - -STRING F_CONTO6 2 -BEGIN - PROMPT 9 8 "" - FIELD FID->S3[11,12] -END - -STRING F_SOTTO6 6 -BEGIN - PROMPT 13 8 "" - FIELD FID->S1[31,36] -END - -STRING F_CLIFOR6 50 -BEGIN - PROMPT 24 8 "" - FLAG "D" -END - -STRING F_GRUPPO7 2 -BEGIN - PROMPT 3 9 "" - FIELD FID->S2[13,14] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO7 - INPUT CONTO F_CONTO7 - INPUT SOTTOCONTO F_SOTTO7 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO7 GRUPPO - OUTPUT F_CONTO7 CONTO - OUTPUT F_SOTTO7 SOTTOCONTO - OUTPUT F_CLIFOR7 DESCR -END - - -STRING F_CONTO7 2 -BEGIN - PROMPT 9 9 "" - FIELD FID->S3[13,14] -END - - -STRING F_SOTTO7 6 -BEGIN - PROMPT 13 9 "" - FIELD FID->S1[37,42] -END - -STRING F_CLIFOR7 50 -BEGIN - PROMPT 24 9 "" - FLAG "D" -END - -STRING F_GRUPPO8 2 -BEGIN - PROMPT 3 10 "" - FIELD FID->S2[15,16] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO8 - INPUT CONTO F_CONTO8 - INPUT SOTTOCONTO F_SOTTO8 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO8 GRUPPO - OUTPUT F_CONTO8 CONTO - OUTPUT F_SOTTO8 SOTTOCONTO - OUTPUT F_CLIFOR8 DESCR -END - -STRING F_CONTO8 2 -BEGIN - PROMPT 9 10 "" - FIELD FID->S3[15,16] -END - -STRING F_SOTTO8 6 -BEGIN - PROMPT 13 10 "" - FIELD FID->S1[43,48] -END - -STRING F_CLIFOR8 50 -BEGIN - PROMPT 24 10 "" - FLAG "D" -END - -STRING F_GRUPPO9 2 -BEGIN - PROMPT 3 11 "" - FIELD FID->S2[17,18] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO9 - INPUT CONTO F_CONTO9 - INPUT SOTTOCONTO F_SOTTO9 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO9 GRUPPO - OUTPUT F_CONTO9 CONTO - OUTPUT F_SOTTO9 SOTTOCONTO - OUTPUT F_CLIFOR9 DESCR -END - - -STRING F_CONTO9 2 -BEGIN - PROMPT 9 11 "" - FIELD FID->S3[17,18] -END - - -STRING F_SOTTO9 6 -BEGIN - PROMPT 13 11 "" - FIELD FID->S1[49,54] -END - -STRING F_CLIFOR9 50 -BEGIN - PROMPT 24 11 "" - FLAG "D" -END - -STRING F_GRUPPO10 2 -BEGIN - PROMPT 3 12 "" - FIELD FID->S2[19,20] - USE 19 //PIANO DEI CONTI - INPUT GRUPPO F_GRUPPO10 - INPUT CONTO F_CONTO10 - INPUT SOTTOCONTO F_SOTTO10 - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO10 GRUPPO - OUTPUT F_CONTO10 CONTO - OUTPUT F_SOTTO10 SOTTOCONTO - OUTPUT F_CLIFOR10 DESCR -END - -STRING F_CONTO10 2 -BEGIN - PROMPT 9 12 "" - FIELD FID->S3[19,20] -END - -STRING F_SOTTO10 6 -BEGIN - PROMPT 13 12 "" - FIELD FID->S1[55,60] -END - -STRING F_CLIFOR10 50 -BEGIN - PROMPT 24 12 "" - FLAG "D" -END - -LISTBOX F_TIPOAFF 33 -BEGIN - PROMPT 1 14 "Tipo affidabilitą " - ITEM "1|Controllo completo con blocco " - ITEM "2|Controllo completo con forzatura " - ITEM "3|Solo mastrino con forzatura " - FIELD FID->S5[1] -END - -ENDPAGE - -ENDMASK diff --git a/ve/vetbpro.uml b/ve/vetbpro.uml deleted file mode 100755 index 49e62c8fd..000000000 --- a/ve/vetbpro.uml +++ /dev/null @@ -1,108 +0,0 @@ -#include "vetbpro.h" -#define LF_CLIFOR 20 - - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Archivio provvigioni " 11 60 14 - - -LISTBOX F_TIPOCF 1 -BEGIN - PROMPT 0 0 "" - ITEM "C|" - FLAG "H" -END - - -STRING F_CODCLI 6 -BEGIN - PROMPT 3 3 "Codice cliente " - FIELD PRO->CODTAB - KEY 1 - USE LF_CLIFOR - FLAG "U" - INPUT TIPOCF F_TIPOCF SELECT - INPUT CODCF F_CODCLI - DISPLAY "Cod. cliente " CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_TIPOCF TIPOCF - OUTPUT F_CODCLI CODCF - OUTPUT F_CODCLI1 RAGSOC - CHECKTYPE REQUIRED -END - -STRING F_CODCLI1 50 -BEGIN - PROMPT 3 4 "Ragione sociale " - KEY 2 - USE LF_CLIFOR KEY 2 - FLAG "U" - INPUT RAGSOC F_CODCLI1 - INPUT TIPOCF F_TIPOCF SELECT - - DISPLAY "Cod. cliente " CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_TIPOCF TIPOCF - OUTPUT F_CODCLI CODCF - OUTPUT F_CODCLI1 RAGSOC - CHECKTYPE REQUIRED -END - -STRING F_CODAGENTE 6 -BEGIN - PROMPT 3 6 "Codice agente " - FIELD PRO->S0 - KEY 1 - USE AGE - FLAG "U" - INPUT CODTAB F_CODAGENTE - DISPLAY "Cod. agente " CODTAB - DISPLAY "Descrizione@30" S0 - - OUTPUT F_CODAGENTE CODTAB - OUTPUT F_CODAGENTE2 S0 - CHECKTYPE REQUIRED - -END - - -STRING F_CODAGENTE2 30 -BEGIN - PROMPT 3 7 "Descrizione " - KEY 2 - USE AGE KEY 2 - INPUT S0 F_CODAGENTE2 - DISPLAY "Cod. agente " CODTAB - DISPLAY "Descrizione@30" S0 - - OUTPUT F_CODAGENTE CODTAB - OUTPUT F_CODAGENTE2 S0 - CHECKTYPE REQUIRED - -END - -NUMBER F_IMPORTO 9 2 -BEGIN - PROMPT 3 9 "Importo provvigione " - FIELD PRO->R0 -END - -NUMBER F_PERCENTUALE 5 2 -BEGIN - PROMPT 3 11 "Percentuale provvigione " - FIELD PRO->R1 -END - -GROUPBOX DLG_NULL 75 14 -BEGIN - PROMPT 0 0 "" - FLAG "R" -END - -ENDPAGE - - -ENDMASK diff --git a/ve/vetbspt.uml b/ve/vetbspt.uml deleted file mode 100755 index 7a8b79980..000000000 --- a/ve/vetbspt.uml +++ /dev/null @@ -1,89 +0,0 @@ -#include "vetbspt.h" - -TOOLBAR "" 0 20 60 2 - #include -ENDPAGE - -PAGE "Archivio specifiche tecniche" 11 60 14 - -STRING F_CODICE 15 -BEGIN - PROMPT 1 3 "Codice articolo " - FIELD SPT->CODTAB - KEY 1 - - USE LF_ANAMAG - FLAG "R" - FLAG "U" - INPUT CODART F_CODICE - DISPLAY "Codice " CODART - DISPLAY "Tipo " TIPO - DISPLAY "Descrizione@50 " DESCR - OUTPUT F_CODICE CODART - OUTPUT F_DESCR DESCR - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 38 3 "" - KEY 2 - - USE LF_ANAMAG KEY 2 - FLAG "R" - INPUT DESCR F_DESCR - DISPLAY "Codice " CODART - DISPLAY "Tipo " TIPO - DISPLAY "Descrizione@50 " DESCR - OUTPUT F_CODICE CODART - OUTPUT F_DESCR DESCR - CHECKTYPE REQUIRED -END - - -TEXT F_DESCR7 -BEGIN - PROMPT 1 5 "Specifiche " -END - -STRING F_DESCR1 70 -BEGIN - PROMPT 3 7 "" - FIELD SPT->S0 -END - -STRING F_DESCR2 70 -BEGIN - PROMPT 3 8 "" - FIELD SPT->S1 -END - -STRING F_DESCR3 50 -BEGIN - PROMPT 3 9 "" - FIELD SPT->S2 -END - -STRING F_DESCR4 20 -BEGIN - PROMPT 3 10 "" - FIELD SPT->S3 -END - -STRING F_DESCR5 20 -BEGIN - PROMPT 3 11 "" - FIELD SPT->S4 -END - -STRING F_DESCR6 20 -BEGIN - PROMPT 3 12 "" - FIELD SPT->S5 -END - - -ENDPAGE - - -ENDMASK