syspel

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

oi amingo eu uso uninfe e muito bom,gratis e simple em usar tanto para notas como para esocial ok carlos fwh1805 xharb123 dbf etc

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

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

ola kapi eu tentei compilar so da erro xharbour carlos

este letodbf e um mediador do mysql bem facil de usar

boa tarde arola pessoal alguem ja usou letodbf com xharbour pode me dar um explo de como us parece um mediador muito bom carlos fwh1805 xharbour1805 cdx dbf

ola eu tambem testei so da erro o unico que consequi fazer funcionar e o jose quitas preciso do site dele ou telefone carlos syspel

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

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

bom dia alguem ja tem alguma coisa sobre esocial algum projeto pronto carlos syspel

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

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

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

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

ok obrigado tem uma imagem

EXEMPLO.ZIPbom dia alguem sabe como fazer para tirar este erro do fwh1412 obrigado carlos fwh 1404 xhabr 123 dbf

oi amigo oque faz esta funcao do xharbour eu usei esse exemplo e nao aconteu nada carlos

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

vou testar ja agradeco obrigado

ola bom dia pessoal alguem tem uma funcao que le xls para dbf ou txt do excel para dbf obrigado carlos fhw 1404 xharbour 123 dbf xdev bcc 5.82

ok garoto deu certo obrigado carlos

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.

a pesquin nao e array e uma pesquisa simples

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