Jump to content
Fivewin Brasil

syspel

Membros
 View Profile  See their activity

  • Posts

    511

  • Joined

  • Last visited

  • Days Won

    3

 Content Type 

Posts posted by syspel

  1. erro internet explore

    in Programação

    Posted

    ola pessoal bom dia estou com esse erro no internet explorer  11.0

    win 7 utimate 

    obrigado carlos

       Path and name: C:\Rh\FPM.EXE (32 bits)

       Size: ********* bytes

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

       FiveWin  version: FWH 18.05

       C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)

       Windows version: 6.1, Build 7601 Service Pack 1

     

       Time from start: 0 hours 0 mins 41 secs

       Error occurred at: 17/09/2019, 10:59:04

       Error description: Error TOleAuto/65535  : TOLEAUTO:NEW

       Args:

         [   1] = C   InternetExplorer.Application

         [   2] = U  

         [   3] = U  

     

    Stack Calls

    ===========

       Called from:  => THROW( 0 )

       Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 )

       Called from: source\rtl\win32ole.prg => CREATEOBJECT( 0 )

       Called from: xbrowgrd.prg => ERZE( 496 )

       Called from: xbrowgrd.prg => (b)ESOCMAIN( 77 )

       Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 179 )

       Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1686 )

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

       Called from:  => SENDMESSAGE( 0 )

       Called from: dialog.prg => TDIALOG:COMMAND( 426 )

       Called from:  => TWINDOW:HANDLEEVENT( 0 )

       Called from: dialog.prg => TDIALOG:HANDLEEVENT( 929 )

       Called from:  => DIALOGBOXINDIRECT( 0 )

       Called from: dialog.prg => TDIALOG:ACTIVATE( 298 )

       Called from: xbrowgrd.prg => ESOCMAIN( 82 )

       Called from: esocial.prg => (b)ESOCIALMENU( 82 )

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

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

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

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

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

       Called from:  => WINRUN( 0 )

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

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

     

    System

    ======

       CPU type: AMD Athlon(tm) II X2 250 Processor 3013 Mhz

       Hardware memory: 3071 megs

     

       Free System resources: 90 %

            GDI    resources: 90 %

            User   resources: 90 %

     

       Windows total applications running: 11

          1 ,                                                                                                    

          2 , C:\Rh\FPM.EXE                                                                                      

          3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697

          4 , C:\Windows\system32\SHLWAPI.dll                                                                    

          5 , C:\Windows\system32\explorerframe.dll                                                               

          6 , C:\Windows\system32\ieframe.DLL                                                                    

          7 DDE Server Window, C:\Windows\system32\OLE32.DLL                                                                       

          8 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.17514_none_72d18a4386696c

          9 MCI command handling window, C:\Windows\system32\WINMM.DLL                                                                       

         10 MS_WebcheckMonitor, C:\Windows\system32\SHDOCVW.dll                                                                    

         11 Program Manager, C:\Windows\system32\SHELL32.dll                                                                     

     

    Variables in use

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

       Procedure     Type   Value

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

       THROW

         Param   1:    O    Class: ERROR

         Local   1:    U   

         Local   2:    U   

       TOLEAUTO:NEW

         Param   1:    C    "InternetExplorer.Application"

         Param   2:    U   

         Param   3:    U   

         Local   1:    O    Class: TOLEAUTO

         Local   2:    O    Class: ERROR

         Local   3:    C    "C"

       CREATEOBJECT

         Param   1:    C    "InternetExplorer.Application"

         Local   1:    U   

       ERZE

         Local   1:    A    Len:    2

         Local   2:    C    "C:\esocialsyspel\54026992000821\retorno\ID154026992000821201908281427320002039evtTabLotacao-S1020-ret-esocial-consloteevt.xml"

       (b)ESOCMAIN

         Param   1:    O    Class: TBUTTON

       TBUTTON:CLICK

         Local   1:    O    Class: TBUTTON

       TBUTTON:HANDLEEVENT

         Param   1:    N    2048

         Param   2:    N    0

         Param   3:    N    0

         Local   1:    O    Class: TBUTTON

         Local   2:    U    

       _FWH

         Param   1:    N    0

         Param   2:    N    2048

         Param   3:    N    0

         Param   4:    N    0

         Param   5:    N    23

         Local   1:    O    Class: TBUTTON

       SENDMESSAGE

         Param   1:    N    590336

         Param   2:    N    2048

         Param   3:    N    0

         Param   4:    N    0

       TDIALOG:COMMAND

         Param   1:    N    217

         Param   2:    N    590336

         Local   1:    O    Class: TDIALOG

         Local   2:    O    Class: TBUTTON

         Local   3:    N    0

         Local   4:    N    217

         Local   5:    N    590336

         Local   6:    U   

       TWINDOW:HANDLEEVENT

         Param   1:    N    273

         Param   2:    N    217

         Param   3:    N    590336

       TDIALOG:HANDLEEVENT

         Param   1:    N    273

         Param   2:    N    217

         Param   3:    N    590336

         Local   1:    O    Class: TDIALOG

       DIALOGBOXINDIRECT

         Param   1:    N    4194304

         Param   2:    C    "€ È€     3 ) YÏ     B r o w s e     ±P      H  Ó T W B R O W S E         P    « $
     Ô B U T T O N   E x c l u i   X m l       P    < « 5
     Õ B U T T O N   V e r i f i c a r   P r o t o c o l o         P    x « 9
     Ö B U T T O N   E n v i o C o n s / P r o t o c o l o         P    º « $
     × B U T T O N   R e l a t o r i o         P    ä « $
     Ø B U T T O N   L i m p a   T u d o       P   
    « ­
     Ù B U T T O N   C h e c k         P    2« ­
     Ú B U T T O N   C a n c e l a       "

         Param   3:    N    721514

         Param   4:    O    Class: TDIALOG

         Local   1:    N    1

         Local   2:    N    1

         Local   3:    N    1

         Local   4:    N    1

         Local   5:    N    1

         Local   6:    N    1

         Local   7:    N    1

         Local   8:    U   

         Local   9:    U   

         Local  10:    U   

         Local  11:    U   

         Local  12:    U   

         Local  13:    U   

         Local  14:    U   

         Local  15:    U   

         Local  16:    U   

         Local  17:    U   

         Local  18:    U   

         Local  19:    U   

         Local  20:    U   

         Local  21:    U   

         Local  22:    U   

         Local  23:    N    1

         Local  24:    U   

         Local  25:    U   

         Local  26:    U   

         Local  27:    U   

         Local  28:    U   

         Local  29:    U   

         Local  30:    U   

         Local  31:    U   

         Local  32:    U   

         Local  33:    U   

         Local  34:    U   

         Local  35:    U   

         Local  36:    U   

         Local  37:    U   

         Local  38:    U   

         Local  39:    U   

         Local  40:    U   

         Local  41:    U   

         Local  42:    U   

         Local  43:    U   

       TDIALOG:ACTIVATE

         Param   1:    U   

         Param   2:    U   

         Param   3:    U   

         Param   4:    L    .F.

         Param   5:    U   

         Param   6:    L    .T.

         Param   7:    U   

         Param   8:    U   

         Param   9:    U   

         Param  10:    U   

         Param  11:    U   

         Local   1:    O    Class: TDIALOG

         Local   2:    N    721514

         Local   3:    U   

         Local   4:    U   

         Local   5:    U   

         Local   6:    O    Class: TDIALOG

       ESOCMAIN

         Local   1:    O    Class: TFONT

         Local   2:    U   

       (b)ESOCIALMENU

         Param   1:    O    Class: TBTNBMP

       TBTNBMP:CLICK

         Local   1:    O    Class: TBTNBMP

       TBTNBMP:LBUTTONUP

         Param   1:    N    31

         Param   2:    N    29

         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    2031645

         Local   1:    O    Class: TBTNBMP

         Local   2:    U   

       TBTNBMP:HANDLEEVENT

         Param   1:    N    514

         Param   2:    N    0

         Param   3:    N    2031645

         Local   1:    O    Class: TBTNBMP

       _FWH

         Param   1:    N    2031645

         Param   2:    N    514

         Param   3:    N    0

         Param   4:    N    2031645

         Param   5:    N    78

         Local   1:    O    Class: TBTNBMP

       WINRUN

         Param   1:    N    1311356

       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   

         Param  20:    L    .F.

         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

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

     

      1:    ETMP                               RddName: DBFCDX

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

         RecNo    RecCount    BOF   EOF

              1            0      .T.   .T.

     

         Indexes in use                        TagName

     

         Relations in use

     

      2: => PROTO017                           RddName: DBFCDX

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

         RecNo    RecCount    BOF   EOF

              1           98      .F.   .F.

     

         Indexes in use                        TagName

            => empresa+psocial+mesano+strzero(flegPROTO017

     

         Relations 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 TSKINBUTTON

        12 TDIALOG

        13 TBUTTON

        14 TREG32

        15 TMENU

        16 TMENUITEM

        17 TBAR

        18 TRECT

        19 TBTNBMP

        20 TBITMAP

        21 TIMAGE

        22 TMSGBAR

        23 TMSGITEM

        24 TTIMER

        25 TSTRUCT

        26 TSAY

        27 TGET

        28 GET

        29 TCLIPGET

        30 TWBROWSE

        31 TSCROLLBAR

        32 TCOMBOBOX

        33 TCHECKBOX

        34 TOLEAUTO

     

    Memory Analysis

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

          3172 Static variables

     

       Dynamic memory consume:

          Actual  Value:          0 bytes

          Highest Value:          0 bytes

             

  3. array

    in Programação

    Posted

    ok pessoal obrigado 

    das ideia que vc deram eu consequi resolver

    usei  fwrite os demais exemplos no final do arquivo gera um caracterer estanho

    eu uma nova tecnica neste exeplos

    muito obrigado

  4. array

    in Programação

    Posted

     

    bom dia 

    preciso salvar este este array dentro de arquivo txt

    como eu faço isto

    obrigado

    carlos

    fwh1805  dbf  clip53 bcc730

     

    clear
    set talk off
    set date brit

    mdata=ctod("30/01/2019")

    pcnpj="72898646000149"

    envio  ="..\esocialsyspel\"+pcnpj+"\envio\"
    enviado="..\esocialsyspel\"+pcnpj+"\enviado\"

    select 1
    use etmp
    go top

    aesocial:={}

    Do While ! Eof()

      select 1

       AADD(aesocial,{rtrim(etmp->linha)})

       select 1
       skip

    Enddo

    use

    info=" "

    For V1:=1 To Len(aesocial)

          if aesocial[v1,1]="</evento>"

             memowrit("S2200.xml",info)

         endif
    next


     

  9. esocial

    in Programação

    Posted

    bom tarde

    terminei de gerar o xml do esocial s1000.xml,agora preciso de ler o certifcado digital a3,alguem tem ideia de como utilizar o certificado

    estava tendando usuar a dll capicom alguem tem ideia como fazer tudo isso

    obrigado

     

    carlos 

    fwh1402,xharbour 123 xdev fwh1404

     

     

     

  10. Esocial Ambiente de testes

    in Programação

    Posted

    bom dia 

    estou montando este projeto e um  projeto muito dificil  de entende pois tem os lay out,mais nao tem explicacao de como gravar no banco de 

    dados,estou mais ou menos fazendo a olho,pois tem campos que que nao tem explicacao de como gravar.

    ja fiz e retifis este programa mais de 3 vezes cada novo lay-out que sai se joga tudo que ja foi feito fora

    eu acho quem esta fazendo o esocial nao tem ideia de como faz um projeto ,ele repete duas vezes o nome da empresa,endereco e assim por diante

    os caras so colocam nos na fogueira

    e um saco este governo

    esta ta muito dificil 

    carlos syspel

    ailtonsather@gmail.com

     

  12. xharbour

    in Programação

    Posted

    ola amiquinhos

    gera os executal sem da erros numa boa

    mais quando pede para executal  ele demora um pouco e depois da esta mensagem hb_xrealloc

    e volta de onde partiu

    obrigado 

    carlos 

     

  13. xharbour

    in Programação

    Posted

    eu usei a lib shell32.lib linkando com 1 programa blz 

    mais com varios programa da erro hb_xrealloc

    com a mensagem nao pode realocar a memoria 

    e nao funciona

    obrigado

    carlos

     

     

     

  14. xharbour

    in Programação

    Posted

    ok obrigado 

    tem uma imagem

    xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
    Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
    Compiling 'taco.prg'...
    100 100 100 100 200 300 400 500 600 700 800 900 1000 1100 100 200 100 200 100 200 100 100 200 100 200 100 100 200 300 400 500 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 Generating C source output to 'taco.c'...
    Done.
    Lines 35, Functions/Procedures 1, pCodes 119
    Embarcadero C++ 6.80 for Win32 Copyright (c) 1993-2014 Embarcadero Technologies, Inc.
    taco.c:
    Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
    Error: Unresolved external 'SHCreateDirectoryExA' referenced from C:\FWH1412\LIB\FIVEHC.LIB|MKDIR
    Error: Unable to perform link

    ja agradeco obrigado

    carlos

     

  15. xharbour

    in Programação

    Posted

    ok obrigado 

    tem uma imagem

    xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
    Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/
    Compiling 'taco.prg'...
    100 100 100 100 200 300 400 500 600 700 800 900 1000 1100 100 200 100 200 100 200 100 100 200 100 200 100 100 200 300 400 500 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 Generating C source output to 'taco.c'...
    Done.
    Lines 35, Functions/Procedures 1, pCodes 119
    Embarcadero C++ 6.80 for Win32 Copyright (c) 1993-2014 Embarcadero Technologies, Inc.
    taco.c:
    Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
    Error: Unresolved external 'SHCreateDirectoryExA' referenced from C:\FWH1412\LIB\FIVEHC.LIB|MKDIR
    Error: Unable to perform link

    ja agradeco obrigado

    carlos

     

  19. excell csv

    in Programação

    Posted

    bom dia  pessoal 

    estou precisando de uma ajuda

    tenha dentro do dbf esta linha assim

    3285;18;281;DEBITO VISA DO BRANCO DO BRASIL NO DIA 02/12 ;01;02;114,23

    preciso ler esta linha no dbf  os primeiro 4 digito e uma conta de debito e a 2 conta e uma conta de credito

    podendo variar as posicao do debito pode ter 2 posicao do cretito pde ter 4 posicao depois o historico eassim por diante

    ate chegar no  ponto e virgula  e ate chegar no valor 

    ja puchei os cabelos e nao consigo  andar  depois do prinemiro ponto e virgula

    alguel ten uma luz

    obrigado 

    carlos

    fwh 1404 xharbour 123 dbf xdev

     

     

     

     

  23. listbbox

    in Programação

    Posted

    Function serv53
    Local tobp
    Sele Codstmdo
    set order to 2
    go top

    vsdescri=space(40)

    Define Dialog fd1 from 1.5,15 to 20.5,77 title "Codigo de Serviço " style 0


     @ 0.4,0.8 LISTBOX tobp FIELDS Codstmdo->s_codigo,Codstmdo->s_descric ;
     ALIAS"Codstmdo"HEADERS'Código','Descrição' size 230,90 ;
     OF fd1 On DblClick (Beep(),pufaf53(saget),fd1:end()) font ofont3

        tobp:lMChange       := .F.         // Desabilita Mousemove
        tobp:SetFocus()                  // Refocus on The Browse
        tobp:Refresh()                     // Estabiliza o browse/listbox
        tobp:Default()                     // Para SetFilter() // Acho... Sei lá...
        tobp:nRowPos := 1                 // ?? Ver com Vagner Wirts... Sei lá... Uso WorkShop.Exe

        tobp:bkeydown={| nkey | pufeca53(nkey) }

        tobp:bMMoved = { | nRow, nCol, nFlags | aadesc53() }

        sysrefresh()


     @ 6.9,3   say "Nome:"  of fd1 size 18,10 font ofont3
     @ 7.9,5   get oas var vsdescri pict "@!"  of fd1 size 150,10 font ofont3 valid busacca53()


    Activate dialog fd1 centered
    set order to 1
    saget[1]:refresh()
    saget[1]:setfocus()
    Return .T.

    Static Function pufaf53(iget)
    saget[1]:VarPut(Codstmdo->s_codigo)  ; saget[1]:Refresh()
    Return(Nil)


    Static Function pufeca53(nkey)
    if nkey=13
      saget[1]:VarPut(Codstmdo->s_codigo)
      saget[1]:Refresh()
      saget[1]:setfocus()
      fd1:end()
    endif
    Return(Nil)


    Function busacca53
    if ! empty(vsdescri)
      select codstmdo
      set order to 2
      seek alltrim(vsdescri)
     if ! found()
       msgstop("Codigo nao existe","Aviso")
       select codstmdo
       set order to 2
       go top
       return .f.
     endif
    endif
    aa=recno()
    go aa
    oas:refresh()
    return .t.

  25. listbbox

    in Programação

    Posted

    bom dia pessoal,

    estiou fazendo uma pesquisa por coidigo no listbox,, o registro e encontrado mais o ponteiro nao fica em cima do registro no listbox

    alguem sabe como fazer isto ?

     

    obrigado

    carlos

    fwh 1404 xhabr 123 dbf 

     

     

×
×
  • Create New...