110 lines
1.7 KiB
Plaintext
Executable File
110 lines
1.7 KiB
Plaintext
Executable File
#include "cg2100p.h"
|
|
|
|
PAGE "Nuova partita" -1 -1 48 10
|
|
|
|
RADIOBUTTON P_NUOVO 1 21
|
|
BEGIN
|
|
PROMPT 0 0 "@BTipo movimento"
|
|
ITEM "1|Fattura"
|
|
MESSAGE ENABLE,P_CODPAG
|
|
ITEM "2|Nota credito"
|
|
MESSAGE DISABLE,P_CODPAG
|
|
ITEM "3|Incasso/pagamento "
|
|
MESSAGE DISABLE,P_CODPAG
|
|
ITEM "5|Insoluto"
|
|
MESSAGE DISABLE,P_CODPAG
|
|
ITEM "6|Pagamento insoluto"
|
|
MESSAGE DISABLE,P_CODPAG
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER P_ANNO 4
|
|
BEGIN
|
|
PROMPT 22 1 "Partita "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Inserire l'anno di riferimento partita"
|
|
END
|
|
|
|
STRING P_NUMERO 7
|
|
BEGIN
|
|
PROMPT 40 1 ""
|
|
FLAGS "U"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Inserire il numero di riferimento partita"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 22 2 "Sezione"
|
|
END
|
|
|
|
RADIOBUTTON P_SEZIONE 1 19
|
|
BEGIN
|
|
PROMPT 31 1 ""
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
FLAGS "Z"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER P_RESIDUO 15
|
|
BEGIN
|
|
PROMPT 22 3 "Importo "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
STRING P_CODPAG 4
|
|
BEGIN
|
|
PROMPT 22 4 "Pagamento "
|
|
FLAGS "UZ"
|
|
USE %CPG
|
|
INPUT CODTAB P_CODPAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT P_CODPAG CODTAB
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN ba3 -6
|
|
GROUP 1
|
|
WARNING "Codice pagamento assente"
|
|
END
|
|
|
|
STRING P_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 22 5 "Documento "
|
|
FLAGS "U"
|
|
GROUP 1
|
|
END
|
|
|
|
DATE P_DATADOC
|
|
BEGIN
|
|
PROMPT 22 6 "Data "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Inserire una data per il movimento extra-contabile"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING P_DESCR 50 34
|
|
BEGIN
|
|
PROMPT 1 7 "Descrizione "
|
|
WARNING "Inserire una descrizione per il movimento extra-contabile"
|
|
CHECKTYPE REQUIRED
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|