campo-sirio/cg/cg21cg.uml

PAGE "RIGA PRIMA NOTA" -1 -1 69 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
  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
  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 15
BEGIN
  PROMPT 1 12 "CUP "
  USE %CUP
  INPUT CODTAB CG_CUP
  DISPLAY "Codice@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT CG_CUP CODTAB
  OUTPUT CG_DCUP S0
  FIELD CUP
  CHECKTYPE NORMAL
  GROUP 64
END

STRING CG_DCUP 50 32
BEGIN
  PROMPT 30 12 ""
  USE %CUP KEY 2
  INPUT S0 CG_DCUP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@15" CODTAB
  COPY OUTPUT CG_CUP
  GROUP 64
END

STRING CG_CIG 10
BEGIN
  PROMPT 1 13 "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 32
BEGIN
  PROMPT 30 13 ""
  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 15 "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