udesenv

X2_CHAVE

X2_PATH

X2_ARQUIVO

X2_NOME

X2_NOMESPA

X2_NOMEENG

X2_ROTINA

X2_MODO

X2_MODOUN

X2_MODOEMP

X2_DELET

X2_TTS

X2_UNICO

X2_PYME

X2_MODULO

X2_DISPLAY

X2_SYSOBJ

X2_USROBJ

X2_POSLGT

X2_CLOB

X2_AUTREC

X2_TAMFIL

X2_TAMUN

X2_TAMEMP

X2_STAMP

X2_INSDT

BS9

\DATA\

BS9990

Subcontrato por Unidade

Subcontrato Por Undidad

Sub-contract by unit

C

E

0

N

33

1

2

0

X3_ARQUIVO

X3_ORDEM

X3_CAMPO

X3_TIPO

X3_TAMANHO

X3_DECIMAL

X3_TITULO

X3_DESCRIC

X3_PICTURE

X3_VALID

X3_RELACAO

X3_F3

X3_NIVEL

X3_TRIGGER

X3_BROWSE

X3_VISUAL

X3_CONTEXT

X3_OBRIGAT

X3_CBOX

X3_PICTVAR

X3_WHEN

X3_INIBRW

X3_GRPSXG

X3_FOLDER

BS9

01

BS9_FILIAL

C

2

0

Filial

Filial do Sistema

1

033

BS9

02

BS9_SUBCON

C

35

0

Subcontrato

@R !!!!-!!!!-!!!!!!!!!!!!-!!!-!!!!!!!!!-!!!

BQC->(ExistCpo("BQC"))

BS9PLS

1

S

BS9

03

BS9_DESCRI

C

40

0

Descricao

@!

If(Inclui,"",Posicione("BQC",1,xFilial("BQC")+BS9->BS9_SUBCON,"BQC_DESCRI"))

1

S

V

BQC->(Posicione("BQC",1,xFilial("BQC")+BS9->BS9_SUBCON,"BQC_DESCRI"))

BS9

25

BS9_AJSVIG

C

6

0

Ajus.Fech.Vg

Ajus. que Fechou Vigencia

@!

1

N

V

R

BS9

24

BS9_CODAJS

C

6

0

Codigo Ajus.

Codigo do Ajuste

@!

1

N

V

R

BS9

23

BS9_REAVIG

C

6

0

Reaj.Fech.Vg

Reaj. que Fechou Vigencia

@!

1

N

V

R

BS9

22

BS9_CODREA

C

6

0

Codigo Reaj.

Codigo do Reajuste

@!

1

N

V

R

BS9

21

BS9_VIGATE

D

8

0

Vig. Ate

Vigencia ate

Vazio() .or. PlsVldBS9()

1

BS9

20

BS9_VIGDE

D

8

0

Vig. De

Vigencia de

PlsVldBS9()

1

BS9

19

BS9_DESTAB

C

40

0

Descricao

Descricao da Tabela

@!

Iif(inclui,"",B22->(Posicione("B22",1,xFilial("B22")+PlsIntPad()+BS9->BS9_TABPRE,"B22_DESCRI")))

1

S

V

Iif(inclui,"",B22->(Posicione("B22",1,xFilial("B22")+PlsIntPad()+BS9->BS9_TABPRE,"B22_DESCRI")))

BS9

18

BS9_TABPRE

C

3

0

Tab. Preco

@!

Vazio() .or. (PLSVLDB24() .and. PlsVldBS9())

B90PLS

1

S

BS9

17

BS9_DESFIN

C

70

0

Ds Finalidad

Desc. Finalidade Atend.

@!

If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGX")+PlsIntPad()+BS9->BS9_FINATE,"BGY_DESCRI")))

1

S

V

If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGX")+PlsIntPad()+BS9->BS9_FINATE,"BGY_DESCRI")))

BS9

16

BS9_FINATE

C

2

0

Finalidade

Finalidade Atendimento

@!

Vazio() .or. PlsSeek("BGY",1,PlsIntPad()+M->BS9_FINATE,"","")

BGYPLS

1

S

BS9

15

BS9_PAGATO

C

1

0

Pagto no Ato

Pagamento Ato do Evento?

@!

Pertence('01')

1

1=Sim;0=Nao

M->BS9_SOMCOM$"0, "

BS9

14

BS9_SOMCOM

C

1

0

Som.p/Compra

Somente para compra?

@!

Pertence('01')

1

1=Sim;0=Nao

M->BS9_PAGATO$"0, "

BS9

13

BS9_CODTAB

C

7

0

Tab. Co-part

Cod Tabela Co-Partipacao

@!

Vazio() .or. ExistCpo("BF8",M->BS9_CODTAB,1)

B68PLS

1

BS9

12

BS9_TXADM

N

16

2

Taxa Admin.

Taxa de Administracao

@E 9,999,999,999,999.99

1

BS9

11

BS9_LIMFRA

N

16

2

Vlr.Franquia

Limite Valor Franquia

@E 9,999,999,999,999.99

1

BS9

10

BS9_VALUS

N

13

4

Valor U.S

@E 99,999,999.9999

1

M->BS9_PERCOP>0

BS9

09

BS9_VALCOP

N

6

2

Vlr.Co-Part.

Valor Co-Participacao

@E 999.99

1

M->BS9_PERCOP==0

BS9

08

BS9_PERCOP

N

6

2

% Co-Part.

% Co-Participacao

@E 999.99

1

M->BS9_VALCOP==0

BS9

07

BS9_USREC

N

16

4

Ref./U.S Rec

Referencia/U.S Receber

@E 99,999,999,999.9999

1

S

BS9

06

BS9_USPAG

N

16

4

Ref./U.S Pag

Referencia/U.S Pagamento

@E 99,999,999,999.9999

1

S

BS9

05

BS9_DESUNI

C

40

0

Descricao

Descricao da unidade

@!

If(Inclui,"",Posicione("BD3",1,xFilial("BD3")+BS9->(BS9_CODUNI),"BD3_DESCRI"))

1

S

V

If(Inclui,"",Posicione("BD3",1,xFilial("BD3")+BS9->(BS9_CODUNI),"BD3_DESCRI"))

BS9

04

BS9_CODUNI

C

3

0

Cod.Unidade

Codigo da Unidade

@!

PLSA038BS9()

B87PLS

1

S

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
BS9	1	BS9_FILIAL+BS9_SUBCON+BS9_CODUNI	Subcontrato + Cod.Unidade	Subcontrato + Cod.Unidad	Sub-contract + Unit code	S			S	2	3
BS9	2	BS9_FILIAL+BS9_CODREA+BS9_SUBCON	Codigo Reaj. + Subcontrato	Codigo Reaj. + Subcontrato	Adj.Code + Sub-contract	S		BS9REAJ	S	2	3

X7_CAMPO	X7_SEQUENC	X7_REGRA	X7_CDOMIN	X7_TIPO	X7_SEEK	X7_ALIAS	X7_ORDEM	X7_CHAVE	X7_CONDIC	X7_PROPRI
BS9_SUBCON	001	BQC->BQC_DESCRI	BS9_DESCRI	P	S	BQC	1	xFilial("BS9")+M->BS9_SUBCON		S