sexta-feira, 14 de agosto de 2015

TABELA - PERCORRER TABELA

TABELA - PERCORRER TABELA

    FOR ALL ROW OF TABLE_itens_vendidos
        xProximo_orcamento_iten++
        HReset(pedido_iten)
        pedido_iten.id_pedido_item_geral=xProximo_orcamento_iten
        pedido_iten.id_pedido=EDT_Id_orcamento
        pedido_iten.sequencia_digitacao=TABLE_itens_vendidos.COL_Sequencia
        pedido_iten.referencia_material=TABLE_itens_vendidos.COL_REFERENCIA
        pedido_iten.id_material=TABLE_itens_vendidos.COL_CODIGO_MATERIAL
        pedido_iten.observacao=TABLE_itens_vendidos.COL_OBSERVACAO
        pedido_iten.quantidade=TABLE_itens_vendidos.COL_QUANTIDADE
        pedido_iten.valor_venda=TABLE_itens_vendidos.COL_VALOR_UNITARIO
        pedido_iten.valor_produtos=TABLE_itens_vendidos.COL_VALOR_PRODUTOS
        pedido_iten.valor_ipi_percentual=TABLE_itens_vendidos.COL_PERCENTUAL_IPI
        pedido_iten.valor_ipi=TABLE_itens_vendidos.COL_VALOR_IPI
        pedido_iten.valor_total=TABLE_itens_vendidos.COL_VALOR_TOTAL
        IF HAdd(pedido_iten) = False THEN
            Error("Nao Adicionou Pedido iten")
        END       
    END   
    Info("gravou Pedido Numero => " + pedido.id_pedido)










amarildo@matosinformatica.com.br



Nenhum comentário:

Postar um comentário

Teste

Teste
teste