Histórico da Página

O objetivo deste ponto de entrada é permitir a correção dos códigos relacionados a "Rda", "Solicitante", "Executante" e "Matrícula", caso estejam errados no conteúdo do arquivo XML.

Importante: Este ponto corrige informações errôneas para que o arquivo não seja criticado. Para alterar a RDA de importação é possível através do tratamento realizado pelo parâmetro "R" (Rda), nesse caso, retornar o código da RDA que será realizada a importação.
Para tratamento de códigos de CRM de Profissionais Solicitante e Executante, tratar através do Ponto de Entrada "PLSXMLSCU".

O parâmetro "S" só é passado em arquivos GUIASOLICITACAOSADT, GUIASOLICINTERNACAO e GUIASOLICITACAOPRORROGACAO.

Permite que sejam tratadas na leitura do arquivo XML as informações do código da "Rda", "Profissional Solicitante", "Profissional Executante" e "Matrícula do usuário".

PLSA973

PLSXMLPROF - Correção de Códigos ( [ cTipo ], [ cCodRP ], [ cNum ], [ cNumImp ], [ cOrigem ], [ nIdx ], [ Data ], [ cHora ] ) --> cCodRP

cCodRP(caracter)
• O retorno do ponto de entrada será conforme o tipo:
  “R” - retorna o código da Rda
  “S” - retorna o código do Solicitante
  “CE” - retorna o código do Executante
  “M” - retorna a matricula do usuário.

User Function PLSXMLPROFLOCAL cRet     := ""LOCAL cTp       := paramixb[1]LOCAL cCodigo := AllTrim(paramixb[2])LOCAL nLen      := Len(cCodigo)LOCAL cChaveAux := Substr(cCodigo,1,nLen-1)LOCAL cNivelRd  := paramixb[3]LOCAL cNumImp  := paramixb[4]LOCAL cOrigem   := paramixb[5]Do Case 	Case cTp == 'R'		BAW->( DbSetOrder( 3 ) ) //BAW_FILIAL + BAW_CODINT + BAW_CODANT		If BAW->( MsSeek( xFilial("BAW")+cChaveAux) ) 		   cRet := BAW->BAW_CODIGO		EndIf	Case cTp == 'S'		BB0->( DbSetOrder( 6 ) ) //BB0_FILIAL + BB0_CODOPE + BB0_CODIGO                                                                                                                            		If BB0->( MsSeek( xFilial("BB0")+cChaveAux ) )		   cRet := BB0->BB0_CODIGO		EndIf	Case cTp == 'CE'		BB0->( DbSetOrder( 6 ) ) //BB0_FILIAL + BB0_ESTADO + BB0_NUMCR + BB0_CODSIG + BB0_CODOPE		If BB0->( MsSeek( xFilial("BB0")+cChaveAux ) )		   cRet := BB0->BB0_CODIGO		EndIf         	Case cTp == 'M'	   cRet := cCodigo	OtherWise   	   cRet := cCodigo		EndCaseReturn(cRet)