campo-sirio/ca/ca9400k2.uml

#include "ca9400k.h"

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

PAGE "Stampa riclassificazione conti da contabili ad analitici" 0 2 0 0

GROUPBOX DLG_NULL 60 5
BEGIN
  PROMPT 1 1 "@bDa"
END

NUMBER F_DAGR 3
BEGIN
  PROMPT 2 2 "Gruppo     "
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_DAGR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DAGR GRUPPO
  FIELD DAGR
  KEY 1
END

NUMBER F_DACO 3
BEGIN
  PROMPT 2 3 "Conto      " 
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_DAGR
  INPUT CONTO F_DACO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DAGR GRUPPO
  OUTPUT F_DACO CONTO
  VALIDATE REQIF_FUNC 1 F_DASOTT
  FIELD DACO
  KEY 1
END

NUMBER F_DASOTT 6
BEGIN
  PROMPT 2 4 "Sottoconto "
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_DACO
  INPUT SOTTOCONTO F_DASOTT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DASOTT SOTTOCONTO
  OUTPUT F_DAGR GRUPPO
  OUTPUT F_DACO CONTO
  FIELD DASOTT
  KEY 1
END

GROUPBOX DLG_NULL 60 5
BEGIN
  PROMPT 1 6 "@bA"
END

NUMBER F_AGR 3
BEGIN
  PROMPT 2 7 "Gruppo     "
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO F_AGR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_AGR GRUPPO
  FIEELD AGR
  KEY 2
END

NUMBER F_ACO 3
BEGIN
  PROMPT 2 8 "Conto      " 
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT F_AGR
  INPUT CONTO F_ACO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_AGR GRUPPO
  OUTPUT F_ACO CONTO
  VALIDATE REQIF_FUNC 1 F_ASOTT
  FIELD ACO
  KEY 2
END

NUMBER F_ASOTT 6
BEGIN
  PROMPT 2 9 "Sottoconto "
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT F_ACO
  INPUT SOTTOCONTO F_ASOTT
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ASOTT SOTTOCONTO
  OUTPUT F_AGR GRUPPO
  OUTPUT F_ACO CONTO
  FIELD ASOTT
  KEY 2
END

ENDPAGE

ENDMASK