Windev21 Aulas,Estudos e Desenvolvimento: Windev - Curso - 57/... - Xml

http://www.pcsoft.fr/

Video - Windev - Curso - 57/... - Xml - Ler conteudo Tags e Importar Pedido

Nessa aula vou mostrar como importar um xml, para poder importar para
pedidos do cupom fiscal
isso ajuda a integrar Erp com Cupom

<?xml version="1.0" encoding="UTF-8"?>
<importa_cupom>
<pedido>
<pedido_numero>5</pedido_numero>
</pedido>
<produto item="1">
     <produto_codigo>2</produto_codigo>
     <produto_nome>Teste de produto 2</produto_nome>
     <produto_unidade>KG</produto_unidade>
     <produto_quantidade>1.50</produto_quantidade>
     <produto_preco_venda>2.00</produto_preco_venda>
     <produto_total>3.00</produto_total>
</produto>
<produto item="2">
     <produto_codigo>1</produto_codigo>
     <produto_nome>primeiro produto</produto_nome>
     <produto_unidade>PC</produto_unidade>
     <produto_quantidade>13.00</produto_quantidade>
     <produto_preco_venda>5.51</produto_preco_venda>
     <produto_total>71.63</produto_total>
</produto>
</importa_cupom>

PROCEDURE xml_importar_cupom()
// Aqui estou Pedido para informar o Numero do Pedido
s_numero_pedido is string
LOOP
    Input("Informe Numero do Pedido",s_numero_pedido)
    // Caso ele nao informar o numero o sistema nao deixar sair ate digitar um Numero
    IF s_numero_pedido="" THEN
        Info("favor informar Numero do Pedido")
    ELSE
        // aqui faz sair do loop
        BREAK
    END
END
// criei uma variavel n-iten para saber a sequencia do iten do pedido
n_iten is int=0
// aqui estou criando as variaveis que vao ser jogadas na tabela
produto_codigo is string=""
produto_nome is string=""
produto_unidade is string=""
produto_quantidade is currency=0
produto_preco_venda is currency=0
produto_total is currency=0
// aqui é a variavel do totalizador
gcy_total_venda=0
//aqui estou Eliminado dados da tabela
TableDeleteAll(TABLE_caixa)
// aqui criei uma variavel s_diretorio para pegar o nome do xml e o local onde esta
s_diretorio is string="e:\aleva\cupom_"+s_numero_pedido+".xml"

s_xml_documento is string=s_diretorio
s_meu_xml is string=fLoadText(s_xml_documento)
XMLDocument("xmldoc",s_meu_xml)
XMLFind("xmldoc",Null,XMLElement+XMLChildItem,XMLStartWith)
//agora vou comecar a ler cada linha do xml
WHILE XMLFound("xmldoc")
    IF     XMLElementType("xmldoc")=XMLAttribute THEN
        // caso ele achar o atributo num item , vai inicializar
        //<produto item="1">
        // se for iten = 0 nao faz nada
        IF n_iten=0 THEN
        ELSE
            // caso contrario ja jogo as informacoes para tabela e limpo os campos
            TableAddLine(TABLE_caixa,n_iten,produto_codigo,produto_nome,produto_unidade,produto_quantidade,produto_preco_venda,produto_total)
            produto_codigo=""
            produto_nome=""
        END
        //aqui estou pegando o item=.. que sera 1 ,, ou outro
        n_iten=XMLData("xmldoc")
    END
    // aqui estou pegando todos os campos que preciso
    IF XMLElementName("xmldoc")="produto_codigo" THEN produto_codigo=XMLData("xmldoc")
    IF XMLElementName("xmldoc")="produto_nome" THEN produto_nome=XMLData("xmldoc")
    IF XMLElementName("xmldoc")="produto_unidade" THEN produto_unidade=XMLData("xmldoc")
    IF XMLElementName("xmldoc")="produto_quantidade" THEN produto_quantidade=XMLData("xmldoc")
    IF XMLElementName("xmldoc")="produto_preco_venda" THEN produto_preco_venda=XMLData("xmldoc")
    IF XMLElementName("xmldoc")="produto_total" THEN
        produto_total=XMLData("xmldoc")
        gcy_total_venda+=produto_total
    END
    XMLNext("xmldoc")
    // aqui estou pedido para ir para proxima tag
END
EDT_total_geral=gcy_total_venda
XMLClose("xmldoc")
// aqui estou fechando o xml
// estou agora, gerando a tabela da ultima linha
IF produto_codigo<>"" THEN
    TableAddLine(TABLE_caixa,n_iten,produto_codigo,produto_nome,produto_unidade,produto_quantidade,produto_preco_venda,produto_total)
END
// se numero do iten for 0 é porque nao existe arquivo xml
IF n_iten=0 THEN
    Info("Nao Encontrado Numero do Pedido [ "+s_numero_pedido+"]")
END

Páginas

sábado, 5 de setembro de 2015

Windev - Curso - 57/... - Xml - Ler conteudo Tags e Importar Pedido

Nenhum comentário:

Postar um comentário