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

User Function NGIMPOS()

    Local ic := 0

    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',Space(Len(stj->tj_ccusto))},; 

            {'07',Replicate('Z',Len(stj->tj_ccusto))},; 

            {'08',Space(Len(stj->tj_centrab))},; 

            {'09',Replicate('Z',Len(stj->tj_centrab))},; 

            {'10',Space(Len(stj->tj_codarea))},; 

            {'11',Replicate('Z',Len(stj->tj_codarea))},; 

            {'12',ParamIxb[2]},; 

            {'13',ParamIxb[2]},; 

            {'14',Dtoc(ParamIxb[3])},; 

            {'15',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

            If ExistBlock("MNTIMPOS") 

                ExecBlock("MNTIMPOS",.F.,.F.,ParamIxb) 

            Else 

                MNTR675(.f.) 

            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.