campo-sirio/sl/sl0100a.uml

#include "sl0100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "S.A.L." 0 0 0 0

GROUPBOX F_CDC0 78 6
BEGIN
  PROMPT 1 1 "@bCommessa"
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 2 5 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 16 5 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_RAGSOC 50 47
BEGIN
  PROMPT 27 5 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  COPY OUTPUT F_CLIFO
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 7 "@bOrdine di riferimento"
END

NUMBER F_ANNO_ORD 4
BEGIN
  PROMPT 2 8 "Anno        "
  FLAGS "AU"
  CHECKTYPE REQUIRED
END

STRING F_CODNUM_ORD 4
BEGIN
  PROMPT 2 9 "Numerazione "
  USE %NUM SELECT I1=3
  FLAGS "UP"
  INPUT CODTAB F_CODNUM_ORD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_ORD CODTAB
  OUTPUT F_DESNUM_ORD S0
  CHECKTYPE REQUIRED
END

STRING F_DESNUM_ORD 50
BEGIN
  PROMPT 24 9 ""
  USE %NUM KEY 2 SELECT I0>0
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Num." CODTAB
  COPY OUTPUT F_CODNUM_ORD
  CHECKTYPE REQUIRED
END

NUMBER F_NDOC_ORD 7
BEGIN
  PROMPT 2 10 "Numero      "
  USE LF_DOC SELECT (BETWEEN(CODCF,#F_CLIFO,#F_CLIFO))
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO F_ANNO_ORD SELECT
  INPUT CODNUM F_CODNUM_ORD SELECT
  INPUT NDOC F_NDOC_ORD
  DISPLAY "Anno" ANNO
  DISPLAY "Numerazione" CODNUM
  DISPLAY "Numero" NDOC
  DISPLAY "Stato" STATO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NDOC_ORD NDOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_DATA_ORD DATADOC
  CHECKTYPE FORCED
  NUM_EXPR #THIS_FIELD>0
  WARNING "Inserire un numero d'ordine"
  FIELD NUMDOCRIF
  ADD RUN ve0 -0
END

DATE F_DATA_ORD
BEGIN
  PROMPT 25 10 "del "
  FIELD DATADOCRIF
  FLAGS "D"
END


GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 12 "@bStato Avanzamento Lavori"
END

LIST F_PROVV 1 12
BEGIN
  PROMPT 69 69 ""
  ITEM "D|Definitivi"
  ITEM "P|Provvisori"
  FIELD PROVV
  FLAGS "D"
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 13 "Anno         "
  FLAGS "AU"
  CHECKTYPE REQUIRED
  KEY 1
  FIELD ANNO
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 14 "Numerazione  "
  USE %NUM SELECT I1=1
  FLAGS "UP"
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE FORCED
  FIELD CODNUM
  KEY 1
  STR_EXPR #THIS_FIELD!=""
  WARNING "Inserire un una numerazione di tipo SAL"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 14 ""
  USE %NUM KEY 2 SELECT I1=1
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Num." CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE REQUIRED
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 15 "Tipo docum.  "
  USE %TIP SELECT I1=1
  FLAGS "UP"
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPO S0
  CHECKTYPE FORCED
  FIELD CODNUM
  STR_EXPR #THIS_FIELD!=""
  WARNING "Inserire un tipo documento SAL"
END

STRING F_DESTIPO 50
BEGIN
  PROMPT 24 15 ""
  USE %TIP KEY 2 SELECT I1=1
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Num." CODTAB
  COPY OUTPUT F_TIPODOC
  CHECKTYPE REQUIRED
END

NUMBER F_NSAL 3
BEGIN
  PROMPT 2 16 "S.A.L.       "
  USE LF_DOC KEY 4 SELECT NUMDOCRIF=#F_NDOC_ORD
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF==CODCF
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CLIFO SELECT
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC
  DISPLAY "Anno" ANNO
  DISPLAY "Num." CODNUM
  DISPLAY "SAL" NUMANT
  DISPLAY "Stato" STATO
  DISPLAY "Num. int. " NDOC
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NSAL NUMANT
  OUTPUT F_NDOC NDOC
  CHECKTYPE REQUIRED
END

NUMBER F_NDOC 7
BEGIN
  PROMPT 52 16 "Numero interno "
  COPY ALL F_NSAL
  CHECKTYPE REQUIRED
  FIELD NDOC
  KEY 1
END

ENDPAGE

ENDMASK