f991f0834a
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione AGA 1.7 patch 302 git-svn-id: svn://10.65.10.50/trunk@10377 c028cbd2-c16b-5b4b-a496-9718f37d4682
417 lines
7.5 KiB
Plaintext
Executable File
417 lines
7.5 KiB
Plaintext
Executable File
PAGE "RIGA PRIMA NOTA" -1 -1 67 18
|
|
|
|
GROUPBOX DLG_NULL 66 3
|
|
BEGIN
|
|
PROMPT 1 0 "@bDescrizione riga"
|
|
END
|
|
|
|
STRING 108 5
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
FLAGS "UZ"
|
|
USE %DPN
|
|
INPUT CODTAB 108
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT 108 CODTAB
|
|
OUTPUT CG_DESCR S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING CG_DESCR 50
|
|
BEGIN
|
|
PROMPT 12 1 ""
|
|
USE %DPN KEY 2
|
|
INPUT S0 109
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT 108
|
|
FIELD DESCR
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 66 5
|
|
BEGIN
|
|
PROMPT 1 3 "@bConto principale"
|
|
END
|
|
|
|
CURRENCY CG_DARE 18
|
|
BEGIN
|
|
PROMPT 2 4 "Dare "
|
|
END
|
|
|
|
CURRENCY CG_AVERE 18
|
|
BEGIN
|
|
PROMPT 38 4 "Avere "
|
|
END
|
|
|
|
LIST CG_TIPO 1 10
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo "
|
|
FLAGS "U"
|
|
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 "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
|
|
END
|
|
|
|
NUMBER CG_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 20 5 "Gruppo "
|
|
FIELD GRUPPO
|
|
END
|
|
|
|
NUMBER CG_CONTO 3
|
|
BEGIN
|
|
PROMPT 32 5 "Conto "
|
|
FIELD CONTO
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
|
INPUT GRUPPO 104
|
|
INPUT CONTO 105
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT 103 TMCF
|
|
OUTPUT 104 GRUPPO
|
|
OUTPUT 105 CONTO
|
|
// OUTPUT 107 DESCR
|
|
CHECKTYPE NORMAL
|
|
MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
|
|
WARNING "Conto inesistente o mancante sulla riga contabile"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER CG_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 45 5 "Sottoconto "
|
|
FIELD SOTTOCONTO
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO 104
|
|
INPUT CONTO 105
|
|
INPUT SOTTOCONTO 106
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT 106 SOTTOCONTO
|
|
OUTPUT 104 GRUPPO
|
|
OUTPUT 105 CONTO
|
|
OUTPUT 107 DESCR
|
|
ADD RUN cg0 -0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto inesistente sulla riga contabile"
|
|
END
|
|
|
|
NUMBER 206 6
|
|
BEGIN
|
|
PROMPT 45 5 "Cliente "
|
|
FIELD SOTTOCONTO
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF 206
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT 206 CODCF
|
|
OUTPUT 207 RAGSOC
|
|
MESSAGE COPY,106
|
|
ADD RUN cg0 -1 C
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente sulla riga contabile"
|
|
END
|
|
|
|
NUMBER 306 6
|
|
BEGIN
|
|
PROMPT 45 5 "Fornitore "
|
|
FIELD SOTTOCONTO
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF 306
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT 306 CODCF
|
|
OUTPUT 307 RAGSOC
|
|
MESSAGE COPY,106
|
|
ADD RUN cg0 -1 F
|
|
MESSAGE COPY,106
|
|
CHECKTYPE NORMAL
|
|
WARNING "Fornitore inesistente sulla riga contabile"
|
|
END
|
|
|
|
STRING 107 50
|
|
BEGIN
|
|
PROMPT 2 6 "Descriz. "
|
|
FIELD DESCRCONTO
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR 107
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT 106
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto inesistente o mancante sulla riga contabile"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING 207 50
|
|
BEGIN
|
|
PROMPT 2 6 "Cliente "
|
|
FIELD LF_CLIFO->RAGSOC
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC 207
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT 206
|
|
MESSAGE COPY,107
|
|
ADD RUN cg0 -1 C
|
|
CHECKTYPE SEARCH
|
|
WARNING "Cliente inesistente sulla riga contabile"
|
|
END
|
|
|
|
STRING 307 50
|
|
BEGIN
|
|
PROMPT 2 6 "Fornitore "
|
|
FIELD LF_PCON->SOTTOCONTO
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC 307
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT 306
|
|
MESSAGE COPY,107
|
|
ADD RUN cg0 -1 F
|
|
CHECKTYPE SEARCH
|
|
WARNING "Fornitore inesistente sulla riga contabile"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 66 4
|
|
BEGIN
|
|
PROMPT 1 8 "@bContropartita"
|
|
END
|
|
|
|
LIST 110 1 10
|
|
BEGIN
|
|
PROMPT 2 9 "Tipo "
|
|
FLAGS "U"
|
|
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 "F|Fornitore" MESSAGE SHOW,313|HIDE,113|HIDE,213|SHOW,314|HIDE,114|HIDE,214
|
|
END
|
|
|
|
NUMBER 111 3
|
|
BEGIN
|
|
PROMPT 20 9 "Gruppo "
|
|
FIELD GRUPPOC
|
|
END
|
|
|
|
NUMBER 112 3
|
|
BEGIN
|
|
PROMPT 32 9 "Conto "
|
|
FIELD CONTOC
|
|
COPY USE 105
|
|
INPUT GRUPPO 111
|
|
INPUT CONTO 112
|
|
COPY DISPLAY 105
|
|
OUTPUT 110 TMCF
|
|
OUTPUT 111 GRUPPO
|
|
OUTPUT 112 CONTO
|
|
// OUTPUT 114 DESCR
|
|
ADD RUN CG0 -0
|
|
MESSAGE DIRTY,113|DIRTY,213|DIRTY,313
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 3 113 213 313
|
|
END
|
|
|
|
NUMBER 113 6
|
|
BEGIN
|
|
PROMPT 45 9 "Sottoconto "
|
|
FIELD SOTTOCONTC
|
|
COPY USE 106
|
|
COPY INPUT 112
|
|
INPUT SOTTOCONTO 113
|
|
COPY DISPLAY 106
|
|
OUTPUT 113 SOTTOCONTO
|
|
OUTPUT 111 GRUPPO
|
|
OUTPUT 112 CONTO
|
|
OUTPUT 114 DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER 213 6
|
|
BEGIN
|
|
PROMPT 45 9 "Cliente "
|
|
FIELD SOTTOCONTC
|
|
COPY USE 206
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF 213
|
|
COPY DISPLAY 206
|
|
OUTPUT 213 CODCF
|
|
OUTPUT 214 RAGSOC
|
|
MESSAGE COPY,113
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER 313 6
|
|
BEGIN
|
|
PROMPT 45 9 "Fornitore "
|
|
FIELD SOTTOCONTC
|
|
COPY USE 306
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF 313
|
|
COPY DISPLAY 306
|
|
OUTPUT 313 CODCF
|
|
OUTPUT 314 RAGSOC
|
|
MESSAGE COPY,113
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 114 50
|
|
BEGIN
|
|
PROMPT 2 10 "Descriz. "
|
|
FIELD DESCRCONTOC
|
|
COPY USE 107
|
|
INPUT DESCR 114
|
|
COPY DISPLAY 107
|
|
COPY OUTPUT 113
|
|
ADD RUN cg0 -0
|
|
WARNING "Conto inesistente sulla riga contabile"
|
|
END
|
|
|
|
STRING 214 50
|
|
BEGIN
|
|
PROMPT 2 10 "Cliente "
|
|
FIELD DESCRCONTOC
|
|
COPY USE 207
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC 214
|
|
COPY DISPLAY 207
|
|
COPY OUTPUT 213
|
|
ADD RUN cg0 -1 C
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente sulla riga contabile"
|
|
END
|
|
|
|
STRING 314 50
|
|
BEGIN
|
|
PROMPT 2 10 "Fornitore "
|
|
FIELD DESCRCONTOC
|
|
COPY USE 307
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC 314
|
|
COPY DISPLAY 307
|
|
COPY OUTPUT 313
|
|
ADD RUN cg0 -1 F
|
|
CHECKTYPE NORMAL
|
|
WARNING "Fornitore inesistente sulla riga contabile"
|
|
END
|
|
|
|
GROUPBOX 155 66 4
|
|
BEGIN
|
|
PROMPT 1 12 "@bCentro di costo / Commessa"
|
|
END
|
|
|
|
STRING CG_COMMESSA 20
|
|
BEGIN
|
|
PROMPT 2 13 "Codice "
|
|
FLAGS "UZ"
|
|
USE CMS
|
|
INPUT CODTAB CG_COMMESSA
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT CG_COMMESSA CODTAB
|
|
OUTPUT 156 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 156 50 30
|
|
BEGIN
|
|
PROMPT 32 13 ""
|
|
USE CMS KEY 2
|
|
INPUT S0 156
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
COPY OUTPUT CG_COMMESSA
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING CG_FASE 10
|
|
BEGIN
|
|
PROMPT 2 14 "Fase "
|
|
FLAGS "UZ"
|
|
USE FSC
|
|
INPUT CODTAB CG_FASE
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT CG_FASE CODTAB
|
|
OUTPUT 157 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 157 50 30
|
|
BEGIN
|
|
PROMPT 32 14 ""
|
|
USE FSC KEY 2
|
|
INPUT S0 157
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
COPY OUTPUT CG_FASE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST CG_ROWTYPE 24
|
|
BEGIN
|
|
PROMPT 28 16 "Tipo riga "
|
|
ITEM " |Sola contabilita'"
|
|
ITEM "A|Abbuoni attivi"
|
|
ITEM "C|Differenza cambi"
|
|
ITEM "D|IVA detraibile"
|
|
ITEM "F|Ritenute fiscali"
|
|
ITEM "G|Spese"
|
|
ITEM "I|Riga generata"
|
|
ITEM "L|Contropartita spese"
|
|
ITEM "K|Riga Cliente/Fornitore"
|
|
ITEM "N|IVA non detraibile"
|
|
ITEM "P|Abbuoni passivi"
|
|
ITEM "R|Ritenute professionali"
|
|
ITEM "S|Ritenute sociali"
|
|
ITEM "T|Totale documento"
|
|
FLAGS "D"
|
|
FIELD ROWTYPE
|
|
END
|
|
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -14 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -24 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -34 -1 "Elimina"
|
|
PICTURE BMP_DELREC
|
|
PICTURE BMP_DELRECDN
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
BUTTON DLG_USER 10 2
|
|
BEGIN
|
|
PROMPT -44 -1 "~Partite"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|