campo-sirio/cg/cg21cg.uml

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 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     

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"
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
  MESSAGE EXIT,K_DEL
END

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -44 -1 "~Partite"
END

ENDPAGE

ENDMASK