diff --git a/sc/sc0100a.uml b/sc/sc0100a.uml index 66d3a9a8d..c4ccda74c 100755 --- a/sc/sc0100a.uml +++ b/sc/sc0100a.uml @@ -1,158 +1,158 @@ -#include "sc0100a.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_OK 10 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 10 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -PAGE "Selezione partite" -1 -1 77 20 - -LIST F_TIPO 1 12 -BEGIN - PROMPT 1 1 "Tipo conto " - ITEM " |Conto" - MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@ - ITEM "C|Cliente" - MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@ - ITEM "F|Fornitore" - MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@ -END - -NUMBER F_GRUPPO 3 -BEGIN - PROMPT 26 1 "Gruppo " - USE LF_PCON SELECT CONTO=="" - INPUT GRUPPO F_GRUPPO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO GRUPPO - CHECKTYPE REQUIRED - ADD RUN cg0 -0 -END - -NUMBER F_CONTO 3 -BEGIN - PROMPT 40 1 "Conto " - USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") - INPUT GRUPPO F_GRUPPO - INPUT CONTO F_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - DISPLAY "Tipo" TMCF - OUTPUT F_TIPO TMCF - OUTPUT F_GRUPPO GRUPPO - OUTPUT F_CONTO CONTO - CHECKTYPE REQUIRED - ADD RUN cg0 -0 -END - -NUMBER F_SOTTOCONTO 6 -BEGIN - PROMPT 54 1 "Sottoconto " - USE LF_PCON SELECT SOTTOCONTO!="" - COPY INPUT F_CONTO - INPUT SOTTOCONTO F_SOTTOCONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPO GRUPPO - OUTPUT F_CONTO CONTO - OUTPUT F_SOTTOCONTO SOTTOCONTO - OUTPUT F_DESCR DESCR - ADD RUN cg0 -0 - GROUP 1 - CHECKTYPE REQUIRED -END - -NUMBER F_CLIENTE 6 -BEGIN - PROMPT 54 1 "Cliente " - USE LF_CLIFO - INPUT TIPOCF "C" - INPUT CODCF F_CLIENTE - DISPLAY "Cliente" CODCF - DISPLAY "Descrizione@50" RAGSOC -// OUTPUT F_GRUPPO GRUPPO -// OUTPUT F_CONTO CONTO - OUTPUT F_CLIENTE CODCF - OUTPUT F_DESCRCLI RAGSOC - ADD RUN cg0 -1 C - GROUP 2 - CHECKTYPE REQUIRED - MESSAGE COPY,F_SOTTOCONTO -END - -NUMBER F_FORNITORE 6 -BEGIN - PROMPT 54 1 "Fornitore " - USE LF_CLIFO - INPUT TIPOCF "F" - INPUT CODCF F_FORNITORE - DISPLAY "Fornitore" CODCF - DISPLAY "Descrizione@50" RAGSOC -// OUTPUT F_GRUPPO GRUPPO -// OUTPUT F_CONTO CONTO - OUTPUT F_FORNITORE CODCF - OUTPUT F_DESCRFOR RAGSOC - ADD RUN cg0 -1 F - GROUP 3 - CHECKTYPE REQUIRED - MESSAGE COPY,F_SOTTOCONTO -END - -STRING F_DESCR 50 58 -BEGIN - PROMPT 1 2 "Descrizione " - USE LF_PCON KEY 2 - INPUT DESCR F_DESCR - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCONTO - CHECKTYPE REQUIRED - GROUP 1 - ADD RUN cg0 -0 -END - -STRING F_DESCRCLI 50 58 -BEGIN - PROMPT 1 2 "Descrizione " - USE LF_CLIFO KEY 2 - INPUT TIPOCF "C" - INPUT RAGSOC F_DESCRCLI - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" CODCF - DISPLAY "Ragione sociale@50" RAGSOC - COPY OUTPUT F_CLIENTE - CHECKTYPE REQUIRED - GROUP 2 - ADD RUN cg0 -1 -END - -STRING F_DESCRFOR 50 58 -BEGIN - PROMPT 1 2 "Descrizione " - USE LF_PCON KEY 2 - INPUT TIPOCF "F" - INPUT RAGSOC F_DESCRFOR - COPY DISPLAY F_DESCRCLI - COPY OUTPUT F_FORNITORE - CHECKTYPE REQUIRED - GROUP 3 - ADD RUN cg0 -1 -END - -ENDMASK +#include "sc0100a.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +PAGE "Selezione partite" -1 -1 77 20 + +LIST F_TIPO 1 12 +BEGIN + PROMPT 1 1 "Tipo conto " + ITEM " |Conto" + MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@ + ITEM "C|Cliente" + MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@ + ITEM "F|Fornitore" + MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@ +END + +NUMBER F_GRUPPO 3 +BEGIN + PROMPT 26 1 "Gruppo " + USE LF_PCON SELECT CONTO=="" + INPUT GRUPPO F_GRUPPO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPO GRUPPO + CHECKTYPE REQUIRED + ADD RUN cg0 -0 +END + +NUMBER F_CONTO 3 +BEGIN + PROMPT 40 1 "Conto " + USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") + INPUT GRUPPO F_GRUPPO + INPUT CONTO F_CONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Tipo" TMCF + OUTPUT F_TIPO TMCF + OUTPUT F_GRUPPO GRUPPO + OUTPUT F_CONTO CONTO + CHECKTYPE REQUIRED + ADD RUN cg0 -0 +END + +NUMBER F_SOTTOCONTO 6 +BEGIN + PROMPT 54 1 "Sottoconto " + USE LF_PCON SELECT SOTTOCONTO!="" + COPY INPUT F_CONTO + INPUT SOTTOCONTO F_SOTTOCONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPO GRUPPO + OUTPUT F_CONTO CONTO + OUTPUT F_SOTTOCONTO SOTTOCONTO + OUTPUT F_DESCR DESCR + ADD RUN cg0 -0 + GROUP 1 + CHECKTYPE REQUIRED +END + +NUMBER F_CLIENTE 6 +BEGIN + PROMPT 54 1 "Cliente " + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF F_CLIENTE + DISPLAY "Cliente" CODCF + DISPLAY "Descrizione@50" RAGSOC +// OUTPUT F_GRUPPO GRUPPO +// OUTPUT F_CONTO CONTO + OUTPUT F_CLIENTE CODCF + OUTPUT F_DESCRCLI RAGSOC + ADD RUN cg0 -1 C + GROUP 2 + CHECKTYPE REQUIRED + MESSAGE COPY,F_SOTTOCONTO +END + +NUMBER F_FORNITORE 6 +BEGIN + PROMPT 54 1 "Fornitore " + USE LF_CLIFO + INPUT TIPOCF "F" + INPUT CODCF F_FORNITORE + DISPLAY "Fornitore" CODCF + DISPLAY "Descrizione@50" RAGSOC +// OUTPUT F_GRUPPO GRUPPO +// OUTPUT F_CONTO CONTO + OUTPUT F_FORNITORE CODCF + OUTPUT F_DESCRFOR RAGSOC + ADD RUN cg0 -1 F + GROUP 3 + CHECKTYPE REQUIRED + MESSAGE COPY,F_SOTTOCONTO +END + +STRING F_DESCR 50 58 +BEGIN + PROMPT 1 2 "Descrizione " + USE LF_PCON KEY 2 + INPUT DESCR F_DESCR + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCONTO + CHECKTYPE REQUIRED + GROUP 1 + ADD RUN cg0 -0 +END + +STRING F_DESCRCLI 50 58 +BEGIN + PROMPT 1 2 "Descrizione " + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_DESCRCLI + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + COPY OUTPUT F_CLIENTE + CHECKTYPE REQUIRED + GROUP 2 + ADD RUN cg0 -1 +END + +STRING F_DESCRFOR 50 58 +BEGIN + PROMPT 1 2 "Descrizione " + USE LF_CLIFO KEY 2 + INPUT TIPOCF "F" + INPUT RAGSOC F_DESCRFOR + COPY DISPLAY F_DESCRCLI + COPY OUTPUT F_FORNITORE + CHECKTYPE REQUIRED + GROUP 3 + ADD RUN cg0 -1 +END + +ENDMASK diff --git a/sc/sc0101.cpp b/sc/sc0101.cpp index 8e6ab75f2..7412adde8 100755 --- a/sc/sc0101.cpp +++ b/sc/sc0101.cpp @@ -1,5 +1,6 @@ #include #include +#include #include "../cg/conto.h" #include "../cg/pagament.h"