Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 , aArea, aAreaSTJ If cId == "CANCEL_VALID" //valida cancelamento da ordem If FWJsonDeserialize(oWS:GetContent(),@oParser) //Parse da string no formato Json If Empty( oParser:message )//verifica campo observação foi passado vazio Return "A observação do cancelamento é obrigatória." EndIf EndIf EndIf EndIf ElseIf cId == "FINISHED_ORDER" If FWJsonDeserialize(oWS:GetContent(), @oParser) aArea := GetArea() aAreaSTJ := STJ->(GetArea()) dbSelectArea("STJ") dbSetOrder(1) If dbSeek(xFilial("STJ") + oParser:order + oParser:plan) Reclock("STJ", .F.) STJ->TJ_DTPRINI := STJ->TJ_DTMRINI STJ->TJ_HOPRINI := STJ->TJ_HOMRINI STJ->TJ_DTPRFIM := STJ->TJ_DTMRFIM STJ->TJ_HOPRFIM := STJ->TJ_HOMRFIM MsUnlock() Endif RestArea(aAreaSTJ) RestArea(aArea) Endif ElseIf cId == "FILTER_PRODUCT" //adiciona filtro para busca de produtos Return " AND B1_GRUPO = '97'" EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas