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

Tabela 2410 B1N

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

Salve salve, blz?

 

 

Tabela B1N. #B1N

 

 

 

 

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
B1N DATA B1N990 ITENS PROTOCOLO REEMBOLSO ITEMS COMPROBANTE REEMBOLSO PROTOCOL ITEMS REIMBURSEMENT C E E 0 B1N_FILIAL+B1N_PROTOC+B1N_CODPAD+B1N_CODPRO+STR(B1N_VLRAPR)+B1N_USOCON+B1N_CODREF+B1N_NOMREF+B1N_TIPDOC+B1N_NUMDOC+DTOS(B1N_DATDOC)+B1N_SEQUEN+B1N_QTDPRO 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
B1N 01 B1N_FILIAL C 2 0 Filial Filial 1 N A R 033
B1N 02 B1N_IMGSTA C 7 0 Lgd Legenda @BMP "ENABLE" 1 S V R
B1N 39 B1N_LAPRV C 1 0 nao usado nao usado 1 N V V
B1N 41 B1N_LAREV C 1 0 nao usado nao usado 1 N V V
B1N 49 B1N_PADINT C 2 0 Tipo Acomod. Acomodacao @! 1 V R
B1N 50 B1N_PADCON C 6 0 Pd. conforto Padrao Conforto @! 1 V R
B1N 51 B1N_REGINT C 1 0 Regime Inter Regime Internação @! Pertence('123') 1 V R 1=Hospitalar;2=Hospital-dia;3=Domiciliar
B1N 52 B1N_GRPINT C 1 0 Grp. Intern. Grupo de internação @! 1 V R 1=Clinica;2=Cirurgica;3=Obstetrica;4=Pediatrica;5=Psiquiatrica
B1N 53 B1N_TIPINT C 3 0 Tipo Intern Tipo Internacao @! 1 V R
B1N 54 B1N_ABATPF C 1 0 Abate Part. Abate coparticipação? @! "0" 1 N A R 0=Não;1=Sim
B1N 04 B1N_CODPAD C 2 0 Cod. Tab. Pd Cod. Tab. Pd @! PLVLDB1N() GETMV('MV_PLSTBPD') B41PLS 1 S A R 1
B1N 05 B1N_CODPRO C 16 0 Cod. Proc. Codigo Procedimento @! Vazio() .Or. PLVLDB1N() .AND. PLSVLPRLB() .AND. PLB1NPROC() B1NPLS 1 S A R 1
B1N 06 B1N_DESPRO C 50 0 Descr Proced Descricao Procedimento @! plRelCpm('B1N_DESPRO') 1 S V V Posicione('BR8',1,xFilial('BR8')+B1N->B1N_CODPAD+B1N->B1N_CODPRO,'BR8_DESCRI') 1
B1N 07 B1N_VLRAPR N 16 2 Vlr.Apres. Vlr Apresentado Pagamento @E 9,999,999,999,999.99 1 S S A R 1
B1N 11 B1N_TIPDOC C 25 0 Tipo Doc. Tipo de documento ExistCpo('BBS',M->B1N_TIPDOC,2) PLSB1N 1 S A R 1
B1N 12 B1N_NUMDOC C 20 0 Numero Doc Numero Documento Fiscal 1 S A R PLVLDTP() 1
B1N 13 B1N_DATDOC D 8 0 Data Documen Data do documento fiscal IIF(!(Empty(M->B1N_MATRIC)),PLBLOQREEM(M->B1N_MATRIC, M->B1N_DATDOC ), .T.) 1 S S A R 1
B1N 14 B1N_SEQUEN C 3 0 Sequencial Num. Sequencial PLS001ASEQ() 1 S V R 1
B1N 15 B1N_QTDPRO N 3 0 Quantidade Quantidade Realizada 999 VAZIO() .OR. PLSVLDLIB("B1N") 001 1 S S A R 1
B1N 16 B1N_PROORI C 16 0 Proc. Origem Proc. Incluido Ben 1 S V R 1
B1N 22 B1N_MATRIC C 17 0 Matric. Ben. Matricula beneficiario @!!!!.!!!!.!!!!!!.!!-! VAZIO() .OR. BA1->(ExistCpo("BA1",M->B1N_MATRIC,2)) .AND. AtCmpoB1N() .AND. PLBLOQREEM(M->B1N_MATRIC, M->B1N_DATPRO ) PLSNOB 1 S N A R 1
B1N 23 B1N_TIPSER C 6 0 Tipo Servico Tipo de serviço do item @! 1 N A R 1
B1N 25 B1N_NOMEBE C 70 0 Nome Benefi. Nome beneficiario @! If(Inclui,"", Posicione("BA1",2,xFilial("BA1")+B1N->B1N_MATRIC,"BA1_NOMUSR")) 1 N V V Posicione("BA1",2,xFilial("BA1")+B1N->B1N_MATRIC,"BA1_NOMUSR") 034 1
B1N 26 B1N_NOMSOC C 70 0 Nome Social Nome Social do Beneficiár @! IF(INCLUI,"", POSICIONE("BA1",2,XFILIAL("BA1")+B1N->B1N_MATRIC,"BA1_NOMSOC")) 1 S V V POSICIONE("BA1",2,XFILIAL("BA1")+B1N->B1N_MATRIC,"BA1_NOMSOC") 1
B1N 27 B1N_PRNOME C 40 0 Nome Prestad Nome do prestador do item 1 N A R 1
B1N 33 B1N_SIGLA C 7 0 Sigla C.R Sigla @! If(Empty(M->B1N_SIGLA),.T.,ExistCpo("BAH",M->B1N_SIGLA)) .AND. LmpCmpB1n() B53PLS 1 N A R 1
B1N 34 B1N_ESTSOL C 2 0 UF Solic. Est. Solicitante @! If(Empty(M->B1N_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B1N_ESTSOL,1))) .AND. LmpCmpB1n() 12 1 N A R 1
B1N 03 B1N_PROTOC C 20 0 Num Protocol Numero do Protocolo @! M->BOW_PROTOC 1 N V R 2
B1N 08 B1N_USOCON C 1 0 Uso Continuo Medicamento Uso Continuo Pertence('01') .AND. AtCmpoB1N() "0" 1 S A R 0=Nao;1=Sim 2
B1N 09 B1N_CODREF C 14 0 Cod Rda NRef Rda Nao Referenciada @! VAZIO() .OR. BK6->(ExistCpo('BK6',M->B1N_CODREF,4)) IF(INCLUI,'',B1N->B1N_CODREF) BK6RMB 1 S S A R 3
B1N 10 B1N_NOMREF C 35 0 Nome RDA Nome da Rede Nao Refer. 1 S V R 3
B1N 17 B1N_EST C 2 0 Estado Estado @! Vazio() .Or. Vazio() .Or. ExistCpo("SX5",'12'+UPPER(M->B1N_EST)) M->BOW_UFATE 12 1 N A R EMPTY(M->BOW_MUNATE) 010 3
B1N 18 B1N_CODMUN C 7 0 Cd Municipio codigo municipio @! Vazio() .Or. ExistCpo("BID",UPPER(M->B1N_EST+M->B1N_CODMUN),4) M->BOW_MUNATE B1N992 1 S N A R EMPTY(M->BOW_MUNATE) 3
B1N 19 B1N_DESMUN C 50 0 Desc Munic Desc Municipio de Atendim 1 N V R 3
B1N 20 B1N_SEQREC C 6 0 Seq. Receita Cod Sequencial da Receita 1 S V R 2
B1N 21 B1N_PRCNPJ C 14 0 CPF/CNPJ CPF/CNPJ do prestador ree @R 99.999.999/9999-99 CGC(M->B1N_PRCNPJ) 1 N A R 3
B1N 24 B1N_NUMLIB C 18 0 Nr.Liberação Número da liberação @R !.!!!-!!!!.!!-!!!!!!!! VAZIO() .OR. PLSVLDLIB("B1N") B98PLS 1 N A R !EMPTY(M->B1N_CODPRO) .OR. !EMPTY(M->B1N_NUMLIB) 3
B1N 28 B1N_CODREC C 20 0 Cod. Receita Codigo da receita @! 1 N V R 2
B1N 29 B1N_CODMED C 16 0 Cod. Medicam codigo do medicamento @! VAZIO() .OR. Iif(Empty(M->B1N_CODREC), PLSPESMED(), GatCampo()) PLSPSM 1 S N A R M->B1N_USOCON == "1" 2
B1N 30 B1N_DESMED C 80 0 Descr. med. descricao do medicamento @! If(Inclui,"", Posicione("BR8",3,xFilial("BR8")+B1N->B1N_CODMED,"BR8_DESCRI")) 1 N V V 2
B1N 31 B1N_SEQMED C 3 0 seq. med. sequencial do medicamento 1 N V R 2
B1N 32 B1N_QTDMED N 3 0 Qtd. Receita Quantidade receita 999 VAZIO() .OR. M->B1N_QTDMED > 0 .AND. VldQtdMed() 0 1 N A R M->B1N_USOCON == "1" 2
B1N 35 B1N_REGSOL C 15 0 Solicitante Prestador Solicitante If(Empty(M->B1N_REGSOL),.T.,PLSA090SOL()) If(Inclui,"",B1N->B1N_REGSOL) B1NBTY 1 S N A R 1
B1N 36 B1N_NOMSOL C 40 0 Nome Solic. Solicitante @! If(!Inclui,Posicione("BB0",4,xFilial("BB0")+B1N->B1N_ESTSOL+B1N->B1N_REGSOL+B1N->B1N_SIGLA,"BB0_NOME"),"") 1 N V V 1
B1N 37 B1N_VLRREE N 16 2 Val. Reemb. Valor reembolsado @E 9,999,999,999,999.99 Positivo() 0 1 N V R 1
B1N 38 B1N_UNICON C 20 0 Unidade Cons Unidade de Consumo 1 S V R 1
B1N 40 B1N_DATPRO D 8 0 Data Exec. Data Execucao do proc. M->B1N_DATPRO <= dDataBase .AND. PLEXECCPO("B1N") 1 N A R 3
B1N 42 B1N_INTDE D 8 0 Dt Intern De Data da Internacao De 1 N V R 3
B1N 43 B1N_INTATE D 8 0 Dt Inter Ate Data da Internacao Ate 1 N V R 3
B1N 44 B1N_GUIPRI C 20 0 Nr Guia Prin Numero da Guia Principal @! 1 N V R 1
B1N 45 B1N_VLRTOT N 16 2 Vlr. Total Valor total @E 9,999,999,999,999.99 1 S S A R 1
B1N 46 B1N_VIA C 1 0 Via Acesso via de acesso VAZIO() .OR. PlsSeek("BGR",1,PLSIntPad()+M->B1N_VIA,"","") BHRPLS 1 S N A R 3
B1N 47 B1N_PERVIA N 4 0 % Via Percentual de via 9999 If(Inclui, 0,Posicione("BGR",1,xFilial("BGR")+PLSINTPAD()+B1N->B1N_VIA,"BGR_PERC")) 1 N V V 3
B1N 48 B1N_SEQBE2 C 3 0 Seq. Libera. Sequencial item liberação 1 N V R 3

 

 

 

 

SIX - INDICES

INDICE ORDEM CHAVE DESCRICAO DESCSPA DESCENG PROPRI F3 NICKNAME SHOWPESQ IX_VIRTUAL IX_VIRCUST
B1N 1 B1N_FILIAL+B1N_PROTOC+B1N_CODPAD+B1N_CODPRO Num Protocol + Cod. Tab. Pd + Cod. Proc. Num Comprob + Cod. Tab. Pd + Cod. Proc. Protocol Num + Cod. Work.Pd + Proc Code S S 2 3
B1N 2 B1N_FILIAL+B1N_PROTOC+B1N_SEQUEN Num Protocol + Sequencial Num Comprob + Secuencial Protocol Num + Sequential S S 2 3
B1N 3 B1N_FILIAL+B1N_PROTOC+B1N_CODREF Num Protocol + Cod Rda NRef Num Comprob + Cod Rda NRef Protocol Num + Cod Serv Net S S 2 3
B1N 4 B1N_FILIAL+B1N_CODREC Cod. Receita Cód. Receta Prescr Code S S 2 3
B1N 5 B1N_FILIAL+B1N_PRCNPJ CPF/CNPJ RCPF/RCPJ CPF/CNPJ S S 2 3
B1N 6 B1N_FILIAL+B1N_PROTOC+B1N_IMGSTA Num Protocol + Lgd Num Comprob + Lgd Protocol Num + Cpt 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
B1N_CODMED 001 Eval({||PlsSeek("BR8",3 , M->B1N_CODMED), BR8->BR8_DESCRI}) B1N_DESMED P N 0 S
B1N_CODMED 002 B7D->B7D_SEQUEN B1N_SEQMED P S B7D 3 xFilial("B7D") + M->B1N_CODREC + M->B1N_CODMED S
B1N_CODMED 003 B7D->B7D_UNICON B1N_UNICON P S B7D 3 xFilial("B7D") + M->B1N_CODREC + M->B1N_CODMED S
B1N_CODMUN 001 BID->BID_DESCRI B1N_DESMUN P N BID 1 xFilial("BID") + M->B1N_CODMUN S
B1N_CODREF 001 BK6->BK6_NOME B1N_NOMREF P S BK6 4 xFilial("BK6") + M->B1N_CODREF S
B1N_CODREF 002 iif(alltrim(BK6->BK6_ESTCR) <> "", BK6->BK6_ESTCR, M->B1N_EST) B1N_EST P S BK6 4 xFilial("BK6") + M->B1N_CODREF S
B1N_CODREF 003 iif(alltrim(BK6->BK6_MUNCR) <> "", BK6->BK6_MUNCR, M->B1N_CODMUN) B1N_CODMUN P S BK6 4 xFilial("BK6") + M->B1N_CODREF S
B1N_CODREF 004 iif(alltrim(M->B1N_CODMUN) <> "", BID->BID_DESCRI, B1N->B1N_DESMUN) B1N_DESMUN P S BID 1 xFilial("BID") + M->B1N_CODMUN S
B1N_DATDOC 001 M->B1N_DATDOC B1N_DATPRO P N 0 S
B1N_MATRIC 001 BA1->BA1_NOMUSR B1N_NOMEBE P S BA1 2 xFilial("BA1") + M->B1N_MATRIC S
B1N_MATRIC 002 BA1->BA1_NOMSOC B1N_NOMSOC P N 0 S
B1N_QTDPRO 001 NOROUND(B1N_VLRTOT/B1N_QTDPRO,3) B1N_VLRAPR P N 0 S
B1N_REGSOL 001 BB0->BB0_NOME B1N_NOMSOL P S BB0 4 xFilial("BB0") + M->B1N_ESTSOL + M->B1N_REGSOL + M->B1N_SIGLA S
B1N_VIA 001 Eval({|| PLSSEEK('BGR',1, M->BOW_OPERDA + M->B1N_VIA), BGR->BGR_PERC}) B1N_PERVIA P N 0 S
B1N_VLRAPR 001 B1N_VLRAPR*B1N_QTDPRO B1N_VLRTOT P N 0 S
B1N_VLRTOT 001 NOROUND(B1N_VLRTOT/B1N_QTDPRO,3) B1N_VLRAPR P N 0 S

 

 

 

 

SXG - Grupo de Campos

XG_GRUPO XG_DESCRI XG_DESSPA XG_DESENG XG_SIZEMAX XG_SIZEMIN XG_SIZE XG_PICTURE
010 Estado Estado State 5 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