Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:	TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI)
Função:	Autent. WebService JD OKTA (OFIA280)
País:	Brasil
Ticket:	22790459
Requisito/Story/Issue (informe o requisito relacionado) :	DVARMIL-7878

02. DESCRIÇÃO

Localização: .

Em que ponto? Ponto de entrada executado quando é gravado o orçamento e algumas movimentações como, clonagem e liberação. Ele será utilizado para enviar dados a um servidor de telemetria da totvs, geralmente usado para debugs de problemas mais complexos e recomendado pelo suporte caso necessário.

03. DEMAIS INFORMAÇÕES

Parâmetro:

Variável	Tipo	Descrição
cOrc	Caractere	Número do orçamento.
cProgra	Caractere	Programa que chamou o P.E..
cCodPec	Caractere	Código da peça (geralmente o B1_COD).
nQESTNA	Numérico	Número de estoque nível de atendimento.
nQTDINI	Numérico	Quantidade pedida pelo cliente.
cLOCAL	Caractere	Código do local (geralmente B2_LOCAL).
cDetAdc	Caractere	Detalhes adicionais quando requerido.
cFLAL	Caractere	Filial dos dados.

Retorno:

Não há.

Exemplo de utilização Advpl:

user function X001NAUN()
	local aData := PARAMIXB
	local oSqlHlp := DMS_SqlHelper():New()
	local oTelemetria := DMS_Telemetria():New()
	local lLoga := ! Empty(GETMV("MV_DMSTLM"))

	if lLoga
		cOrc    := iif(empty(aData[1]), "N/A", aData[1])
		cProgra := iif(empty(aData[2]), "N/A", aData[2])
		cCodPec := iif(empty(aData[3]), "N/A", aData[3])
		nQESTNA := iif(empty(aData[4]), -9999, aData[4])
		nQTDINI := iif(empty(aData[5]), -9999, aData[5])
		cLOCAL  := iif(empty(aData[6]), "N/A", aData[6])
		cDetAdc := iif(empty(aData[7]), "N/A", aData[7])
		cFLAL   := iif(empty(aData[8]), "N/A", aData[8])
		cCodPec := LEFT(cCodPec, GetSX3Cache("B1_COD", "X3_TAMANHO"))

		dbSelectArea("SB2")
		dbSetOrder(1)
		if SB2->(dbSeek(cFLAL + cCodPec + cLOCAL))
			nCALCES := SaldoSB2()
		else
			nCALCES := -9999
		endif
		
		aRegs := oSqlHlp:GetSelectJson({"B2_FILIAL", "B2_LOCAL", "B2_QATU"}, " SELECT B2_FILIAL, B2_LOCAL, B2_QATU FROM "+RetSqlName("SB2")+" WHERE B2_FILIAL = '" + cFLAL + "' AND B2_COD = '" + cCodPec + "' AND B2_LOCAL = '" + cLOCAL + "' AND D_E_L_E_T_ = ' ' ")
		jDadB2 := JsonObject():New()
		jDadB2['b2'] := aRegs

		cDetAdc += " - " + jDadB2:ToJson()
		oTelemetria:LogaBalcao(cOrc, cProgra, cCodPec, nQESTNA, nQTDINI, nCALCES, cLOCAL, cDetAdc, cFLAL)
	endif
return .t.

04. ASSUNTOS RELACIONADOS

Não se aplica