quinta-feira, 31 de dezembro de 2020

DICAS 3229 - WINDEV - RELATORIO 66 - iListPrinter - Mostrar Impressoras Windows e escolher



https://youtu.be/h2vkZaX8ejI



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

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

DICAS 3229 - WINDEV - RELATORIO 66 - iListPrinter - Mostrar Impressoras Windows e escolher 



ASSUNTOS

Vamos criar uma window impressora 
Criar uma Combox por Programacao
Vamos mostrar as impressoras do windows com iListPrinter
Vamos selecionar a impressora
Vamos imprimir na impressora 
vamos mostrar o relatorio na tela com controle html(Novo Versao 26)

s_lista_impressoras is string=iListPrinter()
ListAdd(COMBO_NoName1,s_lista_impressoras)

--------
NOME_IMPRESSORA is string=COMBO_NoName1..StoredValue
iPreview(ipvZoom100)
iConfigure(NOME_IMPRESSORA)
iPrintReport(RPT_Liste_empresa_v26)
sFile is string

// Opens the file picker
sFile = fSelect("", "", "Select a file...", "All the files (*.*)" + TAB + "*.*", "*.*")

HTM_NoName1 = sFile

----


Blog - WinDev - Relatorio - 001/... Configura e Filtro
Blog - WinDev - Relatorio - 002/... IParameterReport
Blog - WinDev - Relatório - 003/... Marca D´Agua
Blog - WinDev - Relatorio - 004/... Layout 
Blog - WinDev - Relatorio - 005/... Campo Vertical - Angle 
Blog - WinDev - Relatorio - 006/... Como fazer quando sai duas paginas? 
Blog - WinDev - Relatorio - 007/... Imprimir Linha Multi Line
Blog - WinDev - Relatorio - 008/... Relatorio Valor Zero deixar Branco
Blog - WinDev - Relatorio - 009/... Relatorio Alinhar Texto 
Blog - WinDev - Relatorio - 010/... Colocar Totalizador
Blog - WinDev - Relatorio - 011/... Imprime Somente os Selecionados ou Todos da Tabela 
Blog - WinDev - Relatorio - 012/... Break e totalizadores de valores
Blog - WinDev - Relatorio - 013/... Retorno de Relatorio - Result 
Blog - WinDev - Relatorio - 014/... Zerar Totalizador  
Blog - WinDev - Relatorio - 015/... Relatorio - Totalmente Manual
Blog - WinDev - Relatorio - 016/... Linha Zebrada
Blog - WinDev - Relatorio - 017/... Posicoes do Relatorio Alterar
Blog - WinDev - Relatorio - 018/... Alterar Fonte
Blog - WinDev - Relatorio - 019/... Linha Acrescentar
Blog - WinDev - Relatorio - 020/... Relatorio - Gerar Pdf
Blog - WinDev - Relatorio - 021/... Filtro
Blog - WinDev - Relatorio - 022/... Pagina Inicial/Final - Data Hora
Blog - WinDev - Relatorio - 023/... Pular Página Break - IpageEnd()
Blog - WinDev - Relatorio - 024/... Imprimir Tabela com TablePrint
Blog - WinDev - Relatorio - 025/... Relatorio Mudar Orientação
Blog - WinDev - Relatorio - 026/... Mostrar impressoras/Selecionar e Imprimir
Blog - WinDev - Relatorio - 027/... IDestination - Destino do Relatorio
Blog - WinDev - Relatorio - 028/... Iprint - Relatorio Manual
Blog - WinDev - Relatorio - 029/... Dica Tabela e print
Blog - WinDev - Relatorio - 030/... Totalizadores
Blog - WinDev - Relatorio - 031/... Caption Mudar
Blog - WinDev - Relatorio - 032/... Intervalo Bancos
Blog - WinDev - Relatorio - 033/... Manual Linha - IHLine
Blog - WinDev - Relatorio - 034/... Borda - Iborder
Blog - WinDev - Relatorio - 035/... IPageNum
Blog - WinDev - Relatorio - 036/... Numero Com Espaco
Blog - WinDev - Relatorio - 037/... Fonte Seleciona - ISelectFont -
Blog - WinDev - Relatorio - 038/... Linha Mais de 2 - Mais informacoes no Campo
Blog - WinDev - Relatorio - 039/... Copias - IParameter - Icopies
Blog - WinDev - Relatorio - 040/... Pdf - Ler e Extrair Texto
Blog - WinDev - Relatorio - 041/... Imprimir Numero 000.001.500
Blog - WinDev - Relatorio - 042/... IListPrinter - Mostra Impressoras e Lista
Relatorio Inventario com Query - Relatorio 043/...
Relatorio - Sem Template - Dica Pedrosão - Relatorio - 044
Titulo Cabecalho - Alterar - WinDev - Relatorio - 045
Totais - Colocar Totais Abaixo ultima Linha Detalhe - WinDev - Relatorio - 046
Relatorio String Angulo 90% - WinDev - Relatorio - 047/...
Links Pagina e Email no Relatorio - WinDev - Relatorio - 048
PREVIEW TRADUZIR - WINDEV - RELATORIO - 049 - AULA 1211
TABELA E RELATORIO - COMO FAZER - RELATORIO 050 - AULA 1223
MANUAL - RELATORIO TOTALMENTE MANUAL - WINDEV RELATORIO 051 - AULA 1224
MEMORIA RELATORIO - AULA 1257 relatorio 052 tabela memoria
TOTAL BREAK - DICAS 1711 - PUBLICA - WINDEV RELATORIO 053 
GERAR PDF - DICAS 1889 - PUBLICA - WINDEV_23 - RELATORIO 54 - 
DICA 2150 - HANGOUT AO VIVO 10 06 2019 AS 19:00 - MOSTRAR CONSULTORIA COm joao sobre relatorios de como criar
DICAS 2151 WINDEV WEBDEV MOBILE RELATORIOS 59 CONSULTORIA JOAO 08062019
DICAS 2152 WINDEV WEBDEV MOBILE RELATORIOS 60 TOTAL RELATORIO
DICAS 2193 WINDEV WEBDEV MOBILE RELATORIO 61 IPREVIEW iMiniPreview
DICAS 2597 - WINDEV WEBDEV MOBILE - Relatorio 62 - Como eu Fiz Danf no Windev.
AO VIVO FACEBOOK - 2882 20:00 - 06/05/2020 - RELATORIOS COM TABELAS WINDEV
2885 RELATORIO SQL WINDEV TRASMITIDO FACEBOOK ERPAMARILDO
DICA 2912 PREVIEW PORTUGUES WINDEV










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 












iListPrinter (Function)
Em francês: iListeImprimante
Retorna a lista de impressoras instaladas no computador atual.
Windows MobileA lista de impressoras corresponde à lista de impressoras referenciadas no Pocket PC. Esta lista também é exibida na janela de configuração (aberta por iDestination ou iParameter ).
WEBDEV - Código do servidorA lista de impressoras corresponde às impressoras locais instaladas no servidor da Web (e não no computador do usuário da Web). As impressoras de rede não estão listadas.
Exemplo
sPrinterList is string
sPrinterList = iListPrinter()
Sintaxe
<Result> = iListPrinter()
<Result>: Cadeia de caracteres
Lista de impressoras no seguinte formato:
<Printer 1> + CR + ... + <Printer N>

Onde <Impressora 1> ... <Impressora N> corresponde ao nome das impressoras.
Observações
Para exibir a lista de impressoras em um controle List Box ou Combo Box, use a seguinte sintaxe:
ListAdd(<Name of List Box or Combo Box control>, <Result>)

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