Histórico da Página

...

Tag	Regra Protheus
seq_item	BX6_SEQPTU
id_itemUnico	BX6_IDUNIC
tp_Tabela	De-para BTU_CODTAB, Chave: BD6_CODPAD+BD6_CODPRO Obs: Em caso de itens de pacote, é feito o mesmo processo utilizando B43_CODPAD+B43_CODPRO
cd_Servico	1º BR8_CODEDI 2º De-para BTU_CDTERM, Chave: BD6_CODPAD+BD6_CODPRO Obs: Em caso de itens de pacote, é feito o mesmo processo utilizando B43_CODPAD+B43_CODPRO
ds_Servico	1º BD6_DESPRO 2º Se for item de pacote B43_DESPRO

procedimentosExecutados

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

'

,

'COR'

UCO,

'

FIL

',

'

VMT','VMD','REA')

) / 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 (

'COP',

'COR

'

,

'VMT'

COP,UCO'

VMD','REA')

) / Unidades manipuláveis no PE PLS500UNM
tx_AdmServico	BD7_VLRTAD	BD7_CODUNM diferente ('COR,COP

'

,

'COR'

UCO,

'

FIL

','VMT

'

,'VMD','REA')

) / 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 ('

COP','

COR

'

,

'VMT','VMD','REA')

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"

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 17

Nova versão 18

Chave

procedimentosExecutados

06. PONTOS DE ENTRADA