Histórico da Página
...
A rotina visa a exportação das glosas realizadas nas guias de uma importação A500.
02. EXPORTAÇÃO
A tela vai exibir registros da BRJ (Importação A500), permitindo selecionar um ou mais itens para realizar a exportação e a pasta onde sera salvo os arquivos.
...
Tag | Regra Protheus |
---|---|
nrVerTra_PTU | "0104" |
cd_Uni_Destino | BRJ_OPEORI |
cd_Uni_Origem | |
dt_Geracao | Data do servidor |
tp_Cobranca | BRJ_TPCOB |
tp_Arquivo | 1 |
nr_Doc_1_A500 | BRJ_NUMFAT |
vl_Tot_Cont_Doc_1 | BRJ_VLRFAT |
vl_Tot_Pago_Doc_1 | E2_SALDO |
Nr_NDC_1 | "0" |
dt_Venc_NDC_1 | "" |
nr_Doc_2_A500 | BRJ_NRNDC |
vl_Tot_Cont_Doc_2 | BRJ_VLRNDC |
Nr_NDC_2 | "0" |
dt_Venc_NDC_2 | "" |
...
Tag | Regra Protheus | Observações |
---|---|---|
cd_Unimed | BD6_CODOPE | |
id_Benef | BD6_CODEMP+BD6_MATRIC+BD6_TIPREG+BD6_DIGITO | |
nm_benef | BD6_NOMUSR | |
nr_Lote | BD6_LOTEDI | |
nr_Nota | BD6_NUMIMP | |
nr_LotePrestador | BD6_LOTEDI | |
nr_GuiaTissPrestador | BD6_NUMIMP | |
seq_itemTXT | BD7_SEQ500 | |
seq_itemXML | BX6_SEQPTU | |
tp_Tabela | BTU_CODTAB | Caso código seja igual ao valor do parâmetro MV_PLPSPXM: BD6_SLVPAD Caso código seja igual ao valor do parâmetro MV_PLPACPT: "98" |
cd_Servico | BTU_CDTERM | Caso código seja igual ao valor do parâmetro MV_PLPSPXM: BD6_SLVPRO Caso código seja igual ao valor do parâmetro MV_PLPACPT: BD6_CD_PAC |
tp_Acordo | "11" | Se BD6_VLRGLO igual a 0: "11" Senão: "00" |
qt_Reconh | BD6_QTDPRO | |
qt_Acordada | "0" | |
vl_Reconh_Serv | Se BD7_VLRGLO > 0 ou BD7_VLRGTX > 0 :BD7_VLRPAG Senão: BD7_VLAPAJ | |
vl_Reconh_CO | Se BD7_VLRGLO > 0 ou BD7_VLRGTX > 0 :BD7_VLRPAG Senão: BD7_VLAPAJ | |
vl_Reconh_Filme | Se BD7_VLRGLO > 0 ou BD7_VLRGTX > 0 :BD7_VLRPAG Senão: BD7_VLAPAJ | |
vl_Reconh_Adic_Serv | Se BD7_VLRGLO > 0 ou BD7_VLRGTX > 0 :BD7_VLTXPG | |
vl_Reconh_Adic_CO | e BD7_VLRGLO > 0 ou BD7_VLRGTX > 0 :BD7_VLTXPG Senão: BD7_VLADSE | |
vl_Reconh_Adic_Filme | e BD7_VLRGLO > 0 ou BD7_VLRGTX > 0 :BD7_VLTXPG Senão: BD7_VLADSE | |
cd_Motivo_Ques | BCT_EDI550 | |
ds_Motivo_Ques | BDX_OBS |
Questionamento Nota Fiscal do Fornecedor
Tag
Regra Protheus
substr(B19_IDBENE,1,4))
substr(B19_IDBENE,5,15))
nr_NotaFiscalFornecedor
B19_NRONFF
nr_GuiaTissPrincipal
B19_GUIPRI
seq_item
B19_SEQITE
id_itemUnico
B19_IDUNIC
tp_Tabela
cd_Servico
vl_Reconh_Serv
iif(B19_VLRPGT==0, "0",B19_VLRPGT)
vl_Reconh_Adic_Serv
B19_VLTXPG
iif((B19_VLRGLO + B19_VLRGTX) == 0, "11", "00"))
B19_QTDCOB
cd_Motivo_Ques
ds_Motivo_Ques
04. MENU
- No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do SIGAPLS, conforme instruções a seguir:
...
Ponto de Entrada | PLS500UNM | ||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Descrição | O Ponto de Entrada (P.E.) PLS500UNM está localizado no fonte PLSUA550X, ele é acionado uma única vez quando a tela inicial da rotina é aberta. Ele permite a manipulação das variáveis que indicam o tipo de unidade (BD7_CODUNM) a serem exportados e importados de acordo com a regra do PTU A500.(vl_Reconh_Serv, vl_Reconh_CO, vl_Reconh_Filme) | ||||||||||||||||||||||||
Fonte | PLSP500X,PLSUA500X,PLSUA550X | ||||||||||||||||||||||||
Parâmetros | O P.E. recebe os seguintes parâmetros:
| ||||||||||||||||||||||||
Retorno | O P.E. deve retornar uma string, contendo os códigos de unidade.
| ||||||||||||||||||||||||
Exemplo | #INCLUDE "PROTHEUS.CH"
cAnest += "XPA" Return {cServ,cAux,cAnest,cCusOpe,cFilm} |
Nome: | PTUDEPARA | |
---|---|---|
Descrição: | Este Ponto de Entrada permite a manipulação do código de tabela e procedimento a serem exportados. | |
Localização: | Exportação PTU A500/A550 | |
Programa Fonte: | PLSUA500X/PLSUA550X | |
Função: | dePara | |
Parâmetros: | BD6_CODPAD,BD6_CODPRO,BD6_DATPRO,BD6_CODRDA | |
Retorno: | aRet aRet[1] - lAchou - Variável lógica, se retornar .T. irá considerar o retorno do PE e não fará o de-para padrão na BTU, se retornar .F. irá realizar o de-para padrão do sistema. aRet[2]- cCodPad - Código da tabela padrão tiss (00,18,19,20,22 e etc) aRet[3] - cCodPro - Código de procedimento. | |
Exemplo: |
|
06. ALTERAÇÕES DA VERSÃO 2.
...
1
- Será necessário a criação da subpasta V2_02 dentro da pasta de schemas, já existente em: Protheus_data\plsptu\schemas, para armazenar os novos schemas. Portanto, para funcionamento correto da versão 2.02, os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_02.
- Ao selecionar o arquivo e clicar no botão exportar, será exibido uma janela de parâmetros para selecionar o caminho que o arquivo será salvo e qual é a Versão do PTU.
- Se escolhido : 1- PTU 2.02 , o sistema irá validar a versão 2.02, saindo na tag <nrVerTra_PTU> o valor "0304", validando com o schema novo, que deve estar no diretório: Protheus_data\plsptu\schemas\V2_02. Se for necessário exportar na versão anterior (2- PTU 12.1), mantenha selecionado no combo Versão do PTU a versão PTU 12.1 e o sistema irá validar o schema na pasta Protheus_data\plsptu\schemas\V1V2_1.
Informações | ||
---|---|---|
| ||
A rotina utiliza campos da rotina A500, os detalhes estão disponíveis na seção 09 da documentação, clique aqui para acessa-la. |
...