Sistemas

' Buscando el numero de hojas de precio --------------------------------------
OpenRSro " SELECT B.PRCSHID, B.PSITMVAL, A.STRTDATE " & _
" FROM " & _
" SOP10110 a " &_
" INNER JOIN IV10401 C ON C.PROMOTYP = 0 AND A.PRCSHID = C.PRCSHID " & _
" INNER JOIN IV10402 B ON B.ITEMNMBR = '" + Trim(EntradatransaccióndeDetail.ItemNumber.Value) +"' AND B.UOFM = '" + Trim(UOfM.Value) + "' AND C.PRCSHID = B.PRCSHID AND C.ITEMNMBR = B.ITEMNMBR " & _
" WHERE A.PRCSHID IN (SELECT PRCSHID FROM RM00500 WHERE LINKCODE = '" +Trim(Entradatransaccióndeventas.IDcliente) + "' AND PRCSHID IN (SELECT PRCSHID FROM SOP10110 WHERE GETDATE() BETWEEN STRTDATE AND ENDDATE+1)) " & _
" ORDER BY A.STRTDATE", rs, cnx2If rs.RecordCount > 1 Then
rs.MoveFirst
Dim hojasDePrecios As String
While Not rs.EOF
hojasDePrecios = hojasDePrecios & " - " & Trim(rs("PRCSHID").Value)rs.MoveNext
Wend
MsgBox "El articulo se encuentra en dos hojas de precios base: " & Chr(13) & _
" " & hojasDePrecios, vbInformation, "PROBLEMA DE HOJAS DE PRECIOBASE"
Exit Sub
End If
rs.Close

'OBTIENE UNIDAD DE MEDIDA --------------------

'rsDescuento.Open "SELECT EQUOMQTY FROM IV40202 WHERE UOMSCHDL = 'UNIDAD-P' ANDUOFM = '" & UOfM.Value & "'", cnx2, adOpenStatic, adLockReadOnly
'cantidad = rsDescuento("EQUOMQTY").Value
'rsDescuento.Close

rsDescuento.Open " SELECT IV40202.EQUOMQTY FROMdbo.IV40202 INNER JOIN dbo.IV00101 ON IV40202.UOMSCHDL = IV00101.UOMSCHDL " & _
" AND IV00101.ITEMNMBR = '" & Trim(EntradatransaccióndeDetail.ItemNumber.Value) & "' " & _" WHERE IV40202.UOFM = '" & UOfM.Value & "' ", cnx2, adOpenStatic, adLockReadOnly

If Not rsDescuento.EOF Then
cantidad = rsDescuento("EQUOMQTY").Value
End If...