Este Ponto de Entrada é Válido a partir da Release 11.8

#include "rwmake.ch"

User Function NGIMPOS()

	Local ic    := 0
	Local cPerg := PadR("MNT675",Len(Posicione("SX1", 1, "MNT675", "X1_GRUPO")))
    
	If Type("ParamIxb") == "A" 
		
        dbSelectArea("STJ") 
		
        cOldAlias  := Alias() 
		
        nOldIndex  := IndexOrd() 
		
        nRegImpSTJ := Recno()

		        If MsgYesNo("Deseja Imprimir a O.S.?","ATENCAO") 
			
            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(cPerg+aMATSX1[ic][1])
				RecLock("SX1",.F.)
				SX1->X1_CNT01 := aMATSX1[ic][2] 
				MsUnlock("SX1") 
			Next ic

			If ExistBlock("MNTIMPOS") 
				
                ExecBlock("MNTIMPOS",.F.,.F.,ParamIxb) 
			Else 
				MNTR675(.f.) 
			EndIf

		EndIf 
		dbSelectArea(cOldAlias) 
		dbSetOrder(nOldIndex) 
		
            Else
                MNTR675(.F.,,,,,aMATSX1)
            Endif

        EndIf
        dbSelectArea(cOldAlias)
        dbSetOrder(nOldIndex)
        dbGoto(nRegImpSTJ)

	Else 
		    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.