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 "@bParametri"
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 2 1 "Cliente "
  USE LF_CLIFO SELECT LF_PARTITE->ANNO>0
  JOIN LF_PARTITE INTO TIPOC=TIPOCF SOTTOCONTO=CODCF
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 22 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE SEARCH
  ADD RUN cg0 -1
END

DATE F_DATAMOV
BEGIN
  PROMPT 2 2 "Data movimento      "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 50 2 "Causale "
  USE LF_CAUSALI SELECT (TIPOMOV>="3")&&(LF_RCAUSALI->TIPOCF=="C")
  JOIN LF_RCAUSALI INTO CODCAUS=CODCAUS NRIGA=1
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo Movimento" TIPOMOV
  DISPLAY "Gruppo" LF_RCAUSALI->GRUPPO
  DISPLAY "Conto" LF_RCAUSALI->CONTO
  OUTPUT F_CODCAUS CODCAUS
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
END

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

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

SPREADSHEET F_SHEET
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 pagamento"
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 "
  USE BNP
  JOIN %BAN INTO CODTAB=CODTAB
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" 4->S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  CHECKTYPE NORMAL
  FLAGS "Z"
END

NUMBER F_CAB 5
BEGIN
  PROMPT 16 3 "CAB "
  COPY ALL F_ABI
  FLAGS "Z"
  VALIDATE REQIF_FUNC 2 F_PAGATO F_IMPORTOANT
  WARNING "La banca di presentazione e' obbligatoria in presenza di pagamento o anticipo"
END

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

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

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

STRING F_PARTITA 7
BEGIN
  PROMPT 20 6 "Partita "
  FLAGS "D_"
END

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

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

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

STRING F_TIPOPAG 30
BEGIN
  PROMPT 23 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