 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
rogerioclaro2
Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013
Mensagens: 404
|
 Enviada: Qui Ago 21, 2014 5:12 pm Assunto: condição, se tiver o campo preenchi ok, se não null |
 |
|
Boa tarde Nobre do AD
Estou com uma dúvida... estou fazendo um importação de dados de um sistema para outro, porém travei em uma parte aqui.
Queria fazer um verificação, tipo assim
Meu codigo
| Código: |
Linha := Linha + ''''+ StringReplace(SQLQuery1DATA_PAGAMENTO.AsString,'/','.', [rfReplaceAll])+''''+ ',';//DATAPAGTO
Linha := Linha + ''''+ StringReplace(SQLQuery1VALOR_PAGO.AsString, ',','.',[rfReplaceAll]) + ''''+ ',';
|
Na primeira linha ele traz a data do pagamento convertendo / em .
Na segunda linha ele Traz o valor pago
na Terceira linha ele traz se esta pago.
Eu queria um seguinte, que quando na primeira linha no banco estiver com uma data ele traga automaticamente o valor pago
E em caso da data do pagamento vazia ele preencha o valor pago como null.
Alguem tem alguma ideia!
Forte abraço a todos |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
|
| Voltar ao Topo |
|
|
rogerioclaro2
Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013
Mensagens: 404
|
| Enviada: Sex Ago 22, 2014 8:10 am Assunto: |
|
|
Valeu imex, coloquei um if la e funfou
| Código: | if (SQLQuery1DATA_PAGAMENTO.AsString <> emptystr) then
begin
Linha := Linha + ''''+ StringReplace(SQLQuery1DATA_PAGAMENTO.AsString,'/','.', [rfReplaceAll])+''''+ ',';
end
else
begin
Linha := Linha + 'null';
end; |
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
