Juntando pra reduzir variáveis
Enviado: 30 Jan 2020 19:24
Na nota fiscal eletrônica, coloco o endereço de entrega e de cobrança em informações adicionais.
Então imaginem o comando/fonte:
Muito chato, muitas variáveis, parece trabalhoso.
Mas, pra que trazer vários campos e juntar depois?
Mais prático trazer pronto.
Ao invés de vários campos, foi reduzido a um único através do SQL, veio pronto pra uso.
Comparando com DBF:
Como eu já disse, é como se o SQL fosse um dBase evoluído pra ser usado também pelo aplicativo.
É como acima, executado o comando, fica tudo no LIST.TXT, o aplicativo vai trabalhar com esse resultado.
Então imaginem o comando/fonte:
Código: Selecionar todos
:cSql := "SELECT ENDERECO, NUMERO, BAIRRO, CIDADE, UF FROM JPCADASTRO"
:Execute()
cTexto := :String( "ENDERECO" ) + " " + :String( "NUMERO" ) + " " + :String( "BAIRRO" ) + " " + :String( "CIDADE" ) + " " + :String( "UF" )
Mas, pra que trazer vários campos e juntar depois?
Mais prático trazer pronto.
Código: Selecionar todos
:cSql := "SELECT CONCAT( ENDERECO, ' ', NUMERO, ' ', BAIRRO, ' ', CIDADE, ' ', UF ) AS ENDENT FROM JPCADASTRO"
:Execute()
cTexto := :String( "ENDENT" )
Comparando com DBF:
Código: Selecionar todos
SET ALTERNATE TO LIST.TXT
SET ALTERNATE ON
LIST Trim( Endereco ) + " " + Trim( Numero ) + " " + Trim( Bairro ) + " " + Trim( cidade ) + " " + Trim( UF )
SET ALTERNATE OFF
SET ALTERNATE TO
É como acima, executado o comando, fica tudo no LIST.TXT, o aplicativo vai trabalhar com esse resultado.