VALOR POR DEFEITO

- Apenas quando manda imprimir

- O comando xbase é um programa

- Também atualiza na alteração

select pr

_date=year(pr.DATA)

**msg(astr(_date))

select prre

TEXT to strSQL noshow textmerge

select 

rem, sum(ere) 'soma'

from pr 

inner join prre on pr.prstamp=prre.prstamp

where pr.no='<>' and prre.rem='Gratificações' and pr.prstamp<>'<>' and year(pr.DATA)=<<_date>>

group by rem

ENDTEXT

**msg(strSQL)

u_sqlexec(strSQL,"crsinto")

_valorre=crsinto.soma

_soma=0

select prre

_existe=.F.

goto top

scan

if prre.cr=116

_existe=.T.

_soma=_soma+prre.ere

**msg("_soma")

**msg(astr(_soma))

endif

endscan

_valorf=0

_valorf=_valorre+_soma

_valgrat=_soma-4100

_TTNSUJ=_valgrat*200.482

Goto top

scan

if _valorf>4100 and prre.cr=116

**msg("VALOR")

Replace prre.ERE with abs(_valgrat)

Replace prre.ERVU with abs(_valgrat)

Replace prre.EREIRS with 0

Replace pr.TTSUJ  with 0  

Replace pr.TTSUJCX with 0

Replace prre.ESUJSS with 0

Replace prre.SUJSS with 0

Replace pr.ETTNSUJ with abs(_valgrat)

Replace pr.TTNSUJ with (_TTNSUJ)

endif

endscan

if _valorf>4100

**msg("_valorf")

**msg(astr(_valorf))

_valorere=(4100-_valorf)

**msg(astr(_valorere))

select prre

goto bottom

SPR.pageframe1.page1.inserir1.click()

Replace prre.cr with 117

Replace prre.rem with 'Gratificações Suj. IRS'

Replace prre.ERE with abs(_valorere)

Replace prre.RE with abs(_valorere)*200.482

Replace prre.EREIRS with abs(_valorere)

Replace prre.REIRS with abs(_valorere)*200.482

Replace prre.ESUJSS with abs(_valorere)

Replace prre.SUJSS with abs(_valorere)*200.482

Replace prre.ERVU with abs(_valorere)

Replace prre.RVU with abs(_valorere)*200.482

Replace pr.ETTSUJ with abs(_valorere)

Replace pr.TTSUJ with abs(_valorere)*200.482

Replace pr.ETTSUJCX with abs(_valorere)

Replace pr.TTSUJCX with abs(_valorere)*200.482

Replace prre. crend with 'A82'

Replace prre.rqtt with 1

Do prproc

do prprocf

endif

**msg(strSQL)

return pr.status