e19b721773
Files correlati : cg2.exe le mashecere di cg2 Ricompilazione Demo : [ ] Commento : Bug 0000836 Sto cambiando data ad un gruppo di registrazioni fatture di vendita manuale, per far rigenerare le scadenze metto reg. di pura iva prima si e poi no, non mi ricrea le righe di contabilità quindi mi appresto ad inserirle io, ricerco quindi il cliente ma la barra di ricerca nasconde l'imbuto di ricerca, ed il campo della ragione sociale viene accorpato al campo alla destra. git-svn-id: svn://10.65.10.50/trunk@16971 c028cbd2-c16b-5b4b-a496-9718f37d4682
375 lines
6.7 KiB
Plaintext
Executable File
375 lines
6.7 KiB
Plaintext
Executable File
PAGE "RIGA PRIMA NOTA" -1 -1 67 14
|
||
|
||
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 27 4 "Avere "
|
||
END
|
||
|
||
BUTTON CG_MASTRINO 8 1
|
||
BEGIN
|
||
PROMPT 56 4 "Mastrino"
|
||
END
|
||
|
||
LIST CG_TIPO 1 12
|
||
BEGIN
|
||
PROMPT 2 5 "Tipo "
|
||
FIELD TIPOC
|
||
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@55" 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@55" 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 12
|
||
BEGIN
|
||
PROMPT 2 9 "Tipo "
|
||
FIELD TIPOCC
|
||
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
|
||
|
||
LIST CG_ROWTYPE 24
|
||
BEGIN
|
||
PROMPT 28 12 "Tipo riga "
|
||
ITEM " |Sola contabilit<69>"
|
||
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"
|
||
MESSAGE EXIT,K_DEL
|
||
END
|
||
|
||
BUTTON DLG_USER 10 2
|
||
BEGIN
|
||
PROMPT -44 -1 "~Partite"
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|