import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: PLSXMLPROF - Correção de Códigos
Descrição:
Eventos
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".
Programa Fonte
PLSA973
Sintaxe
PLSXMLPROF - Correção de Códigos ( [ cTipo ], [ cCodRP ], [ cNum ], [ cNumImp ], [ cOrigem ], [ nIdx ], [ Data ], [ cHora ] ) --> cCodRP
Parâmetros:
Retorno
Exemplos
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) |