Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 53

changes.mady.by.user Thiago Rodrigues da Silva

Gravado em

comparado com

Nova versão 54

changes.mady.by.user Renan Marinho Espindula

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.

aRet[3] - Dado da tag nr_Documento e doc_Fiscal.

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


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:

user function PTUDEPARA()


cCodPad := paramixb[1]
cCodPro := paramixb[2]
cDatPro := paramixb[3]


return {.t.,"22","10101012"}

Nome:

PLU5CNES

Descrição:

O Ponto de Entrada permite manipular o CNES, que será exportado nas tags quando "honorário" e "contratadoexecutante"

Localização:

Exportação PTU A500/A550

Programa Fonte:

PLSUA500X

Função:

 Honorário() e contratadoexecutante()

Parâmetros:

cCnes (CNES localizado pelo sistema), cCodRDA (código RDA do cabeçalho da guia), cAlias (alias da query que manipula os dados da exportação)

Retorno:

cCNESPE (Caractere)

Deve retornar obrigatoriamente um valor do tipo caractere, que deve conter o valor do CNES desejado.

Exemplo:

USER FUNCTION PLU5CNES()


local cCNESPLS  := paramixb[1] //CNES encontrado pelo SIGAPLS
local cCodRDA   := paramixb[2] //Código da RDA
local aAliSis        := paramixb[3] //Alias da query de dados
local lOrigCham := iif( IsInCallStack("contratadoExecutante"), .t., .f. ) //verifico se CNES da função contratadoExecutante ou Honorario
local cCnesPE     := iif( lOrigCham, "ABC963147", "HON760" ) //se função contratadoExecutante, retorna "ABC963147", se não - honorários - HON760"

RETURN cCnesPE     

07. LOG DE ERROS

Foi implementado na rotina um sistema de validação do XML gerado com o schema disponibilizado pela Unimed do Brasil, sendo assim garantimos que o XML gerado está dentro do mínimo esperado pelo padrão.

...

  • Será necessário a criação da subpasta V2_12 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.12, os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_12.


  • 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.1 , o sistema irá validar a versão 2.1, saindo na tag <nrVerTra_PTU> o valor "04", validando com o schema novo, que deve estar no diretório: Protheus_data\plsptu\schemas\V2_12.  Se for necessário exportar na versão anterior (2- PTU 2.0), mantenha selecionado no combo Versão do PTU a versão PTU 2.0 e o sistema irá validar o schema na pasta Protheus_data\plsptu\schemas\V2_0.

...