Microsoft Dynamics Forums Homepage

Forum Home Forum Home > Microsoft Dynamics SL (Solomon) > SL - Customization and Integration
  New Posts New Posts RSS Feed - System Message 10092
  FAQ FAQ  Forum Search   Register Register  Login Login


System Message 10092

 Post Reply Post Reply
Author
Message
CJoel View Drop Down
MicrosoftDynamicsForums.com Member
MicrosoftDynamicsForums.com Member


Joined: November 14 2018
Status: Offline
Points: 2
Post Options Post Options   Thanks (0) Thanks(0)   Quote CJoel Quote  Post ReplyReply Direct Link To This Post Topic: System Message 10092
    Posted: November 14 2018 at 3:26am
Saludos a toda la comunidad. Tengo un problema con el error "Mensaje del sistema 10092" al momento de Guardar la información de una pantalla personalizada que estoy realizando desde cero. El mensaje indica lo siguiente "Tipo de registro especificado sgprovgastodist no está en la vista actual. Contexto: insertar".

Esta tabla está asociada al nivel 1 de la pantalla como detalle a través de SAFGrid1. Les hago llegar en el mensaje el código.

Option Explicit On
Option Strict Off
Imports Microsoft.Dynamics.SL.ObjectModel
Friend Class Form1
    Inherits System.Windows.Forms.Form

    Protected m_IsInitializing As Boolean
    Protected ReadOnly Property IsInitializing() As Boolean
        Get
            Return m_IsInitializing
        End Get
    End Property

    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        TotalProv = 0 : Correlativo = ""


        ' Load all the forms needed for this application
        'Call LoadForm(fSL01001)

        ' Initialize the application as a Solomon Application
        Call ApplInit()


        ' Call Set Address for the tables that will have fields displayed on the scree,
        ' or that you would like customization manager to be able to use
        'Call SetAddr(LEVEL0, "bxSLSample", bxSLSample, nxSLSample)
        Call SetAddr(NOLEVEL, "bBatch", bBatch, nBatch)
        Call SetAddr(NOLEVEL, "bPcSetup", bPCSetup, nPCSetup)
        Call SetAddr(LEVEL0, "bSGProvGasto", bSGProvGasto, nSGProvGasto)
        Call SetAddr(LEVEL1, "bSGProvGastoDist", bSGProvGastoDist, nSGProvGastoDist)

        ' Define the cursors that are used by the application

        ' This is an example for a table in the System Database
        'Call SqlCursor(c1, LEVEL0 + SqlSystemDb)

        ' This is an example for a table in an Application Database
        'Call SqlCursor(c1, LEVEL0 )
        Call SqlCursor(CSR_Batch, NOLEVEL)
        Call SqlCursorEx(CSR_ProvGasto, LEVEL0, "CSR_ProvGasto", "SGProvGasto", "SGProvGasto")
        Call SqlCursorEx(CSR_ProvGastoDist, LEVEL1, "CSR_ProvGastoDist", "SGProvGastoDist", "SGProvGastoDist")


        ' Call the screen init function
        Call ScreenInit()



        serr1 = SqlFetch1(CSR_ProvGasto, "Select * from SGProvGasto", bSGProvGasto)
        serr1 = SqlFetch1(CSR_ProvGastoDist, "Select * from SGProvGastoDist", bSGProvGastoDist)
        serr1 = SqlFetch1(c1, "Select * from pcsetup", bPCSetup)

        'Determina el periodo actual y muestra en pantalla
        If (serr1 <> NOTFOUND) Then PeriodoActProyectos = Trim(bPCSetup.CurrPerNbr)
        Call SqlFree(c1)
        PeriodoActual = Microsoft.VisualBasic.Left(PeriodoActProyectos, 2) + Microsoft.VisualBasic.Right(Trim(PeriodoActProyectos), 4)
        bBatch.User6 = Trim(PeriodoActual)
        bSGProvGasto.Periodo = Trim(PeriodoActual)
        Call DispFields(Me, xPeriodoProvision, xPeriodoProvision)
        Call DispFields(Me, cPeriodo, cPeriodo)

        MemHandle_Spread1 = DetailSetup(CSR_ProvGastoDist, SafGrid1, PNULL, bSGProvGastoDist, PNULL, PNULL, PNULL)

        Call SetButton(TbDeleteButton, LEVEL0, False)
        'Call SetStatusBarText(Assembly.GetExecutingAssembly().GetName().Version.ToString, String.Empty)


    End Sub

    Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        'Standard Screen Exit Call
        Call ScreenExit("", "")

    End Sub
    Private Sub cProyecto_ChkEvent(ByRef ChkStrg As System.String, ByRef RetVal As System.Int16) Handles cProyecto.ChkEvent
        'RetVal = PVChkFetch1(cProyecto, CSR_SGProvGasto, ChkStrg, bSGProvGasto)

        serr1 = SqlFetch1(c1, "pjproj_sall" + SParm(ChkStrg), bPJPROJ)
        lProyectoDesc.Text = Trim(bPJPROJ.project_desc)
        bSGProvGasto.CiaId = Trim(bPJPROJ.CpnyId)
        Call DispFields(Me, cCpnyID, cCpnyID)
        Call SqlFree(c1)



    End Sub
    Private Sub cActividad_ChkEvent(ByRef ChkStrg As System.String, ByRef RetVal As System.Int16) Handles cActividad.ChkEvent
        

        serr1 = PVChkFetch1(PNULL, c2, ChkStrg, bPJPENT)

        If serr1 <> NOTFOUND Then
            bSGProvGastoDist.Descr = bPJPENT.pjt_entity_desc
            Call DispFields(Me, cDescr, cDescr)
            cDescr.Enabled = "False"
            cTipoProvGral.Focus()
        End If
        Call SqlFree(c1)

        

    End Sub

    Private Sub xPeriodoProvision_Chk(ByVal ChkStrg As String, ByVal retval As Integer)
        Dim Periodo As String
        Dim NumPeriodos As Integer


        If (Trim(ChkStrg) <> "") Then
            Periodo = Microsoft.VisualBasic.Right(Trim(ChkStrg), 4) + Microsoft.VisualBasic.Left(Trim(ChkStrg), 2)
            If (PeriodCheck(Periodo) = -1) Then
                retval = ErrNoMess
                Exit Sub
            End If
            NumPeriodos = PeriodMinusPeriod(Periodo, PeriodoActProyectos)
            If (NumPeriodos > 1 Or NumPeriodos < 0) Then
                MsgBox("Solo puede ingresar provisiones al periodo actual o al inmediatamente anterior", vbInformation, "Mensaje del Sistema")
                retval = ErrNoMess
            End If
            bSGProvGasto.Periodo = Periodo
            bSGProvGastoDist.Periodo = Periodo
            Call DispFields(Me, xPeriodoProvision, xPeriodoProvision)
            Call DispFields(Me, cPeriodo, cPeriodo)

        End If
    End Sub

    Private Sub cNroProvision_ChkEvent(ByRef ChkStrg As System.String, ByRef RetVal As System.Int16) Handles cNroProvision.ChkEvent
        Dim Estado As String

        Estado = bSGProvGasto.Estado

        If Estado = "P" Then
            cEstado.Enabled = False
        Else
            cEstado.Enabled = True
        End If
    End Sub

End Class

Agradezco de antemano cualquier ayuda que me puedan ofrecer.
Back to Top
Sponsored Links


Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down


Copyright 2013 microsoftdynamicsforums.com. All rights reserved. MicrosoftDynamicsForums.com is an independent non-Microsoft website.
Email: contact AT microsoftdynamicsforums DOT com