Página 4 de 90. A exibir 891 resultados (0.335 segundos)
MNTA400COR - Semáforos das Ordens de Serviço
:= { ; {"NGSEMAFARO('!Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase')" , 'BR_VERDE' },; {"NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase' )" , 'BR_VERMELHO'},; {"NGSEMAFARO('Empty(STJ->TJ_TIPORETDT PE MNTA400COR - Cores dos semáforos das Ordens de Serviço na rotina de Retorno (MNTA400)
:= { ; {"NGSEMAFARO('!Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase')" , 'BR_VERDE' },; {"NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase' )" , 'BR_VERMELHO'},; {"NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIMDT PE MNTA2952 Gravacao de Ordem de Servico
campos de usuário na tabela de ordens de serviço ( STJ ). Localização: SIGAMNT: Atualizações > Controle de Oficina > Solicitação de Serviço … := ParamIXB[1] dbSelectArea( 'STJ' ) dbSetOrder( 1 ) If dbSeek( xFilial( 'STJ' ) + cOrder ) RecLock( 'STJ', .F. ) // CAMPO TJ_XYZ ÉDT PE NGIMPOS - Impressão de Ordem de Serviço
") == "A" dbSelectArea("STJ") cOldAlias := Alias() nOldIndex := IndexOrd() nRegImpSTJ := Recno() If MsgYesNo("Deseja Imprimir a O.S.?","ATENCAO") aMATSX1 := {{'01',ParamIxb[1]},; {'02',Replicate('Z',Len(stj->tj_plano))},; {'07',Space(Len(stj->tj_ccustoDT PE NGFIMOS - Finalização de Ordem de Serviço via Documento de Entrada da Nota Fiscal (MATXFUNB)
finalizar a O.S. " + cOrdem + " ?") dbSelectArea("STJ") dbSetOrder(1) If dbSeek(xFilial("STJ") + cOrdem) //Finaliza O.S. NGFINAL(STJ->TJ_ORDEM,STJ->TJ_PLANO,STJ->TJ_DTPRINI,STJ->TJ_HOPRINI,STJ->TJ_DTPRFIM,STJ->TJ_HOPRFIM) EndIf EndIf RestArea( aArea ) ReturnMNTA330F - Ordem de Serviço
("STJ") dbSetOrder(17) dbSeek(xFilial("STJ")+cPlano) While !Eof() .And. xFilial("STJ") == STJ->TJ_FILIAL .And. STJ->TJ_PLANO == cPlano MsgInfo("Ordem de Serviço gerada: " + STJ->TJ_ORDEM) dbSelectAreA("STJ") dbSkip() EndDoReturn Variáveis Nome Tipo Escopo Pode Alterar descriçãoDT PE MNTA330F - Alteração de ordem de serviço pelo Plano de Manutenção (MNTA330)
- - - #INCLUDE "PROTHEUS.CH" User Function MNTA330F() Local cPlano := STI->TI_PLANO dbSelectArea("STJ") dbSetOrder(17) dbSeek(xFilial("STJ")+cPlano) While !Eof() .And. xFilial("STJ") == STJ->TJ_FILIAL .And. STJ->TJ_PLANO == cPlano MsgInfo("Ordem de Serviço gerada: " + STJ->TJ_ORDEMFP0030 - Manutenção Processos Administrativos/Judiciais
ao Contribuinte; Sentença em Ação Ordinária Favorável ao Contribuinte e Confirmada pelo TRF; Acórdão do TRF Favorável ao Contribuinte; Acórdão do STJ em Recurso Especial … pelo TRF Acórdão do TRF Favorável ao Contribuinte Acórdão do STJ em Recurso Especial Favorável ao Contribuinte Acórdão do STF em Recurso Extraordinário FavorávelDT PE MNTA291A Gravacao Campos Especificos Ordem de Servico no Facilities
): Todos Ponto de Entrada Descrição: Ponto de Entrada que possibilita gravação de campos específicos na OS, tabela STJ (Ordem de Serviço), relacionada … Local cUser := SubStr(UsrRetName(TQB->TQB_CDSOLI),1,30) //Usuário que será adicionado à observação dbSelectArea("STJ") dbSetOrder(1) //TJ_FILIAL+TJ_ORDEMDT PE MNTA400A Campo especifico de motivo de cancelamento
Local oMenu := Nil Local nRec := ParamIXB[1] dbSelectArea("STJ") dbGoTo(nRec) cObs := STJ->TJ_MTCANC Define Msdialog oDlg Title "Cancelamento da O.S."+STJ->TJ_ORDEM From 18,20 To 35,75 Of oMainWnd @ 38,8 Say "Motivo do Cancelamento" Of oDlg Pixel @ 45,8 Get