PAGE "RIGA PRIMA NOTA" -1 -1 67 16

GROUPBOX DLG_NULL 66 3
BEGIN
  PROMPT 1 1 "Descrizione"
END

STRING 108 5
BEGIN
  PROMPT 2 2 ""
  HELP "Codice della descrizione aggiuntiva della riga"
  FLAGS "UZ"
  USE %DPN
  INPUT CODTAB 108
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 108 CODTAB
  OUTPUT 109 S0
  CHECKTYPE NORMAL
END

STRING 109 50
BEGIN
  PROMPT 12 2 ""
  USE %DPN KEY 2
  INPUT S0 109
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 108
  HELP "Descrizione aggiuntiva della riga"
  FIELD DESCR
END

GROUPBOX DLG_NULL 66 5
BEGIN
  PROMPT 1 4 "Conto principale"
END

NUMBER CG_DARE 15
BEGIN
  PROMPT 2 5 "Dare "
  HELP "Importo 'dare' del conto della riga"
  FLAGS "RV"
  PICTURE "."
END

NUMBER CG_AVERE 15
BEGIN
  PROMPT 43 5 "Avere "
  HELP "Importo 'avere' del conto della riga"
  FLAGS "RV"
  PICTURE "."
END

LIST CG_TIPO 1 10
BEGIN
  PROMPT 2 6 "Tipo "
  HELP "Tipo del conto principale della riga"
  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 6 "Gruppo "
  HELP "Codice del conto delle riga"
END

NUMBER CG_CONTO 3
BEGIN
  PROMPT 32 6 "Conto "
  HELP "Codice del conto delle riga"
  FIELD LF_PCON->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 6 "Sottoconto "
  HELP "Codice del conto delle riga"
  FIELD LF_PCON->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 6 "Cliente    "
  HELP "Codice del cliente delle riga"
  FIELD LF_PCON->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 6 "Fornitore  "
  HELP "Codice del fornitore delle riga"
  FIELD LF_PCON->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 7 "Descriz.  "
  HELP "Descrizione del conto delle riga"
  FIELD LF_PCON->DESCR
  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 7 "Cliente   "
  HELP "Ragione sociale del cliente delle riga"
  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 NORMAL
  WARNING "Cliente inesistente sulla riga contabile"
END

STRING 307 50
BEGIN
  PROMPT 2 7 "Fornitore "
  HELP "Ragione sociale del fonitore delle riga"
  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 NORMAL
  WARNING "Fornitore inesistente sulla riga contabile"
END

GROUPBOX DLG_NULL 66 4
BEGIN
  PROMPT 1 9 "Contropartita"
END

LIST 110 1 10
BEGIN
  PROMPT 2 10 "Tipo "
  HELP "Tipo del conto di contropartita della riga"
  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 10 "Gruppo "
  HELP "Codice del conto di contropartita delle riga"
END

NUMBER 112 3
BEGIN
  PROMPT 32 10 "Conto "
  HELP "Codice del conto di contropartita delle riga"
  FIELD LF_PCON->CONTO
  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 10 "Sottoconto "
  HELP "Codice del conto di contropartita delle riga"
  FIELD LF_PCON->SOTTOCONTO
  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 10 "Cliente    "
  HELP "Codice del cliente di contropartita delle riga"
  FIELD LF_CLIFO->CODCF
  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 10 "Fornitore  "
  HELP "Codice del fornitore di contropartita delle riga"
  FIELD LF_CLIFO->CODCF
  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 11 "Descriz.  "
  HELP "Descrizione del conto di contropartita delle riga"
  FIELD LF_PCON->DESCR
  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 11 "Cliente   "
  HELP "Ragione sociale del cliente di contropartita delle riga"
  FIELD LF_CLIFO->RAGSOC
  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 11 "Fornitore "
  HELP "Ragione sociale del fornitore di contropartita delle riga"
  FIELD LF_CLIFO->RAGSOC
  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     

NUMBER 115 7
BEGIN
  PROMPT 2 13 "Riga giornale "
  FLAGS "D"
END

LIST CG_ROWTYPE 24
BEGIN
  PROMPT 26 13 "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 "S|Ritenute sociali"
  ITEM "T|Totale documento"
  FLAGS "D"
END


BUTTON DLG_OK 9 2
BEGIN
  PROMPT -14 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -24 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
  PROMPT -34 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

BUTTON 100 9 2
BEGIN
  PROMPT -44 -1 "Partite"
END


ENDPAGE

ENDMASK
