erro xharbour

[syspel]

bom dia pessoal

estou com um erro assim,crie um funcao para ver uma data quando eu coloco dentro do sistema a funcao executa

perfeita,mas na ora de sai eu clico no butom cancela ai da esse erro

Application

===========

Path and name: C:\new\fpm.exe (32 bits)

Size: 9,232,896 bytes

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903)

FiveWin Version: FWHX 14.04

Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 0 mins 27 secs

Error occurred at: 13/07/2016, 10:22:55

Error description: Error BASE/1081 Erro nos parƒmetros: +

Args:

[ 1] = C fpa001

[ 2] = N 1

Stack Calls

===========

Called from: fpaltrec.prg => ALT_EVENT( 38 )

Called from: fpmenu.prg => (b)FPM02( 175 )

Called from: btnbmp.prg => TBTNBMP:CLICK( 464 )

Called from: btnbmp.prg => TBTNBMP:LBUTTONUP( 660 )

Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )

Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1417 )

Called from: window.prg => _FWH( 3236 )

Called from: => WINRUN( 0 )

Called from: window.prg => TWINDOW:ACTIVATE( 1003 )

Called from: fpmenu.prg => FPM02( 215 )

System

======

CPU type: Intel® Core2 Duo CPU E7300 @ 2.66GHz 2666 Mhz

Hardware memory: 2038 megs

Free System resources: 90 %

GDI resources: 90 %

User resources: 90 %

Windows total applications running: 8

1 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202

2 , C:\WINDOWS\system32\SHELL32.dll

3 , C:\WINDOWS\system32\SHLWAPI.dll

4 , C:\new\fpm.exe

5 , C:\new\freeimage.dll

6 M, C:\WINDOWS\system32\msctfime.ime

7 MCI command handling window, C:\WINDOWS\system32\WINMM.DLL

8 TF_FloatingLangBar_WndTitle,

Variables in use

================

Procedure Type Value

==========================

ALT_EVENT

Local 1: U

Local 2: C "fpa001"

Local 3: N 1

Local 4: U

Local 5: L .F.

(b)FPM02

Param 1: O Class: TBTNBMP

TBTNBMP:CLICK

Local 1: O Class: TBTNBMP

TBTNBMP:LBUTTONUP

Param 1: N 31

Param 2: N 39

Param 3: O Class: TBTNBMP

Local 1: U

Local 2: L .T.

TCONTROL:HANDLEEVENT

Param 1: N 514

Param 2: N 0

Param 3: N 2031655

Local 1: O Class: TBTNBMP

Local 2: U

TBTNBMP:HANDLEEVENT

Param 1: N 514

Param 2: N 0

Param 3: N 2031655

Local 1: O Class: TBTNBMP

_FWH

Param 1: N 2031655

Param 2: N 514

Param 3: N 0

Param 4: N 2031655

Param 5: N 7

Local 1: O Class: TBTNBMP

WINRUN

Param 1: N 655602

TWINDOW:ACTIVATE

Param 1: C "MAXIMIZED"

Param 2: U

Param 3: U

Param 4: U

Param 5: U

Param 6: U

Param 7: U

Param 8: B {|| ... }

Param 9: U

Param 10: U

Param 11: U

Param 12: U

Param 13: U

Param 14: U

Param 15: U

Param 16: U

Param 17: U

Param 18: U

Param 19: U

Local 1: O Class: TWINDOW

Local 2: U

Local 3: U

FPM02

Local 1: U

Local 2: O Class: TICON

Local 3: U

Local 4: U

Local 5: O Class: TCURSOR

Local 6: U

Local 7: U

Local 8: O Class: TBRUSH

Linked RDDs

===========

DBF

DBFFPT

DBFBLOB

DBFCDX

DBFNTX

DataBases in use

================

Classes in use:

===============

1 ERROR

2 HASHENTRY

3 HBCLASS

4 HBOBJECT

5 TBRUSH

6 TCURSOR

7 TWINDOW

8 TCONTROL

9 TICON

10 TFONT

11 TMENU

12 TMENUITEM

13 TBAR

14 TRECT

15 TBTNBMP

16 TBITMAP

17 TIMAGE

18 TMSGBAR

19 TMSGITEM

20 TTIMER

21 TSTRUCT

22 TDIALOG

23 TSAY

24 TGET

25 GET

26 TWBROWSE

27 TSCROLLBAR

28 TREG32

Memory Analysis

===============

2159 Static variables

Dynamic memory consume:

Actual Value: 0 bytes

Highest Value: 0 bytes

ai eu tira a funcao e funciona normal corretamente

esta e funcao que eu criei

function vfvencida

** avisa se o funcionario tem ferias a vencer

**

**

select &arq1

data1=ctod(" / / ")

data2=ctod(" / / ")

data3=ctod(" / / ")

data4=ctod(" / / ")

este=0

vano=0

tano=0

vano=year(mdata) - year(&arq1->dt_admiss)

tano=(vano-&arq1->ferias)

if vano<=0 .and. ! year(mdata)=year(&arq1->dt_admiss)

data1=mdata

data2=mdata + 365

este=9

tano=0

endif

if tano=0 .and. year(mdata)=year(&arq1->dt_admiss)

data1=mdata

data2=mdata + 365

este=9

tano=0

endif

if tano > 0

cha1= tano * 365

data3=mdata - cha1

data1=data3

data2=data3 + 365

endif

if este=9

tano=1

endif

For x=1 to tano

sz=dtoc(&arq1->dt_admiss)

sa=substr(sz,1,6)

az=strzero(year(data1),4)

ax=strzero(year(data2),4)

xx=sa+subs(az,3,2)

aa=sa+subs(ax,3,2)

// xss=ctod(aa)+365

// xss=xss-30

vdata1=ctod(xx)

vdata2=ctod(aa)-1

data1= data2

data2= data2 + 365

Next

FCheca:=ctod(" / / ")

fcheca:=vdata2

if year(Fcheca)=year(mdata)

if month(Fcheca)=month(mdata)

msgstop("As ferias deste Funcionario"+chr(13)+;

"Vence este mes "+dtoc(Fcheca),"Aviso")

endif

endif

**********************************************************

select &arq5

return .t.

deste ja obrigado

carlos

fwh 14.04 xharbour 1.2.3 dbf ,xdev

[kapiaba]

Mostre esta função:

fpaltrec.prg => ALT_EVENT( 38 ) // o que tem na linha 38?

[syspel]

nesta linha tem uma dialog com btnbmp ok e btnbmp xcancela

[kapiaba]

nesta linha tem uma dialog com btnbmp ok e btnbm

Tudo isso na LINHA 38??

O programa está quebrando na LINHA 38, investigue ou poste o código como eu disse! Não entendeu o que eu escrevi?

[syspel]

ok obrigado ja achei o erro to ficando usado

brigado capi

[aferra]

e qual foi o erro?

[kapiaba]

e qual foi o erro?

de xHarbour com certeza não foi como ele disse no cabeçalho do tópico, o ERRO foi dele. kkkkkkkkkkkkkkkkkkk

[AnaCatacombs]

Gennntemmm q q isso ! Take it easy aí, João ! kkkkkkkkkkkkkkkkk

[aferra]

ok ok ok, e como ele consertou?

[AnaCatacombs]

Não vi a função, mas o colega tava somando tipo de dados diferentes, talvez por um parâmetro passado incorretamente... Esse tipo de coisa que todo mundo faz kkkkkkk

[aferra]

ok Dona Ana, mas seria de suma importância, que mesmo sendo erro próprio, dissesse o conserto, muitas vezes eu nem precisei fazer perguntas pois com algumas situações com respostas eu imaginei o conserto do meu problema, sempre que faço uma pergunta mesmo que não tenha a resposta eu coloco a solução, mas deixa pra lá isso deve ser da velha guarda do forum,lição aprendida com Paulo, Vagne e a memoria não deixa lembrar de mais heheheheheheehe claro Karinha / Kapiaba / João Santos. hehehehehe e tb não posso esquecer Valdir