|
System Message 10092 |
Post Reply ![]() |
Author | |
CJoel ![]() MicrosoftDynamicsForums.com Member ![]() Joined: November 14 2018 Status: Offline Points: 2 |
![]() ![]() ![]() ![]() ![]() 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 | |
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |