Tolto dopio input

git-svn-id: svn://10.65.10.50/trunk@2946 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-05-31 15:05:02 +00:00
parent b4a0688f49
commit d1745dd3cd

View File

@ -1,390 +1,389 @@
PAGE "RIGA PRIMA NOTA" -1 -1 67 16 PAGE "RIGA PRIMA NOTA" -1 -1 67 16
GROUPBOX DLG_NULL 66 3 GROUPBOX DLG_NULL 66 3
BEGIN BEGIN
PROMPT 1 1 "Descrizione" PROMPT 1 1 "Descrizione"
END END
STRING 108 5 STRING 108 5
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 ""
HELP "Codice della descrizione aggiuntiva della riga" HELP "Codice della descrizione aggiuntiva della riga"
FLAGS "UZ" FLAGS "UZ"
USE %DPN USE %DPN
INPUT CODTAB 108 INPUT CODTAB 108
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
INPUT CODTAB 108 OUTPUT 108 CODTAB
OUTPUT 108 CODTAB OUTPUT 109 S0
OUTPUT 109 S0 CHECKTYPE NORMAL
CHECKTYPE NORMAL END
END
STRING 109 50
STRING 109 50 BEGIN
BEGIN PROMPT 12 2 ""
PROMPT 12 2 "" USE %DPN KEY 2
USE %DPN KEY 2 INPUT S0 109
INPUT S0 109 DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@50" S0 DISPLAY "Codice" CODTAB
DISPLAY "Codice" CODTAB COPY OUTPUT 108
COPY OUTPUT 108 HELP "Descrizione aggiuntiva della riga"
HELP "Descrizione aggiuntiva della riga" FIELD DESCR
FIELD DESCR END
END
GROUPBOX DLG_NULL 66 5
GROUPBOX DLG_NULL 66 5 BEGIN
BEGIN PROMPT 1 4 "Conto principale"
PROMPT 1 4 "Conto principale" END
END
NUMBER CG_DARE 15
NUMBER CG_DARE 15 BEGIN
BEGIN PROMPT 2 5 "Dare "
PROMPT 2 5 "Dare " HELP "Importo 'dare' del conto della riga"
HELP "Importo 'dare' del conto della riga" FLAGS "RV"
FLAGS "RV" PICTURE "."
PICTURE "." END
END
NUMBER CG_AVERE 15
NUMBER CG_AVERE 15 BEGIN
BEGIN PROMPT 43 5 "Avere "
PROMPT 43 5 "Avere " HELP "Importo 'avere' del conto della riga"
HELP "Importo 'avere' del conto della riga" FLAGS "RV"
FLAGS "RV" PICTURE "."
PICTURE "." END
END
LIST CG_TIPO 1 10
LIST CG_TIPO 1 10 BEGIN
BEGIN PROMPT 2 6 "Tipo "
PROMPT 2 6 "Tipo " HELP "Tipo del conto principale della riga"
HELP "Tipo del conto principale della riga" FLAGS "U"
FLAGS "U" ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307 ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307 ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207 END
END
NUMBER CG_GRUPPO 3
NUMBER CG_GRUPPO 3 BEGIN
BEGIN PROMPT 20 6 "Gruppo "
PROMPT 20 6 "Gruppo " HELP "Codice del conto delle riga"
HELP "Codice del conto delle riga" END
END
NUMBER CG_CONTO 3
NUMBER CG_CONTO 3 BEGIN
BEGIN PROMPT 32 6 "Conto "
PROMPT 32 6 "Conto " HELP "Codice del conto delle riga"
HELP "Codice del conto delle riga" FIELD LF_PCON->CONTO
FIELD LF_PCON->CONTO USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") INPUT GRUPPO 104
INPUT GRUPPO 104 INPUT CONTO 105
INPUT CONTO 105 DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO DISPLAY "Descrizione@50" DESCR
DISPLAY "Descrizione@50" DESCR DISPLAY "Tipo" TMCF
DISPLAY "Tipo" TMCF OUTPUT 103 TMCF
OUTPUT 103 TMCF OUTPUT 104 GRUPPO
OUTPUT 104 GRUPPO OUTPUT 105 CONTO
OUTPUT 105 CONTO OUTPUT 107 DESCR
OUTPUT 107 DESCR CHECKTYPE NORMAL
CHECKTYPE NORMAL MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
MESSAGE DIRTY,106|DIRTY,206|DIRTY,306 WARNING "Conto inesistente o mancante sulla riga contabile"
WARNING "Conto inesistente o mancante sulla riga contabile" END
END
NUMBER CG_SOTTOCONTO 6
NUMBER CG_SOTTOCONTO 6 BEGIN
BEGIN PROMPT 45 6 "Sottoconto "
PROMPT 45 6 "Sottoconto " HELP "Codice del conto delle riga"
HELP "Codice del conto delle riga" FIELD LF_PCON->SOTTOCONTO
FIELD LF_PCON->SOTTOCONTO USE LF_PCON SELECT SOTTOCONTO!=""
USE LF_PCON SELECT SOTTOCONTO!="" INPUT GRUPPO 104
INPUT GRUPPO 104 INPUT CONTO 105
INPUT CONTO 105 INPUT SOTTOCONTO 106
INPUT SOTTOCONTO 106 DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Descrizione@50" DESCR
DISPLAY "Descrizione@50" DESCR OUTPUT 106 SOTTOCONTO
OUTPUT 106 SOTTOCONTO OUTPUT 104 GRUPPO
OUTPUT 104 GRUPPO OUTPUT 105 CONTO
OUTPUT 105 CONTO OUTPUT 107 DESCR
OUTPUT 107 DESCR ADD RUN cg0 -0
ADD RUN cg0 -0 CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Sottoconto inesistente sulla riga contabile"
WARNING "Sottoconto inesistente sulla riga contabile" END
END
NUMBER 206 6
NUMBER 206 6 BEGIN
BEGIN PROMPT 45 6 "Cliente "
PROMPT 45 6 "Cliente " HELP "Codice del cliente delle riga"
HELP "Codice del cliente delle riga" FIELD LF_PCON->SOTTOCONTO
FIELD LF_PCON->SOTTOCONTO USE LF_CLIFO
USE LF_CLIFO INPUT TIPOCF "C"
INPUT TIPOCF "C" INPUT CODCF 206
INPUT CODCF 206 DISPLAY "Codice" CODCF
DISPLAY "Codice" CODCF DISPLAY "Ragione Sociale Cliente@50" RAGSOC
DISPLAY "Ragione Sociale Cliente@50" RAGSOC DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO OUTPUT 206 CODCF
OUTPUT 206 CODCF OUTPUT 207 RAGSOC
OUTPUT 207 RAGSOC MESSAGE COPY,106
MESSAGE COPY,106 ADD RUN cg0 -1 C
ADD RUN cg0 -1 C CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Cliente inesistente sulla riga contabile"
WARNING "Cliente inesistente sulla riga contabile" END
END
NUMBER 306 6
NUMBER 306 6 BEGIN
BEGIN PROMPT 45 6 "Fornitore "
PROMPT 45 6 "Fornitore " HELP "Codice del fornitore delle riga"
HELP "Codice del fornitore delle riga" FIELD LF_PCON->SOTTOCONTO
FIELD LF_PCON->SOTTOCONTO USE LF_CLIFO
USE LF_CLIFO INPUT TIPOCF "F"
INPUT TIPOCF "F" INPUT CODCF 306
INPUT CODCF 306 DISPLAY "Codice" CODCF
DISPLAY "Codice" CODCF DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO OUTPUT 306 CODCF
OUTPUT 306 CODCF OUTPUT 307 RAGSOC
OUTPUT 307 RAGSOC MESSAGE COPY,106
MESSAGE COPY,106 ADD RUN cg0 -1 F
ADD RUN cg0 -1 F MESSAGE COPY,106
MESSAGE COPY,106 CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Fornitore inesistente sulla riga contabile"
WARNING "Fornitore inesistente sulla riga contabile" END
END
STRING 107 50
STRING 107 50 BEGIN
BEGIN PROMPT 2 7 "Descriz. "
PROMPT 2 7 "Descriz. " HELP "Descrizione del conto delle riga"
HELP "Descrizione del conto delle riga" FIELD LF_PCON->DESCR
FIELD LF_PCON->DESCR USE LF_PCON KEY 2
USE LF_PCON KEY 2 INPUT DESCR 107
INPUT DESCR 107 DISPLAY "Descrizione@50" DESCR
DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sottoconto" SOTTOCONTO COPY OUTPUT 106
COPY OUTPUT 106 CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Sottoconto inesistente o mancante sulla riga contabile"
WARNING "Sottoconto inesistente o mancante sulla riga contabile" ADD RUN cg0 -0
ADD RUN cg0 -0 END
END
STRING 207 50
STRING 207 50 BEGIN
BEGIN PROMPT 2 7 "Cliente "
PROMPT 2 7 "Cliente " HELP "Ragione sociale del cliente delle riga"
HELP "Ragione sociale del cliente delle riga" FIELD LF_CLIFO->RAGSOC
FIELD LF_CLIFO->RAGSOC USE LF_CLIFO KEY 2
USE LF_CLIFO KEY 2 INPUT TIPOCF "C"
INPUT TIPOCF "C" INPUT RAGSOC 207
INPUT RAGSOC 207 DISPLAY "Ragione Sociale Cliente@50" RAGSOC
DISPLAY "Ragione Sociale Cliente@50" RAGSOC DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO DISPLAY "Codice" CODCF
DISPLAY "Codice" CODCF COPY OUTPUT 206
COPY OUTPUT 206 MESSAGE COPY,107
MESSAGE COPY,107 ADD RUN cg0 -1 C
ADD RUN cg0 -1 C CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Cliente inesistente sulla riga contabile"
WARNING "Cliente inesistente sulla riga contabile" END
END
STRING 307 50
STRING 307 50 BEGIN
BEGIN PROMPT 2 7 "Fornitore "
PROMPT 2 7 "Fornitore " HELP "Ragione sociale del fonitore delle riga"
HELP "Ragione sociale del fonitore delle riga" FIELD LF_PCON->SOTTOCONTO
FIELD LF_PCON->SOTTOCONTO USE LF_CLIFO KEY 2
USE LF_CLIFO KEY 2 INPUT TIPOCF "F"
INPUT TIPOCF "F" INPUT RAGSOC 307
INPUT RAGSOC 307 DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC DISPLAY "Gruppo" GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO
DISPLAY "Conto" CONTO DISPLAY "Codice" CODCF
DISPLAY "Codice" CODCF COPY OUTPUT 306
COPY OUTPUT 306 MESSAGE COPY,107
MESSAGE COPY,107 ADD RUN cg0 -1 F
ADD RUN cg0 -1 F CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Fornitore inesistente sulla riga contabile"
WARNING "Fornitore inesistente sulla riga contabile" END
END
GROUPBOX DLG_NULL 66 4
GROUPBOX DLG_NULL 66 4 BEGIN
BEGIN PROMPT 1 9 "Contropartita"
PROMPT 1 9 "Contropartita" END
END
LIST 110 1 10
LIST 110 1 10 BEGIN
BEGIN PROMPT 2 10 "Tipo "
PROMPT 2 10 "Tipo " HELP "Tipo del conto di contropartita della riga"
HELP "Tipo del conto di contropartita della riga" FLAGS "U"
FLAGS "U" ITEM " |Conto" MESSAGE SHOW,113|HIDE,213|HIDE,313|SHOW,114|HIDE,214|HIDE,314
ITEM " |Conto" MESSAGE SHOW,113|HIDE,213|HIDE,313|SHOW,114|HIDE,214|HIDE,314 ITEM "C|Cliente" MESSAGE SHOW,213|HIDE,113|HIDE,313|SHOW,214|HIDE,114|HIDE,314
ITEM "C|Cliente" MESSAGE SHOW,213|HIDE,113|HIDE,313|SHOW,214|HIDE,114|HIDE,314 ITEM "F|Fornitore" MESSAGE SHOW,313|HIDE,113|HIDE,213|SHOW,314|HIDE,114|HIDE,214
ITEM "F|Fornitore" MESSAGE SHOW,313|HIDE,113|HIDE,213|SHOW,314|HIDE,114|HIDE,214 END
END
NUMBER 111 3
NUMBER 111 3 BEGIN
BEGIN PROMPT 20 10 "Gruppo "
PROMPT 20 10 "Gruppo " HELP "Codice del conto di contropartita delle riga"
HELP "Codice del conto di contropartita delle riga" END
END
NUMBER 112 3
NUMBER 112 3 BEGIN
BEGIN PROMPT 32 10 "Conto "
PROMPT 32 10 "Conto " HELP "Codice del conto di contropartita delle riga"
HELP "Codice del conto di contropartita delle riga" FIELD LF_PCON->CONTO
FIELD LF_PCON->CONTO COPY USE 105
COPY USE 105 INPUT GRUPPO 111
INPUT GRUPPO 111 INPUT CONTO 112
INPUT CONTO 112 COPY DISPLAY 105
COPY DISPLAY 105 OUTPUT 110 TMCF
OUTPUT 110 TMCF OUTPUT 111 GRUPPO
OUTPUT 111 GRUPPO OUTPUT 112 CONTO
OUTPUT 112 CONTO OUTPUT 114 DESCR
OUTPUT 114 DESCR ADD RUN CG0 -0
ADD RUN CG0 -0 MESSAGE DIRTY,113|DIRTY,213|DIRTY,313
MESSAGE DIRTY,113|DIRTY,213|DIRTY,313 CHECKTYPE NORMAL
CHECKTYPE NORMAL VALIDATE REQIF_FUNC 3 113 213 313
VALIDATE REQIF_FUNC 3 113 213 313 END
END
NUMBER 113 6
NUMBER 113 6 BEGIN
BEGIN PROMPT 45 10 "Sottoconto "
PROMPT 45 10 "Sottoconto " HELP "Codice del conto di contropartita delle riga"
HELP "Codice del conto di contropartita delle riga" FIELD LF_PCON->SOTTOCONTO
FIELD LF_PCON->SOTTOCONTO COPY USE 106
COPY USE 106 COPY INPUT 112
COPY INPUT 112 INPUT SOTTOCONTO 113
INPUT SOTTOCONTO 113 COPY DISPLAY 106
COPY DISPLAY 106 OUTPUT 113 SOTTOCONTO
OUTPUT 113 SOTTOCONTO OUTPUT 111 GRUPPO
OUTPUT 111 GRUPPO OUTPUT 112 CONTO
OUTPUT 112 CONTO OUTPUT 114 DESCR
OUTPUT 114 DESCR CHECKTYPE NORMAL
CHECKTYPE NORMAL END
END
NUMBER 213 6
NUMBER 213 6 BEGIN
BEGIN PROMPT 45 10 "Cliente "
PROMPT 45 10 "Cliente " HELP "Codice del cliente di contropartita delle riga"
HELP "Codice del cliente di contropartita delle riga" FIELD LF_CLIFO->CODCF
FIELD LF_CLIFO->CODCF COPY USE 206
COPY USE 206 INPUT TIPOCF "C"
INPUT TIPOCF "C" INPUT CODCF 213
INPUT CODCF 213 COPY DISPLAY 206
COPY DISPLAY 206 OUTPUT 213 CODCF
OUTPUT 213 CODCF OUTPUT 214 RAGSOC
OUTPUT 214 RAGSOC MESSAGE COPY,113
MESSAGE COPY,113 CHECKTYPE NORMAL
CHECKTYPE NORMAL END
END
NUMBER 313 6
NUMBER 313 6 BEGIN
BEGIN PROMPT 45 10 "Fornitore "
PROMPT 45 10 "Fornitore " HELP "Codice del fornitore di contropartita delle riga"
HELP "Codice del fornitore di contropartita delle riga" FIELD LF_CLIFO->CODCF
FIELD LF_CLIFO->CODCF COPY USE 306
COPY USE 306 INPUT TIPOCF "F"
INPUT TIPOCF "F" INPUT CODCF 313
INPUT CODCF 313 COPY DISPLAY 306
COPY DISPLAY 306 OUTPUT 313 CODCF
OUTPUT 313 CODCF OUTPUT 314 RAGSOC
OUTPUT 314 RAGSOC MESSAGE COPY,113
MESSAGE COPY,113 CHECKTYPE NORMAL
CHECKTYPE NORMAL END
END
STRING 114 50
STRING 114 50 BEGIN
BEGIN PROMPT 2 11 "Descriz. "
PROMPT 2 11 "Descriz. " HELP "Descrizione del conto di contropartita delle riga"
HELP "Descrizione del conto di contropartita delle riga" FIELD LF_PCON->DESCR
FIELD LF_PCON->DESCR COPY USE 107
COPY USE 107 INPUT DESCR 114
INPUT DESCR 114 COPY DISPLAY 107
COPY DISPLAY 107 COPY OUTPUT 113
COPY OUTPUT 113 ADD RUN cg0 -0
ADD RUN cg0 -0 WARNING "Conto inesistente sulla riga contabile"
WARNING "Conto inesistente sulla riga contabile" END
END
STRING 214 50
STRING 214 50 BEGIN
BEGIN PROMPT 2 11 "Cliente "
PROMPT 2 11 "Cliente " HELP "Ragione sociale del cliente di contropartita delle riga"
HELP "Ragione sociale del cliente di contropartita delle riga" FIELD LF_CLIFO->RAGSOC
FIELD LF_CLIFO->RAGSOC COPY USE 207
COPY USE 207 INPUT TIPOCF "C"
INPUT TIPOCF "C" INPUT RAGSOC 214
INPUT RAGSOC 214 COPY DISPLAY 207
COPY DISPLAY 207 COPY OUTPUT 213
COPY OUTPUT 213 ADD RUN cg0 -1 C
ADD RUN cg0 -1 C CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Cliente inesistente sulla riga contabile"
WARNING "Cliente inesistente sulla riga contabile" END
END
STRING 314 50
STRING 314 50 BEGIN
BEGIN PROMPT 2 11 "Fornitore "
PROMPT 2 11 "Fornitore " HELP "Ragione sociale del fornitore di contropartita delle riga"
HELP "Ragione sociale del fornitore di contropartita delle riga" FIELD LF_CLIFO->RAGSOC
FIELD LF_CLIFO->RAGSOC COPY USE 307
COPY USE 307 INPUT TIPOCF "F"
INPUT TIPOCF "F" INPUT RAGSOC 314
INPUT RAGSOC 314 COPY DISPLAY 307
COPY DISPLAY 307 COPY OUTPUT 313
COPY OUTPUT 313 ADD RUN cg0 -1 F
ADD RUN cg0 -1 F CHECKTYPE NORMAL
CHECKTYPE NORMAL WARNING "Fornitore inesistente sulla riga contabile"
WARNING "Fornitore inesistente sulla riga contabile" END
END
NUMBER 115 7
NUMBER 115 7 BEGIN
BEGIN PROMPT 2 13 "Riga giornale "
PROMPT 2 13 "Riga giornale " FLAGS "D"
FLAGS "D" END
END
LIST CG_ROWTYPE 24
LIST CG_ROWTYPE 24 BEGIN
BEGIN PROMPT 26 13 "Tipo riga "
PROMPT 26 13 "Tipo riga " ITEM " |Sola contabilita'"
ITEM " |Sola contabilita'" ITEM "A|Abbuoni attivi"
ITEM "A|Abbuoni attivi" ITEM "C|Differenza cambi"
ITEM "C|Differenza cambi" ITEM "D|IVA detraibile"
ITEM "D|IVA detraibile" ITEM "F|Ritenute fiscali"
ITEM "F|Ritenute fiscali" ITEM "G|Spese"
ITEM "G|Spese" ITEM "I|Riga generata"
ITEM "I|Riga generata" ITEM "L|Contropartita spese"
ITEM "L|Contropartita spese" ITEM "K|Riga Cliente/Fornitore"
ITEM "K|Riga Cliente/Fornitore" ITEM "N|IVA non detraibile"
ITEM "N|IVA non detraibile" ITEM "P|Abbuoni passivi"
ITEM "P|Abbuoni passivi" ITEM "S|Ritenute sociali"
ITEM "S|Ritenute sociali" ITEM "T|Totale documento"
ITEM "T|Totale documento" FLAGS "D"
FLAGS "D" END
END
BUTTON DLG_OK 9 2
BUTTON DLG_OK 9 2 BEGIN
BEGIN PROMPT -14 -1 ""
PROMPT -14 -1 "" END
END
BUTTON DLG_CANCEL 9 2
BUTTON DLG_CANCEL 9 2 BEGIN
BEGIN PROMPT -24 -1 ""
PROMPT -24 -1 "" END
END
BUTTON DLG_DELREC 9 2
BUTTON DLG_DELREC 9 2 BEGIN
BEGIN PROMPT -34 -1 "Elimina"
PROMPT -34 -1 "Elimina" MESSAGE EXIT,K_DEL
MESSAGE EXIT,K_DEL END
END
BUTTON 100 9 2
BUTTON 100 9 2 BEGIN
BEGIN PROMPT -44 -1 "Partite"
PROMPT -44 -1 "Partite" END
END
ENDPAGE
ENDPAGE
ENDMASK
ENDMASK