Ajude o site desativando o bloqueador de anúncio
Cabeçalho

Tabela 2410 B01

Autor: Eurai Criado: 01/03/2025 Atualizado: 01/03/2025 Protheus
Postagem

Salve salve, blz?

 

 

Tabela B01. #B01

 

 

 

 

SX2 - TABELA

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
B01 DATA B01990 Autorização Odontológica Autorización Odontológica Dental authorization C E E 0 N 33 1 2 2 2 0 0

 

 

 

 

SX3 - CAMPOS

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
B01 53 B01_NRLBOR C 18 0 Nr. Lib. Or? Numero Lib. Original @! If(Inclui,"",BEA->BEA_NRLBOR) 1 N V V
B01 66 B01_CANTIS C 15 0 Canc.TISS Cod. Cancelamento TISS @! BEA->BEA_CANTIS 1 S V V
B01 67 B01_CANEDI C 250 0 Canc.TISS Cod. Cancelamento TISS @! BEA->BEA_CANEDI 1 S V V
B01 01 B01_FILIAL C 2 0 Filial Filial BE4B01 1 033 1
B01 02 B01_TIPADM C 6 0 Tp Admissao Tipo de Admissao @C BDR->(ExistCpo("BDR",PLSINTPAD()+M->B01_TIPADM,1)) getNewPar("MV_PLSTPAD","1") BTAPLS 1 A V 1
B01 03 B01_DESADM C 30 0 Descricao Descricao @C Posicione("BDR",1,xFilial("BDR")+If(Inclui,PLSINTPAD()+GetNewPar("MV_PLSTPAD","1"),BEA->(BEA_OPEMOV+BEA_TIPADM)),"BDR_DESCRI") 1 V V 1
B01 04 B01_TIPPAC C 2 0 Tp. Paciente Tipo Paciente @! If(Empty(M->B01_TIPPAC),.T.,BGY->(ExistCpo("BGY",PLSINTPAD()+M->B01_TIPPAC,1))) If(Inclui,GetNewPar("MV_PLSTPAA","05"),BEA->BEA_TIPPAC) BGYPLS 1 A V 1
B01 05 B01_DESPAC C 30 0 Descricao Descricao @C Posicione("BGY",1,xFilial("BGY")+If(Inclui,PLSINTPAD()+GetNewPar("MV_PLSTPAA","05"),BEA->(BEA_OPEMOV+BEA_TIPPAC)),"BGY_DESCRI") 1 V V 1
B01 06 B01_NUMLIB C 18 0 N Liberacao. Numero da Autorizacao @R !.!!!-!!!!.!!-!!!!!!!! If(Empty(M->B01_NUMLIB),.T.,PLAODOLIB(M->B01_NUMLIB,M->B01_DATPRO)) If(Inclui,"",BEA->(BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT)) B98PLS 1 S V 'INCLUI' 1
B01 07 B01_NUMAUT C 18 0 N Autorizac. Numero da Autorizacao @R !.!!!-!!!!.!!-!!!!!!!! If(Inclui,"",BEA->(BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT)) 1 S V V 1
B01 08 B01_DATPRO D 8 0 Data Proced. Data Proced. @D If(Empty(M->B01_DATPRO),.T.,PLSA090DAT()) IF(Inclui,dDataBase,BEA->BEA_DATPRO) 1 S V V 1
B01 09 B01_HORPRO C 6 0 Hora Proced. Hora Proced. @R !!:!!:!! IF(Inclui,StrTran(Time(),":",""),BEA->BEA_HORPRO) 1 V V 1
B01 10 B01_USUARI C 17 0 Matricula Matricula @! If(Empty(M->B01_USUARI),.T.,PLSA090USR(M->B01_USUARI,M->B01_DATPRO,M->B01_HORPRO,"B01",,,,,,,,,,,,,,,,,,,.T.)) If(Inclui,"",BEA->(BEA_OPEUSR+BEA_CODEMP+BEA_MATRIC+BEA_TIPREG+BEA_DIGITO)) BY2PLS 1 V Empty(M->B01_NUMLIB) 1
B01 11 B01_MATANT C 17 0 Matr Antiga Matricula Antiga @! If(Inclui,"",BA1->BA1_MATANT) 1 V V 1
B01 12 B01_NOMUSR C 70 0 Usuario Usuario @! If(Inclui,"",BEA->BEA_NOMUSR) 1 V V 034 1
B01 13 B01_TIPUSR C 2 0 Tipo Usr. Tipo Usuario @! If(Inclui,"",BEA->BEA_TIPUSR) 1 V V 01=Eventual;02=Repasse;99=Usuario Local 1
B01 14 B01_OPERDA C 4 0 Operad. RDA Operad. RDA @R !.!!! If(Empty(M->B01_OPERDA),.T.,PLA090VR2o()) If(Inclui,PLSINTPAD(RETCODUSR()),BEA->BEA_OPERDA) B89PLS 1 V 1
B01 15 B01_CODRDA C 6 0 Cd Cred/Coop Cod. Credenc @! If(Empty(M->B01_CODRDA),.T.,PLA090VRDo()) IF(Inclui,"",BEA->BEA_CODRDA) BBNPLS 1 V 1
B01 16 B01_NOMRDA C 40 0 Nm.Cred/Coop credenciado @! If(Inclui,"",BEA->BEA_NOMRDA) 1 V V 1
B01 17 B01_TIPPRE C 3 0 Tipo da RDA Tipo da RDA @! If(Empty(M->B01_TIPPRE),.T.,BAG->(ExistCpo("BAG"))) B42PLS 1 V PLSA090WH1() 1
B01 18 B01_CODLOC C 6 0 Localidade Localidade @R !!!.!!! If(Empty(M->B01_CODRDA),.T.,PLSA090LOC(M->B01_OPERDA,M->B01_CODRDA,M->B01_CODLOC,M->B01_DATPRO,"B01")) IF(Inclui,"",BEA->(BEA_CODLOC+BEA_LOCAL)) B9FPLS 1 V 1
B01 19 B01_DESLOC C 40 0 Descr. Local Descricao local @! If(Inclui,"",BEA->BEA_DESLOC) 1 V V 1
B01 20 B01_ENDLOC C 100 0 End. Local Endereco Local @! If(Inclui,"",BEA->BEA_ENDLOC) 1 V V 1
B01 21 B01_CODESP C 3 0 Cod. Espec. Codigo Especialidade @! If(Empty(M->B01_CODESP),.T.,PLSA090ESP(M->B01_OPERDA,M->B01_CODRDA,M->B01_CODLOC,M->B01_CODESP,M->B01_DATPRO,"B01")) If(Inclui,"",BEA->BEA_CODESP) B9GPLS 1 V 1
B01 22 B01_DESESP C 40 0 Descr.Espec. Descricao Especialidade @! If(Inclui,"",BEA->BEA_DESESP) 1 V V 1
B01 23 B01_CID C 8 0 CID CID @! If(Empty(M->B01_CID),.T.,BA9->(ExistCpo("BA9",M->B01_CID,1))) If(Inclui,"",BEA->BEA_CID) BA9PLS 1 V 1
B01 24 B01_SIGLA C 7 0 Sigla C.R. Conselho Sol @! If(Empty(M->B01_SIGLA),.T.,ExistCpo("BAH",M->B01_SIGLA)) GetNewPar("MV_PLSIGLA","CRM") B53PLS 1 S V 1
B01 25 B01_ESTSOL C 2 0 UF Solic. Est. Solicitante @! If(Empty(M->B01_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B01_ESTSOL,1))) If(Inclui,GETMV("MV_PLSESPD"),BEA->BEA_ESTSOL) 12 1 V 1
B01 26 B01_OPESOL C 4 0 Operad. Sol. Operadora Solicitante @R !.!!! If(Empty(M->B01_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B01_OPESOL,1))) If(Inclui,PLSINTPAD(),BEA->BEA_OPESOL) B89PLS 1 V 1
B01 27 B01_REGSOL C 15 0 C.R. Solic. C.R Solicita @R !!!!!!!!!!!!!!! If(Empty(M->B01_REGSOL),.T.,PLSA090SOL()) If(Inclui,"",BEA->BEA_REGSOL) BTYPLS 1 V 1
B01 28 B01_NOMSOL C 30 0 Solicitante Solicitante @! If(Inclui,"",BEA->BEA_NOMSOL) 1 V V 1
B01 29 B01_OPEEXE C 4 0 Operad. Exec Operadora Executante @R !.!!! If(Empty(M->B01_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B01_OPESOL,1))) If(Inclui,PLSINTPAD(),BEA->BEA_OPEEXE) B89PLS 1 V 1
B01 30 B01_REGEXE C 15 0 C.R. Execut. C.R Executante @R !!!!!!!!!!!!!!! PLSA090EXE() If(Inclui,"",BEA->BEA_REGEXE) BTYPLS 1 V 1
B01 31 B01_NOMEXE C 30 0 Executante Executante @! If(Inclui,"",BEA->BEA_NOMEXE) 1 V V 1
B01 32 B01_CDPFSO C 6 0 Cd.Prf.Solic Cd.Prf.Soli @! If(Inclui,"",BEA->BEA_CDPFSO) 1 V V 1
B01 33 B01_CDPFRE C 6 0 Cd.Prf.Exec. Cd.Prf.Resp. @! If(Inclui,"",BEA->BEA_CDPFRE) 1 V V 1
B01 34 B01_ESTEXE C 2 0 UF execut. Est. Executante @! If(Empty(M->B01_ESTEXE),.T.,SX5->(ExistCpo("SX5","12"+M->B01_ESTEXE,1))) If(Inclui,GETMV("MV_PLSESPD"),BEA->BEA_ESTEXE) 12 1 V 1
B01 35 B01_MATUSA C 1 0 Matr Usada Matricula Usada no Movto @! If(Inclui,"",BEA->BEA_MATUSA) 1 V V 1=Matricula Principal;2=Matricula Antiga 1
B01 36 B01_ANOPAG C 4 0 Ano Pagto Ano Pagto @! If(Inclui,"",BEA->BEA_ANOPAG) 1 V V 1
B01 37 B01_MESPAG C 2 0 Mes Pagto Mes Pagto @! If(Inclui,"",BEA->BEA_MESPAG) 1 V V 1
B01 38 B01_NUMIMP C 20 0 Nr. Impresso Numero do Impresso @! ( Vazio() ) .Or. ( plszero() .And. PLSVLDNIMP(M->B01_NUMIMP) ) If(Inclui,"",BEA->BEA_NUMIMP) 1 S V 1
B01 39 B01_GUIORI C 32 0 Guia Orig. Guia Original @! 1 V V 1
B01 40 B01_MSG01 C 80 0 Mensagem 1 Mensagem 1 @C If(Inclui,"",BEA->BEA_MSG01) 1 V 1
B01 41 B01_MSG02 C 80 0 Mensagem 2 Mensagem 2 @C If(Inclui,"",BEA->BEA_MSG02) 1 V 1
B01 42 B01_MSG03 C 80 0 Mensagem 3 Mensagem 3 @C If(Inclui,"",BEA->BEA_MSG03) 1 V 1
B01 43 B01_SIGEXE C 7 0 Sigla Exec. Sigla Executante @! If(Empty(M->B01_SIGEXE),.T.,ExistCpo("BAH",M->B01_SIGEXE)) IF(Inclui,GETMV("MV_PLSIGLA"),BEA->BEA_SIGLA) B53PLS 1 A V 1
B01 44 B01_GUIACO C 1 0 Guia Comp. Guia Comprada? @! If(Inclui,"0",BEA->BEA_GUIACO) 1 V V 1=Sim;0=Nao 1
B01 45 B01_QUACOB C 1 0 Quando Cobr. Quando Cobrar? @! If(Inclui,"",BEA->BEA_QUACOB) 1 V 1=No Ato;2=Na Fatura 1
B01 46 B01_CODCLI C 6 0 Cod.Cliente Codigo do Cliente @! If(Inclui,"",BEA->BEA_CODCLI) 1 V V 001 1
B01 47 B01_LOJA C 2 0 Loja Loja do Cliente @! If(Inclui,"",BEA->BEA_LOJA) 1 V V 002 1
B01 48 B01_SENHA C 20 0 Senha Senha @! If(inclui,"",BEA->BEA_SENHA) 1 V V 1
B01 49 B01_NRAOPE C 20 0 Nr Aut Oper. Numero Aut. Operadora @! If(inclui,"",BEA->BEA_NRAOPE) 1 V 1
B01 50 B01_NRAEMP C 20 0 Nr Aut Empr. Numero Aut. Empresa @! If(inclui,"",BEA->BEA_NRAEMP) 1 V 1
B01 51 B01_AUDITO C 1 0 Auditoria? Enviado a Auditoria? @! If(Inclui,"0",BEA->BEA_AUDITO) 1 V V 1=Sim;0=Nao 1
B01 52 B01_LOCREQ C 1 0 Loc.Requisic Local da Requisicao @! If(Inclui,"",BEA->BEA_LOCREQ) 1 N V 1=Consultorio;2=Pronto Atendimento;3=Hospital;4=Medicina/Odonto. do Trabalho;5=Medico/Dentista na Empresa;6=Transcricao 1
B01 54 B01_PAGATO C 1 0 Pagto Ato? Pagamento no Ato? @! If(Inclui,"0",BEA->BEA_PAGATO) 1 S V V 1=Sim;0=Nao 1
B01 55 B01_DPTETA D 8 0 Data Termino Data Prev. Term Tratament @! 1 S V V 1
B01 56 B01_SCDPER C 1 0 Sinais Perio Sinais Clínico Doença Per @! 1 S V V 0=Não;1=Sim 1
B01 57 B01_ALTMOL C 1 0 Alter Tecido Alter Tecidos Moles @! 1 S V V 0=Não;1=Sim 1
B01 58 B01_TIPATO C 1 0 Tipo Atend Tipo Atendimento Odonto @! "1" 1 S V V 1=Tratamento Odontológico;2=Exame Radiológico;3=Ortodontia;4=Urgência/ Emergência;5=Auditoria 1
B01 59 B01_TIPFAT C 1 0 Tp Faturamen Tipo Faturamento @! Pertence("TP") "T" 1 N V V T=Total;P=Parcial 1
B01 60 B01_DATSOL D 8 0 Data Solicit Data Solicitação Iif(Inclui,dDataBase,BEA->BEA_DATSOL) 1 N A V 1
B01 61 B01_GUIJUR C 1 0 Guia Jurid ? É uma Guia Juridica ? @! PLSGUIJUR("B01_GUIJUR") If(Inclui,"",BEA->BEA_GUIJUR) 1 V V 0=Não;1=Sim 1
B01 62 B01_NUMPRO C 20 0 Num Processo Numero do Processo @! If(Inclui,"",BEA->BEA_NUMPRO) 1 V V 1
B01 63 B01_GUIPRI C 20 0 Nr Guia Prin Numero da Guia Principal @! IIF(INCLUI,"",BEA->BEA_GUIPRI) BE4B01 1 S A V 1
B01 64 B01_PROATE C 20 0 Protocolo Protocolo de Atendimento @! If(Inclui,"",BEA->BEA_PROATE) 1 S V V 1
B01 65 B01_VALSEN D 8 0 Valid Senha Validade Senha IIf(Inclui,dDatabase+GetNewPar("MV_PLPRZLB",30),BEA->BEA_VALSEN) 1 N A V 1

 

 

 

 

SIX - INDICES

INDICE ORDEM CHAVE DESCRICAO DESCSPA DESCENG PROPRI F3 NICKNAME SHOWPESQ IX_VIRTUAL IX_VIRCUST
B01 1 B01_FILIAL Filial Sucursal Branch S S 2 3

 

 

 

 

SX7 - GATILHOS

X7_CAMPO X7_SEQUENC X7_REGRA X7_CDOMIN X7_TIPO X7_SEEK X7_ALIAS X7_ORDEM X7_CHAVE X7_CONDIC X7_PROPRI
B01_SIGLA 001 M->B01_SIGLA B01_SIGEXE P N 0 S

 

 

 

 

SXG - Grupo de Campos

XG_GRUPO XG_DESCRI XG_DESSPA XG_DESENG XG_SIZEMAX XG_SIZEMIN XG_SIZE XG_PICTURE
001 Codigo Cliente/Fornecedor Codigo Cliente/Proveedor Customer/Supplier Code 20 6 6 @!
002 Loja Cliente/Fornecedor Tienda Cliente/Proveedor Customer/Supplier Unit 4 2 2 @!
033 Tamanho da Filial Tamano de la Sucursal Branch Size 12 2 2
034 Nome do beneficiário Nomb del beneficiario Beneficiary name 70 50 70 @!

 

 

 

 

 

 

 

 

 

 

Gostou? Compartilhe com seus amigos e deixe um comentário! ??

Um abraço, e até a próxima  

 

 

 

 

 

📰 Posts Relacionados

ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

PIX QR Code para depósito

Clique para doar

Siga-nos

YouTube GitHub LinkedIn

Parceiros

Tudo em ADVPL - Blog parceiro

Blog ADVPL