campo-sirio/ve/batbfid.uml

#include "BATBFID.H"

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Tabella controllo fido clienti " 11 60 14


TEXT F_TESTO1
BEGIN
  PROMPT 1 0 "Tipo documento da considerare nel calcolo fido :"
END

TEXT F_TESTO2
BEGIN
  PROMPT 1 2 "Codice descr. documento"
END

TEXT F_TESTO3
BEGIN
  PROMPT 50 2 "Valido fino allo stato"
END

STRING F_COD 2
BEGIN
  PROMPT 1 1 "Codice tabella "
  FIELD FID->CODTAB
  KEY 1
  CHECKTYPE REQUIRED
END


STRING F_DESC1 2
BEGIN
  PROMPT 1 3 " 1)  "
  FIELD FID->S0[1,2]
  USE %TPD
  INPUT CODTAB F_DESC1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC1 CODTAB
  OUTPUT F_TIPO1 S0
END

STRING F_TIPO1 50
BEGIN
  PROMPT 13 3 ""
  FLAG "D"
END

NUMBER F_VALID1 1
BEGIN
  PROMPT 66 3 ""
  FIELD FID->S4[1]
END

STRING F_DESC2 2
BEGIN
  PROMPT 1 4 " 2)  "
  FIELD FID->S0[3,4]
  USE %TPD
  INPUT CODTAB F_DESC2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC2 CODTAB
  OUTPUT F_TIPO2 S0
END

STRING F_TIPO2 50
BEGIN
  PROMPT 13 4 ""
  FLAG "D"
END


NUMBER F_VALID2 1
BEGIN
  PROMPT 66 4 ""
  FIELD FID->S4[2]
END

STRING F_DESC3 2
BEGIN
  PROMPT 1 5 " 3)  "
  FIELD FID->S0[5,6]
  USE %TPD
  INPUT CODTAB F_DESC3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC3 CODTAB
  OUTPUT F_TIPO3 S0
END

STRING F_TIPO3 50
BEGIN
  PROMPT 13 5 ""
  FLAG "D"
END

NUMBER F_VALID3 1
BEGIN
  PROMPT 66 5 ""
  FIELD FID->S4[3]
END

STRING F_DESC4 2
BEGIN
  PROMPT 1 6 " 4)  "
  FIELD FID->S0[7,8]
  USE %TPD
  INPUT CODTAB F_DESC4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC4 CODTAB
  OUTPUT F_TIPO4 S0
END

STRING F_TIPO4 50
BEGIN
  PROMPT 13 6 ""
  FLAG "D"
END

NUMBER F_VALID4 1
BEGIN
  PROMPT 66 6 ""
  FIELD FID->S4[4]
END

STRING F_DESC5 2
BEGIN
  PROMPT 1 7 " 5)  "
  FIELD FID->S0[9,10]
  USE %TPD
  INPUT CODTAB F_DESC5
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC5 CODTAB
  OUTPUT F_TIPO5 S0
END

STRING F_TIPO5 50
BEGIN
  PROMPT 13 7 ""
  FLAG "D"
END

NUMBER F_VALID5 1
BEGIN
  PROMPT 66 7 ""
  FIELD FID->S4[5]
END

STRING F_DESC6 2
BEGIN
  PROMPT 1 8 " 6)  "
  FIELD FID->S0[11,12]
  USE %TPD
  INPUT CODTAB F_DESC6
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC6 CODTAB
  OUTPUT F_TIPO6 S0
END

STRING F_TIPO6 50
BEGIN
  PROMPT 13 8 ""
  FLAG "D"
END

NUMBER F_VALID6 1
BEGIN
  PROMPT 66 8 ""
  FIELD FID->S4[6]
END

STRING F_DESC7 2
BEGIN
  PROMPT 1 9 " 7)  "
  FIELD FID->S0[13,14]
  USE %TPD
  INPUT CODTAB F_DESC7
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC7 CODTAB
  OUTPUT F_TIPO7 S0
END

STRING F_TIPO7 50
BEGIN
  PROMPT 13 9 ""
  FLAG "D"
END


NUMBER F_VALID7 1
BEGIN
  PROMPT 66 9 ""
  FIELD FID->S4[7]
END

STRING F_DESC8 2
BEGIN
  PROMPT 1 10 " 8)  "
  FIELD FID->S0[15,16]
  USE %TPD
  INPUT CODTAB F_DESC8
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC8 CODTAB
  OUTPUT F_TIPO8 S0
END

STRING F_TIPO8 50
BEGIN
  PROMPT 13 10 ""
  FLAG "D"
END

NUMBER F_VALID8 1
BEGIN
  PROMPT 66 10 ""
  FIELD FID->S4[8]
END

STRING F_DESC9 2
BEGIN
  PROMPT 1 11 " 9)  "
  FIELD FID->S0[17,18]
  USE %TPD
  INPUT CODTAB F_DESC9
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC9 CODTAB
  OUTPUT F_TIPO9 S0
END

STRING F_TIPO9 50
BEGIN
  PROMPT 13 11 ""
  FLAG "D"
END

NUMBER F_VALID9 1
BEGIN
  PROMPT 66 11 ""
  FIELD FID->S4[9]
END

STRING F_DESC10 2
BEGIN
  PROMPT 1 12 "10)  "
  FIELD FID->S0[19,20]
  USE %TPD
  INPUT CODTAB F_DESC10
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC10 CODTAB
  OUTPUT F_TIPO10 S0
END

STRING F_TIPO10 50
BEGIN
  PROMPT 13 12 ""
  FLAG "D"
END

NUMBER F_VALID10 1
BEGIN
  PROMPT 66 12 ""
  FIELD FID->S4[10]
END

STRING F_DESC11 2
BEGIN
  PROMPT 1 13 "11)  "
  FIELD FID->S0[21,22]
  USE %TPD
  INPUT CODTAB F_DESC11
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC11 CODTAB
  OUTPUT F_TIPO11 S0
END

STRING F_TIPO11 50
BEGIN
  PROMPT 13 13 ""
  FLAG "D"
END

NUMBER F_VALID11 1
BEGIN
  PROMPT 66 13 ""
  FIELD FID->S4[11]
END

STRING F_DESC12 2
BEGIN
  PROMPT 1 14 "12)  "
  FIELD FID->S0[23,24]
  USE %TPD
  INPUT CODTAB F_DESC12
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC12 CODTAB
  OUTPUT F_TIPO12 S0
END

STRING F_TIPO12 50
BEGIN
  PROMPT 13 14 ""
  FLAG "D"
END

NUMBER F_VALID12 1
BEGIN
  PROMPT 66 14 ""
  FIELD FID->S4[12]
END

STRING F_DESC13 2
BEGIN
  PROMPT 1 15 "13)  "
  FIELD FID->S0[25,26]
  USE %TPD
  INPUT CODTAB F_DESC13
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC13 CODTAB
  OUTPUT F_TIPO13 S0
END

STRING F_TIPO13 50
BEGIN
  PROMPT 13 15 ""
  FLAG "D"
END

NUMBER F_VALID13 1
BEGIN
  PROMPT 66 15 ""
  FIELD FID->S4[13]
END

STRING F_DESC14 2
BEGIN
  PROMPT 1 16 "14)  "
  FIELD FID->S0[27,28]
  USE %TPD
  INPUT CODTAB F_DESC14
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC14 CODTAB
  OUTPUT F_TIPO14 S0
END

STRING F_TIPO14 50
BEGIN
  PROMPT 13 16 ""
  FLAG "D"
END

NUMBER F_VALID14 1
BEGIN
  PROMPT 66 16 ""
  FIELD FID->S4[14]
END

STRING F_DESC15 2
BEGIN
  PROMPT 1 17 "15)  "
  FIELD FID->S0[29,30]
  USE %TPD
  INPUT CODTAB F_DESC15
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESC15 CODTAB
  OUTPUT F_TIPO15 S0
END

STRING F_TIPO15 50
BEGIN
  PROMPT 13 17 ""
  FLAG "D"
END

NUMBER F_VALID15 1
BEGIN
  PROMPT 66 17 ""
  FIELD FID->S4[15]
END

ENDPAGE

PAGE "Tabella controllo fido clienti " 11 60 14

TEXT F_TESTO4
BEGIN
  PROMPT 1 1 "Gruppo conto cli/for del piano dei conti"
END

STRING F_GRUPPO1 2
BEGIN
  PROMPT 3 3 ""
  FIELD FID->S2[1,2]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO1
  INPUT CONTO   F_CONTO1
  INPUT SOTTOCONTO F_SOTTO1
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO1 GRUPPO
  OUTPUT F_CONTO1  CONTO
  OUTPUT F_SOTTO1  SOTTOCONTO
  OUTPUT F_CLIFOR1 DESCR
END

STRING F_CONTO1 2
BEGIN
  PROMPT 9 3 ""
  FIELD FID->S3[1,2]
END

STRING F_SOTTO1 6
BEGIN
  PROMPT 13 3 ""
  FIELD FID->S1[1,6]
END

STRING F_CLIFOR1 50
BEGIN
  PROMPT 24 3 ""
  FLAG "D"
END

STRING F_GRUPPO2 2
BEGIN
  PROMPT 3 4 ""
  FIELD FID->S2[3,4]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO2
  INPUT CONTO   F_CONTO2
  INPUT SOTTOCONTO F_SOTTO2
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO2 GRUPPO
  OUTPUT F_CONTO2  CONTO
  OUTPUT F_SOTTO2  SOTTOCONTO
  OUTPUT F_CLIFOR2 DESCR
END

STRING F_CONTO2 2
BEGIN
  PROMPT 9 4 ""
  FIELD FID->S3[3,4]
END

STRING F_SOTTO2 6
BEGIN
  PROMPT 13 4 ""
  FIELD FID->S1[7,12]
END

STRING F_CLIFOR2 50
BEGIN
  PROMPT 24 4 ""
  FLAG "D"
END

STRING F_GRUPPO3 2
BEGIN
  PROMPT 3 5 ""
  FIELD FID->S2[5,6]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO3
  INPUT CONTO   F_CONTO3
  INPUT SOTTOCONTO F_SOTTO3
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO3 GRUPPO
  OUTPUT F_CONTO3  CONTO
  OUTPUT F_SOTTO3  SOTTOCONTO
  OUTPUT F_CLIFOR3 DESCR
END

STRING F_CONTO3 2
BEGIN
  PROMPT 9 5 ""
  FIELD FID->S3[5,6]
END

STRING F_SOTTO3 6
BEGIN
  PROMPT 13 5 ""
  FIELD FID->S1[13,18]
END

STRING F_CLIFOR3 50
BEGIN
  PROMPT 24 5 ""
  FLAG "D"
END

STRING F_GRUPPO4 2
BEGIN
  PROMPT 3 6 ""
  FIELD FID->S2[7,8]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO4
  INPUT CONTO   F_CONTO4
  INPUT SOTTOCONTO F_SOTTO4
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO4 GRUPPO
  OUTPUT F_CONTO4  CONTO
  OUTPUT F_SOTTO4  SOTTOCONTO
  OUTPUT F_CLIFOR4 DESCR
END

STRING F_CONTO4 2
BEGIN
  PROMPT 9 6 ""
  FIELD FID->S3[7,8]
END

STRING F_SOTTO4 6
BEGIN
  PROMPT 13 6 ""
  FIELD FID->S1[19,24]
END

STRING F_CLIFOR4 50
BEGIN
  PROMPT 24 6 ""
  FLAG "D"
END

STRING F_GRUPPO5 2
BEGIN
  PROMPT 3 7 ""
  FIELD FID->S2[9,10]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO5
  INPUT CONTO   F_CONTO5
  INPUT SOTTOCONTO F_SOTTO5
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO5 GRUPPO
  OUTPUT F_CONTO5  CONTO
  OUTPUT F_SOTTO5  SOTTOCONTO
  OUTPUT F_CLIFOR5 DESCR
END

STRING F_CONTO5 2
BEGIN
  PROMPT 9 7 ""
  FIELD FID->S3[9,10]
END

STRING F_SOTTO5 6
BEGIN
  PROMPT 13 7 ""
  FIELD FID->S1[25,30]
END

STRING F_CLIFOR5 50
BEGIN
  PROMPT 24 7 ""
  FLAG "D"
END

STRING F_GRUPPO6 2
BEGIN
  PROMPT 3 8 ""
  FIELD FID->S2[11,12]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO6
  INPUT CONTO   F_CONTO6
  INPUT SOTTOCONTO F_SOTTO6
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO6 GRUPPO
  OUTPUT F_CONTO6  CONTO
  OUTPUT F_SOTTO6  SOTTOCONTO
  OUTPUT F_CLIFOR6 DESCR
END

STRING F_CONTO6 2
BEGIN
  PROMPT 9 8 ""
  FIELD FID->S3[11,12]
END

STRING F_SOTTO6 6
BEGIN
  PROMPT 13 8 ""
  FIELD FID->S1[31,36]
END

STRING F_CLIFOR6 50
BEGIN
  PROMPT 24 8 ""
  FLAG "D"
END

STRING F_GRUPPO7 2
BEGIN
  PROMPT 3 9 ""
  FIELD FID->S2[13,14]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO7
  INPUT CONTO   F_CONTO7
  INPUT SOTTOCONTO F_SOTTO7
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO7 GRUPPO
  OUTPUT F_CONTO7  CONTO
  OUTPUT F_SOTTO7  SOTTOCONTO
  OUTPUT F_CLIFOR7 DESCR
END


STRING F_CONTO7 2
BEGIN
  PROMPT 9 9 ""
  FIELD FID->S3[13,14]
END


STRING F_SOTTO7 6
BEGIN
  PROMPT 13 9 ""
  FIELD FID->S1[37,42]
END

STRING F_CLIFOR7 50
BEGIN
  PROMPT 24 9 ""
  FLAG "D"
END

STRING F_GRUPPO8 2
BEGIN
  PROMPT 3 10 ""
  FIELD FID->S2[15,16]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO8
  INPUT CONTO   F_CONTO8
  INPUT SOTTOCONTO F_SOTTO8
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO8 GRUPPO
  OUTPUT F_CONTO8  CONTO
  OUTPUT F_SOTTO8  SOTTOCONTO
  OUTPUT F_CLIFOR8 DESCR
END

STRING F_CONTO8 2
BEGIN
  PROMPT 9 10 ""
  FIELD FID->S3[15,16]
END

STRING F_SOTTO8 6
BEGIN
  PROMPT 13 10 ""
  FIELD FID->S1[43,48]
END

STRING F_CLIFOR8 50
BEGIN
  PROMPT 24 10 ""
  FLAG "D"
END

STRING F_GRUPPO9 2
BEGIN
  PROMPT 3 11 ""
  FIELD FID->S2[17,18]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO9
  INPUT CONTO   F_CONTO9
  INPUT SOTTOCONTO F_SOTTO9
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO9 GRUPPO
  OUTPUT F_CONTO9  CONTO
  OUTPUT F_SOTTO9  SOTTOCONTO
  OUTPUT F_CLIFOR9 DESCR
END


STRING F_CONTO9 2
BEGIN
  PROMPT 9 11 ""
  FIELD FID->S3[17,18]
END


STRING F_SOTTO9 6
BEGIN
  PROMPT 13 11 ""
  FIELD FID->S1[49,54]
END

STRING F_CLIFOR9 50
BEGIN
  PROMPT 24 11 ""
  FLAG "D"
END

STRING F_GRUPPO10 2
BEGIN
  PROMPT 3 12 ""
  FIELD FID->S2[19,20]
  USE 19 //PIANO DEI CONTI
  INPUT GRUPPO  F_GRUPPO10
  INPUT CONTO   F_CONTO10
  INPUT SOTTOCONTO F_SOTTO10
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO10 GRUPPO
  OUTPUT F_CONTO10  CONTO
  OUTPUT F_SOTTO10  SOTTOCONTO
  OUTPUT F_CLIFOR10 DESCR
END

STRING F_CONTO10 2
BEGIN
  PROMPT 9 12 ""
  FIELD FID->S3[19,20]
END

STRING F_SOTTO10 6
BEGIN
  PROMPT 13 12 ""
  FIELD FID->S1[55,60]
END

STRING F_CLIFOR10 50
BEGIN
  PROMPT 24 12 ""
  FLAG "D"
END

LISTBOX F_TIPOAFF 33
BEGIN
  PROMPT 1 14 "Tipo affidabilit<69>  "
  ITEM "1|Controllo completo con blocco "
  ITEM "2|Controllo completo con forzatura "
  ITEM "3|Solo mastrino con forzatura "
  FIELD FID->S5[1]
END

ENDPAGE

ENDMASK