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: |
| ||||||||||
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 "rwmake.ch" |
User Function NGIMPOS() |
If
If Type("ParamIxb") == "A" |
DbSelectArea
dbSelectArea("STJ") |
cOldAlias := Alias()
nOldIndex := IndexOrd()
nRegImpSTJ := Recno() If MSGYESNO("Deseja Imprimir a
cOldAlias := Alias() nOldIndex := IndexOrd() nRegImpSTJ := Recno() If MsgYesNo("Deseja Imprimir a O.S.?","ATENCAO") |
aMATSX1 :=
aMATSX1 := {{'01',ParamIxb[1]},; |
{'06
{'02',Replicate('Z',Len(stj->tj_plano))},; {'07',Space(Len(stj->tj_ccusto))},; |
{'07
{'08',Replicate('Z',Len(stj->tj_ccusto))},; |
{'08
{'09',Space(Len(stj->tj_centrab))},; |
{'09
{'10',Replicate('Z',Len(stj->tj_centrab))},; |
{'10
{'11',Space(Len(stj->tj_codarea))},; |
{'11
{'12',Replicate('Z',Len(stj->tj_codarea))},; |
{'12
{'13',ParamIxb[2]},; |
{'13
{'14',ParamIxb[2]},; |
{'14
{'15',Dtoc(ParamIxb[3])},; |
{'15
{'16',Dtoc(ParamIxb[3])}} |
For ic := 1 To Len(aMATSX1)
DbSelectArea("SX1")
DbsetOrder(1)
DbSeek("MNT675 "+aMATSX1[ic][1])
RecLock("SX1",.F.)
SX1->X1_CNT01 := aMATSX1[ic][2]
MsUnlock("SX1")
Next ic
ExecBlock
If ExistBlock("MNTIMPOS") ExecBlock("MNTIMPOS",.F.,.F.,ParamIxb) |
Else
MNTR675(.f.)
Endif
EndIf
DbSelectArea(cOldAlias)
DbSetOrder(nOldIndex)
DbGoto(nRegImpSTJ)
MsgInfo("Nao sera possivel imprimir a ordem de servico devido
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") |
EndifReturn
EndIf Return .T. |