Tabela
TB5 Licenciamento Forn por Produto
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TB5_FILIAL C 2 0 Filial S
TB5_CODIGO C 6 0 Codigo @! ExistChav("TB5",M->TB5_CODIGO) .and. FreeForUse("TB5") R N
TB5_TPRECE C 1 0 Tp. Receptor @! Pertence("12") .and. SG280LIMPA("TB5_FORNEC",,aLimpa,,,"TB5_FORNEC") R 1=Fornecedor;2=Cliente N
TB5_FORNEC C 6 0 Receptor @! SG280VLF() FOR R S
TB5_LOJA C 2 0 Loja @! "EXISTCPO('SA2',M->TB5_FORNEC+M->TB5_LOJA) .and. EXISTCHAV('TB5',M->TB5_FORNEC+M->TB5_LOJA)" R N
TB5_DESC C 40 0 Desc. Forn. @! V S
TB5_END C 40 0 Endereco @! V S
TB5_TEL C 20 0 Telefone @! V S
TB5_CODLAM C 12 0 Licenca @! ExistCpo("TA0",M->TB5_CODLAM) .AND. SGA280LA() TA0 R N
TB5_DESLAM C 80 0 Descricao @! V N
TB5_DATAVA D 8 0 Dt. Validade V N
TB5_STATUS C 1 0 Status @! PERTENCE("12") .AND. SGA280STA() R 1=Ativa;2=Inativa M->TB5_DATAVA >= dDATABASE S
TB5_MOTIVO M 10 0 Motivo Inat. @! R M->TB5_STATUS == "2" .AND. M->TB5_DATAVA >= dDATABASE S
TB5_DOCFIL C 2 0 Filial Docum R S
TB5_DOCTO C 16 0 Documento @! R S