quarta-feira, 30 de dezembro de 2020

DICAS 3228 - WINDEV - ACBR 198 - REVISANDO ACBRLIB COM WINDEV - STATUS SERVICO


https://youtu.be/p5XHvTPlPuk



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video Ao Vivo vai estrear as 10:45 do dia 30/12/2020 

DICAS 3228 - WINDEV - ACBR 198 - REVISANDO ACBRLIB COM WINDEV - STATUS SERVICO



ASSUNTOS

Instalar acbr lib e dar status servico
revisao do video abaixo

https://youtu.be/lxVY9aZN7UU

Revisao Codigo
ACBR_INICIALIZAR
ACBR_FINALIZAR
ACBR_CONFIG_LER_VALOR
ACBR_STATUS_SERVICO
VER_RETORNO_MAIOR_256
ACBR_CONFIG_GRAVA_VALOR

========================================
-----------

//PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")
//feito aula 2840 13/04/2020
sRetorno_txt is string=""
gnretorno_acbr is int=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),StringToUTF8(sChaveCrypt))

//nGnretorno_ac_1 is int=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"")
IF gnretorno_acbr=0 THEN
sRetorno_txt="OK"
ELSE
sRetorno_txt="Erro Inicializar["+gnretorno_acbr+"]"+CR
IF gnretorno_acbr=-1 THEN sRetorno_txt+=" Indica que houve falhas na inicializacao da biblioteca "
IF gnretorno_acbr=-5 THEN sRetorno_txt+=" Indica que não foi possível localizar o arquivo INI informado "
IF gnretorno_acbr=-6 THEN sRetorno_txt+=" Indica que não foi possível encontrar o diretório do arquivo INI "
diretorio_atual is string=fExeDir()
sRetorno_txt+=CR+"Arquivo gsarquivoini["+gsarquivo_ini+"]"+CR+"Diretorio Atual["+diretorio_atual+"]"
END
-----------------------
//PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")
//feito aula 2840 13/04/2020

sRetorno_txt is string=""

gnretorno_acbr is int=API(sRecebe_nome_dll,sRecebe_nome_metodo) // 

//gnretorno_acbr is int=API("ACBrNFe32.DLL","NFE_Finalizar")

IF gnretorno_acbr=0 THEN
sRetorno_txt="OK"
ELSE
sRetorno_txt="Erro Finalizar["+gnretorno_acbr+"]"+CR
IF gnretorno_acbr=-2 THEN sRetorno_txt+=" Indica que houve falhas na finalização da biblioteca" 
diretorio_atual is string=fExeDir()
sRetorno_txt+=CR+"Arquivo gsarquivoini["+gsarquivo_ini+"]"+CR+"Diretorio Atual["+diretorio_atual+"]"
END
RESULT sRetorno_txt
------------------
//PROCEDURE ACBR_CONFIG_LER_VALOR(RECEBE_SESSAO,RECEBE_CHAVE)

gnretorno_acbr is int=API("ACBrNFe32.DLL","NFE_ConfigLerValor",RECEBE_SESSAO,RECEBE_CHAVE,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_1024("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,gsResposta))
ELSE
texto is string="Erro Retorno"+" - "+gnretorno_acbr
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" 
IF gnretorno_acbr=-3 THEN texto+=" Indica que houve erro ao ler a configuração informada." 
RESULT texto
END
-------------------------
//PROCEDURE ACBR_CONFIG_GRAVA_VALOR(RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR)
//https://acbr.sourceforge.io/ACBrLib/NFE_ConfigGravarValor.html
//NFE_ ConfigGravarValor(eSessao, eChave, sValor);

gnretorno_acbr is int=API("ACBrNFe32.DLL","NFE_ConfigGravarValor", ... 
           StringToUTF8(RECEBE_SESSAO),StringToUTF8(RECEBE_CHAVE),StringToUTF8(RECEBE_VALOR))
IF gnretorno_acbr=0 THEN
RESULT "ALTERADO COM SUCESSO"
ELSE
texto is string="Erro Retorno "+" - "+gnretorno_acbr
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" 
IF gnretorno_acbr=-3 THEN texto+=" Indica que houve erro ao ler a configuração informada." 
RESULT texto
END

-------------------
//PROCEDURE ACBR_STATUS_SERVICO()
//feito aula 2840 13/04/2020
sRetorno_txt is string=""
gnretorno_acbr is int=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho)

IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,gsResposta))
ELSE

sRetorno_txt="Erro Retorno - "+gnretorno_acbr+" = "
IF gnretorno_acbr=-1 THEN sRetorno_txt+=" [Indica que a biblioteca não foi inicializada]" 
IF gnretorno_acbr=-10 THEN sRetorno_txt+=" [Indica que houve erro ao consultar o status de serviço]" 
sRetorno_txt+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
END

RESULT(sRetorno_txt)
https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html
------------------
//PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA)

gsResposta_maior_256 is string="" // 256
IF RECEBE_GNTAMANHO>256 THEN
gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO)
nGnretorno_acbr is int=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO)
RESULT UTF8ToString(gsResposta_maior_256)
ELSE
RESULT UTF8ToString(RECEBE_GSRESPOSTA)
END

//https://acbr.sourceforge.io/ACBrLib/MDFE_UltimoRetorno.html
//"NFE_UltimoRetorno"


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











































PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 












DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar
DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R..
DICAS 2488 WINDEV WEBDEV MOBILE ACBR 171 ACBR LIB CTE Validar
DICAS 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar
DICAS 2497 WINDEV WEBDEV MOBILE ACBR 174 ACBR LIB CTE Cancelar
DICAS 2499 WINDEV WEBDEV MOBILE ACBR 175 ACBR LIB CTE ImprimirPDF
DICAS 2505 WINDEV WEBDEV MOBILE ACBR 176 CTE ImprimirPDF 2a parte
DICAS 2508 WINDEV WEBDEV MOBILE ACBR 177 MDFe Inicializar E Finalizar
DICAS 2511 WINDEV WEBDEV MOBILE ACBR 178 MDFE CarregarINI
DICAS 2515 WINDEV WEBDEV MOBILE ACBR 179 MDFE CarregarXML
DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml
DICAS 2522 WINDEV WEBDEV MOBILE ACBR 181 MDFE Assinar
DICAS 2524 WINDEV WEBDEV MOBILE ACBR 182 MDFE Validar
DICAS 2527 WINDEV WEBDEV MOBILE ACBR 183 MDFE LimparLista
DICAS 2531 WINDEV WEBDEV MOBILE ACBR 184 MDFE LimparListaEveventosentos
DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar
DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar
DICAS 2539 WINDEV WEBDEV MOBILE ACBR 187 MDFE Consultar
DICAS 2541 WINDEV WEBDEV MOBILE ACBR 189 MDFE Imprimir
DICAS 2544 WINDEV WEBDEV MOBILE ACBR 189 MAIL Inicializar e Finalizar
DICAS 2547 WINDEV WEBDEV MOBILE ACBR 190 MAIL Clear
DICAS 2556 WINDEV WEBDEV MOBILE ACBR LIB 191 MDFE ConsultaMDFeNaoEnc
DICAS 2558 WINDEV WEBDEV MOBILE ACBR LIB 192 MDFE EncerrarMDFe

    RETOMADA ACBRLIB - REVISANDO 

DICA 2840 - 13/04/2020 17:00 - WINDEV WEBDEV MOBILE - ACBR LIB 193 - 1 - REVISAO - INICIALIZAR - FINALIZAR - STATUS SERVICO-

DICA 2845 - 15/04/2020 17:00 - WINDEV WEBDEV MOBILE - ACBR LIB 194 - IMPRIMIR DANFE - CARREGAR XML - LIMPA LISTA
DICA 2850 - 19/04/2020 17:00 - WINDEV WEBDEV MOBILE - ACBR LIB 195 - CONSULTA CADASTRO
DICA 2871 ACBRLIB - 196 - cONSULTORIA ITAMAR feito pelo Amarildo- Dicas 
DICAS 2908 - INSTALANDO HYPERFILE,ERPMATOS,ACBR MONITOR,CLIENTE e FAZENDO INSTALADOR ERPMATOS


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








Teste

Teste
teste