Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Peterson Oliveira de Paula

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Peterson Oliveira de Paula

Gravado em

Chave

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


01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucoes_totvs_cross
SolucaoCross

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

TOTVS DMS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
Segmento Varejo

Módulo:

Modulos_cross_segmentos

Modulos_framework

Modulos_totvs_construcao

Modulos_totvs_juridico

Modulos_totvs_logistica

Modulos_totvs_manufatura

Modulos_totvs_rh

Modulos_totvs_saude

Modulos_totvs_prestadores_de_servicos

TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI)

Função:Solic. Garantia Jd (OFINJD15)
País:Brasil
Ticket:24370687
Requisito/Story/Issue (informe o requisito relacionado) :DVARMIL-10454


02. DESCRIÇÃO

Localização: Rotina Solic. Garantia Jd (OFINJD15) → Outras Ações → Atualiza O.S.

Em que ponto? Esse Ponto de Entrada será executado no processo para validação da digitação das informações nas Grids de Peças, Serviços e Outros Créditos na função de atualização de O.S. 

03. DEMAIS INFORMAÇÕES

Parâmetro:

Filial Corrente
NomeTipoDescrição

cFilAnt

Caractér

cReadVar

Caracter

Variavel em memória do campo

nPosGet

Numeric

Posição do aCols

lProcIni

Lógico

Executado pela rotina de pré-preenchimento


Retorno:

NomeTipoDescrição

aFiliaisVDlRet

Array

Array com as Filiais do segmento da Linha Agricola (Verde)

Lógico

Continua ou Aborta Operação

aFiliaisVD

Array

Array com as Filiais do Segmento da Linha Contrução (Amarela)


Exemplo de utilização Advpl:

Bloco de código
themeRDark
firstline1
titleOA160SEG OFJD15FO (AdvPL)
linenumberstrue
#include 'protheus.ch'

userUser functionFunction OA160SEGOFJD15FO(cReadVar,nPosGet,lProcIni)
	Local cFilAtu := ParamIXB[1]
	Local aFiliaisVD := {"0101","0102","0103","0104","0105","0106","0107","0108","0109","0110","0111","0112","0113"}
	Local aFiliaisAM := {"0150","0151","0152"}
	Local nx := 1

	For nx := 1 to Len(aFiliaisVD)
		if aFiliaisVD[nx] == cFilAtu
			return aFiliaisVD
		EndiF
	Next

	For nx := 1 to Len(aFiliaisAM)
		if aFiliaisAM[nx] == cFilAtu
			return aFiliaisAM
		endif
	Next

	UserException("Filial não disponível para geração do ELIPS")
return nillRet 

If lProcIni

	//**** Grid de Peças ****//
	If cReadVar == "M->PEC_GRUITE" 
		oGetPeca:aCols[nPosGet,aScan("aHPeca",{|x| AllTrim(x[2])=="OUT_TIPTEM"})] := M->PEC_TIPTEM
		M->VO3_GRUITE := M->PEC_GRUITE
	EndIf

   	//**** Grid de Serviços ****//
	If cReadVar == "M->SER_GRUSER" 
		oGetSrvc:aCols[nPosGet,aScan("aHSrvc",{|x| AllTrim(x[2])=="SER_TIPTEM"})] := M->SER_TIPTEM
		M->VO4_GRUSER := M->SER_GRUSER
	EndIf

	//**** Grid Outros Créditos ****//
	If cReadVar == "M->OUT_TIPTEM" 
		oGetOutr:aCols[nPosGet,aScan("aHOutr",{|x| AllTrim(x[2])=="OUT_TIPTEM"})] := M->OUT_TIPTEM
		M->VO3_TIPTEM := M->OUT_TIPTEM
	EndIf

EndIF

lRet := .T.
 
return lRet


04. ASSUNTOS RELACIONADOS

...