Página 4 de 66. A exibir 659 resultados (0.314 segundos)
DT PE NGETAPNEX - Alteração e inclusão de informações de insumo/etapa e campos de usuários nas rotinas de Ordem de Serviço
" dbSelectArea("STL") dbSetOrder(1) If dbSeek(xFilial("STL") + STJ->TJ_ORDEM) While !Eof() .And. xFilial("STL") == STL->TL_FILIAL .And. STJ->TJ_ORDEM == STL->TL_ORDEM RecLock("STL") STL->TL_LOCAL := "02" MsUnLock() MsgInfo("Local de estoque alterado.","Atenção") dbSkip() End EndIf EndIfDI_MANUAL_TOTVS_TCOP X Manutenção_Ativos (SIGAMNT) X Backoffice Protheus
Módulo Tabelas Miscelania/Custos/Custo Mensal MNTA494 Manutenção de Ativos STJ, STL, SB1, ST9, TRH, TRT, STS, STT, TRK, TRO, TRL, TRV, TRM, TQN, TQI … Custos Indiretos Descrição Custo Tabela Observação Como Cadastrar Custo Mão de Obra LaborCost STL Custo de mão de obra aplicado nas O.S. AplicaráMNTA4104 - Ordem de Serviço Manual
Function MNTA4104() Local iFor i:= 1 to Len(aGetIns) DbSelectArea("STL") DbSetOrder(1) If DbSeek( xFilial("STL")+cOSAtu+STL->TL_PLANO+aGETINS[i][1]+aGETINS[i][nTIP]+aGETINS[i][nCOD] ) RecLock("STL",.F.) STL->TL_NUMRMS := SZA->ZA_NUM MsUnlock("STL") EndIfNext i Return .tDT PE MNTA4104 - Grava campos de usuário após a confirmação de uma O.S. Manual (MNTA410)
) DbSelectArea("STL") DbSetOrder(1) If DbSeek( xFilial("STL")+cOSAtu+STL->TL_PLANO+aGETINS[i][1]+aGETINS[i][nTIP]+aGETINS[i][nCOD] ) RecLock("STL",.F.) STL->TL_NUMRMS := SZA->ZA_NUM MsUnlock("STL") EndIf Next i Return .T. documento_tecnicoDT PE MNTA4011 - Atualiza campos específicos após a gravação de um insumo no Retorno em Lote (MNTA401)
(MNTA401) que atualiza campos específicos após a gravação de um insumo na tabela STL Programa Fonte: MNTA401.prx Localização: SIGAMNT: Atualizações … () MsgInfo('Ponto de entrada MNTA4011 executado') dbSelectArea('STL') If STL->TL_TIPOREG == 'P' Reclock('STL',.F.) STL->TL_DESTINO := 'S' STLDI_MANUAL_TOTVS_TCOP X Manutenção_Ativos (SIGAMNT) X Backoffice RM
MNTA494 Manutenção de Ativos STJ, STL, SB1, ST9, TRH, TRT, STS, STT, TRK, TRO, TRL, TRV, TRM, TQN, TQI, TRX, SBM Detalhes Técnicos: O processo … Observação Como Cadastrar Custo Mão de Obra LaborCost STL Custo de mão de obra aplicado nas O.S. Aplicará à essa tag o custo gerado nos insumos de tipo MãoDT PE NGALTSCP - Inclui ou altera valores dos campos da SCP
com os Insumos(STL). cItemPos Caracter Sim. Código do Item. cPLN Caractér Sim. Plano da OS. Retorno: Nome Tipo Descrição … de produção Local aInsSTL := PARAMIXB[3] //Array com os Insumos(STL) Local cItemPos := PARAMIXB[4] //Código do Item Local cPlano := PARAMIXB[5MNTA420E - Ordem de Serviço Corretiva
. Retorno .T.(logico) Verdadeiro Exemplos User Function MNTA420E() Local i For i:= 1 to Len(aGetIns) DbSelectArea("STL") DbSetOrder(1) If DbSeek( xFilial("STL") + cOSAtu + "000000" + "0 " + aGETINS[i][nTIP] + aGETINS[i][nCOD] ) RecLock("STL",.F.) STL->TL_NUMRMS := SZA->ZA_NUM MsUnlock("STLDT PE NGGERASC11 - Alteração após a geração da Solicitação de Compras
aCampos Array Array com a chave da do insumo. [1] STJ->TJ_ORDEM - Número da ordem. [2] STJ->TJ_PLANO - Número do plano. [3] STL->TL_TIPOREG - Tipo do insumo. [4] STL->TL_CODIGO - Código do insumo. #INCLUDE "PROTHEUS.CH" User Function NGGERASC11() // Filial Ordem PlanoDT PE MNTA420E - Validações após inclusão de insumo previsto na rotina de O.S. Corretiva (MNTA420)
i For i:= 1 to Len(aGetIns) DbSelectArea("STL") DbSetOrder(1) If DbSeek( xFilial("STL") + cOSAtu + "000000" + "0 " + aGETINS[i][nTIP] + aGETINS[i][nCOD] ) RecLock("STL",.F.) STL->TL_NUMRMS := SZA->ZA_NUM MsUnlock("STL") EndIf Next i Return .T