From 23ec4dd88efc71c7568496fd75a94950857504ba Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 19 Sep 1996 13:01:48 +0000 Subject: [PATCH] Aggiunti conti per acquisti git-svn-id: svn://10.65.10.50/trunk@3633 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/ve0200d.uml | 264 ++++++++++++++++++++++++++++++++++++------------- 1 file changed, 196 insertions(+), 68 deletions(-) diff --git a/ve/ve0200d.uml b/ve/ve0200d.uml index dcb35fbb4..3b23994b5 100755 --- a/ve/ve0200d.uml +++ b/ve/ve0200d.uml @@ -16,14 +16,14 @@ ENDPAGE PAGE "Tabella gestione spese" 1 1 60 14 -GROUPBOX DLG_NULL 78 6 +GROUPBOX DLG_NULL 78 8 BEGIN PROMPT 1 1 "Gestione spese d'incasso" END STRING F_SPINCODIVA 4 BEGIN -PROMPT 2 2 "Codice IVA " +PROMPT 2 2 "Codice IVA " FIELD SPINCODIVA USE %IVA INPUT CODTAB F_SPINCODIVA @@ -36,7 +36,7 @@ END STRING F_SPINDESIVA 50 BEGIN -PROMPT 2 3 "Descrizione " +PROMPT 2 3 "Descrizione " USE %IVA KEY 2 INPUT S0 F_SPINDESIVA DISPLAY "Descrizione@50" S0 @@ -45,129 +45,257 @@ COPY OUTPUT F_SPINCODIVA CHECKTYPE NORMAL END -STRING F_SPINCODCON1 3 +STRING F_SPINCODCON1V 3 BEGIN -PROMPT 2 4 "Codice contabilita' " -FIELD SPINCODCON[1] -USE LF_PCON -INPUT GRUPPO F_SPINCODCON1 -INPUT CONTO F_SPINCODCON2 -INPUT SOTTOCONTO F_SPINCODCON3 -DISPLAY "Gruppo" GRUPPO -DISPLAY "Conto" CONTO -DISPLAY "Sottoconto" SOTTOCONTO -DISPLAY "Descrizione@50" DESCR -OUTPUT F_SPINCODCON1 GRUPPO -OUTPUT F_SPINCODCON2 CONTO -OUTPUT F_SPINCODCON3 SOTTOCONTO -OUTPUT F_SPINDESCON DESCR +PROMPT 2 4 "Codice conto ricavi " +FIELD SPINCODCONV[1] CHECKTYPE NORMAL END -STRING F_SPINCODCON2 3 +STRING F_SPINCODCON2V 3 BEGIN PROMPT 29 4 "" -FIELD SPINCODCON[2] -COPY ALL F_SPINCODCON1 +FIELD SPINCODCONV[2] +USE LF_PCON SELECT INDBIL=="4" +INPUT GRUPPO F_SPINCODCON1V +INPUT CONTO F_SPINCODCON2V +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +OUTPUT F_SPINCODCON1V GRUPPO +OUTPUT F_SPINCODCON2V CONTO CHECKTYPE NORMAL END -STRING F_SPINCODCON3 6 +STRING F_SPINCODCON3V 6 BEGIN PROMPT 35 4 "" -FIELD SPINCODCON[3] -COPY ALL F_SPINCODCON1 +FIELD SPINCODCONV[3] +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +COPY INPUT F_SPINCODCON2V +INPUT SOTTOCONTO F_SPINCODCON3V +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +COPY OUTPUT F_SPINCODCON2V +OUTPUT F_SPINCODCON3V SOTTOCONTO +OUTPUT F_SPINDESCONV DESCR CHECKTYPE NORMAL END -STRING F_SPINDESCON 50 +STRING F_SPINDESCONV 50 BEGIN -PROMPT 2 5 "Descrizione " -USE LF_PCON KEY 2 -INPUT DESCR F_SPINDESCON +PROMPT 2 5 "Descrizione " +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +INPUT DESCR F_SPINDESCONV DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO -COPY OUTPUT F_SPINCODCON1 +COPY OUTPUT F_SPINCODCON3V CHECKTYPE NORMAL END -GROUPBOX DLG_NULL 78 6 +STRING F_SPINCODCON1A 3 BEGIN -PROMPT 1 7 "Gestione spese bolli" +PROMPT 2 6 "Codice conto ricavi " +FIELD SPINCODCONA[1] +CHECKTYPE NORMAL END -STRING F_SPBRBCODIVA 4 +STRING F_SPINCODCON2A 3 BEGIN -PROMPT 2 8 "Codice IVA " +PROMPT 29 6 "" +FIELD SPINCODCONA[2] +USE LF_PCON SELECT INDBIL=="3" +INPUT GRUPPO F_SPINCODCON1A +INPUT CONTO F_SPINCODCON2A +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +OUTPUT F_SPINCODCON1A GRUPPO +OUTPUT F_SPINCODCON2A CONTO +CHECKTYPE NORMAL +END + +STRING F_SPINCODCON3A 6 +BEGIN +PROMPT 35 6 "" +FIELD SPINCODCONA[3] +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +COPY INPUT F_SPINCODCON2A +INPUT SOTTOCONTO F_SPINCODCON3A +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +COPY OUTPUT F_SPINCODCON2A +OUTPUT F_SPINCODCON3A SOTTOCONTO +OUTPUT F_SPINDESCONA DESCR +CHECKTYPE NORMAL +END + +STRING F_SPINDESCONA 50 +BEGIN +PROMPT 2 7 "Descrizione " +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +INPUT DESCR F_SPINDESCONA +DISPLAY "Descrizione@50" DESCR +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +COPY OUTPUT F_SPINCODCON3A +CHECKTYPE NORMAL +END + +GROUPBOX DLG_NULL 78 8 +BEGIN +PROMPT 1 9 "Gestione spese bolli" +END + +STRING F_SPBOCODIVA 4 +BEGIN +PROMPT 2 10 "Codice IVA " FIELD SPBOCODIVA USE %IVA -INPUT CODTAB F_SPBRBCODIVA +INPUT CODTAB F_SPBOCODIVA DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 -OUTPUT F_SPBRBCODIVA CODTAB -OUTPUT F_SPBRBDESIVA S0 +OUTPUT F_SPBOCODIVA CODTAB +OUTPUT F_SPBODESIVA S0 CHECKTYPE NORMAL END -STRING F_SPBRBDESIVA 50 +STRING F_SPBODESIVA 50 BEGIN -PROMPT 2 9 "Descrizione " +PROMPT 2 11 "Descrizione " USE %IVA KEY 2 -INPUT S0 F_SPBRBDESIVA +INPUT S0 F_SPBODESIVA DISPLAY "Descrizione@50" S0 DISPLAY "Codice" CODTAB -COPY OUTPUT F_SPBRBCODIVA +COPY OUTPUT F_SPBOCODIVA CHECKTYPE NORMAL END -STRING F_SPBRBCODCON1 3 +STRING F_SPBOCODCON1V 3 BEGIN -PROMPT 2 10 "Codice contabilita' " -FIELD SPBOCODCON[1] -USE LF_PCON -INPUT GRUPPO F_SPBRBCODCON1 -INPUT CONTO F_SPBRBCODCON2 -INPUT SOTTOCONTO F_SPBRBCODCON3 +PROMPT 2 12 "Codice conto ricavi " +FIELD SPBOCODCONV[1] +CHECKTYPE NORMAL +END + +STRING F_SPBOCODCON2V 3 +BEGIN +PROMPT 29 12 "" +FIELD SPBOCODCONV[2] +USE LF_PCON SELECT INDBIL=="4" +INPUT GRUPPO F_SPBOCODCON1V +INPUT CONTO F_SPBOCODCON2V DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Descrizione@50" DESCR -OUTPUT F_SPBRBCODCON1 GRUPPO -OUTPUT F_SPBRBCODCON2 CONTO -OUTPUT F_SPBRBCODCON3 SOTTOCONTO -OUTPUT F_SPBRBDESCON DESCR +OUTPUT F_SPBOCODCON1V GRUPPO +OUTPUT F_SPBOCODCON2V CONTO CHECKTYPE NORMAL END -STRING F_SPBRBCODCON2 3 +STRING F_SPBOCODCON3V 6 BEGIN -PROMPT 29 10 "" -FIELD SPBOCODCON[2] -COPY ALL F_SPBRBCODCON1 +PROMPT 35 12 "" +FIELD SPBOCODCONV[3] +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +COPY INPUT F_SPBOCODCON2V +INPUT SOTTOCONTO F_SPBOCODCON3V +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +COPY OUTPUT F_SPBOCODCON2V +OUTPUT F_SPBOCODCON3V SOTTOCONTO +OUTPUT F_SPBODESCONV DESCR +WARNING "Il conto deve essere un ricavo" CHECKTYPE NORMAL END -STRING F_SPBRBCODCON3 6 +STRING F_SPBODESCONV 50 BEGIN -PROMPT 35 10 "" -FIELD SPBOCODCON[3] -COPY ALL F_SPBRBCODCON1 -CHECKTYPE NORMAL -END - -STRING F_SPBRBDESCON 50 -BEGIN -PROMPT 2 11 "Descrizione " -USE LF_PCON KEY 2 -INPUT DESCR F_SPBRBDESCON +PROMPT 2 13 "Descrizione " +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +INPUT DESCR F_SPBODESCONV DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO -COPY OUTPUT F_SPBRBCODCON1 +COPY OUTPUT F_SPBOCODCON3V +WARNING "Il conto deve essere un ricavo" +CHECKTYPE NORMAL +END + +STRING F_SPBOCODCON1A 3 +BEGIN +PROMPT 2 14 "Codice conto acquisti " +FIELD SPBOCODCONA[1] +CHECKTYPE NORMAL +END + +STRING F_SPBOCODCON2A 3 +BEGIN +PROMPT 29 14 "" +FIELD SPBOCODCONA[2] +USE LF_PCON SELECT INDBIL=="3" +INPUT GRUPPO F_SPBOCODCON1A +INPUT CONTO F_SPBOCODCON2A +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +OUTPUT F_SPBOCODCON1A GRUPPO +OUTPUT F_SPBOCODCON2A CONTO +CHECKTYPE NORMAL +END + +STRING F_SPBOCODCON3A 6 +BEGIN +PROMPT 35 14 "" +FIELD SPBOCODCONA[3] +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +COPY INPUT F_SPBOCODCON2A +INPUT SOTTOCONTO F_SPBOCODCON3A +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +DISPLAY "Descrizione@50" DESCR +COPY OUTPUT F_SPBOCODCON2A +OUTPUT F_SPBOCODCON3A SOTTOCONTO +OUTPUT F_SPBODESCONA DESCR +WARNING "Il conto deve essere un costo" +CHECKTYPE NORMAL +END + +STRING F_SPBODESCONA 50 +BEGIN +PROMPT 2 15 "Descrizione " +USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") +JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO +INPUT DESCR F_SPBODESCONA +DISPLAY "Descrizione@50" DESCR +DISPLAY "Gruppo" GRUPPO +DISPLAY "Conto" CONTO +DISPLAY "Sottoconto" SOTTOCONTO +COPY OUTPUT F_SPBOCODCON3A +WARNING "Il conto deve essere un costo" CHECKTYPE NORMAL END