ASP 2.0 com Banco Progress

Discussão em 'Progress 4GL' iniciado por arleydias, Junho 10, 2009.

  1. Agnaldo

    Agnaldo Membro Ativo

    Olá Baltazar.

    Uma opção que podes ter, também, é usando os serviços do StarWeb FrameWork.

    Nessa URL tens um XML gerado pelo SWFW.
    http://starweb-software.no-ip.info:8000/cgi-bin/demo.pl/exemplos/xml/exemplo130

    Aqui o fonte 4GL dele.

    Código:
    { cgi/cgi-cgi.i &carregarSuportePara="XML"}
    output-content-type("text/xml").
    documentoXML-AbrirDocumento("WEB").
    documentoXML-Tabela("dados").
    documentoXML-Registro("clientes").
    FOR EACH Customer NO-LOCK:
        documentoXML-CampoComAtributo("cliente").
        documentoXML-AtributoDoCampo("codigo",STRING(Customer.Cust-Num)).
        documentoXML-AtributoDoCampo("nome",Customer.Name).
        documentoXML-AtributoDoCampo("cidade",Customer.City).
        documentoXML-AtributoDoCampo("estado",Customer.State).
        documentoXML-AtributoDoCampo("pais",Customer.Country).
    END.
    documentoXML-FecharDocumento().
    E aqui o código ASP que faz a chamada e mostra os dados na tela.

    Código:
    <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" >
    <head runat="server">
        <title>Untitled Page</title>
    </head>
    <body>
        <form id="form1" runat="server">
        <div>Exemplo010<br><hr></div>
            <asp:XmlDataSource ID="dsClientes" runat="server" DataFile="http://starweb-software.no-ip.info:8000/cgi-bin/demo.pl/exemplos/xml/exemplo130" XPath="/dados/clientes/cliente"></asp:XmlDataSource>
            <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataSourceID="dsClientes">
                <Columns>
                    <asp:BoundField DataField="codigo" HeaderText="Código" />
                    <asp:BoundField DataField="nome" HeaderText="Nome do cliente" />
                    <asp:BoundField DataField="cidade" HeaderText="Cidade" />
                    <asp:BoundField DataField="estado" HeaderText="Estado" />
                    <asp:BoundField DataField="pais" HeaderText="Pais" />
                </Columns>        
            </asp:GridView>
        </form>
    </body>
    </html>
  2. erpitoli

    erpitoli Sem Pontuação

    Boa tarde,

    Criei uma procedure no progress e para a mesma, utilizei o Proxy Generator para criar os arquivos do webservice. A partir dai não consegui publicar o webservice para ser consumido por Dot Net, por exemplo. Quando vou até o WSA no Tool Explorer apresenta uma mensagem de não cosnegue conectar. Se alguém tiver alguma dica para resolver este problema agradeço.

Compartilhe esta Página