OXITIPOS - Retorno do tipo de Ordem de Serviço

Este Ponto de Entrada permite retornar para a TAG do XML, o tipo de ordem de serviço.

User Function OXITIPOS()
cTipTpo := ParamIxb[01]

if Alltrim(cTipTpo) $ "RP/RS/CP/CS"
cTipOs := "C"
Elseif Alltrim(cTipTpo) $ "FPP/FPS"
cTipOs := "F"
Elseif Alltrim(cTipTpo) $ "AC/AS"
cTipOs := "A"
Elseif Alltrim(cTipTpo) $ "GP/GS/GP33/GS33/GP53/GS53/GP73/GS73/GP93/GS93"
cTipOs := "G"
Elseif Alltrim(cTipTpo) $ "CI/IS"
cTipOs := "I"
Elseif Alltrim(cTipTpo) $ "PR/SR"
cTipOs := "R"
Else
cTipOs := "C"
Endif

Return(cTipOs)

Português(Brasil)

Todas

Todos

Todas

cTipTpo = "Tipo de Tempo"

cTipOs = "Tipo de Ordem de Serviço

cLinha += "<quantidadeServico>"+Alltrim(PADR(Alltrim(str(1)),10))+"</quantidadeServico>"+CHR(13)+CHR(10)
cLinha += "<descontoUnitServico>"+Alltrim(PADR(Alltrim(str((cQryVSC)->VSC_VALDES)),10))+"</descontoUnitServico>"+CHR(13)+CHR(10)
cLinha += "<respostaReparo>"+Alltrim(PADR(VO6->VO6_DESSER,250))+"</respostaReparo>"+CHR(13)+CHR(10)
cLinha += "</detalhesServicos>"+CHR(13)+CHR(10)
dbSelectArea("VOI")
dbSetOrder(1)
dbSeek(xFilial("VOI")+(cQryVSC)->VSC_TIPTEM)
if VOI->VOI_SITTPO == "3"
cTipOs := "I"
Elseif VOI->VOI_SITTPO == "2"
cTipOs := "G"
Else
cTipOs := "C"
Endif
If ( ExistBlock("OXITIPOS") )
cTipOs := ExecBlock("OXITIPOS",.f.,.f.,\{(cQryVSC)->VSC_TIPTEM\})
EndIf

nSeq += 1
dbSelectArea(cQryVSC)
(cQryVSC)->(dbSkip())

Enddo
(cQryVSC)->(dbCloseArea())

cLinha += "</itensOS>"+CHR(13)+CHR(10)
cLinha += "<ordemServico>"+CHR(13)+CHR(10)

if cTIPCli == "U"
cLinha += "<tipoCliente>"+"U"+"</tipoCliente>"+CHR(13)+CHR(10)
Else
cLinha += "<tipoCliente>"+"P"+"</tipoCliente>"+CHR(13)+CHR(10)
Endif
cLinha += "<tipoOS>"+cTipOs+"</tipoOS>"+CHR(13)+CHR(10)
cLinha += "<formaPagamento>"+"PP"+"</formaPagamento>"+CHR(13)+CHR(10)

OFIXI018/OFIXI019