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

Tabela 2410 B45

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

Salve salve, blz?

 

 

Tabela B45. #B45

 

 

 

 

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
B45 DATA B45990 Itens do reembolso Items del reembolso Refund items C E E 0 B45_FILIAL+B45_OPEMOV+B45_ANOAUT+B45_MESAUT+B45_NUMAUT+B45_SEQUEN S 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
B45 01 B45_FILIAL C 2 0 Filial Filial 1 N A R 033
B45 02 B45_IMGSTA C 7 0 Img Status Image Status @BMP If(Inclui,"DISABLE",If(B45->B45_STATUS=="1","ENABLE","DISABLE")) 1 V V
B45 18 B45_NOMSOC C 70 0 Nome Social Nome Social do Benef. @! If(Inclui,"", Posicione("BA1",2,xFilial("BA1")+B45->B45_MATRIC,"BA1_NOMSOC")) 1 S V V Posicione("BA1",2,xFilial("BA1")+B45->B45_MATRIC,"BA1_NOMSOC")
B45 20 B45_NOMEBE C 70 0 Nome Benefi. Nome beneficiario @! If(Inclui,"", Posicione("BA1",2,xFilial("BA1")+B45->B45_MATRIC,"BA1_NOMUSR")) 1 V V Posicione("BA1",2,xFilial("BA1")+B45->B45_MATRIC,"BA1_NOMUSR") 034
B45 22 B45_TPGRV C 1 0 Tp. Gravacao Tipo Gravaca @! 1 1=Remote Protheus;2=Internet(RPC);3=POS;4=Importacao Manual
B45 25 B45_CODLDP C 4 0 Cd Lc Dig PG Codigo Local Dig PEG @! 1 V
B45 26 B45_CODPEG C 8 0 Código PEG Código PEG 1 V
B45 27 B45_NUMERO C 8 0 Número Guia Número Guia @! 1 V
B45 30 B45_ORIMOV C 1 0 Origem Movto Origem do Movimento @! 1 V 1=Guias de Consultas/Servicos;2=Guia de Internacao;3=Outros;4=Autorizacao Odontologica;5=Dig. Off-Line;6=Novo Autorizador
B45 41 B45_VALAPT N 16 2 Vlr Apr Tot Vlr Apr Tot @E 9,999,999,999,999.99 PlsRelB45() 1 S V V
B45 59 B45_GUIORI C 40 0 Guia Origem Guia Origem @! 1 S V R
B45 60 B45_SEQRCR C 3 0 Seq. Rec Ree Seq. Rec Reembolso @! "000" 1 V R
B45 61 B45_SITRGR C 1 0 Sit. Rec. Gl Sit. Rec. Glosa @! "0" 1 S V R 0=Sem rec de glosa;1=Rec Glosa Protocolado;2=Rec Glosa Em Analise;3=Rec Glosa Autorizado;4=Rec Glosa Negado
B45 62 B45_PARTIC C 1 0 Partic. Participativa @! 1 S V R 0=Nao;1=Sim
B45 65 B45_GRAUPA C 2 0 Grau Part. Grau de Participacao @! VAZIO() .OR. ValGRAUPA(M->B45_GRAUPA) GRAUPA 1 N A R
B45 66 B45_NUMLIB C 18 0 Nr.Liberação Número da liberação @R !.!!!-!!!!.!!-!!!!!!!! VAZIO() .OR. PLSVLDLIB("B45") B98PLS 1 N A R PLSB44PR()
B45 67 B45_REGSOL C 15 0 Solicitante Prestador Solicitante If(Empty(M->B45_REGSOL),.T.,PLSA090SOL()) B45BTY 1 S N A R PLSB44PR()
B45 68 B45_CODREF C 14 0 Rede Nao Ref Rede Nao Referenciada. @! IF(INCLUI,"",B45->B45_CODREF) BK6RMB 1 N A R PLSB44PR()
B45 69 B45_NOMREF C 35 0 Nome RDA Nome da RDA. @! If(Inclui,"",Posicione("BK6",4,xFilial("BK6")+B45->B45_CODREF,"BK6_NOME")) 1 N V V
B45 75 B45_SIGLA C 7 0 Sigla C.R Sigla @! If(Empty(M->B45_SIGLA),.T.,ExistCpo("BAH",M->B45_SIGLA)) .AND. LmpCmpB45() B53PLS 1 N A R PLSB44PR()
B45 76 B45_ESTSOL C 2 0 UF Solic. Est. Solicitante @! If(Empty(M->B45_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B45_ESTSOL,1))) .AND. LmpCmpB45() 12 1 N A R PLSB44PR()
B45 77 B45_NOMSOL C 40 0 Nome Solic. Solicitante @! PLA001BB0(B45->B45_ESTSOL+B45->B45_REGSOL+B45->B45_SIGLA) 1 N V V
B45 78 B45_SEQB1N C 6 0 Seq. Protoc Sequen. do Item Protocolo 1 N V R
B45 79 B45_FATOR N 5 2 Fator Reemb Fator de Reembolso @E 99.99 Positivo() 1 N V R
B45 83 B45_SEQBE2 C 3 0 Seq. Libera. Sequencial item liberação 1 N V R
B45 84 B45_PADINT C 2 0 Tipo Acomod. Acomodacao @! 1 V R
B45 85 B45_PADCON C 6 0 Pd. conforto Padrao Conforto @! 1 V R
B45 86 B45_REGINT C 1 0 Regime Inter Regime de Internação @! 1 V R 1=Hospitalar;2=Hospital-dia;3=Domiciliar
B45 87 B45_GRPINT C 1 0 Grp. Intern. Grupo de internação @! 1 V R 1=Clinica;2=Cirurgica;3=Obstetrica;4=Pediatrica;5=Psiquiatrica
B45 88 B45_TIPINT C 3 0 Tipo Intern Tipo Internacao @! 1 V R
B45 89 B45_CBPART C 1 0 Cobrou part? Cobrou coparticipação? Pertence("01") '0' 1 N V R 0=Não;1=Sim
B45 90 B45_PLNUCO C 12 0 Nm. Cob. Cop Num. cobranca copart @! 1 N V R
B45 91 B45_NUMTIT C 9 0 Num. Título número do título @! 1 N V R 018
B45 92 B45_PREFIX C 3 0 Prefixo Tit. Prefixo do Titulo @! 1 N A R
B45 93 B45_PARCEL C 2 0 Número Parc. Numero da Parcela @! 1 N V R 011
B45 03 B45_SEQUEN C 3 0 Sequência Sequência @! PLSA001SEQ() 1 V 1
B45 04 B45_MOTIVO C 3 0 Motivo Motivo @! PlsSeek("SX5",1,"BU" + M->B45_MOTIVO,"B45_DESMOT","X5_DESCRI") BU 1 A R M->B45_CONSVL=="1" 1
B45 05 B45_CONSVL C 1 0 Cons.Vlr.Apr Cons.Vlr.Apresentado @! 1 S A R 0=Não;1=Sim 1
B45 06 B45_OBSISA M 10 0 Obs. Atu. Observação @! 1 A R M->B45_CONSVL=="1" 1
B45 07 B45_DESMOT C 120 0 Des. Motivo Descrição do Motivo @! If(Inclui,"",Posicione("SX5",1,xFilial("SX5")+ "BU" + B45->B45_MOTIVO,"X5DESCRI()")) 1 S V V !PLS790INS() Posicione("SX5",1, xFilial("SX5") + "BU" + B45->B45_MOTIVO,"X5DESCRI()") 1
B45 08 B45_STATUS C 1 0 Status Status @! "1" 1 V 1=Autorizada;0=Nao Autorizada 1
B45 09 B45_CODPRO C 16 0 Cod. Proc. Codigo Procedimento @! Vazio() .Or. PLSA090PRO() .AND. AtuCmp() BPBPRO 1 S S 1
B45 10 B45_DESPRO C 50 0 Desc. Proc. Descricao @! If(Inclui,"",Posicione("BR8",1,xFilial("BR8")+B45->B45_CODPAD+B45->B45_CODPRO,"BR8_DESCRI")) 1 S V V Posicione("BR8",1,xFilial("BR8")+B45->(B45_CODPAD+B45_CODPRO),"BR8_DESCRI") 1
B45 11 B45_QTDPRO N 7 2 Qtd Qtd @E 9999.99 PLSA090PRO() 1 1 S S 1
B45 12 B45_CODPAD C 2 0 Cod. Tab. Pd Cd Tb @! Vazio() .Or. BR4->(ExistCpo("BR4",M->B45_CODPAD,1)) GETMV("MV_PLSTBPD") B41PLS 1 S 1
B45 13 B45_NIVAUT C 3 0 Nivel Autor. Nivel Autorizado @! 1 V 1
B45 14 B45_DNIVAU M 10 0 Dsc.Niv.Aut. Desc Niv Aut @! IIf(Inclui,"",PLSRETNCRI(B45->B45_NIVCRI,B45->B45_CHVNIV,B45->B45_NIVAUT)) 1 V V 1
B45 15 B45_NIVCRI C 3 0 Nivel Criti. Nv Critica @! 1 V 1
B45 16 B45_DNIVCR M 10 0 Dsc.Niv.Cri. Desc Niv Critica @! IIf(Inclui,"",PLSRETNCRI(B45->B45_NIVCRI)) 1 V V 1
B45 17 B45_MATRIC C 17 0 Matric. Ben. Matricula beneficiario @!!!!.!!!!.!!!!!!.!!-! VAZIO() .OR. BA1->(ExistCpo("BA1",M->B45_MATRIC,2)) PLSNOB 1 S 1
B45 19 B45_DATPRO D 8 0 Data Proced. Data Evento M->B45_DATPRO <= dDataBase .AND. PLEXECCPO("B45") If(Inclui,M->B44_DATPRO,B44->B44_DATPRO) 1 S PLSB44PR() 1
B45 21 B45_HORPRO C 6 0 Hora Hora do evento @R !!:!!:!! If(Inclui,M->B44_HORPRO,B44->B44_HORPRO) 1 N PLSB44PR() 1
B45 23 B45_AUDITO C 1 0 Auditoria? Auditoria? @! "0" 1 1=Sim;0=Nao M->B45_STATUS == "0" 1
B45 24 B45_FORCAD C 1 0 Forçado? Forçado? @! "0" 1 V 1=Sim;0=Nao 1
B45 28 B45_VIA C 1 0 Via Acesso Via de Acesso @! PlsSeek("BGR",1,PLSIntPad()+M->B45_VIA,"","") BHRPLS 1 S A R PLSB44PR() 1
B45 29 B45_PERVIA N 4 0 % Via % da Via @E 9999 If(Inclui, 0,Posicione("BGR",1,xFilial("BGR")+PLSINTPAD()+B45->B45_VIA,"BGR_PERC")) 1 S N V V 1
B45 31 B45_OPEMOV C 4 0 Operadora Operadora @! PLSINTPAD() 1 S V 1
B45 32 B45_MESAUT C 2 0 Mes Autori. Mes Base 99 1 S V R 1
B45 33 B45_ANOAUT C 4 0 Ano Autori. Ano Base 9999 1 S V R 1
B45 34 B45_NUMAUT C 8 0 Cd Reembolso Código Reembolso @! 1 1
B45 35 B45_CHVNIV C 60 0 Chave Nível Chave Nível @! 1 V 1
B45 36 B45_PROREL C 16 0 Proced.Relac Código Procedimento Relac @! PLSA090F3R() BPBPLS 1 1
B45 37 B45_PRPRRL N 7 2 Percentual Percentual @E 9,999.99 1 1
B45 38 B45_NIVEL C 1 0 Nível Nível @! 1 S V 1
B45 39 B45_VLRBPR N 16 2 Vlr.Contr. Vlr Apresentado Pagamento @E 9,999,999,999,999.99 1 V 2
B45 40 B45_VLRAPR N 16 2 Vlr Apr Uni Vlr Apr Uni @E 9,999,999,999,999.99 1 S N A R PLSB44PR() 2
B45 42 B45_VLRPAG N 16 2 Vlr.Pagto Vlr Apresentado Pagamento @E 9,999,999,999,999.99 1 V 2
B45 43 B45_VLRGLO N 16 2 Vlr Glosa Valor da Glosa @E 9,999,999,999,999.99 1 V 2
B45 44 B45_VLRMAN N 16 2 Vlr.Base Vlr Apresentado Pagamento @E 9,999,999,999,999.99 1 V 2
B45 45 B45_PERHES N 7 2 % Hor.Esp. % Horario Especial Atend. @E 9,999.99 1 V 2
B45 46 B45_CODTAB C 3 0 Tab.Pagto. Vlr Apresentado Pagamento @! 1 V 2
B45 47 B45_ALIATB C 3 0 Alias Tab. Vlr Apresentado Pagamento @! 1 V 2
B45 48 B45_VALORI C 1 0 Valorizado? Auditoria? @! "0" 1 V 1=Sim;0=Nao 2
B45 49 B45_PROCCI C 1 0 Proced. Cir. Procedimento Cirurgico @! "0" 1 V 1=Sim;0=Nao 2
B45 50 B45_ABATPF C 1 0 Abate Partic Abate Participação Financ @! '0' 1 S V R 0=Não;1=Sim 2
B45 51 B45_VLRBPF N 16 2 Vl Base PF Valor Base PF @E 9,999,999,999,999.99 1 S V R 2
B45 52 B45_PERCPF N 16 2 % PF Percentual PF @E 9,999,999,999,999.99 1 S V R 2
B45 53 B45_VLRTPF N 16 2 Vl Total PF Valor Total PF @E 9,999,999,999,999.99 1 S V R 2
B45 54 B45_VLABPF N 16 2 Vlr.Abat.PF. Valor Abate PF @E 9,999,999,999,999.99 1 S V R 2
B45 55 B45_NF C 20 0 Nota Fiscal Nota Fiscal do Reemb. @! PLSB45NF() 1 N A R 1
B45 56 B45_CPFCGC C 14 0 CNPJ NF CNPJ Nota Fiscal @R 99.999.999/9999-99 Vazio() .Or. CGC(M->B45_CPFCGC) 1 N A R 1
B45 57 B45_CRM C 15 0 CRM Solic. CRM do Solitante @! Vazio() .OR. VLDPRFSD() 1 N A R 1
B45 58 B45_ALIAPF C 3 0 Alias PF Alias PF @! 1 S V R 2
B45 63 B45_RESTIR C 1 0 Restitui IR? Passivel Restituição IR? @! Vazio() .OR. Pertence('01') '0' 1 N A R 0=Não;1=Sim 2
B45 64 B45_EST C 2 0 Estado Estado @! Vazio() .Or. ExistCpo("SX5","12"+UPPER(M->B45_EST)) M->B44_UFATE 12 1 N A R PLSB44PR() 010 2
B45 70 B45_CODMUN C 7 0 Cd Municipio Codigo Municipio @! Vazio() .Or. ExistCpo("BID",UPPER(M->B45_EST+M->B45_CODMUN),4) M->B44_MUNATE B45MUN 1 N A R PLSB44PR() 2
B45 71 B45_DENREG C 4 0 Dente/Reg. Dente/Reg. @! VAZIO() .OR. PLSVLDODO() B05PLS 1 N A R AlterWhen() 1
B45 72 B45_DESREG C 50 0 Desc. Den/Re Desc. Den/Re @! If(Inclui,"",Posicione("B05",1,xFilial("B05")+B45->B45_CODPAD+B45->B45_CODPRO+B45->B45_DENREG,"B05_DESCRI")) 1 N V V 1
B45 73 B45_FADENT C 5 0 Face Face @! VAZIO() .OR. PLSVLDODO() B06PLS 1 N A R AlterWhen() 1
B45 74 B45_FACDES C 50 0 Desc. Face Desc. Face @! If(Inclui,"", Posicione("BYL",1,xFilial("BYL")+B45->(B45_CODPAD+B45_CODPRO+B45_DENREG),"BYL_DESFAC")) 1 N V V 1
B45 80 B45_INTDE D 8 0 Dt Intern De Data da Internacao De 1 N V R 1
B45 81 B45_INTATE D 8 0 Dt Inter Ate Data da Internacao Ate 1 N V R 1
B45 82 B45_GUIPRI C 20 0 Nr Guia Prin Numero da Guia Principal @! 1 N V R PLSB44PR() 1

 

 

 

 

SIX - INDICES

INDICE ORDEM CHAVE DESCRICAO DESCSPA DESCENG PROPRI F3 NICKNAME SHOWPESQ IX_VIRTUAL IX_VIRCUST
B45 1 B45_FILIAL+B45_OPEMOV+B45_ANOAUT+B45_MESAUT+B45_NUMAUT+B45_SEQUEN Operadora + Ano Autori. + Mes Autori. + Cd Reembolso + Sequência Operadora + Ano Autori. + Mes Autori. + Cd Reembolso + Secuencia Operator + Author. Year + Auth. Month + Reimb. Code + Sequence S S 2 3
B45 2 B45_FILIAL+B45_AUDITO+B45_STATUS Auditoria? + Status ¿Auditoria? + Estatus Audit + Status S S 2 3
B45 3 B45_FILIAL+B45_CPFCGC+B45_NF CNPJ NF + Nota Fiscal CNPJ Factura + Factura Invoice CNPJ + Invoice S S 2 3
B45 4 B45_FILIAL+B45_MATRIC+B45_CODPAD+B45_CODPRO+DTOS(B45_DATPRO)+B45_CODREF Matric. Ben. + Cod. Tab. Pd + Cod. Proc. + Data Proced. + Rede Nao Ref Matríc.Benef + Cod.Tab.Est + Cod. Proc. + Fch. Proced. + Red No Ref Ben Registr + Std.Tab.Cod. + Proced. Code + Proced. date + Not Ref Net 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
B45_CODPAD 001 "" B45_CODPRO P N 0 S
B45_CODPRO 001 If(BR8->BR8_TIPEVE$"3,2","1","0") B45_PROCCI P S BR8 1 xFilial("BR8") + M->B45_CODPAD + M->B45_CODPRO S
B45_CODPRO 002 If(EMPTY(BR8->BR8_PARTIC),"0",BR8->BR8_PARTIC) B45_PARTIC P N 0 S
B45_CODPRO 003 If(Empty(BR8->BR8_RESTIR),'0',BR8->BR8_RESTIR) B45_RESTIR P N 0 S
B45_MATRIC 001 BA1->BA1_NOMUSR B45_NOMEBE P S BA1 2 xFilial("BA1") + M->B45_MATRIC EMPTY(M->B44_PROTOC) S
B45_PERVIA 001 "0" B45_VALORI P N 0 S
B45_QTDPRO 001 M->B45_QTDPRO*M->B45_VLRAPR B45_VALAPT P N 0 S
B45_REGSOL 001 BB0->BB0_NOME B45_NOMSOL P S BB0 4 xFilial("BB0") + M->B45_ESTSOL + M->B45_REGSOL + M->B45_SIGLA S
B45_VIA 001 BGR->BGR_PERC B45_PERVIA P S BGR 1 xFilial("BGR") + M->B45_OPEMOV + M->B45_VIA EMPTY(M->B44_PROTOC) S
B45_VIA 002 "0" B45_VALORI P N 0 S
B45_VLRAPR 001 M->B45_QTDPRO*M->B45_VLRAPR B45_VALAPT 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 @!
011 Parcela Cuota Installment 4 1 2 @!
018 Documento de entrada/saída Documento de entrada/salida Inbound/outbound document 13 6 9 @!
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