'########################################################################################################
'SUB pegaQtd
' - Captura um valor especifico de um atributo.
'########################################################################################################



Function pegaQtd(fctArquivo,fctNode,fctAtrib,id_trasacao) 
    'Abre arquivo XML
    Call abre_ArquivoXML(fctArquivo,FctobjXML,FctobjRoot)
     Call abre_xmlpedido(id_trasacao, objXML, objRoot) 
        If right(fctArquivo,5) = "\.xml" Then
            Response.redirect "carrinho_vazio.asp?refereRecibo=ok"
        Else     
            Set raiz_dados_pedido = FctobjRoot.selectSingleNode(fctNode)
            
            
            
            Set states = objXML.getElementsByTagName("dados_pedido[@id_transacao="&id_trasacao&"]/produto") 
            n_states = states.length
             for i = 0 to (n_states - 1)
             Set pagto = states.item(i)
            'Captura valor do atributo desejado.
            pegaQtd = pegaQtd + CInt(pagto.getAttribute(fctAtrib))

	    Set pagto = Nothing
            next

            Set states = Nothing

        End if
    Call fecha_ArquivoXML(fctArquivo,FctobjXML,FctobjRoot) 
End Function

'########################################################################################################
'--> FIM SUB pegaQtd
'########################################################################################################
'========================================================================================================