Histórico da Página

...

Tag	Regra Protheus	Observação
dt_Execucao	BD6_DATPRO
hr_Inicial	BD6_HORPRO
hr_Final	BD6_HORFIM
via_Acesso	1º BGR_CODEDI 2º BGR_CODVIA
tc_Utilizada	Se BD6_TECUTI = 'C' envia '1' Se BD6_TECUTI = 'V' envia '2' Se BD6_TECUTI = 'R' envia '3' Se BD6_TECUTI não for C,V e R' envia o próprio conteudo	Somente se BD6_PROCCI = '1'
id_Acrescimo	Se BD6_PERHES for maior que 1 envia 'S'.
vl_ServCobrado	BD7_VLRBPR	BD7_CODUNM diferente ('COR,COP,UCO,FIL') / Unidades manipuláveis no PE PLS500UNM
vl_FilmeCobrado	BD7_VLRBPR	BD7_CODUNM igual 'FIL' / Unidades manipuláveis no PE PLS500UNM
vl_CO_Cobrado	BD7_VLRBPR	BD7_CODUNM igual ('COR,COP,UCO') / Unidades manipuláveis no PE PLS500UNM
tx_AdmServico	BD7_VLRTAD	BD7_CODUNM diferente ('COR,COP,UCO,FIL') / Unidades manipuláveis no PE PLS500UNM
tx_AdmFilme	BD7_VLRTAD	BD7_CODUNM igual 'FIL' / Unidades manipuláveis no PE PLS500UNM
tx_AdmCO	BD7_VLRTAD	BD7_CODUNM igual ('COR,COP,UCO') / Unidades manipuláveis no PE PLS500UNM
un_Medida	1º BX6_CODUNM 2º BA8_UNMEDI
ft_MultiplicadorServico	BD6_PERHES
id_AvisadoItem	Existência na tabela B6S
id_Pacote	Existência na tabela B43
cd_Pacote	BD6_CODPRO dependendo da existência na tabela B43
cd_PorteAnestesico	Se BD4_PORMED= '3A' envia '1' Se BD4_PORMED= '3C' envia '2' Se BD4_PORMED= '4C' envia '3' Se BD4_PORMED= '6B' envia '4' Se BD4_PORMED= '7C' envia '2' Se BD4_PORMED= '9B' envia '6' Se BD4_PORMED= '10C' envia '7' Se BD4_PORMED= '12A' envia '8' Senão BKF_CODEDI	Se o procedimento tiver PA na composição.
cd_Ato	Se BAU_TIPPRE = "MED","ANE" envia "1"

equipe_Profissional

Tag	Regra Protheus
tp_Participacao	1° Se BD7_CODTPA for diferente de vazio, de-para BTU Tabela 35 . 2° Se for vazio e BD7_CODUNM = 'PAP,PA,PAR' envia '06' 3° Se for vazio e BD7_CODUNM = 'AUX' envia BD7_NLANC
nm_Profissional	BB0_NOME → Chave de busca: BD7_CDPFPR
cd_cpf	BB0_CGC → Chave de busca: BD7_CDPFPR
sg_Conselho	BB0_CODSIG → Chave de busca: BD7_CDPFPR
nr_Conselho	BB0_NUMCR → Chave de busca: BD7_CDPFPR
UF	BB0_ESTADO de-para BTU tabela 59 → Chave de busca: BD7_CDPFPR
CBO	1° BAQ_CBOS → Chave de Busca: BD7_ESPEXE 2° BAQ_CBOS → Chave de Busca: BD7_CODESP

06. PONTOS DE ENTRADA

Nome:

PLSR506

Descrição:

Este Ponto de Entrada permite adicionar dados de NFE ao PTU para exportação das tags nr_NotaFiscalDoc e link_NFeDoc.

Localização:

Exportação PTU A500

Programa Fonte:

PLSUA500X

Função:

processa

Parâmetros:

cTipo - Carácter - Indica o tipo de documento que está chamando o ponto. Caso seja "1" é para o bloco documento1 caso seja "2" é o bloco documento2. Além deste parametro as tabelas BTO e SE1 estão posicionadas.

Retorno:

aRet

aRet[1] - Dado da tag nr_NotaFiscalDoc.

aRet[2] - Dado da tag link_NFeDoc.

Exemplo:

user function PLSR506()
local aParam:= paramixb[1]
local aRet := {'',''}

ZAA->(dbsetorder(1))
if ZAA->(msSeek(xfilial('ZAA')+SE1->E1_NUM))
aRet[1] := ZAA->ZAA_NUM

aRet[2] := ZAA->ZAA_URL

endif

return aRet

...

Árvore de páginas

Versões comparadas

Versão antiga 18

Nova versão 19

Chave

equipe_Profissional

06. PONTOS DE ENTRADA