Histórico da Página

Versões comparadas

Chave

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

...

Ponto de entrada

...

que permite a manipulação de informações do MNTNG

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina	Nome Técnico
MNTNG	Função do aplicativo MNT NG

Países:

Todos

Bancos de Dados:

Todos

Sistemas Operacionais:

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada para utilização no MNT NG que permite customizações nos processos inclusão, validação e cancelamento das ordens de serviço.em processos do MNTNG

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva.

Programa Fonte:

MNTNG.APW

Função:

MNTNG()

Parâmetros:

Posição

Tipo

Descrição

ParamIXB[1]

string

ID do local de execução do ponto de entrada.

ID	Descrição
CREATED_ORDER	Após a inclusão de uma ordem de serviço.
CREATE_VALID_ORDER	Antes da inclusão de uma ordem de serviço.
UPDATE_VALID_ORDER	Antes da alteração de uma ordem de serviço.
UPDATE_FINISH_ORDER	Após a confirmação da finalização, sendo permitido manipular as informações enviadas na finalização.
FINISHED_ORDER	Após a finalização de uma ordem de serviço.
FINISH_VALID_ORDER	Validação antes da finalização de uma ordem de serviço.

FINISH

CANCEL_

COUNTER_1

Após a confirmação da finalização, sendo que o campo contador 1 não deve ter sido informado no APP.

VALID	Validação antes do cancelamento de uma ordem de serviço.
CREATED_PLANNED_INPUT	Após incluir um

FINISH_COUNTER_2

Após a confirmação da finalização, sendo que o campo contador 2 não deve ter sido informado no APP.CANCEL_VALIDValidação antes do cancelamento de uma ordem de serviço.CREATED_PLANNED_INPUTApós incluir um

insumo previsto.

COUNTER_VALID_FINISH

Validação de contador na finalização.

FILTER_PRODUCT

Filtro para produtos.

FILTER_EQUIPMENT

Filtro para bens ou localizações.

FILTER_SERVICE

Filtro para serviços.

FILTER_COSTCENTER

Filtro para centros de custo.

FILTER_FAMILY

Filtro para famílias de bens.

FILTER_TOOL

Filtro para ferramentas.

FILTER_EXECUTOR

Filtro para executantes de S.S.

FILTER_AREA

Filtro para áreas da manutenção.

FILTER_THIRDPART

Filtro para terceiros.

DESCRIPTION_LOCALIZATION

Sincronização, ao gerar o arquivo que contém dados dos bens.

FILTER_ORDER

Filtro para ordens de serviço.

Informações

title	Observação

Este ID somente terá efeito ao acionado quando feito logout no aplicativo MNTNG.

FILTER_REQUEST

Filtro para solicitações de serviço.

Informações

title	Observação

Este ID somente terá efeito ao acionado quando feito logout no aplicativo MNTNG.

ParamIXB[2]obejctObjeto com referência ao webservice.Retorno:

O ponto de entrada é chamado em vários momentos dentro do fonte, na 2ª posição da estrutura do vetor é passado um ID que identifica qual é este momento. De acordo com o ID o retorno pode ser diferente, como citado na tabela abaixo:

ID	Tipo	Descrição
CREATED_ORDER	null	Sem retorno.
CREATE_VALID_ORDER	string	Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.
UPDATE_VALID_ORDER	string	Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.
FINISHED_ORDER	null	Sem retorno.
FINISH_VALID_ORDER	string	Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.
FINISH_COUNTER_1	numeric	Valor a ser reportado no contador 1 para o processo de finalização de O.S.
FINISH_COUNTER_2	numeric	Valor a ser reportado no contador 2 para o processo de finalização de O.S.
CANCEL_VALID	string	Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.
CREATED_PLANNED_INPUT	null	Sem retorno.
COUNTER_VALID_FINISH	string	Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.
FILTER_PRODUCT	string	Condição SQL que será inclusa na cláusula WHERE para tabela Produtos - SB1.
FILTER_EQUIPMENT	string	Condição SQL que será inclusa na cláusula WHERE para tabela Bens - ST9.
FILTER_SERVICE	string	Condição SQL que será inclusa na cláusula WHERE para tabela Serviços - ST4.
FILTER_COSTCENTER	string	Condição SQL que será inclusa na cláusula WHERE para tabela Centro de Custos - CTT.
FILTER_FAMILY	string	Condição SQL que será inclusa na cláusula WHERE para tabela Família de Bens - ST6.
FILTER_TOOL	string	Condição SQL que será inclusa na cláusula WHERE para tabela Ferramentas - SH4.
FILTER_AREA	string	Condição SQL que será inclusa na cláusula WHERE para tabela Área - STD.
FILTER_THIRDPART	string	Condição SQL que será inclusa na cláusula WHERE para tabela Terceiros - SA2.
DESCRIPTION_LOCALIZATION	string	String que será utilizada para localização do bem.
FILTER_ORDER	string	Condição SQL que será inclusa na cláusula WHERE para tabela Ordens de Serviço - STJ.
FILTER_REQUEST	string	Condição SQL que será inclusa na cláusula WHERE para tabela Solicitações de Serviço - TQB.

FILTER_WAREHOUSE

Filtro para locais de estoque (SB2)

Informações

title	Observação

Este ID somente terá efeito ao acionado quando feito logout no aplicativo MNTNG.

COMPANY_GROUP_IGNORE

Grupo de empresas que devem ser ignoradas pelo aplicativo

Aviso
Para a utilização do MNT NG via Mingle este ID para filtrar filiais não é considerado tendo em vista que a autenticação e permissão de acesso é realizada via Api Totvs. Qualquer restrição de acesso deve ser realizada via configurador Protheus.

SEARCH_FIELD_SB1

Nome do campo utilizado para pesquisa/busca de produto (insumo da ordem de serviço).

ParamIXB[2]

obejct

Conteúdo

CREATED_ORDER / CREATE_VALID_ORDER

 Bloco de código
languagexml
titleExemplo
linenumberstrue
collapsetrue
{ 
   "startDate":"20180326 17:56",
   "observation":"observação da ordem de serviço",
   "inputs":[ 
      { 
         "sublot":"",
         "location":"",
         "task":"0",
         "serialNumber":"",
         "destiny":"A",
         "code":"007",
         "type":"P",
         "warehouse":"01",
         "date":"20180321 17:56",
         "amount":1,
         "isDone":true,
         "unity":"PC",
         "lot

Eventos:

IDConteúdo do objeto no 2º parâmetro

CREATED_ORDER / CREATE_VALID_ORDER

Bloco de código

title	Exemplo do conteúdo
linenumbers	true
collapse	true

{ "startDate":"20180326 17:56", "observation":"observação da ordem de serviço", "inputs":[ { "sublot

":"",
         "

location

note":"observação insumo"

      }
   ],
   "

task

plan":"

LOCAL",
   "counter":[ 
      { 

"serialNumber":"",

destiny

datetime":"

20170128 10:00",
         "

code

value":

"007",

370
      }
   

"type

],
   "service":"

CORG2",

"endDate":"20180326 17:56",

warehouse

equipment":"

EMPILHADEIRA 002",

"code":"000000",

date

type":"

20180321 17:56

C",
   "checklist":[ 
      { 

"amount":1,

isDone

worker":

true

"1008",
         "

unity

isDone":

"PC"

true,
         "

lot

task":"0",
         "

note

step":"

observação insumo

MOTOLE"
      }
   ]

, "plan":"LOCAL

FINISHED_ORDER / FINISH_VALID_ORDER / / COUNTER_VALID_FINISH / UPDATE_FINISH_ORDER

Bloco de código

language	xml
title	Exemplo
linenumbers	true
collapse	true

{ 
   "startDate":"20180326 17:55",
   "

counter

observation":

[

"444",

{

"plan":"000000",

datetime

order":"

20170128 10:00

001007",

"value":370 } ], "service":"CORG2", "endDate":

"json":"{\"startDate\":\"20180326 17:

55\",

"equipment

\"observation\":\"

EMPILHADEIRA 002

teste\",

"code

\"inputs\":[{\"

000000

amount\"

, "type":"C", "checklist":[ { "worker":"1008", "isDone":true, "task":"0", "step":"MOTOLE" } ] }

FINISHED_ORDER / FINISH_VALID_ORDER / FINISH_COUNTER_1 / FINISH_COUNTER_2

Bloco de código

title	Exemplo do conteúdo
linenumbers	true
collapse	true

{ "startDate":"20180326 17:56", "plan":"000000", "order":"001008", "observation":"observ finaliza", JSON:"{"startDate":"20210126 16:43","observation":"","inputs":[],"plan":"000000","counter":[{"datetime":"20210126 16:44","value":0,"time":"16:44"}],"service":"CORGEN","endDate":"20210126 16:43","equipment":"0000000000000003","code":"000432","type":"C","checklist":[]}"

:1,\"isDone\":true,\"unity\":\"PC\",\"task\":\"0\",\"destiny\":\"A\",\"code\":\"005\",\"type\":\"P\",\"warehouse\":\"01\",\"date\":\"20180326 17:55\",\"note\":\"teste\"}],\"plan\":\"000000\",\"counter\":[{\"datetime\":\"20180104 08:05\",\"value\":1000}],\"service\":\"CORG2\",\"endDate\":\"20180326 17:55\",\"equipment\":\"EMPGEN001\",\"code\":\"001007\",\"type\":\"C\",\"checklist\":[]}",
   "counter":[

 
         "value":

370

1001,

TIME:"16:44"

         "datetime":"20180326 18:

06"
      }
   ],
   "hourCounter":"18:

06",
   "endDate":"20180326 17:

55",
   "fault":"01"
}

COUNTER

CANCEL_VALID

_FINISH

 Bloco de código
languagexml
titleExemplo

do conteúdo

linenumberstrue
collapsetrue
{ 

startDate

message":"

20180326 17:55", "observation":"444",

observação da ordem de serviço", //observação
   "plan":"000000", //código do plano da ordem
   "order":"

001007", "json":"{\"startDate\":\"20180326 17:55\",\"observation\":\"teste\",\"inputs\":[{\"amount\":1,\"isDone\":true,\"unity\":\"PC\",\"task\":\"0\",\"destiny\":\"A\",\"code\":\"005\",\"type\":\"P\",\"warehouse\":\"01\",\"date\":\"20180326 17:55\",\"note\":\"teste\"}],\"plan\":\"000000\",\"counter\":[{\"datetime\":\"20180104 08:05\",\"value\":1000}],\"service\":\"CORG2\",\"endDate\":\"20180326 17:55\",\"equipment\":\"EMPGEN001\",\"code\":\"001007\",\"type\":\"C\",\"checklist\":[]}", "counter":[ {

001006" //código da ordem de serviço
}

UPDATE_VALID_ORDER

Bloco de código

language	xml
title	Exemplo
linenumbers	true
collapse	true

{
   "plan":"000000",
   "code":"007822",
   "counter":[
],
   "type":"C",
   "equipment":"100002",
   "service":"COR1",
   "observation":"",
   "startDate":"20190708 09:00",
   "endDate":"20190708 10:58",
   "checklist":[
 
   ],
   "inputs":[
      {
         "code":"S001",
         "task":"0",
         "amount":3,
         "date":"20190708 10:00",
         "destiny":"A",
         "warehouse":"01",
         "isDone":true,
         "unity":"LT",
         "

value

type":

1001

"P",
         "

datetime

note":"

20180326 18:06

",

}

hourCounter

lot":"

18:06

",
         "

endDate

sublot":"

20180326 17:55

",

"fault":"01" }CANCEL_VALID Bloco de código

title	Exemplo do conteúdo
collapse	true

{

message

location":"

observação

",

ordem

serviço",

//observação

plan

serialNumber":"

000000

//código

plano

ordem

},

"order":"001006" //código da ordem de serviço }UPDATE_VALID_ORDER Bloco de código

title	Exemplo do conteúdo
collapse	true

{

   {
         "

plan

code":"

000000

S001",
         "

code

task":"

007822

0",
         "

counter

amount":

[ ]

1.33,

"type

      "date":"

20190708 09:00",
         "

equipment

destiny":"

100002

A",

"service

      "warehouse":"

COR1

01",
         "

observation

warehouseRequest":"",

"startDate":"20190708 09:00",

endDate

warehouseItem":"

20190708 10:58

",

"checklist":[

inputs

isDone":

[ {

false,
         "

code

unity":"

S001

LT",
         "

task

type":"

P",
         "

amount

note":

"",
         "

date

lot":"

20190708 10:00

",
         "

destiny

sublot":"

",
         "

warehouse

location":"

",
         "

isDone

serialNumber":

true,

""
      },

"unity":"LT",

{
         "

type

code":"

000036",
         "

note

task":"0",
         "

lot

amount":

1.33,
         "

sublot

startDate":"20190708 09:38",
         "

location

endDate":"20190708 10:58",
         "

serialNumber

isDone":

"" }, {

false,
         "

code

unity":"

S001

H",
         "

task

type":"

M",
         "

amount

percent":

1.33

0,
         "

date

note":"

20190708 09:00

"destiny":"A", "warehouse":"01", "warehouseRequest":"", "warehouseItem":"", "isDone":false, "unity":"LT", "type":"P", "note":"", "lot":"", "sublot":"", "location":"", "serialNumber":"" }, { "code":"000036", "task":"0", "amount":1.33, "startDate":"20190708 09:38", "endDate":"20190708 10:58", "isDone":false, "unity":"H", "type":"M", "percent":0, "note":"" } ] }

]
}

Retorno:

Tipo

Descrição

CREATED_ORDER

null

Sem retorno.

CREATE_VALID_ORDER

string

Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.

UPDATE_VALID_ORDER

string

Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.

FINISHED_ORDER

null

Sem retorno.

FINISH_VALID_ORDER

string

Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.

CANCEL_VALID

string

Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.

CREATED_PLANNED_INPUT

null

Sem retorno.

COUNTER_VALID_FINISH

string

Motivo quando a validação é negativa. Quando é positivo deve retornar vazio.

FILTER_PRODUCT

string

Condição SQL que será inclusa na cláusula WHERE para tabela Produtos - SB1.

FILTER_EQUIPMENT

string

Condição SQL que será inclusa na cláusula WHERE para tabela Bens - ST9/Localizações - TAF.

FILTER_SERVICE

string

Condição SQL que será inclusa na cláusula WHERE para tabela Serviços - ST4.

FILTER_COSTCENTER

string

Condição SQL que será inclusa na cláusula WHERE para tabela Centro de Custos - CTT.

FILTER_FAMILY

string

Condição SQL que será inclusa na cláusula WHERE para tabela Família de Bens - ST6.

FILTER_TOOL

string

Condição SQL que será inclusa na cláusula WHERE para tabela Ferramentas - SH4.

FILTER_AREA

string

Condição SQL que será inclusa na cláusula WHERE para tabela Área - STD.

FILTER_THIRDPART

string

Condição SQL que será inclusa na cláusula WHERE para tabela Terceiros - SA2.

DESCRIPTION_LOCALIZATION

string

String que será utilizada para localização do bem.

FILTER_ORDER

string

Condição SQL que será inclusa na cláusula WHERE para tabela Ordens de Serviço - STJ.

FILTER_REQUEST

string

Condição SQL que será inclusa na cláusula WHERE para tabela Solicitações de Serviço - TQB.

FILTER_WAREHOUSE

string

Condição SQL que será inclusa na cláusula WHERE para tabela Saldos físicos - SB2

FILTER_EXECUTOR

string

Condição SQL que será inclusa na cláusula WHERE e filtrar executantes de S.S. com o usuário logado.

UPDATE_FINISH_ORDER

object

JSON contendo informações da finalização da O.S.

COMPANY_GROUP_REJECT

array

Array com os grupos de empresas que devem ser ignorados pelo app

Aviso
Para a utilização do MNT NG via Mingle este ID para filtrar filiais não é considerado tendo em vista que a autenticação e permissão de acesso é realizada via Api Totvs. Qualquer restrição de acesso deve ser realizada via configurador Protheus.

SEARCH_FIELD_SB1

STRING

Nome do campo utilizado para realizar a pesquisa/busca de produto (insumo da ordem de serviço.)

Bloco de código

language	sql
title	Exemplo de ponto de entrada mntng.prw
linenumbers	true
collapse	true

#include "PROTHEUS.ch"
User Function MNTNG()
  
    Local cId := PARAMIXB[1] //Indica o momento da chamada do PE
    Local oWS 
    Local oParser
    Local aArea
    Local aAreaSTJ
    Local nInput := 0
    Local aDate
    Local cType
    Local lIsDone
    Local cTask
    Local cCode
    Local nAmount
    Local cOrder
    Local cPlan
    Local aDate
    Local lOk
	Local cAddress := ""
	Local cCodBem  := ""

	If cId != 'COMPANY_GROUP_IGNORE'
 		oWS := PARAMIXB[2] //Objeto com referência ao webservice
	EndIf

    If cId == "CREATE_VALID_ORDER" .OR. cId == "UPDATE_VALID_ORDER" //valida inclusão e alteração da ordem
        //Bloco a seguir realiza validações dos insumos
        If FWJsonDeserialize(oWS:GetContent(),@oParser) //Parse da string no formato Json

Bloco de código

language	sql
title	Exemplo de ponto de entrada mntng.prw
linenumbers	true
collapse	true

#include "PROTHEUS.ch"
User Function MNTNG()
  
    Local cId := PARAMIXB[1] //Indica o momento da chamada do PE
    Local oWS := PARAMIXB[2] //Objeto com referência ao webservice
    Local oParser
    Local aArea
    Local aAreaSTJ
    Local nInput := 0
    Local aDate
    Local cType
    Local lIsDone
    Local cTask
    Local cCode
    Local nAmount
    Local cOrder
    Local cPlan
    Local aDate
    Local lOk
	Local cAddress := ""
	Local cCodBem  := ""

    If cId == "CREATE_VALID_ORDER" .OR. cId == "UPDATE_VALID_ORDER" //valida inclusão e alteração da ordem
        //Bloco a seguir realiza validações dos insumos
        If FWJsonDeserialize(oWS:GetContent(),@oParser) //Parse da string no formato Json
            If AttIsMemberOf( oParser, "inputs" ) .And. Len( oParser:inputs ) > 0

                cOrder  := IIf( AttIsMemberOf( oParser, 'code' ), oParser:code, '' )
                cPlan   := IIf( AttIsMemberOf( oParser, 'plan'  ), oParser:plan, '000000' )
                //Bloco abaixo realiza validações nos insumos
                For nInput := 1 To Len( oParser:inputs )

                    oInput := oParser:inputs[ nInput ]

                    cType   := IIf( AttIsMemberOf( oInput , 'type'  ), oInput:type, '' )
                    lIsDone := IIf( AttIsMemberOf( oInput , 'isDone'), oInput:isDone, .F. )
                    
                    //Neste exemplo haverá validações somente para produtos realizados
                    If cType != "P" .Or. !lIsDone 
                        Loop
                    EndIf

                    aDate   := { dDatabase, '08:00' }
                    lOk     := .T.

                    If AttIsMemberOf( oInput, "startDate" )
                        aDate := StrTokArr( oInput:startDate, " " )
                    ElseIf AttIsMemberOf( oInput, "date" )
                        aDate := StrTokArr( oInput:date, " " )
                    EndIf
                    aDate := { STOD( aDate[1] ), aDate[2] }
                    
                    //Neste exemplo haverá validações somente quando informar data anterior a data atual
                    If aDate[1] >= dDatabase
                        Loop
                    EndIf

                    cTask   := IIf(If AttIsMemberOf( oInput , 'task'), oInput:task, '' )
     oParser, "inputs" ) .And. Len( oParser:inputs ) > 0

               cCode cOrder  := IIf( AttIsMemberOf( oInput oParser, 'code' ), oInputoParser:code, '' )
                  cPlan  nAmount := IIf( AttIsMemberOf( oInput oParser, 'amountplan'  ), oInputoParser:amountplan, 0 )

                    If cId == "CREATE_VALID_ORDER"
 '000000' )
                       lOk := .F.
  //Bloco abaixo realiza validações nos insumos
             Else
   For nInput := 1 To Len( oParser:inputs )

              
      oInput := oParser:inputs[ nInput ]

              /*Trecho abaixo verifica se o insumo jácType está gravado no banco
         := IIf( AttIsMemberOf( oInput , 'type'  ), oInput:type, '' )
                   caso existalIsDone não:= háIIf( necessidadeAttIsMemberOf( de validação*/

    oInput , 'isDone'), oInput:isDone, .F. )
                    dbSelectArea("STL")
                    //Neste exemplo haverá validações somente dbSetOrder(para 1produtos )realizados
                    If cType !=  If"P" .Or. !dbSeek( xFilial('STL') + PADR( cOrder, Len( STL->TL_ORDEM ) )+ ;
lIsDone 
                        Loop
                    PADR( cPlan, Len( STL->TL_PLANO ) ) + PADR( cTask, Len( STL->TL_TAREFA ) ) + ;
EndIf

                    aDate   := { dDatabase, '08:00' }
                    lOk    cType + PADR( cCode, Len( STL->TL_CODIGO ) ) )
:= .T.

                    If AttIsMemberOf( oInput, "startDate" )
          lOk := .F.
            aDate := StrTokArr( oInput:startDate, " " )
      Else
              ElseIf AttIsMemberOf( oInput, "date" )
          lOk := .F.
            aDate := StrTokArr( oInput:date, " " )
          //Verificação abaixo para garantir que o insumo não existe no bancoEndIf
                    aDate := { STOD( aDate[1] ), aDate[2] }
 While !STL->( Eof() ) .AND. STL->TL_FILIAL + STL->TL_ORDEM + STL->TL_PLANO +;
           
                     STL->TL_TAREFA + STL->TL_TIPOREG + STL->TL_CODIGO == xFilial('STL') + PADR( cOrder, Len( STL->TL_ORDEM ) )+ ;
//Neste exemplo haverá validações somente quando informar data anterior a data atual
                    If aDate[1] >= dDatabase
                 PADR( cPlan, Len( STL->TL_PLANO ) ) + PADR(Loop
 cTask, Len( STL->TL_TAREFA ) ) + ;
             EndIf

                    cTask   cType:= +IIf( PADRAttIsMemberOf( oInput cCode, Len( STL->TL_CODIGO ) )

'task'), oInput:task, '' )
                    cCode   := IIf( AttIsMemberOf( oInput , 'code'), oInput:code, '' )
          If Val( STL->TL_SEQRELA ) > 0 ; //verifica se é insumo realizado
              nAmount := IIf( AttIsMemberOf( oInput , 'amount'), oInput:amount, 0 )

                    If cId == "CREATE_VALID_ORDER"
         .And. nAmount == STL->TL_QUANTID //comparação de quantidade
         lOk := .F.
                    Else
     lOk := .T. //já está gravado e não há necessidade de validar
        
                        /*Trecho abaixo verifica se Exit
o insumo já está gravado no banco
                          EndIf
  caso exista não há necessidade de validação*/

                        dbSelectArea("STL")
                        dbSetOrder( 1 )
      dbSkip()
                  If !dbSeek( xFilial('STL') + PADR( cOrder, Len( STL->TL_ORDEM ) )+ EndDo
;
                                    PADR( cPlan, EndIf
           Len( STL->TL_PLANO ) ) + PADR( cTask, Len( STL->TL_TAREFA ) ) + ;
         EndIf

                    If !lOk
      cType + PADR( cCode, Len( STL->TL_CODIGO ) ) )
          Return 'Não é permitido realizar insumos do tipo produto com a data retroativa. ' + ;
   lOk := .F.
                        Else
       'Verifique o insumo/produto ' + cCode + ' data ' + Dtoc( aDate[1] )
        lOk := .F.
          EndIf

                Next nInput
 //Verificação abaixo para garantir que o insumo não existe no banco
 EndIf
        EndIf
    ElseIf cId == "CANCEL_VALID" //valida cancelamento da ordem
        If FWJsonDeserialize(oWS:GetContent(),@oParser) //Parse da string no formato Json
    While !STL->( Eof() ) .AND. STL->TL_FILIAL + STL->TL_ORDEM + STL->TL_PLANO +;
        If Empty( oParser:message )//verifica campo observação foi passado vazio
                Return "A observação do cancelamento é obrigatória."
            EndIf
STL->TL_TAREFA + STL->TL_TIPOREG + STL->TL_CODIGO == xFilial('STL') + PADR( cOrder, Len( STL->TL_ORDEM ) )+ ;
          EndIf
     
	ElseIf cId == "FINISH_VALID_ORDER"
	
		If FWJsonDeserialize(oWS:GetContent(), @oParser)
			If Empty( oParser:observation ) //verifica campo observação foi passado vazio
       PADR( cPlan, Len( STL->TL_PLANO ) ) + PADR( cTask, Return "Campo observação deve ser informado."
Len( STL->TL_TAREFA ) ) + ;
                  EndIf
		EndIf
	
     ElseIf cId == "FINISHED_ORDER"       
   cType + PADR( cCode,  If FWJsonDeserialize(oWS:GetContent(), @oParser)
Len( STL->TL_CODIGO ) )

             
            aArea := GetArea()
     If Val( STL->TL_SEQRELA ) > 0 ; aAreaSTJ := STJ->(GetArea())
 
 //verifica se é insumo realizado
            dbSelectArea("STJ")
            dbSetOrder(1)
            If dbSeek(xFilial("STJ") + oParser:order + oParser:plan)
   .And. nAmount == STL->TL_QUANTID //comparação de quantidade
             Reclock("STJ", .F.)
                STJ->TJ_DTPRINI := STJ->TJ_DTMRINI
    lOk := .T. //já está gravado e não há necessidade de validar
 STJ->TJ_HOPRINI := STJ->TJ_HOMRINI
                STJ->TJ_DTPRFIM := STJ->TJ_DTMRFIM
               Exit
 STJ->TJ_HOPRFIM := STJ->TJ_HOMRFIM
                MsUnlock()
            Endif
 EndIf
            RestArea(aAreaSTJ)
            RestArea(aArea)
        Endif
dbSelectArea("STL")
           
    ElseIf cId == "FILTER_PRODUCT" //adiciona filtro para busca de produtos
       Return "dbSkip()
 AND B1_GRUPO = '97'"

	ElseIf cId == "DESCRIPTION_LOCALIZATION" // Altera descrição de localização do bem
    	cCodBem := PARAMIXB[3]

        dbSelectArea("ST9")
EndDo
            dbSetOrder(1)
         If dbSeek( xFilial("ST9") + cCodBem ) .And. !Empty( ST9->T9_CLIENTE + ST9->T9_LOJACLI )
 EndIf
                    cAddressEndIf

 := Posicione("SA1",1,xFilial("SA1") + ST9->T9_CLIENTE + ST9->T9_LOJACLI,"SA1->A1_END")
        EndIf

      If !lOk
 Return Alltrim( cAddress )
	
	ElseIf cId == 'FILTER_ORDER'

    	Return ' AND STJ.TJ_DTMPINI = ' + ValToSQL( cToD( '24/11/2020' ) )
  Return 'Não é permitido realizar insumos 
do tipo produto com ElseIfa cIddata ==retroativa. 'FILTER_REQUEST'

 + ;
     	Return ' AND TQB.TQB_DTABER = ' + ValToSQL( cToD( '24/11/2020' ) )
	
	ElseIf cId == 'FINISH_COUNTER_1'

                  aAreaSTP := STP->( GetArea() )
 'Verifique o insumo/produto ' + cCode + ' data aAreaSTJ' := STJ->( GetArea() )

+ Dtoc( aDate[1] )
                  cCode  := Posicione( 'STJ', 1, xFilial( 'STJ' ) + oWS:order + oWs:plan, 'TJ_CODBEM' )
EndIf

                Next nInput
     cDate  := StrTokArr( oWs:endDate, ' ' )[1]EndIf
        EndIf
  cHour  := oWs:counter[1]:time

      ElseIf cId == "CANCEL_VALID" //valida cancelamento da ordem
    dbSelectArea( 'STP' )
  If FWJsonDeserialize(oWS:GetContent(),@oParser) //Parse da string no formato Json
 dbSetOrder( 5 ) // TP_FILIAL + TP_CODBEM + TP_DTLEITU + TP_HORA
 If Empty( oParser:message )//verifica campo observação foi passado vazio
 dbSeek(  xFilial( 'STP') + cCode + cDate + cHour, .T. )
    Return "A observação do cancelamento é obrigatória."
          If STP->( !EoF() )
 EndIf
        EndIf
       If STP->TP_CODBEM
	ElseIf cId == cCode .And. ( STP->TP_DTLEITU <= sToD( cDate ) .Or.;
         "FINISH_VALID_ORDER"
	
		If FWJsonDeserialize(oWS:GetContent(), @oParser)
			If Empty( oParser:observation ) //verifica campo observação foi passado vazio
           ( STP->TP_DTLEITU == sToD( cDate) .And. STP->TP_HORA <= cHour ) )Return "Campo observação deve ser informado."
            EndIf
		EndIf
	
    ElseIf cId == "FINISHED_ORDER" 
      
        If FWJsonDeserialize(oWS:GetContent(), @oParser)
    nCount := STP->TP_POSCONT

       
        Else

    aArea := GetArea()
            aAreaSTJ  dbSkip(-1:= STJ->(GetArea())
 
 
            dbSelectArea("STJ")
       If STP->( !BoF() ) .And. STP->TP_CODBEM == cCode
 dbSetOrder(1)
            If dbSeek(xFilial("STJ") + oParser:order + oParser:plan)
        nCount  := STP->TP_POSCONT
     Reclock("STJ", .F.)
              
  STJ->TJ_DTPRINI := STJ->TJ_DTMRINI
                EndIf

  STJ->TJ_HOPRINI := STJ->TJ_HOMRINI
             EndIf

   STJ->TJ_DTPRFIM := STJ->TJ_DTMRFIM
     Else

           STJ->TJ_HOPRFIM    dbSkip(-1)
:= STJ->TJ_HOMRFIM
               If STP->( !BoF MsUnlock()
 ) .And. STP->TP_CODBEM == cCode

       Endif
 
            nCount := STP->TP_POSCONTRestArea(aAreaSTJ)
            RestArea(aArea)
        Endif
         
    ElseIf cId EndIf

          EndIf
== "FILTER_PRODUCT" //adiciona filtro para busca de produtos
       Return " AND RestArea( aAreaSTJ )
          RestArea( aAreaSTP )
 
   B1_GRUPO = '97'"

	ElseIf cId == "DESCRIPTION_LOCALIZATION" // Altera descrição de localização do bem
    	cCodBem := PARAMIXB[3]

       Return nCount dbSelectArea("ST9")
         dbSetOrder(1)
    ElseIf cId == 'FINISH_COUNTER_2'

          aAreaTPP := TPP->( GetArea() )
 If dbSeek( xFilial("ST9") + cCodBem ) .And. !Empty( ST9->T9_CLIENTE + ST9->T9_LOJACLI )
            aAreaSTJcAddress := STJ->( GetArea() )

Posicione("SA1",1,xFilial("SA1") + ST9->T9_CLIENTE + ST9->T9_LOJACLI,"SA1->A1_END")
        EndIf

   cCode  := Posicione( 'STJ', 1, xFilial( 'STJ' ) + oWS:order + oWs:plan, 'TJ_CODBEM' ) Return Alltrim( cAddress )
	
	ElseIf cId == 'FILTER_ORDER'

    	Return ' AND STJ.TJ_DTMPINI = ' cDate+  := StrTokArr( oWs:endDate, ' ' )[1]
ValToSQL( cToD( '24/11/2020' ) )
        
    cHourElseIf cId :== oWs:counter[1]:time'FILTER_REQUEST'

    	Return ' AND TQB.TQB_DTABER =  dbSelectArea' + ValToSQL( cToD( 'TPP'24/11/2020' ) )

	ElseIf cId == 'UPDATE_FINISH_ORDER'

       dbSetOrder( 5 ) // TPP_FILIAL + TPP_CODBEM + TPP_DTLEIT + TPP_HORAIf AttIsMemberOf( oWS, 'counter' )

          dbSeek( xFilial( 'STP') + cCode +If cDate + cHour, .T. )Len( oWS:counter ) > 0

          
          If TPP->( !EoF() )
oWS:counter[1]:value := 3334
               If TPP->TPP_CODBEM == cCode .And. ( TPP->TPP_DTLEIT <= sToD( cDate ) .Or.;
 oWS:counter[1]:time  := '10:10'

               EndIf

        ( TPP->TPP_DTLEIT == sToD( cDate ) .And. TPP->TPP_HORA <= cHour ) )
 If Len( oWS:counter ) > 1

                    oWS:counter[2]:value := 3334
                    nCountoWS:counter[2]:time  := TPP->TPP_POSCONT'10:10'

               ElseEndIf

          EndIf

          dbSkip(-1)
If AttIsMemberOf( oWS, 'observation' )
		
               oWS:observation := 'ALTERADO PELO  If TPP->( !BoF() ) .And. TPP->TPP_CODBEM == cCodeP.E. MNTNG'

	      EndIf

          Return oWS
 
    EndIf
 
Return

Bloco de código

language	sql
title	Exemplo do id FILTER_WAREHOUSE
collapse	true

#include "PROTHEUS.ch"
User Function MNTNG()
  
    Local nCountcId := TPP->TPP_POSCON
      PARAMIXB[1] //Indica o momento da chamada do PE

	If cId == 'FILTER_WAREHOUSE'
		Return " AND B2_LOCAL = '01' "
	EndIf

Return

Bloco de código

language	sql
title	Exemplo do id COMPANY_GROUP_IGNORE
collapse	true

#include "PROTHEUS.ch"
User Function MNTNG()
  
    Local cId := PARAMIXB[1] //Indica o momento da chamada do PE

	If cId == 'COMPANY_GROUP_IGNORE'
		Return  {"T1", "T2"} // Indica os grupos que devem ser ignorados pelo app
	EndIf

Return

Bloco de código

language	sql
title	Exemplo do id FILTER_EXECUTOR
collapse	true

#include "PROTHEUS.ch"
User Function MNTNG()
   
    Local cId    := PARAMIXB[1] //Indica o momento da chamada do PE
    Local cEmail
 
    If cId == 'FILTER_EXECUTOR'              
                    EndIf

               EndIf

          Else

               dbSkip(-1)

               If TPP->( !BoF() ) .And. TPP->TPP_CODBEM == cCode

        cEmail := PARAMIXB[3] //Indica o email do usuário logado
       nCount := TPP->TPP_POSCON
              Return " AND TQ4_EMAIL1 = " + ValtoSql( cEmail )
    EndIf

Return

Bloco de código

language	sql
title	Exemplo do id SEARCH_FIELD_SB1
collapse	true

#include "PROTHEUS.ch"
User Function MNTNG()
      
    Local cId := PARAMIXB[1] //Indica o momento da chamada do  EndIf

          EndIf

PE
 
    If cId     RestArea( aAreaSTJ )== 'SEARCH_FIELD_SB1'
        Return  RestArea( aAreaTPP )
 
          Return nCount
 
    EndIf
 "B1_FAMILY" // indica o nome do campo para pesquisa de produto
    EndIf

Return

Árvore de páginas

Versões comparadas

Versão antiga 45

Nova versão Atual

Chave

Ponto de entrada

que permite a manipulação de informações do MNTNG

Características do Requisito

Ponto de Entrada