Amarildo de Matos

2 Março, 2020

boa tarde..

tem como enviar o xml completo?.. para analisar

2 Março, 2020

boa tarde..

fiz um exemplo agora.. para voce..

ent_correcao_350_001.txt

2 Março, 2020

boa tarde..

tem como mandar o xml gerado para poder analizar.?

20 Fevereiro, 2020

bom dia..

Acredito que de consumo indevido , por voce esta a toda hora consultando a nota fiscal..

Vou lhe dar uma dica, de como é feito no nosso Sistema ErpMatos .

O que voce faz, nao precisamos fazer, pois fizems a manifestacao das notas.

no caso damos ciencia, fizemos o donwload da nota, e ai coloco ele no banco de dados, das notas e contas a pagar.

se caso voce queira que o fornecedor nao cancele a nota, e´so dar confimacao da operacao.

20 Fevereiro, 2020

bom dia..

Tenho cliente em sao Paulo, e nao foi me reportado que deu proplema.. a principio tudo ok.

olhando a disponibilidade de SP esta tudo ok

http://www.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY=

17 Fevereiro, 2020

bom dia..

Utilize o comando NFe.ConsultarNFe("path_XML") passando como parâmetro o path do XML a ser atualizado.

https://acbr.sourceforge.io/ACBrMonitor/NFEConsultarNFe.html

7 Janeiro, 2020

bom dia..

verifique a hora do computador para ver se esta com alguma diferenca.

valeu

3 Janeiro, 2020

boa tarde..

voce esta usando o acbrmonitorplus?

15 Dezembro, 2019

Boa Noite

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2558-windev-webdev-mobile-acbr.html

Nesse link acima do meu blog, tem os codigos fontes documentados.

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 15:00 do dia 15/12/2019.
Dica 2558. Método usado para Enviar um Evento para SEFAZ, no caso Encerramento do Mdfe.

DICAS 2558 - WINDEV WEBDEV MOBILE - ACBR LIB 192 - MDFE_EncerrarMDFe

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://acbr.sourceforge.io/ACBrLib/MDFE_EncerrarMDFe.html

codigo_fonte.txt

14 Dezembro, 2019

boa tarde

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 18:00 do dia 14/12/2019.
Dica 2556. Método usado para Enviar um Evento para SEFAZ, No Caso Consulta Mdfe Nao Encerrado.

DICAS 2556 - WINDEV WEBDEV MOBILE - ACBR LIB 191 - MDFE_ConsultaMDFeNaoEnc

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2556-windev-webdev-mobile-acbr.html

( Observacao: Nesse link acima do blog , tem os fontes disponiveis. )

https://acbr.sourceforge.io/ACBrLib/MDFE_ConsultaMDFeNaoEnc.html

11 Dezembro, 2019

boa noite

============================
PROCEDURE acbr_MAIL_Clear()
gnretorno_acbr=API("ACBrMail32.dll","MAIL_Clear")
IF gnretorno_acbr=0 THEN
   RESULT("0")
ELSE
   texto is string="MAIL_Clear-Erro Retorno ["+gnretorno_acbr+"]"+CR
   IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR
   IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar o ACBrMail"+CR
   texto+=CR+"----------"
   texto+=CR+"Nome Dll["+"ACBrMail32.dll"+"]"
   texto+=CR+"Nome Metodo ["+"MAIL_Clear"+"]"
   texto+=CR+"----------"
   RESULT texto
END
//Comando: MAIL_Clear();
//Método usado para limpar o componente ACBrMail
============================

// BTN MAIL_Clear

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMail32.dll","MAIL_Inicializar")
IF bRETORNO=True THEN

EDT_RESPOSTA=acbr_MAIL_Clear()
IF EDT_RESPOSTA=0 THEN
    Info("limpou com sucesso")
ELSE
    Info(EDT_RESPOSTA)
END

ELSE
EDT_RESPOSTA="erro inicializar dll email"
END
ACBR_FINALIZAR("ACBrMail32.dll","MAIL_Finalizar")
EDT_RESPOSTA+=CR+"Finalizou"

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

Bom Dia
Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 08:00 do dia 11/12/2019.
Dica 2547. Método usado para limpar o componente ACBrMail

DICAS 2547 - WINDEV WEBDEV MOBILE - ACBR 190 - MAIL_Clear

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

10 Dezembro, 2019

bom dia

==============================
// BTN_MAIL_INICIALIZAR_fINALIZAR
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMail32.dll","MAIL_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA="Inicializou com sucesso Dll Email"
ELSE
EDT_RESPOSTA="erro inicializar dll email"
END
ACBR_FINALIZAR("ACBrMail32.dll","MAIL_Finalizar")
EDT_RESPOSTA+=CR+"Finalizou"
==============================
PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),StringToUTF8(sChaveCrypt))
IF gnretorno_acbr=0 THEN
   RESULT True
ELSE
   texto is string="Erro Retorno"+" - "+gnretorno_acbr
   IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca "
   IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado "
   IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI "
   RESULT texto
END
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"")
==============================
PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)
IF gnretorno_acbr=0 THEN
   RESULT True
ELSE
   texto is string="Erro Retorno"+" - "+gnretorno_acbr
   IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca"
   Info("ERRO FINALIZAR DLL"+texto)
   RESULT texto
END
//https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar")
==============================

Bom Dia

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 10 12 2019.
Dica 2544. Método usado para inicializar e Finalizar EMAIL na dll ACBrLibMail.
DICAS 2544 - WINDEV WEBDEV MOBILE - ACBR 189 - MAIL_Inicializar_E_Finalizar
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2544-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MAIL_Inicializar.html
https://acbr.sourceforge.io/ACBrLib/MAIL_Finalizar.html

9 Dezembro, 2019

bom dia

// BTN IMPRIMIR DADMFE MDFE
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
   EDT_RESPOSTA=ACBR_LIMPA_LISTA("ACBrMDFe32.dll","MDFE_LimparLista")
   EDT_RESPOSTA+=CR+"Carregar Xml["+ACBR_CARREGARXML("ACBrMDFe32.dll","MDFE_CarregarXML",EDT_XML)+"]"
   gnretorno_acbr=API("ACBrMDFe32.dll","MDFE_Imprimir","",1,EDT_PROTOCOLO_MDFE,"true")
   EDT_RESPOSTA+=CR+"Mdfe Imprimir["+gnretorno_acbr+"]"
   // Comando: MDFE_Imprimir( [cImpressora], [nNumCopias], [cProtocolo], [bMostrarPreview] );
ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")

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

Bom Dia
Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 09 12 2019.
Dica 2541. Método usado para imprimir o DADMFe dos Manifestos carregados.

DICAS 2541 - WINDEV WEBDEV MOBILE - ACBR 189 - MDFE_Imprimir
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2541-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_Imprimir.html

8 Dezembro, 2019

bom dia

=================
// btn MDFE CONSULTAR
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
   CONSULTA_XML is string=""
   IF EDT_CONSULTA_eChave="" THEN
       CONSULTA_XML=EDT_consulta_Arquivo_xml
   ELSE
       CONSULTA_XML=EDT_CONSULTA_eChave
   END
   EDT_RESPOSTA=ACBR_CONSULTAR("ACBrMDFe32.DLL","MDFE_Consultar","MDFE_UltimoRetorno",CONSULTA_XML)
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
========================
PROCEDURE ACBR_CONSULTAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ...
sRECEBE_XML_OU_CHAVE is string="")

//sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="",sRECEBE_XML_OU_CHAVE IS STRING="")
gsResposta is string on 256
gnTamanho is system int=256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,sRECEBE_XML_OU_CHAVE,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
   RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_retorno,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=-5 THEN texto+=" Indica que o arquivo passado não existe."
   IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP."
   IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar."
   IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada."
   texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,sRecebe_nome_retorno)
   RESULT texto
END

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

Bom Dia
Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 08 12 2019.
Dica 2539. Método usado para consultar um MDFe na SEFAZ

DICAS 2539 - WINDEV WEBDEV MOBILE - ACBR 187 - MDFE_Consultar
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2539-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_Consultar.html

7 Dezembro, 2019

bom dia

==================================
// btn_Mdfe_cancelar_cancelar
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN

   EDT_RESPOSTA=ACBR_CANCELAR("ACBrMDFe32.DLL","MDFE_Cancelar","MDFE_UltimoRetorno", ...
   EDT_mdfe_cancelar_eChave,EDT_mdfe_cancelar_Justificativa, ...
   EDT_mdfe_cancelar_cnpj_emitente,EDT_mdfe_cancelar_numero_lote)

ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
==================================
PROCEDURE ACBR_CANCELAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ...
sRECEBER_eChave is string="",sRECEBER_eJustificativa is string="", ...
sRECEBER_eCNPJ is string="",nRECEBER_ALote is int=0)
GsResposta is string on 256
GsResposta_maior_256 is string=""
gnTamanho is system int=256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_eChave), ...
StringToUTF8(sRECEBER_eJustificativa),
StringToUTF8(sRECEBER_eCNPJ),nRECEBER_ALote,
&GsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
   RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_retorno,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=-7 THEN texto+=" Indica erro na comunicação HTTP"
   IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao NFE Cancelar"
   // texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
   RESULT texto
END
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Cancelar",StringToUTF8(sRECEBER_eChave), ...
//   RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,GsResposta))

//https://acbr.sourceforge.io/ACBrLib/NFE_Cancelar.html
//Comando:NFE_ Cancelar( eChave, eJustificativa, eCNPJ, ALote, sResposta, esTamanho );
========================================
PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA)
gsResposta_maior_256 is string=""
IF RECEBE_GNTAMANHO>256 THEN
   gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO)
   gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO)
   RESULT UTF8ToString(gsResposta_maior_256)
ELSE
   RESULT UTF8ToString(RECEBE_GSRESPOSTA)
END
//"NFE_UltimoRetorno"
=====================================================
PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnTamanho is system int=256
gsResposta is string on 256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho)
sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR
sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta)
RESULT sTEXTO_R
======================================================

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 07 12 2019.
Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip
Dica 2537. Método usado para Cancelar um MDFe na SEFAZ.
DICAS 2537 - WINDEV WEBDEV MOBILE - ACBR 186 - MDFE_Cancelar
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2537-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_Cancelar.html

6 Dezembro, 2019

bom dia

===================================================
PROCEDURE ACBR_MDFE_enviar(nRecebe_lote is int=0,bRecebe_imprimir is boolean=True,bRecebe_sincrono is boolean=True)
gsResposta is string on 256
gnTamanho is system int=256

gnretorno_acbr=API("ACBrMDFe32.DLL","MDFE_Enviar",nRecebe_lote, bRecebe_imprimir,bRecebe_sincrono,&gsResposta,&gnTamanho)

IF gnretorno_acbr=0 THEN

   RESULT(VER_RETORNO_MAIOR_256("ACBrMDFe32.DLL","MDFE_UltimoRetorno",gnTamanho,gsResposta))

ELSE
   texto is string="MDFE_Enviar-Erro Retorno ["+gnretorno_acbr+"]"+CR
   IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR
   IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP"+CR
   IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Enviar Cte"+CR

   texto+=ACBR_ULTIMO_RETORNO("ACBrMDFe32.DLL","MDFE_UltimoRetorno")

   texto+=CR+"----------------"
   texto+=CR+"nome dll[ACBrMDFe32.DLL]"
   texto+=CR+"nome metodo[MDFE_Enviar]"
   texto+=CR+"nome Ultimo Retorno[MDFE_UltimoRetorno]"
   texto+=CR+"----------------"

   RESULT texto

END

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

==================================================
PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnTamanho is system int=256
gsResposta is string on 256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho)
sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR
sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta)
RESULT sTEXTO_R
============================================
//BTN ASSINAR VALIDAR XML TRANSMITIR MDFE
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
   EDT_RESPOSTA=ACBR_LIMPA_LISTA("ACBrMDFe32.dll","MDFE_LimparLista")
   EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
   IF EDT_RESPOSTA=0 THEN
       EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno")
       IF EDT_RESPOSTA=0 THEN
           EDT_RESPOSTA=ACBR_Validar("ACBrMDFe32.dll","MDFE_Validar","MDFE_UltimoRetorno")
           IF EDT_RESPOSTA=0 THEN

               EDT_RESPOSTA=ACBR_MDFE_enviar(EDT_MDFE_Enviar_LOTE,INT_MDFE_Enviar_imprimir,INT_MDFE_Enviar_Sincrono)
               Info("Enviou"+CR+EDT_RESPOSTA)
           ELSE
               EDT_RESPOSTA+=CR+"ERRO VALIDAR"
           END
       ELSE
           EDT_RESPOSTA+=CR+"ERRO ASSINAR"
       END
   ELSE
       EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
   END
ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
======================================

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 06 12 2019.
Dica 2534.Método usado para enviar um lote de MDFe para SEFAZ.

DICAS 2534 - WINDEV WEBDEV MOBILE - ACBR 185 - MDFE_Enviar

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2534-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_Enviar.html

5 Dezembro, 2019

bom dia

=====================================
PROCEDURE acbr_LimparListaEventos(recebe_nome_dll is string="",recebe_nome_metodo is string="")
gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo)
IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso
   Info("LIMPOU CORRETAMENTE")
   RESULT "0"
ELSE
   texto is string="Limpa Lista Eventos-Erro Retorno ["+gnretorno_acbr+"]"+CR
   IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR
   IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar a lista Eventos."+CR
   texto+="Dll->"+recebe_nome_dll+CR
   texto+="Metodo->"+recebe_nome_metodo+CR
   Info("ERRO RETORNO LIMPA LISTA")
   RESULT texto
END
========================================
// BTN_CARTA_ACBR_NFE_ENVIARVENTO
//https://acbr.sourceforge.io/ACBrMonitor/ManifestacaodoDestinatarioCienci.html
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar")
IF bRETORNO=True THEN
   EDT_carTA_RESPOSTA=acbr_LimparListaEventos("ACBrNFe32.dll","NFE_LimparListaEventos")
   EDT_carTA_RESPOSTA=ACBR_NFE_CarregarEventoINI(EDT_CARTA_CONTEUDO_INI)
   EDT_carTA_RESPOSTA+=CR+"ENVIAR EVENTO=>"+CR+ACBR_NFE_EnviarEvento(0)
END
ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar")

=========================================
Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 05 12 2019.
Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip
Dica 2531.Método usado para limpar a lista de eventos no componente ACBrMDFe.
DICAS 2531 - WINDEV WEBDEV MOBILE - ACBR 184 - MDFE_LimparListaEventos
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2531-windev-webdev-mobile-acbr_5.html
https://acbr.sourceforge.io/ACBrLib/MDFE_LimparListaEventos.html

4 Dezembro, 2019

bom dia

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2527-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/MDFE_LimparLista.html

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 04 12 2019.
Dica 2527. Método usado para limpar a lista de mdfe no componente ACBrMDFe.

DICAS 2527 - WINDEV WEBDEV MOBILE - ACBR 183 - MDFE_LimparLista

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

PROCEDURE ACBR_LIMPA_LISTA(recebe_nome_dll is string="",recebe_nome_metodo is string="")
gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo)
IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso
RESULT "0"
ELSE
texto is string="Limpa Lista-Erro Retorno ["+gnretorno_acbr+"]"+CR
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar a lista."+CR
texto+="Dll->"+recebe_nome_dll+CR
texto+="Metodo->"+recebe_nome_metodo+CR
Info("ERRO RETORNO LIMPA LISTA")
RESULT texto
END
==================
// btn NFE TRANSMITIR XML
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar")
IF bRETORNO=True THEN
EDT_TRANMISSAO_RESPOSTA=ACBR_LIMPA_LISTA("ACBrNFe32.DLL","NFE_LimparLista")
EDT_TRANMISSAO_RESPOSTA=ACBR_CARREGARINI("ACBrNFe32.DLL","NFE_CarregarINI",EDT_INI)
IF EDT_TRANMISSAO_RESPOSTA=0 THEN
EDT_TRANMISSAO_RESPOSTA=ACBR_Assinar("ACBrNFe32.DLL","NFE_Assinar","NFE_UltimoRetorno")
IF EDT_TRANMISSAO_RESPOSTA=0 THEN
EDT_TRANMISSAO_RESPOSTA=ACBR_Validar("ACBrNFe32.DLL","NFE_Validar","NFE_UltimoRetorno")
IF EDT_TRANMISSAO_RESPOSTA=0 THEN
EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_Enviar(EDT_NFE_Enviar_LOTE, ...
INT_NFE_Enviar_imprimir,INT_NFE_Enviar_Sincrono,INT_NFE_Enviar_Zipado)
Info(EDT_TRANMISSAO_RESPOSTA)
ELSE
EDT_TRANMISSAO_RESPOSTA+=CR+"erro VALIDAR"
END
ELSE
EDT_TRANMISSAO_RESPOSTA+=CR+"erro aSSINAR"
END
ELSE
EDT_TRANMISSAO_RESPOSTA+=CR+"erro carregar ini"
END
END
ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar")
================

3 Dezembro, 2019

bom dia

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

========================
// btn NFE ASSINAR VALIDAR XML MDFE
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
   EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
   IF EDT_RESPOSTA=0 THEN // carregou com sucesso
       EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno")
       IF EDT_RESPOSTA=0 THEN

           EDT_RESPOSTA=ACBR_Validar("ACBrMDFe32.dll","MDFE_Validar","MDFE_UltimoRetorno")
           IF EDT_RESPOSTA=0 THEN
               EDT_RESPOSTA+=CR+"ASSINADO E VALIDADO COM SUCESSO"
           ELSE
               Info("ERRO AO VALIDAR MDFE"+CR+EDT_RESPOSTA)
           END

   ELSE
   Info("ERRO AO ASSINAR"+EDT_RESPOSTA)
       END
   ELSE
       EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
   END
ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
===============
PROCEDURE ACBR_Validar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
recebe_ultimo_Retorno is string="")
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Validar")
IF gnretorno_acbr=0 THEN // 0 = VALIDOU COM SUCESSO
   RESULT("0")
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=-10 THEN texto+=" Indica que houve erro ao Validar"
texto+=CR+ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno)
RESULT texto
END
//https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html
// NFE_Validar;
//texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
================
PROCEDURE ACBR_LIMPA_LISTA(recebe_nome_dll is string="",recebe_nome_metodo is string="")
gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo)
IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso
   RESULT "0"
ELSE
   texto is string="Limpa Lista-Erro Retorno ["+gnretorno_acbr+"]"+CR
   IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada "+CR
   IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao limpar a lista."+CR
   texto+="Dll->"+recebe_nome_dll+CR
   texto+="Metodo->"+recebe_nome_metodo+CR

   Info("ERRO RETORNO LIMPA LISTA")
   RESULT texto

END

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

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2524-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_Assinar.html

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 03 12 2019.
Dica 2524. Método usado para validar os mdfe assinados através do componente ACBrMDFe.

DICAS 2524 - WINDEV WEBDEV MOBILE - ACBR 182 - MDFE_Validar

2 Dezembro, 2019

bom dia

======================
// btn MDFE ASSINAR VALIDAR XML
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
   EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
   IF EDT_RESPOSTA=0 THEN // carregou com sucesso

       EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno")
       IF EDT_RESPOSTA=0 THEN
           EDT_RESPOSTA+=CR+"ASSINADO COM SUCESSO"
       END
   ELSE
       EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
   END
ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
=================================
PROCEDURE ACBR_Assinar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
recebe_ultimo_Retorno is string="")

//gnretorno_acbr=api("ACBrNFe32.DLL","NFE_Assinar")
//EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_Assinar")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)

IF gnretorno_acbr=0 THEN
   //assinou com sucesso=0
   RESULT("0")
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=-10 THEN texto+=" Indica que houve erro ao Assinar"

   // aula 19 11 2019
   texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno)

   //"CTE_UltimoRetorno")

   RESULT texto
END
====================================

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2522-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_Assinar.html

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 02 12 2019.
Dica 2522. Método usado para assinar os Mdfe carregados no componente ACBrMDFe.

DICAS 2522 - WINDEV WEBDEV MOBILE - ACBR 181 - MDFE_Assinar

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

2 Dezembro, 2019

boa noite

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2519-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/MDFE_ObterXml.html

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 01 12 2019.

Dica 2519. Método para retornar o xml do MDFe.

DICAS 2519 - WINDEV WEBDEV MOBILE - ACBR 180 - MDFe_ObterXml

Compartilhe Canal Youtube Amarildo Matos

Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando

sonhos em realidades.

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

// btn Mdfe obter xml

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")

IF bRETORNO=True THEN

EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)

IF EDT_RESPOSTA=0 THEN // carregou com sucesso

EDT_RESPOSTA=ACBR_OBTERXML("ACBrMDFe32.dll","MDFE_ObterXml","MDFE_UltimoRetorno",0)

ELSE

EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"

END

ELSE

EDT_RESPOSTA="erro inicializar"

END

ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")

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

PROCEDURE ACBR_OBTERXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...

sRecebe_nome_ultimo_Retorno is string="",nPosicao is int=0)

gsResposta is string on 256

sGsResposta_maior_256 is string=""

gnTamanho is system int=256

//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho)

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,nPosicao,&gsResposta,&gnTamanho)

IF gnretorno_acbr=0 THEN

RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_ultimo_Retorno,gnTamanho,gsResposta))

ELSE

texto is string="ObterXml-Erro Retorno ["+gnretorno_acbr+"]"+CR

IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR

IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao executar a função." +CR

IF gnretorno_acbr=-13 THEN texto+=" Indica que o índice passado não se encontra no intervalo"+CR

texto+="Dll:"+sRecebe_nome_dll+CR

texto+="recebe_nome_metodo:"+sRecebe_nome_metodo+CR

texto+="recebe_nome_ultimo_Retorno:"+sRecebe_nome_ultimo_Retorno+CR

texto+="posicao_lista:"+nPosicao+CR

texto+=ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")

RESULT texto

END

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

PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA)

gsResposta_maior_256 is string=""

IF RECEBE_GNTAMANHO>256 THEN

gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO)

gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO)

RESULT UTF8ToString(gsResposta_maior_256)

ELSE

RESULT UTF8ToString(RECEBE_GSRESPOSTA)

END

//"NFE_UltimoRetorno"

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

PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnTamanho is system int=256

gsResposta is string on 256

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho)

sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR

sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta)

RESULT sTEXTO_R

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

30 Novembro, 2019

bom dia

===========================
// BTN MDFE CARREGAR XML
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
   EDT_RESPOSTA=ACBR_CARREGARXML("ACBrMDFe32.dll","MDFE_CarregarXML",EDT_XML)
//Comando: MDFE_CarregarXML( eArquivoOuXML );
   IF EDT_RESPOSTA=0 THEN
       EDT_RESPOSTA="XML CARREGADO COM SUCESSO"
   ELSE
       EDT_RESPOSTA="ERRO CARREGAR XML"
   END
   // IMPORTANTE SALIENTAR SE NAO FOR INFORMADO NOME DO XML E DIRETORIO, ELE MESMO CRIA SOZINHO
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
===========================
PROCEDURE ACBR_CARREGARXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
sRecebe_arquivo_ou_xml is string="")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRecebe_arquivo_ou_xml))
IF gnretorno_acbr=0 THEN
   // 0 = Carregou Xml com Sucesso
   RESULT "0"
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=-10 THEN texto+=" Indica que houve erro ao ler o arquivo XML"

   RESULT texto
END

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

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2515-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/MDFE_CarregarXML.html

Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 30 11 2019.
Dica 2515. Método usado para ler o arquivo XML para o componente ACBrMDFe.

DICAS 2515 - WINDEV WEBDEV MOBILE - ACBR 179 - MDFE_CarregarXML

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

29 Novembro, 2019

bom dia

========================
// btn MDFE carregar ini
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") // 1
IF bRETORNO=True THEN
   EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
   IF EDT_RESPOSTA=0 THEN
       EDT_RESPOSTA+=CR+"Ini Mdfe Carregando com Sucesso"
   END
ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
========================
PROCEDURE ACBR_CARREGARINI(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
sRECEBER_ARQUIVO_OU_INI is string="")
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarINI",StringToUTF8(sRECEBER_ARQUIVO_OU_INI))
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_ARQUIVO_OU_INI))
IF gnretorno_acbr=0 THEN// 0 Carregou com Sucesso
   RESULT "0"
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=-10 THEN texto+=" Indica que houve erro ao Carregar o arquivo INI"
   RESULT texto
END
================================

Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 29 11 2019.
Dica 2511. Método usado para ler o arquivo INI para o componente ACBrMDFe.

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2511-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFE_CarregarINI.html

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

28 Novembro, 2019

bom dia

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

// BTN MDFE INICIALIZAR E FINALIZAR

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")

IF bRETORNO=True THEN

EDT_RESPOSTA="Inicializou"

ELSE

EDT_RESPOSTA="erro inicializar"

END

ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")

EDT_RESPOSTA+=CR+"Finalizou"

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

PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),StringToUTF8(sChaveCrypt))

IF gnretorno_acbr=0 THEN

RESULT True

ELSE

texto is string="Erro Retorno"+" - "+gnretorno_acbr

IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca "

IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado "

IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI "

RESULT texto

END

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

PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)

IF gnretorno_acbr=0 THEN

RESULT True

ELSE

texto is string="Erro Retorno"+" - "+gnretorno_acbr

IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca"

Info("ERRO FINALIZAR DLL"+texto)

RESULT texto

END

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

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 28 11 2019.
Dica 2508. Método usado para inicializar e Finalizar Mdfe acbr lib.

DICAS 2508 - WINDEV WEBDEV MOBILE - ACBR 177 - MDFe_Inicializar e Finalizar

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2508-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/MDFe_Inicializar.html
https://acbr.sourceforge.io/ACBrLib/MDFe_Finalizar.html

27 Novembro, 2019

bom dia

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 26 11 2019.
Dica 2505. Método usado para gerar o PDF do DACTE de um CTe carregado.

DICAS 2505 - WINDEV WEBDEV MOBILE - ACBR 176 - CTE_ImprimirPDF

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2505-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/CTE_ImprimirPDF.html

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Amarildo de Matos

Sobre nós...

Informação Importante