Thank you
Att.
Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
https://malc-informatica.ueniweb.com
Insta: @malcarli25
Email / Skype: malc...@life.com.br
******************************************************************************
Se for repassar, apague o meu nome e endereço.
Ajude a combater a propagação de vírus e spams
coloque TODOS os destinatários em CÓPIA OCULTA (Cco / Bcc)
******************************************************************************
--
Visit our website on https://www.hmgextended.com/ or https://www.hmgextended.org/
---
You received this message because you are subscribed to the Google Groups "Harbour Minigui" group.
To unsubscribe from this group and stop receiving emails from it, send an email to minigui-foru...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/minigui-forum/ca79ab3e-250b-40a0-bdbd-98a079a36960n%40googlegroups.com.
Good morning, I updated to version 23.04 (Update 1) and I went to compile a program and it has these errors. If I compile with the previous version, it gives no error. What changed and how to solve it? thanks
Bom dia, eu atualizei para a versão 23.04 (Update 1) e eu fui compilar um programa e está com esses erros. Se eu compilo com a versão anterior, não dá erro. O que mudou e como resolver? Obg
****************** Classe para Pesquisar Cep ***********************************
#include <hbclass.ch>
CREATE CLASS ViaCep
VAR oCep
VAR cCep INIT []
VAR cIbge INIT []
VAR cLogradouro INIT []
VAR cComplemento INIT []
VAR cBairro INIT []
VAR cLocalidade INIT []
VAR cUf INIT []
VAR cDdd INIT []
VAR cGia INIT []
VAR cSiafi INIT []
METHOD New(cCEP)
ENDCLASS
METHOD New(cCep) CLASS ViaCep
Local cArquivo:= Hb_OemToAnsi(Hb_Utf8ToStr(DownloadTexto([http://viacep.com.br/ws/] + cCep + [/piped/]))), aHtml:= hb_aTokens(cArquivo, [|])
If Len(aHtml) < 7
Return (Nil)
Endif
::cCep := Substr(aHtml[1] , AT([:], aHtml[1]) + 1)
::cLogradouro := Substr(aHtml[2] , AT([:], aHtml[2]) + 1)
::cComplemento:= Substr(aHtml[3] , AT([:], aHtml[3]) + 1)
::cBairro := Substr(aHtml[4] , AT([:], aHtml[4]) + 1)
::cLocalidade := Substr(aHtml[5] , AT([:], aHtml[5]) + 1)
::cUf := Substr(aHtml[6] , AT([:], aHtml[6]) + 1)
::cIbge := Substr(aHtml[7] , AT([:], aHtml[7]) + 1)
::cGia := Substr(aHtml[8] , AT([:], aHtml[8]) + 1)
::cDdd := Substr(aHtml[9] , AT([:], aHtml[9]) + 1)
::cSiafi := Substr(aHtml[10], AT([:], aHtml[10]) + 1)
Return Self
****************** Fim da Classe para Pesquisar Cep ****************************

De: minigu...@googlegroups.com [mailto:minigu...@googlegroups.com] Em nome de Grigory Filatov
Enviada em: terça-feira, 16 de maio de 2023 05:29
Para: Harbour Minigui <minigu...@googlegroups.com>
Assunto: [harbourminigui] Harbour MiniGUI Extended Edition 23.04 (Update 1)
Hi All,
--
Visit our website on https://www.hmgextended.com/ or https://www.hmgextended.org/
---
You received this message because you are subscribed to the Google Groups "Harbour Minigui" group.
To unsubscribe from this group and stop receiving emails from it, send an email to minigui-foru...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/minigui-forum/ca79ab3e-250b-40a0-bdbd-98a079a36960n%40googlegroups.com.
Thanks for the answer, but now it gives more errors than it used to. How to solve this now?
thanks
Obrigado pela resposta, mas agora deu mais erros, que não dava. Como resolver agora isto?
Obg
Script
@echo off
rem Builds Harbour library malc.lib.
:OPT
call ..\..\batch\makelibopt.bat malc h
if %MV_EXIT%==Y goto END
if %MV_DODONLY%==Y goto CLEANUP
:BUILD
if exist %MV_BUILD%\malc.lib del %MV_BUILD%\malc.lib
%MV_HRB%\bin\harbour c:\tools\newpcmso\funcoes.prg c:\tools\newpcmso\sefazclass-master\hbnfeemail.prg -n1 -gc0 -es2 -i%MV_HRB%\include;%MG_ROOT%\include
%MG_BCC%\bin\bcc32 -c -w -O2 -tW -tWM -d -a8 -OS -5 -6 -I%MV_HRB%\include;%MG_BCC%\include -L%MV_HRB%\lib;%MG_BCC%\lib funcoes.c hbnfeemail.c
%MG_BCC%\bin\tlib %MV_BUILD%\malc.lib +funcoes.obj +hbnfeemail.obj
if exist %MV_BUILD%\malc.bak del %MV_BUILD%\malc.bak
pause
:CLEANUP
if %MV_DODEL%==N goto END
if exist *.obj del *.obj
if exist *.c del *.c
:END
call ..\..\batch\makelibend.bat
To view this discussion on the web, visit https://groups.google.com/d/msgid/minigui-forum/296a5fb7-ba95-432f-a4e5-a5d6923d2e6dn%40googlegroups.com.
--