PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 21 → Conversão - Trocar Codigo Empresa das Duplicatas - WinDev Tabela 052/...
Conversão - Trocar Codigo Empresa das Duplicatas - WinDev Tabela 052/...
Débuté par De matos, 08 mar. 2017 10:16 - Aucune réponse
Membre enregistré
367 messages
Popularité : +3 (3 votes)
Posté le 08 mars 2017 - 10:16
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.

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


http://windevdesenvolvimento.blogspot.com.br/2017/03/aula-1086-windev-tabela-052-trocar.html

https://www.youtube.com/watch?v=OvbcWdgbG_g