campo-sirio/src/li/li0100a.uml

#include "li0100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 1 "Carica"
  PICTURE TOOL_CONVERT 
END

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Ricostruisci Plafond"
  PICTURE TOOL_ELABORA
END

#include <helpbar.h>
ENDPAGE

PAGE "Impostazioni" 0 2 0 0

LISTBOX F_TIPORIC 20
BEGIN
  PROMPT 1 1 "Ricerca per  "
  ITEM "L|Lettera" MESSAGE ENABLE,1@|CLEAR,2@
  ITEM "D|Estremi documenti" MESSAGE CLEAR,1@|ENABLE,2@

END

NUMBER F_NUMPROT 6
BEGIN
  PROMPT 40 1 "Cod. lettera "
  USE LF_LETINT
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI
  KEY 1
  INPUT ANNO F_ANNO
  DISPLAY "Anno@6" ANNO
  DISPLAY "Numprot@8" NUMPROT
  DISPLAY "Data Reg.@12" DATAREG
  DISPLAY "Cliente@8" CODCLI
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "Importo" IMPORTO
  DISPLAY "Chiusa" CHIUSA
  OUTPUT F_NUMPROT NUMPROT
  OUTPUT F_ANNO ANNO
  OUTPUT F_DACODCF CODCLI
  OUTPUT F_DARAGSOC LF_CLIFO->RAGSOC
  OUTPUT F_ACODCF CODCLI
  OUTPUT F_ARAGSOC LF_CLIFO->RAGSOC
  GROUP 1
END

DATE F_DATAINI
BEGIN
  PROMPT 1 2 "Data iniziale"
END

DATE F_DATAFIN
BEGIN
  PROMPT 40 2 "Data Finale  "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale non può essere minore della data iniziale"
END


NUMBER F_ANNO 4
BEGIN
  PROMPT 1 3 "Anno         "
  CHECKTYPE REQUIRED
  WARNING "Inserire un anno"
END

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 0 5 "Clienti"
END

NUMBER F_DACODCF 6
BEGIN
  PROMPT 1 6 "Da Codice"
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_DACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Occasionale@C" OCCAS
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  OUTPUT F_DACODCF CODCF
  OUTPUT F_DARAGSOC RAGSOC
  CHEKTYPE NORMAL
  GROUP 2
  FLAGS "D"
END

STRING F_DARAGSOC 50 49
BEGIN
  PROMPT 21 6 "R.Soc"
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_DACODCF
  ADD RUN CG0 -1
  GROUP 2
  FLAGS "D"
END


NUMBER F_ACODCF 6
BEGIN
  PROMPT 1 7 "A Codice "
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_ACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Occasionale@C" OCCAS
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  OUTPUT F_ACODCF CODCF
  OUTPUT F_ARAGSOC RAGSOC
  CHEKTYPE NORMAL
  GROUP 2
  FLAGS "D"
END

STRING F_ARAGSOC 50 49
BEGIN
  PROMPT 21 7 "R.Soc"
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_ACODCF
  ADD RUN CG0 -1
  GROUP 2
  FLAGS "D"
END

ENDPAGE

PAGE "Documenti/Lettere Intento" 0 2 0 0

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 0 "Righe movimenti"
  ITEM "Data\n Doc.@8F"
  ITEM "Anno\nDoc.@5F"
  ITEM "Numero\nDocum.@5F"
  ITEM "Cod.\nNum.@8F"
  ITEM "Tipo\nDoc.@4F"
  ITEM "Stato\nDoc.@5F"
  ITEM "C/F@2"
  ITEM "Codice@6"
  ITEM "Ragione Sociale@35"
  ITEM "Tot. Doc.@10"
  ITEM "Num Prot1@8"
  ITEM "Utilizzato1@10"
  ITEM "Num Prot2@8"
  ITEM "Utilizzato2@10"
  ITEM "Num Prot3@8"
  ITEM "Utilizzato3@10"
  ITEM "Num Prot4@8"
  ITEM "Utilizzato4@10"
  ITEM "Num Prot5@8"
  ITEM "Utilizzato5@10"
  ITEM "Num Prot6@8"
  ITEM "Utilizzato6@10"
  ITEM "Num Prot7@8"
  ITEM "Utilizzato7@10"
  ITEM "Num Prot8@8"
  ITEM "Utilizzato8@10"
  ITEM "Num Prot9@8"
  ITEM "Utilizzato9@10"
  ITEM "Num Prot10@8"
  ITEM "Utilizzato10@10"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 69 14

DATE A_DATADOC
BEGIN
  PROMPT 26 0 "Data documento."
  FLAGS "D"
END

NUMBER A_ANNO 4
BEGIN
  PROMPT 1 0 "Anno documento"
  FLAGS "D"
END

NUMBER A_NUMDOC 10
BEGIN
  PROMPT 1 0 "Numero documento"
  FLAGS "D"
END

STRING A_CODNUM 5
BEGIN
  PROMPT 1 0 "Codice numerazione documento"
  FLAGS "D"
END

STRING A_TIPODOC 5
BEGIN
  PROMPT 23 6 "Tipo doc. "
  FLAGS "D"
END

STRING A_STATODOC 1
BEGIN
  PROMPT 1 0 "Stato documento"
  FLAGS "D"
END

STRING A_TIPOCF 1
BEGIN
  PROMPT 1 1 "Tipo C/F   "
  FLAGS "D"
END

NUMBER A_CODCF 6
BEGIN
  PROMPT 26 1 "Cod. C/F"
  FLAGS "D"
END

STRING A_RAGSOC 50 47
BEGIN
  FIELD RAGSOC
  PROMPT 1 2 "Ragione Sociale"
  FLAGS "D"
END

NUMBER A_TOTDOC 12 2
BEGIN
  PROMPT 42 8 "Imponibile"
  FLAGS "D"
END

NUMBER PLA1_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA1_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA2_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA2_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA3_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA3_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA4_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA4_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA5_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA5_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA6_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA6_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA7_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA7_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA8_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA8_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA9_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA9_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

NUMBER PLA10_NUMPROT 6
BEGIN
  PROMPT 42 8 "Num Prot"
  FLAGS "D"
END

NUMBER PLA10_QTA 12 2
BEGIN
  PROMPT 42 8 "Util"
  FLAGS "D"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 2 1 "Collega"
  PICTURE TOOL_LINK
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  PICTURE TOOL_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK