PC Toledo

... CHARSET latin1;
DECLARE cAmbiente CHAR(1) DEFAULT '1';

SET cThisXml := '';

SELECT SEFAZNFEAMBIENTE
FROM JPTABSEFAZ
INTO cAmbiente;

SELECT
COALESCE( CDNOME, '' ),
ze_SoNumero( COALESCE( CDCNPJ, '' ) ),
ze_SoNumero( COALESCE( CDINSEST, '' ) ),
COALESCE( CDENDERECO, '' ),
COALESCE( CDNUMERO ...

... CHARSET latin1;
DECLARE cAmbiente CHAR(1) DEFAULT '1';

SET cThisXml := '';

SELECT SEFAZNFEAMBIENTE
FROM JPTABSEFAZ
INTO cAmbiente;

SELECT
COALESCE( EMNOME, '' ),
ze_SoNumero( COALESCE( EMCNPJ, '' ) ),
ze_SoNumero( COALESCE( EMINSEST, '' ) ),
COALESCE( EMENDERECO, '' ),
COALESCE( EMBAIRRO ...

... NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL, NFIPIVAL, NFPISVAL, NFCOFVAL, NFVALOUT + NFVALEXT,
NFIMPVAL, NFVALNOT, COALESCE( SUM( IPDIFVALF ), 0.00 ), COALESCE( SUM( IPDIFVALI ), 0.00 ),
SUM( IF( NFCFOP = '1.604' OR INSTR( IENOME, ' DE ICMS' ) != 0, 1, 0 ) ),
SUM( IF ...

... NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL, NFIPIVAL, NFPISVAL, NFCOFVAL, NFVALOUT + NFVALEXT,
NFIMPVAL, NFVALNOT, COALESCE( SUM( IPDIFVALF ), 0.00 ), COALESCE( SUM( IPDIFVALI ), 0.00 ),
SUM( IF( NFCFOP = '1.604' OR INSTR( IENOME, ' DE ICMS' ) != 0, 1, 0 ) ),
SUM( IF ...

... preços futuros e promoções com validade.

O campo PFTIPO ajuda a identificar se o preço é por cliente, promoção, tabela, etc.

A ideia do COALESCE() pra buscar o preço seguindo uma hierarquia é boa:

SELECT COALESCE(preco_cliente, preco_promocao, preco_tabela, preco_produto, 0)


Dá pra ...

... da tabela começar a valer em determinada data, pra permitir cadastrar adiantado
Data final sei lá, talvez pra promoção de um dia

E um select com COALESCE() pra pegar o preço


select coalesce ( preco combustivel, preco promocao, preco tabela, preco cliente, preco produto, 0 )


essa é a única ...

... rotina faz.


SELECT
...
SUM( DC.CANT ) AS QTD,
SUM( IF( MONTH( EC.FECCAP ) = 1, COALESC( EC.CANT, 0 ), 0 ) AS QTD_ENE,
SUM( IF( MONTH( EC.FECCAP ) = 2, COALESC( EC.CANT, 0 ), 0 ) AS QTD_FEB,
...
SUM( IF( MONTH( EC.FECAP = 12, COALESCE( EC.CANT, 0 ) AS QTD_DIC
..
GROUP BY DC.ID_PROD
ORDER BY QTD

... eof(), promocao->valor, iif( ! tabcli->Eof(), tabcli->Valor, iif( ! tabgeral->Eof(), tabgeral->valor, 0 ) ) )


em SQL

SELECT produto.codpro, COALESCE( promocao.valor, tabcli.valor, tabgeral.valor, 0 ) FROM PRODUTO
LEFT JOIN promocao on promocao.codpro = produto.codpro
LEFT JOIN tabcli on tabcli ...

COALESCE
vai usar o primeiro valor que seja válido.

Boa adição

Apenas comentário, depende do servidor aceitar.


COALESCE( F.VTAEXE, 0 )



"WHERE F.FECHA BETWEEN " + SR_cDBValue( dFecIni ) + " AND " + SR_cDbValue( dFecFin )


COALESCE aceita vários parâmetros, e faço uso disso.

COALESCE( tabela1.valor, tabela2,valor, tabela3.valor, 0 )

vai usar o ...

... DECLARE cIpiCst, cIpiEnq VARCHAR(10) DEFAULT '';
DECLARE nIpiBas, nIpiAli, nIpiVal DECIMAL(16,2) DEFAULT 0;
DECLARE cXml TEXT;

SELECT
COALESCE( IPIPICST, '' ),
COALESCE( IPIPIBAS, 0 ),
COALESCE( IPIPIALI, 0 ),
COALESCE( IPIPIVAL, 0 ),
IPIPIENQ
FROM JPITPED
LEFT JOIN JPITEM ON ...

... VendidoPerProduct vp ON p.PRODUTOS_ID = vp.produtos_id
)
SELECT
ps.PRODUTOS_ID,
ps.DESPRO,
ps.precus,
ps.estatu,
ps.estl02,
ps.TIPUNI,
COALESCE(ps.vendido, 0) AS vendido,
COALESCE(ps.QTDPRO, 0) AS QTDPRO
FROM ProductsWithStockCalc ps
WHERE ps.QTDPRO > 0
ORDER BY ps.DESPRO;


e olha as ...

... cQuery+="AND entrada.TIPO_OPERACAO != 91 "
cQuery+="GROUP BY DATE_FORMAT(entrada.B_DHEMI, '%Y') ), 0.00) AS TOTAL_COMPRAS_MES, "

cQuery+="COALESCE(SUM(pedidos.TOTNOT) , 0.00 ) AS VENDAS_MES, "
// cQuery+="IF(SUM(pedidos.TOTNOT) IS NULL, 0.00, SUM(pedidos.TOTNOT) ) AS VENDAS_MES, "

cQuery ...

... NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL, NFIPIVAL, NFPISVAL, NFCOFVAL, NFVALOUT + NFVALEXT,
NFIMPVAL, NFVALNOT, COALESCE( SUM( IPDIFVALF ), 0.00 ), COALESCE( SUM( IPDIFVALI ), 0.00 ),
SUM( IF( NFCFOP = '1.604' OR INSTR( IENOME, ' DE ICMS' ) != 0, 1, 0 ) )
FROM ...

cXml := cnSQL:ExecuteReturnValue( "SELECT COALESCE( XXXML, '' ) FROM JPXML20" + Substr( cChave, 3, 2 ) + " WHERE XXCHAVE=" + StringSQL( cChave ) + " AND XXEVENTO='110100'" )
IF cXml == Nil
MsgExclamation( "Não foi possível localizar o XML de autorização" )
RETURN Nil
ENDIF
xProtocolo ...