Tabela
B86 Co-Part x Produto x Rda.
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B86_SOMCOM C 1 0 Som.p/Compra @! 1=Sim;0=Nao M->B86_PAGATO$"0, " S
B86_FILIAL C 2 0 Filial S
B86_CODINT C 4 0 Cd Operadora @R !.!!! PlsSeek("BA0",1,M->B86_CODINT) INCLUI S
B86_CODPLA C 4 0 Cod. Prod. @! R S
B86_VERSAO C 3 0 Versao @! R S
B86_CODRDA C 6 0 Cod. RDA @! R S
B86_PERCOP N 6 2 % Co-Part. @E 999.99 M->B86_VALCOP==0 S
B86_VALCOP N 13 2 Vlr.Co-Part. @E 9,999,999,999.99 M->B86_PERCOP==0 S
B86_VALUS N 13 2 Valor U.S @E 9,999,999,999.99 M->B86_PERCOP>0 S
B86_LIMFRA N 13 2 Vlr.Franquia @E 9,999,999,999.99 S
B86_TXADM N 13 2 Taxa Admin. @E 9,999,999,999.99 S
B86_CODTAB C 7 0 Tab. Co-part @R !!!!.!!! Vazio() .or. ExistCpo("BF8",M->B86_CODTAB,1) B68PLS S
B86_PAGATO C 1 0 Pagto no Ato @! 1=Sim;0=Nao M->B86_SOMCOM$"0, " S
B86_FINATE C 3 0 Finalidade @! Vazio() .or. BGY->(ExistCpo("BGY",PlsIntPad()+M->B86_FINATE,1)) BGYPLS S
B86_DESFIN C 70 0 Ds Finalidad @! If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGX")+PlsIntPad()+B86->B86_FINATE,"BGY_DESCRI"))) V S
B86_VIGDE D 8 0 Vig. De PlsVldB86() S
B86_VIGATE D 8 0 Vig. Ate Vazio() .or. PlsVldB86() S