none
Compile Error: Else without If Vb6 RRS feed

  • Question

  • Vi muy poco de Vb6 en la escuela y en los foros no encontre mucha informacion

    Tengo una funcion la cual calcula el descuento de los productos, quiero quitar el descuento de una sucursal .. el proceso esta correcto pero al momento de querer compilar es cuando me manda ese error 

    Una pequeña parte del codigo 

    If m_ContinuaBuscando Then                                                         

    'ARTICULOS ORDINARIOS GENERAL           

    If Art(ArtAct).Metreable Then               

    'AQUI SON ARTICULOS METREABLES               

    m_Resultado = Round(Art(ArtAct).cantidad / Art(ArtAct).FactorDeConversion, 2)               

    If m_Resultado - Fix(m_Resultado) = 0 Then                       

    .Open "SELECT * FROM CATALOGO_DescuentosParaMetreables ORDER BY MinimoEnUnidades DESC", cnnPv, adOpenKeyset, adLockReadOnly                        m_ContinuaBuscandoInterno = True                        m_PorcentajeMinimo = RegresaValor("SELECT PorcentajeMinimoDeUtilidad FROM CATALOGO_DATOS_GENERALES_DE_CONFIGURACION", "PorcentajeMinimoDeUtilidad")                        Do While Not .EOF                            If Val(NoNull(.Fields("MinimoEnUnidades"), "0")) <= m_Resultado And m_ContinuaBuscandoInterno Then ' Art(MaxArt).cantidad And m_ContinuaBuscandoInterno Then                                If Val(NoNull(.Fields("Descuento"), "0")) > m_PorcentajeMinimo Then                                    m_ContinuaBuscandoInterno = True                                Else                                    m_ContinuaBuscandoInterno = False                                End If                                m_PrecioFinal = Art(ArtAct).PrecioSinIva - (Art(ArtAct).PrecioSinIva * (Val(NoNull(.Fields("Descuento"), "0")) / 100))                                If Art(ArtAct).costo > 0 Then                                    m_PorcentajeDeDiferencia = ((m_PrecioFinal / Art(ArtAct).costo) - 1) * 100                                    If m_PorcentajeDeDiferencia >= m_PorcentajeMinimo Then                                        Art(ArtAct).DescPorTabla = Val(NoNull(.Fields("Descuento"), "0")) / 100                                        LblDescto(RengAct).Caption = Format(Val(NoNull(.Fields("Descuento"), "0")), "#0.0") ' Format(Art(ArtAct).Desc, "###0.00")                                        m_ContinuaBuscando = False                                        Exit Do                                    Else                                        m_ContinuaBuscandoInterno = True                                    End If                                Else                                    Art(ArtAct).DescPorTabla = Val(NoNull(.Fields("Descuento"), "0")) / 100                                    LblDescto(RengAct).Caption = Val(NoNull(Format(.Fields("Descuento"), "#0.0"), "0")) ' Format(Art(ArtAct).Desc, "###0.00")                                    m_ContinuaBuscando = False                                    Exit Do                                End If                            End If                            .MoveNext                        Loop                Else                                    End If                If .State <> adStateClosed Then .Close            End If End If             'Si la sucursal es San Lorenzo quita los descuentos                        If lblSucursal.Caption = "SAN LORENZO" Then                .Open "SELECT * FROM CATALOGO_DescuentosParaArticulosOrdinariosGeneral WHERE Id ='2' ORDER BY MinimoEnUnidades DESC", cnnPv, adOpenStatic, adLockReadOnly                    Do While Not .EOF                        m_PrecioFinal = Art(ArtAct).PrecioSinIva - (Art(ArtAct).PrecioSinIva * (Val(NoNull(.Fields("Descuento").Value, "0")) / 100))                        If Val(NoNull(.Fields("MinimoEnUnidades"), "0")) <= Art(ArtAct).cantidad And Val(NoNull(.Fields("MinimoEnDinero"), "0")) <= Art(ArtAct).cantidad * m_PrecioFinal Then ' Art(ArtAct).PUnitario Then                            If Art(ArtAct).costo > 0 Then                                m_PorcentajeDeDiferencia = ((m_PrecioFinal / Art(ArtAct).costo) - 1) * 100                                If m_PorcentajeDeDiferencia >= m_PorcentajeMinimoDeUtilidad Then                                    Art(ArtAct).DescPorTabla = Val(NoNull(.Fields("Descuento"), "0")) / 100                                    LblDescto(RengAct).Caption = Format(Art(ArtAct).DescPorTabla * 100, "#0.0")                                    Exit Do                                End If                            Else                                Art(ArtAct).DescPorTabla = Val(NoNull(.Fields("Descuento").Value, "0")) / 100                                LblDescto(RengAct).Caption = Format(Art(ArtAct).DescPorTabla * 100, "#0.0")                                Exit Do                            End If                        End If                        .MoveNext                    Loop If .State <> adStateClosed Then .Close                 End If             Else                    'Si no sigue con los descuentos normales                    .Open "SELECT * FROM CATALOGO_DescuentosParaArticulosOrdinariosGeneral ORDER BY MinimoEnUnidades DESC", cnnPv, adOpenStatic, adLockReadOnly                    Do While Not .EOF                        m_PrecioFinal = Art(ArtAct).PrecioSinIva - (Art(ArtAct).PrecioSinIva * (Val(NoNull(.Fields("Descuento").Value, "0")) / 100))                        If Val(NoNull(.Fields("MinimoEnUnidades"), "0")) <= Art(ArtAct).cantidad And Val(NoNull(.Fields("MinimoEnDinero"), "0")) <= Art(ArtAct).cantidad * m_PrecioFinal Then ' Art(ArtAct).PUnitario Then                            If Art(ArtAct).costo > 0 Then                                m_PorcentajeDeDiferencia = ((m_PrecioFinal / Art(ArtAct).costo) - 1) * 100                                If m_PorcentajeDeDiferencia >= m_PorcentajeMinimoDeUtilidad Then                                    Art(ArtAct).DescPorTabla = Val(NoNull(.Fields("Descuento"), "0")) / 100                                    LblDescto(RengAct).Caption = Format(Art(ArtAct).DescPorTabla * 100, "#0.0")                                    Exit Do                                End If                            Else                                Art(ArtAct).DescPorTabla = Val(NoNull(.Fields("Descuento").Value, "0")) / 100                                LblDescto(RengAct).Caption = Format(Art(ArtAct).DescPorTabla * 100, "#0.0")                                Exit Do                            End If                        End If                        .MoveNext                    Loop                    If .State <> adStateClosed Then .Close            End If ' DE METREABLE    End If       ' DE CONTINUA BUSCANDO    End With   On Error GoTo 0   Exit SubDeterminaTipoDeDescuento2_Error:    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DeterminaTipoDeDescuento2 of Formulario Form_PV"    SendErr "Error " & Err.Number & " (" & Err.Description & ") in procedure DeterminaTipoDeDescuento2 of Formulario Form_PV"End Sub

    Ya intente basarme de algún código pero estoy cerrado a esto... me bloque


    Friday, October 25, 2019 6:27 PM