Aula 1086 - WinDev Tabela 052/... Trocar Codigo Empresa Conversao

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

Nessa aula de hoje, vou mostrar como posso fazer um programa de conversão.
Nesse exemplo quero trocar o codigo da empresa das duplicatas a pagar.
Vou trocar da empresa 1 para empresa 2.

---

https://doc.windev.com/en-US/?1510017&name=FOR_EACH_Controls

---

WinDev - Tabela - 001/... Ancorar Tabela e coluna
WinDev - Tabela - 002/... Esconder ou Mostrar Coluna Tabela 
WinDev - Tabela - 003/... Mudar Cor e Fundo da Coluna da Tabela 
WinDev - Tabela - 004/... Mudar Largura e Fonte da Coluna da Tabela 
WinDev - Tabela - 005/... Coluna de valor Deixar em Branco 
WinDev - Tabela - 006/... Alterar Nome,Cor,Cor de Fundo da Coluna da Tabela 
WinDev - Tabela - 007/... Alterar ordem das Colunas por Programacao
WinDev - Tabela - 008/... TableSeek Pesquizar se Existe
WinDev - Tabela - 009/... TableSelectPlus - Seleciona Iten tabela
WinDev - Tabela - 010/... TableSort - Classifica Coluna
WinDev - Tabela - 011/... Zoom
WinDev - Tabela - 012/... for Each Row Of - Percorrer
WinDev - Tabela - 013/... Selecionar Varias Linhas
WinDev - Tabela - 014/... Balao - Tabela ToolTip
WinDev - Tabela - 015/... Coluna Contrainer
WinDev - Tabela - 016/... Sum - Como Mudar Nome
WinDev - Tabela - 017/... TableInfoXY - Saber Nome,Posição e Linha da Coluna 
WinDev - Tabela - 018/... Guardar e Recuperar Posição Tabela
WinDev - Tabela - 019/... TableInputsearch
WinDev - Tabela - 020/... Descobrir Posição cliente Novo
WinDev - Tabela - 021/... Saber quantos e nome das Colunas
WinDev - Tabela - 022/... Tableselect - Selecionar varias linhas tabela e Ler
WinDev - Tabela - 023/... BuildBrowsingTable - Cria Tabela Manual
WinDev - Tabela - 024/... Somar Valor Tabela Automatico ou Manual - rowtotal
WinDev - Tabela - 025/... Eventos no cabecalho da Tabela
WinDev - Tabela - 026/... Tabela - Break - Totalizadores
WinDev - Tabela - 027/... Tabela - Colorir Linha
WinDev - Tabela - 028/... Double click Na seleção Item
WinDev - Tabela - 029/... Tabela - Descrição, Em Varias Linhas Coluna Tabela
WinDev - Tabela - 030/... Tabela - Fazer titulos com colunas
WinDev - Tabela - 031/... Tabela - Sql - Query - Agrupar Datas Nas Notas
WinDev - Tabela - 032/... Pintando Tabela
WinDev - Tabela - 033/... FOR EACH / WHERE / on / Ordem
WinDev - Tabela - 034/... Filter 
WinDev - Tabela - 035/... HFilter
WinDev - Tabela - 036/... Ultimo Registro - TableSelectPlus
WinDev - Tabela - 037/... Desabilitar Edição Tabela
WinDev - Tabela - 038/... Pesquisa - TableEnableFilter
Blog - WinDev - Relatorio - 039/... Copias - IParameter - Icopies
WinDev - Tabela - 040/... Cor Negativo Coluna Saldo
WinDev - Tabela - 041/... - Criar Tabela via programação
Borda - TAbela - 042/... - Novidade Windev22
..VisibleInExportAndPrint - Colunas Nao Levar Exportar e Imprimir - WinDev - Tabela - 043
BuildBrowsingTable - Monta Tabelas Automaticamente - WinDev - Tabelas - 044
FileToMemoryTable - Monta Tabela Query - WinDev - Tabela - 045
Titulos e SubTitulos - Tabela - 046/...
Titulos e SubTitulos - Manualmente - Tabela - 047/...
Bloquear ou Liberar Lupa/mover Coluna Tabela - Windev Tabela - 048/...
TableEnableFilter - Tabela Diversos Filtros e ordem - WinDev Tabela - 049/...
Ordem Crescente/Decrescente - WinDev Tabela - 050/...
TableDisableFilter - WinDev Tabela 051/...
Conversão - Trocar Codigo Empresa das Duplicatas - WinDev Tabela 052/...
Ler Tabela,pegar Descricao,colocar String - WinDev Aula 1105 - 053/...

---

s_senha is string=""
Input("digite senha",s_senha)
IF s_senha="duplicatas" THEN
    IF YesNo("Deseja Converter Para Outra Empresa, essas Duplicatas,De todos os Fornecedores") THEN
        //Estou fazendo Pergunta se Quero Converter   
        n_numero_empresa_nova is int=0
       
        //Vou Fazer loop, para tornar obrigatorio digitar uma empresa
        LOOP
            Input("Digite Nova Empresa:",n_numero_empresa_nova)
            //Vou Pedir para Digitar a Empresa Nova
            IF n_numero_empresa_nova<>0 THEN
                BREAK
                //Caso digitar empresa,vai sair do loop
            END
        END
       
        FOR EACH duplicata_pagar WHERE "id_empresa="+gnEmpresaCodigo
            //Percorrer tabela somente que seja dessa empresa
            Trace(duplicata_pagar.id_duplicata_pagar)
            //Mostrando na tela o que esta fazendo
            IF duplicata_pagar.Id_empresa_cliente=TABLE_cliente.COL_id_empresa_fornecedor THEN
                duplicata_pagar.id_empresa=n_numero_empresa_nova
                HModify(duplicata_pagar)
                //Estou Regravando o dado
            END
        END
    END
    TraceEnd() // apagar informacoes do trace da tela
    Info("Conversao Concluida")
END

---

---

---

---

---