Jump to content

rodrigomabruk

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About rodrigomabruk

  1. rodrigomabruk

    Erro de UPDATE "Tipos incompatíveis"

    Boa tarde. Amigos, sou novo no forum. Estou com o seguinte problema e precisando de ajuda, se postei a duvida em local errado, me desculpa. Segue erro: Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: '[string: "P"]' /wireless/sacarF.asp, linha 202 imagem: Deveria montar a tela a seguir, circulado em preto: segue codigo fonte abaixo: set rs3 = server.createobject("ADODB.Recordset") if left(session("ref"),1)="8" or left(session("ref"),1)="9" or left(session("ref"),1)="6" then ' rs3.open "select requested as requested1,sacado=(select sum(picked) from shpdet a where refdoc1='" & trim(session("doc")) & "' and a.itemnumber='" & trim(session("ref")) & "'),boxes=(select count(*) from shpdet b where refdoc1='" & trim(session("doc")) & "' and b.itemnumber='" & trim(session("ref")) & "') from shphdr where refdoc1='" & trim(session("doc")) & "' and itemnumber='" & trim(session("ref")) & "'",seguridad,VaradOpenKeyset,VaradLockOptimistic rs3.open "select sum(requested) as requested1,sum(picked) as sacado,count(*) as contador,sum(boxes) as boxes from shphdr where refdoc1='" & trim(session("doc")) & "' and itemnumber='" & trim(session("ref")) & "'",seguridad,VaradOpenKeyset,VaradLockOptimistic else rs3.open "select sum(requested) as requested1,sum(picked) as sacado,count(*) as contador,sum(boxes) as boxes from shphdr where refdoc1='" & trim(session("doc")) & "' and itemnumber='" & trim(session("ref")) & "'",seguridad,VaradOpenKeyset,VaradLockOptimistic end if if cdbl(rs3("contador")) > 0 then pedido=rs3("requested1") if cdbl(cxb)>0 then bultosT = cdbl(rs3("requested1"))/cdbl(cxb) end if sacado=cdbl(rs3("sacado")) bultosS=cdbl(rs3("boxes")) bultosD=(cdbl(bultosT)-cdbl(bultosS)) sacadoD = (cdbl(pedido)-cdbl(sacado)) set rs3 = nothing end if
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.