#include "ca9300a.h"

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

PAGE "Stampa tabelle ripartizione analitica" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 1 "@bParametri ripartizione"
END

LIST F_TIPO 16
BEGIN
  PROMPT 1 2 "Tipo    "
  ITEM "I|Interattiva"
  ITEM "B|Batch"
  ITEM "P|Pareggio"
  FIELD #TIPO
END

STRING F_DACODICE 8
BEGIN
  PROMPT 1 3 "Da rip. "
  USE LF_RIP
  INPUT TIPO F_TIPO SELECT
  INPUT CODICE F_DACODICE
  DISPLAY "Tipo" TIPO
  DISPLAY "Codice@8" CODICE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_DACODICE CODICE
  OUTPUT F_DADESCR DESCRIZ
  FIELD #DACODICE
END

STRING F_DADESCR 50
BEGIN
  PROMPT 21 3 ""
  USE LF_RIP KEY 2
  INPUT TIPO F_TIPO SELECT
  INPUT DESCRIZ F_DADESCR
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@8" CODICE
  DISPLAY "Tipo" TIPO
  COPY OUTPUT F_DACODICE
END

STRING F_ACODICE 8
BEGIN
  PROMPT 1 4 "A rip.  "
  USE LF_RIP
  INPUT TIPO F_TIPO SELECT
  INPUT CODICE F_ACODICE
  DISPLAY "Tipo" TIPO
  DISPLAY "Codice@8" CODICE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_ACODICE CODICE
  OUTPUT F_ADESCR DESCRIZ
  FIELD #ACODICE
END

STRING F_ADESCR 50
BEGIN
  PROMPT 21 4 ""
  USE LF_RIP KEY 2
  INPUT TIPO F_TIPO SELECT
  INPUT DESCRIZ F_ADESCR
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@8" CODICE
  DISPLAY "Tipo" TIPO
  COPY OUTPUT F_ACODICE
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 0 6 "@bParametri di selezione"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Commessa"
END

STRING F_CODCMS 20
BEGIN
  PROMPT 1 8 ""
  USE COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCRCMS DESCRIZ
  FIELD #CODCMS
END

STRING F_DESCRCMS 50
BEGIN
  PROMPT 25 8 ""
  USE COMMESSE KEY 2
  INPUT DESCRIZ F_DESCRCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "Centro di costo"
END

STRING F_CODCOSTO 20
BEGIN
  PROMPT 1 10 ""
  USE CDC
  INPUT CODCOSTO F_CODCOSTO
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCOSTO CODCOSTO
  OUTPUT F_DESCRCOSTO DESCRIZ
  FIELD #CODCOSTO
END

STRING F_DESCRCOSTO 50
BEGIN
  PROMPT 25 10 ""
  USE CDC KEY 2
  INPUT DESCRIZ F_DESCRCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT F_CODCOSTO
END

ENDPAGE

ENDMASK