[RESOLVIDO] Exemplo flex + progress sem utilizar framework

Re: Exemplo flex + progress sem utilizar framework

no meu código do flex,

Código:

 <mx:HTTPService id="HttpBuscaPedidos"
         url="http://localhost/scripts/cgiip.exe/WService=wsbroker1/customer.p"
         result="{RetBuscaPedidos(event)}"
         resultFormat="e4x"
         showBusyCursor="true"/>

ele esta chamando a URL a cima, verifique se a url do flex, é realmente a url destino do seu webspeed.

voce pode chamar o programa .P pelo browser direto para ter certeza, ele funciona perfeitamente, apenas gera um XML...


Ahhhh

mais uma coisa que pode parecer meio besta, verifique se no seru Webservice, no meu casa wsbroker1, se o banco Sports esta conectado

Re: Exemplo flex + progress sem utilizar framework

Provavelmente é a conexão do banco de dados, quando tento executar o customer.p, aparece a seguinte mensagem:

Unable to run Web object 'customer.p'

A url que utilizo para teste é a igual a do seu exemplo
http://localhost/scripts/cgiip.exe/WService=wsbroker1/customer.p

Quando tento conectar no banco Sports, aparece a msg abaixo:
O item solicitado para inicialização não esta ligado à rede.
Se continuar, Sports será inicializado, porém sem conmunicação com o admin server.
O admin server não saberá se está ou não em execução.

Deseja continuar?

Agora estou tentando verificar isso, por que quando tento compilar o customer.p, aparece o erro:
Unknown or ambiguous table cutomer. (725)

Re: Exemplo flex + progress sem utilizar framework

Unknown or ambiguous table cutomer. (725)


você não esta como banco Sports conectado no webservice wsbroker1

Re: Exemplo flex + progress sem utilizar framework

Exatamente pessoa, era isso mesmo que estava ocorrendo.
Seu exemplo rodou perfeitamente e esta sendo-me de grande ajuda.

Obrigado.

.
Note como o código usando o StarWeb FrameWork fica um pouco mais limpo e, principalmente, mais simples.

Código:

{ cgi/cgi-cgi.i &carregarSuportePara="XML"}
output-content-type("text/xml").
documentoXML-AbrirDocumento("WEB").
documentoXML-Tabela("clientes").
FOR EACH Customer NO-LOCK:
    documentoXML-RegistroComAtributo("cliente").
    documentoXML-AtributoDoRegistro("cod",STRING(Customer.Cust-Num,"9999")).
    documentoXML-AtributoDoRegistro("nom",Customer.Name).
    FOR EACH Order OF Customer NO-LOCK:
        documentoXML-RegistroFilhoNComAtributo(1,"pedido").
        documentoXML-AtributoDoRegistro("num",STRING(Order.Order-Num,"9999")).
        documentoXML-AtributoDoRegistro("dat",STRING(Order.Order-Date,"99/99/9999")).
        documentoXML-AtributoDoRegistro("emb",IF Order.Ship-Date = ? THEN "Não emb" ELSE STRING(Order.Ship-Date,"99/99/9999")). 
        FOR EACH Order-Line OF Order NO-LOCK, FIRST Item OF Order-Line NO-LOCK: 
            documentoXML-RegistroFilhoNComAtributo(2,"itens").
            documentoXML-AtributoDoRegistro("seq",STRING(Order-Line.Line-Num)).
            documentoXML-AtributoDoRegistro("item",STRING(Order-Line.Item-Num)).
            documentoXML-AtributoDoRegistro("desc",Item.Item-Name).
            documentoXML-AtributoDoRegistro("qtd",STRING(Order-Line.Qty)).
        END.
    END.
END.
documentoXML-FecharDocumento().