Histórico da Página
MT681ALXML - Alterar informações do XML da mensagem ProductionAppointment
Ponto de Entrada
Linha de Produto: | Protheus |
Segmento: | Manufatura |
Módulo: | SIGAPCP - Planejamento e Controle da Produção |
Parâmetro(s): | PARAMIXB (Objeto) -> Referência do objeto com as informações recebidas no XML da mensagem ProductionAppointment |
Ponto de Entrada: | MT681ALXML - Alterar informações do XML da mensagem ProductionAppointment |
País(es): | Todos |
| Idioma: | Português(Brasil) |
Banco(s) de Dados: | Todos |
Tabelas utilizadas: | |
Sistema(s) operacional(is): | Todos |
Versões/Release: | Microsiga_Protheus 12.1.19 |
Descrição: | Permite alterar as informações recebidas no XML da mensagem ProductionAppointment, antes de efetuar o processamento da mensagem. |
Localização: | Function MATI681 -> Adapter de apontamento de produção |
| Programa Fonte: | MATI681.prw |
| Retorno: | Nil |
| Observações: | Este ponto de entrada permite que as informações que foram recebidas no XML de apontamento de produção sejam modificadas, antes da realização do processamento da mensagem. Somente serão consideradas as informações que forem alteradas, das tags inferiores ao nível BusinessContent. Acessar o valor da ordem de produção. Tag: ProductionOrderNumber. |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#Include '"Protheus.ch'" User Function MT681ALXML() Local aAreaB1 := SB1->(GetArea()) //Área da tabela SB1 para restaurar no fim do processamento. Local cProd := "" //Variável para armazenar o código do produto. Local lLote := .F. //Variável para identificar se o produto possui controle de Lote. Local nX := 0 //Indicador para percorrer as listas de componentes e de refugos. Local lRastro := SuperGetMV("MV_RASTRO",.F.,"N") == "S" //Identifica se o parâmetro MV_RASTRO está ativado. Private oXmlRcv := PARAMIXB //Referência do objeto contendo as informações que foram recebidas no XML. Private aXmlWst := {} //Array para manipular as informações de lista de refugos. Private aCmpBaixa := {} //Array para manipular as informações da lista de componentes. /* Somente serão consideradas as informações Somente serão consideradas as informações que forem alteradas, das tags inferiores ao nível BusinessContent. As informações das tags MessageInformation e BusinessEvent, mesmo que alteradas, não serão utilizadas no processamento da rotina padrão. Para acessar o valor do XML, deverá ser utilizado a nomenclatura completa do XML até a TAG que se deseja o valor. O nome de cada TAG, sempre será precedido pelo caractere "_", e o seu valor é recuperado por meio é recuperado por meio do atributo Text. Exemplo: Exemplo: Acessar o valor da ordem de produção. Tag: ProductionOrderNumber. oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ProductionOrderNumber:Text Uma Uma boa prática para evitar erros de execução, é sempre antes de acessar o valor da TAG, verificar se as propriedades referentes à tag desejada existem no objeto. Para fazer essa verificação, utiliza-se a função Type. Exemplo: Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ProductionOrderNumber:Text") != "U" Se o retorno da função Type for diferente de U (Undefined), significa que o atributo existe no objeto, e pode ser acessado. */ //Ajusta o índice da tabela SB1 SB1->(dbSetOrder(1)) //Verifica se o produto do apontamento foi informado, e se o produto possui controle de lote. If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ItemCode:Text") != "U" .And. ; !Empty(oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ItemCode:Text) .And. lRastro cProd := oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ItemCode:Text //Se o parâmetro MV_RASTRO está como S, verifica se o produto possui controle de Lote. If SB1->(dbSeek(xFilial("SB1")+cProd)) If SB1->B1_RASTRO == "S" .Or. SB1->B1_RASTRO == "L" lLote := .T. EndIf EndIf EndIf lLote := .T. EndIf EndIf EndIf //Verifica se o lote do apontamento foi informado, e se é necessário remover. If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_LotCode:Text") != "U" .And. ; !Empty(oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_LotCode:Text) .And. ; (lLote == .F. .Or. lRastro == .F.) //Se o produto não possui controle de LOTE, //ou se o parâmetro MV_RASTRO estiver desativado, retira a informação do lote do XML. oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_LotCode:Text := "" EndIf //Recupera as informações da lista de refugos. //Verifica se o vencimento do lote do apontamento foi informado, e se é necessário remover. If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointmentsLotDueDate:Text") != "U" .And. ; Type(" !Empty(oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointmentsLotDueDate:_WasteAppointment"Text) != "U" If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment") == "A" aXmlWst := oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment ElseIf Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment") == "O" aXmlWst := {oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment} EndIf EndIf //Percorre a lista de refugos For nX := 1 To Len(aXmlWst) .And. ; (lLote == .F. .Or. lRastro == .F.) //Se o produto não possui controle de LOTE, //ou se o parâmetro MV_RASTRO estiver desativado, retira a informação do vencimento do lote do XML. oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_LotDueDate:Text := "" EndIf //Recupera as informações da lista de refugos. If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments") != "U" .And. ; Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment") != "U" If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment") == "A" aXmlWst := oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment ElseIf Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment") == "O" aXmlWst := {oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfWasteAppointments:_WasteAppointment} EndIf EndIf //Percorre a lista de refugos For nX := 1 To Len(aXmlWst) If (Type("aXmlWst["+cValToChar(nX)+"]:_LotCode:Text") != "U" .And. !Empty(aXmlWst[nX]:_LotCode:Text)) .Or.; (Type("aXmlWst["+cValToChar(nX)+"]:_SubLotCode:Text") != "U" .And. !Empty(aXmlWst[nX]:_SubLotCode:Text)) .Or.; (Type("aXmlWst["+cValToChar(nX)+"]:_LotDueDate:Text") != "U" .And. !Empty(aXmlWst[nX]:_LotDueDate:Text)) //Se o lote estiver preenchido, verifica a necessidade de retirar a informação do XML. lLote := .F. If Type("aXmlWst["+cValToChar(nX)+"]:_ScrapProduct:Text") != "U" .And. ; !Empty(aXmlWst[nX]:_ScrapProduct:Text) .And. lRastro //Se o parâmetro MV_RASTRO estiver ativado, verifica se o produto possui controle de Lote. cProd := aXmlWst[nX]:_ScrapProduct:Text If SB1->(dbSeek(xFilial("SB1")+cProd)) If SB1->B1_RASTRO == "S" .Or. SB1->B1_RASTRO == "L" lLote := .T. EndIf EndIf EndIf //Se o produto não possuir controle de lote, //ou se o parâmetro MV_RASTRO estiver desabilitado, retira a informação do lote do XML If lLote == .F. .Or. lRastro == .F. If Type("aXmlWst["+cValToChar(nX)+"]:_LotCode:Text") != "U" .And. ; !Empty(aXmlWst[nX]:_LotCode:Text) //Se o lote estiver preenchido, verifica a necessidade de retirar a informação do XML. lLote := .F. If Type("aXmlWst["+cValToChar(nX)+"]:_ScrapProduct:Text") != "U" .And. ; !Empty(aXmlWst[nX]:_ScrapProduct:Text) .And. lRastro //Se o parâmetro MV_RASTRO estiver ativado, verifica se o produto possui controle de Lote. cProd := aXmlWst[nX]:_LotCode:Text := "" EndIf If Type("aXmlWst["+cValToChar(nX)+"]:_SubLotCode:Text") != "U" .And. !Empty(aXmlWst[nX]:_ScrapProductSubLotCode:Text If SB1->(dbSeek(xFilial("SB1")+cProd)) If SB1->B1_RASTRO == "S" .Or. SB1->B1_RASTRO == "L" lLote := .T. EndIf EndIf EndIf //Se o produto não possuir controle de lote, //ou se o parâmetro MV_RASTRO estiver desabilitado, retira a informação do lote do XML If lLote == .F. .Or. lRastro == .F. aXmlWst[nX]:_LotCode) aXmlWst[nX]:_SubLotCode:Text := "" EndIf If Type("aXmlWst["+cValToChar(nX)+"]:_LotDueDate:Text") != "U" .And. !Empty(aXmlWst[nX]:_LotDueDate:Text) aXmlWst[nX]:_LotDueDate:Text := "" EndIf EndIf EndIf EndIf EndIf Next nX //Recupera as informações dos componentes consumidos. If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfSupplyOrders") != "U" .And. ; Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfSupplyOrders:_SupplyOrder") != "U" If Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfSupplyOrders:_SupplyOrder") == "A" aCmpBaixa := oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfSupplyOrders:_SupplyOrder ElseIf Type("oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfSupplyOrders:_SupplyOrder") == "O" aCmpBaixa := {oXmlRcv:_TotvsMessage:_BusinessMessage:_BusinessContent:_ListOfSupplyOrders:_SupplyOrder} EndIf EndIf //Percorre a lista de componentes For nX := 1 To Len(aCmpBaixa) If Type("aCmpBaixa["+cValToChar(nX)+"]:_LotCode:Text") != "U" .And. ; !Empty(aCmpBaixa[nX]:_LotCode:Text) //Verifica a necessidade de limpar o campo do Lote. lLote := .F. If Type("aCmpBaixa["+cValToChar(nX)+"]:_MaterialCode:Text") != "U" .And. ; . ; !Empty(aCmpBaixa[nX]:_MaterialCode:Text) .And. lRastro //Se MV_RASTRO = S, verifica se o produto possui controle de lote. cProd := aCmpBaixa[nX]:_MaterialCode:Text If SB1->(dbSeek(xFilial("SB1")+cProd)) If SB1->B1_RASTRO == "S" .Or. SB1->B1_RASTRO == "L" == "L" lLote := .T. EndIf EndIf EndIf EndIf EndIf EndIf //Se o produto não possuir controle de lote, //ou se o parâmetro MV_RASTRO estiver desabilitado, retira a informação do lote do XML If lLote == .F. .Or. lRastro == .F. aCmpBaixa[nX]:_LotCode:Text := "" EndIf EndIf EndIf EndIf Next nX //Restaura o posicionamento da tabela SB1. SB1->(RestArea(aAreaB1)) Return Nil |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas