Histórico da Página
Aviso |
---|
Este Ponto de Entrada é Válido a partir da Release 11.8 |
Chamada de relatório especifico do cliente ou mesmo padrão para a impressão de Ordem de Serviço.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||
Segmento: | Manufatura | ||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||
Rotina: |
|
MNTUTIL
|
MNTUTIL
Funções Genéricas
Chamados Relacionados
|
País(es): | Todos |
Banco(s) de Dados: | Todos |
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de |
entrada chamado após a geração de uma Ordem de Serviço, tem o objetivo de fazer a chamada de um relatório específico do cliente ou mesmo padrão para a impressão da Ordem de Serviço que foi inclusa. | |
Localização: | SIGAMNT: Atualizações/Ordens de Serviço/Corretiva |
Eventos:
Programa Fonte: |
MNTA420.PRX |
Função: |
NGIMPOS() | |||||
Retorno: |
|
|
|
|
Bloco de código | ||||
---|---|---|---|---|
|
| |
#include |
#include 'parmtype.ch'
User Function NGMOVSD3()
Local aFields := aClone(Paramixb)
Local nPos
If ( nPos := aScan(aFields, {|x| x[1] == 'D3_DOC' }) ) > 0
aFields[nPos][2] := GetSxENum("SD3", "D3_DOC")
EndIf
Return aFields
"rwmake.ch"
User Function NGIMPOS()
If Type("ParamIxb") == "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_ccusto))},;
{'08',Replicate('Z',Len(stj->tj_ccusto))},;
{'09',Space(Len(stj->tj_centrab))},;
{'10',Replicate('Z',Len(stj->tj_centrab))},;
{'11',Space(Len(stj->tj_codarea))},;
{'12',Replicate('Z',Len(stj->tj_codarea))},;
{'13',ParamIxb[2]},;
{'14',ParamIxb[2]},;
{'15',Dtoc(ParamIxb[3])},;
{'16',Dtoc(ParamIxb[3])}}
If ExistBlock("MNTIMPOS")
ExecBlock("MNTIMPOS",.F.,.F.,ParamIxb)
Else
MNTR675(.F.,,,,,aMATSX1)
Endif
EndIf
dbSelectArea(cOldAlias)
dbSetOrder(nOldIndex)
dbGoto(nRegImpSTJ)
Else
MsgInfo("Não será possível imprimir a ordem de serviço devido a"+chr(13);
+"problema na passagem de parâmetro para a função de impressão"+chr(13);
+"(Ponto de entrada NGIMPOS)"+chr(13)+chr(13);
+"Consulte o suporte...","NÃO CONFORMIDADE")
EndIf
Return .T. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas