campo-sirio/ps/pi0002100a.uml

#include "pi0002100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -26 -1 "~Registra"
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

#include <cancelbar.h>

ENDPAGE

PAGE "Gestione anticipi fatture" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "Parametri"
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 2 1 "Cliente   "
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOCCF RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_RAGSOCCF 50 37
BEGIN
  PROMPT 25 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_RAGSOCCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIFO
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

DATE F_DATAMOV
BEGIN
  PROMPT 2 2 "Data mov. "
END

CURRENCY F_TOTALEANT 
BEGIN
  PROMPT 2 4 "Totale anticipato "
  FLAGS "D"	 
END

CURRENCY F_TOTALEPAG
BEGIN
  PROMPT 52 4 "Totale pagato "
  FLAGS "D"	 
END

SPREADSHEET F_SHEET 0 -2
BEGIN
  PROMPT 0 6 "Partite aperte"
  ITEM "Importo pagato@18"
  ITEM "Importo anticipato@18"
  ITEM "Abi@5"
  ITEM "Cab@5"
  ITEM "Importo fattura@18"
  ITEM "Residuo@18"
  ITEM "Anno"
  ITEM "Partita"
  ITEM "Riga"
  ITEM "Rata"
  ITEM "Scadenza@10"
  ITEM "Tipo pag."
END

ENDPAGE

ENDMASK

PAGE "Fatture" -1 -1 70 10

CURRENCY F_PAGATO 18
BEGIN
  PROMPT 1 1 "Importo pagato "
END

CURRENCY F_IMPORTOANT 18
BEGIN
  PROMPT 1 2 "Importo anticipato "
END

NUMBER F_ABI 5
BEGIN
  PROMPT 1 3 "ABI "
END

NUMBER F_CAB 5
BEGIN
  PROMPT 1 4 "CAB "
END

CURRENCY F_IMPORTO 18
BEGIN
  PROMPT 1 5 "Importo fattura "
  FLAGS "D"
END

CURRENCY F_RESIDUO 18
BEGIN
  PROMPT 1 6 "Residuo "
  NUM_CALC #F_IMPORTO-#F_IMPORTOANT
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 7 "Anno    "
  FLAGS "D"
END

STRING F_PARTITA 7
BEGIN
  PROMPT 21 7 "Partita "
  FLAGS "D_"
END

NUMBER F_RIGA 4
BEGIN
  PROMPT 38 7 "Riga "
  FLAGS "D"
END

NUMBER F_RATA 4
BEGIN
  PROMPT 50 7 "Rata "
  FLAGS "D"
END

DATE F_DATA
BEGIN
  PROMPT 1 8 "Scadenza"
  FLAGS "D"
END

STRING F_TIPOPAG 30
BEGIN
  PROMPT 1 7 "Tipo pagamento "
  FLAGS "D"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK