System Message 10092

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
CJoel Members Profile Find Members Posts MicrosoftDynamicsForums.com Member Joined: November 14 2018 Status: Offline Points: 2	Post Options Post Reply Quote CJoel Report Post Thanks(0) Quote Reply 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.

Sponsored Links