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 di riga"
	FLAGS "U"
	USE %DPN
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT 108 CODTAB
	OUTPUT 109 S0
	CHECKTYPE NORMAL
END

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

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

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

NUMBER 102 15
BEGIN
	PROMPT 42 5 "Avere "
	HELP "Importo avere del conto della riga"
	FLAGS "RV"
	PICTURE "."
END

LIST 103 1 12
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 104 3
BEGIN
	PROMPT 20 6 "Gruppo "
	HELP "Codice del conto delle riga"
END

NUMBER 105 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
	ADD RUN CG0 -0
	CHECKTYPE NORMAL
	MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
	WARNING "Conto inesistente o mancante sulla riga contabile"
END

NUMBER 106 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
	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
	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
	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
	CHECKTYPE NORMAL
	WARNING "Fornitore inesistente sulla riga contabile"
END

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

LIST 110 1 12
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
	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
	CHECKTYPE NORMAL
	WARNING "Fornitore inesistente sulla riga contabile"
END

LIST 115 20
BEGIN
	PROMPT 2 13 "Tipo riga "
	ITEM " |Sola contabilita'"
	ITEM "C|Gestione saldaconto"
	ITEM "D|IVA detraibile"
	ITEM "F|Ritenute fiscali"
	ITEM "I|Riga di IVA"
	ITEM "N|IVA non detraibile"
	ITEM "S|Ritenute sociali"
	ITEM "T|Totale documento"
	FLAGS "D"
END


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

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

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

ENDPAGE

ENDMASK
