16 Ago 2017 18:32
Mensagem( "Anulando reajuste" )
WITH OBJECT cnMySql
:ExecuteCmd( "DELETE FROM JPPREHIS WHERE PHDATA=" + DateSql( mDataReajuste ) + " AND PHOBS LIKE 'REAJ.%'" )
:cSql := "SELECT PHID, PHITEM, PHCADAS, PHFORPAG, PHVALOR FROM JPPREHIS" + ;
" INNER JOIN" + ;
" ( SELECT MAX( PHID ) AS ULTIMOLANC FROM JPPREHIS GROUP BY PHITEM, PHCADAS, PHFORPAG ) AS ULTIMO" + ;
" ON JPPREHIS.PHID = ULTIMO.ULTIMOLANC" + ;
" ORDER BY PHITEM, PHCADAS, PHFORPAG"
:Execute()
DO WHILE ! :Eof()
SELECT jppreco
SEEK :StringSql( "PHITEM" ) + :StringSql( "PHCADAS" ) + :StringSql( "PHFORPAG" )
IF ! Eof()
RecLock()
REPLACE jppreco->pcValor WITH :NumberSql( "PHVALOR" )
RecUnlock()
ENDIF
:MoveNext()
ENDDO
:CloseRecordset()
END WITH
UPDATE JPPRECO
JOIN
( SELECT PHID, PHITEM, PHCADAS, PHFORPAG, PHVALOR FROM JPPREHIS
INNER JOIN
( SELECT MAX( PHID ) AS ULTIMOLANC FROM JPPREHIS GROUP BY PHITEM, PHCADAS, PHFORPAG ) AS ULTIMO
ON JPPREHIS.PHID = ULTIMO.ULTIMOLANC
) AS NOVOPRECO
ON JPPRECO.PCITEM=NOVOPRECO.PHVALOR AND JPPRECO.PHCADAS = NOVOPRECO.PHCADAS AND JPPRECO.PCFORPAG=NOVOPRECO.PHFORPAG
SET JPPRECO.PCVALOR = NOVOPRECO.PHVALOR
17 Ago 2017 16:32
17 Ago 2017 19:38
UPDATE employee SET salary=DEFAULT;
employee SET salary =
CASE dept
WHEN 'Sales' THEN salary+1000
WHEN 'Technology' THEN salary+500
WHEN 'Marketing' THEN salary+500
ELSE salary
END;
UPDATE employee SET id=id+100 order by id desc;