PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → Wx - Fator de Conversão de Unidade de Medidas
Wx - Fator de Conversão de Unidade de Medidas
Iniciado por BOLLER, jun., 24 2019 9:11 PM - Sem resposta
Membro registado
2.969 mensagems
Popularité : +89 (91 votes)
Publicado em junho, 24 2019 - 9:11 PM
Wx - Fator de Conversão de Unidade de Medidas
EDT_FATOR = 0

IF EDT_F009_UNIDADE_FORN <> ""
EDT_Unidade_Origem = EDT_F009_UNIDADE_FORN
END
IF EDT_F009_UNIDADE_FORN = "" AND EDT_Unidade_Origem <> ""
EDT_F009_UNIDADE_FORN = EDT_Unidade_Origem
END

IF EDT_F009_UNIDADE_DESTINO <> "" THEN
EDT_Unidade_Destino = EDT_F009_UNIDADE_DESTINO
END
IF EDT_F009_UNIDADE_DESTINO = "" AND EDT_Unidade_Destino <> ""
EDT_F009_UNIDADE_DESTINO = EDT_Unidade_Destino
END

IF EDT_Quantidade_Origem <> "" AND EDT_Quantidade_Destino <> "" AND EDT_FATOR = 0 AND EDT_F009_FATOR = 0

EDT_FATOR = Val(EDT_Quantidade_Destino) / Val(EDT_Quantidade_Origem)
EDT_Resultado = Val(EDT_Quantidade_Origem) * Val(EDT_FATOR)
EDT_F009_FATOR = EDT_FATOR

ELSE IF EDT_Quantidade_Origem <> "" AND EDT_Quantidade_Destino <> "" AND EDT_F009_FATOR > 0

EDT_FATOR = Val(EDT_Quantidade_Destino) / Val(EDT_Quantidade_Origem)
EDT_Resultado = Val(EDT_Quantidade_Origem) * Val(EDT_F009_FATOR)
IF EDT_FATOR <> EDT_F009_FATOR
EDT_F009_FATOR = EDT_FATOR
END

END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/