root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/cg/cg21cg.uml
alex 0e69065ad1 Patch level : 10.0 870 
Files correlati     : cg2.exe
Ricompilazione Demo : [ ]
Commento            :

Gestione CUP
IN prima nota sono stati aggiunti i campi CUP e CIG alle righe contabili che sono attivi solo in cirispondenza di conti clienti e fornitori. Non ci sono autoatismi su questi campi servono principalmente per essere utilizzati in fase di gestione incassi o pagamenti.
Per ROBERTO
Bisogna verificare con Geisoft il collgamento a cantieri, il cup e il cig devono andare sulla prima riga contabile (cliente o fornitore)


git-svn-id: svn://10.65.10.50/branches/R_10_00@21368 c028cbd2-c16b-5b4b-a496-9718f37d4682
2010-12-26 23:01:47 +00:00

440 lines
7.7 KiB
Plaintext
Executable File
Raw Blame History

PAGE "RIGA PRIMA NOTA" -1 -1 67 17
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
LIST CG_TIPO 1 12
BEGIN
PROMPT 2 5 ""
FIELD TIPOC
FLAGS "GU"
ITEM " |Conto"
MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307|CLEAR,64@
ITEM "C|Cliente"
MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307|ENABLE,64@
ITEM "F|Fornitore"
MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207|ENABLE,64@
END
NUMBER CG_GRUPPO 3
BEGIN
PROMPT 19 5 "Gruppo "
FIELD GRUPPO
END
NUMBER CG_CONTO 3
BEGIN
PROMPT 31 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
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
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
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 ""
FIELD TIPOCC
FLAGS "GU"
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 19 9 "Gruppo "
FIELD GRUPPOC
END
NUMBER 112 3
BEGIN
PROMPT 31 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
STRING CG_CUP 22
BEGIN
PROMPT 1 11 "CUP "
USE %CUP
INPUT CODTAB CG_CUP
DISPLAY "Codice@22" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT CG_CUP CODTAB
OUTPUT CG_DCUP S0
FIELD CUP
CHECKTYPE NORMAL
GROUP 64
END
STRING CG_DCUP 50 30
BEGIN
PROMPT 40 11 ""
USE %CUP KEY 2
INPUT S0 F_DCUP
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@22" CODTAB
COPY OUTPUT CG_CUP
GROUP 64
END
STRING CG_CIG 10
BEGIN
PROMPT 1 12 "CIG "
USE %CIG
INPUT CODTAB CG_CIG
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice gara" S1
OUTPUT CG_CIG CODTAB
OUTPUT CG_DCIG S0
FIELD CIG
CHECKTYPE NORMAL
GROUP 64
END
STRING CG_DCIG 50 30
BEGIN
PROMPT 40 12 ""
USE %CIG KEY 2
INPUT S0 CG_DCIG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT CG_CIG
GROUP 64
END
LIST CG_ROWTYPE 24
BEGIN
PROMPT 28 13 "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
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_USER 2 2
BEGIN
PROMPT 3 1 "~Partite"
PICTURE TOOL_LINK
END
BUTTON CG_MASTRINO 2 2
BEGIN
PROMPT 4 1 "Mastrino"
PICTURE TOOL_LINK
END
BUTTON CG_RATEO 2 2
BEGIN
PROMPT 5 1 "Rateo"
PICTURE TOOL_TODATAFIN
END
BUTTON CG_RISCONTO 2 2
BEGIN
PROMPT 6 1 "Risconto"
PICTURE TOOL_TODATAINI
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 7 1 ""
END
ENDPAGE
ENDMASK
Reference in New Issue View Git Blame Copy Permalink