quarta-feira, 7 de abril de 2021

DICAS 3302 - WINDEV WEBDEV MOBILE - InvalidInputDetect - NOVIDADE VERSAO 26 - AULA 36









https://youtu.be/t_YFnE4-U90





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 10:00 do dia 08/04/2021 

DICAS 3302 - WINDEV WEBDEV MOBILE - InvalidInputDetect - NOVIDADE VERSAO 26 - AULA 36


assuntos 


InvalidInputDetect 
Vamos criar uma Window chamada - Digitacao de Campos 
vamos criar 3 campos, Nome , email, endereco
o Nome e email, vamos fazer ser obrigatorios 
vamos usar o comando InvalidInputDetect 
vou ensintar a colocar uma cor diferente quando nao digita 


-----------  codigo
// Gravar 

IF InvalidInputDetect() THEN
    arrQuantidade_obrigatorios is array of Champ=InvalidInputListControl()
    ToastDisplay("numeros campos obrigatorios, nao preenchidos [%CR%][%arrQuantidade_obrigatorios..Count%]")
    ReturnToCapture(arrQuantidade_obrigatorios[1])
    
END
Close(WIN_Digitacao_Campos)



-------------------------- INDICIES NOVIDADES VERSAO 26



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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



Postado por às Nenhum comentário:
Marcadores:

terça-feira, 6 de abril de 2021

DICAS 3301 - WINDEV WEBDEV MOBILE - Elgin - COMO FOI FEITO PARA COPIAR PEDIDO DE UMA EMPRESA PARA OUTRA - PERGUNTAS_E_RESPOSTAS_45



https://youtu.be/ZZydC-IZmNo





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 08/04/2021 


DICAS 3301 - WINDEV WEBDEV MOBILE - Elgin - COMO FOI FEITO PARA COPIAR PEDIDO DE UMA EMPRESA PARA OUTRA - PERGUNTAS_E_RESPOSTAS_45


assuntos 


Vou Mostrar como eu Fiz no ErpMatos para copiar um pedido de uma empresa para outra 
No caso dupliquei o pedido 
Ensinando,como se faz , botao direito do botao 

==================codigo

// Duplicar pedido para a mesma empresa

IF TableSelect(TABLE_pedido)=-1 THEN 
RETURN
END
id_empresa_pedido_duplicar is int=TABLE_pedido.COL_IdEmpresaPedido
id_pedido_duplicar is int=TABLE_pedido.COL_id_pedido
IF id_pedido_duplicar>0 THEN
IF YesNo("Deseja duplicar o pedido"+id_empresa_pedido_duplicar) THEN
duplica_dados(id_pedido_duplicar,TABLE_pedido.COL_IdEmpresa)
END
END

====================== Codigo

// duplicar pedido com outro codigo da empresa


IF TableSelect(TABLE_pedido)=-1 THEN 
 RETURN
END
id_empresa_pedido_duplicar is int = TABLE_pedido.COL_IdEmpresaPedido
id_pedido_duplicar is int = TABLE_pedido.COL_id_pedido
IF id_pedido_duplicar>0 THEN
IF YesNo("Deseja duplicar o pedido"+id_empresa_pedido_duplicar) THEN
numero_empresa is int=0
 Input("Codigo da empresa que sera levado o pedido",numero_empresa)
 IF numero_empresa>0 THEN
 duplica_dados(id_pedido_duplicar,numero_empresa)
 END
 END
END

=================== Codigo

PROCEDURE duplica_dados(recebe_id_pedido,recebe_id_empresa_gerar)

HReadSeekFirst(pedido,id_pedido,recebe_id_pedido)
IF HFound(pedido) THEN
dados is Data Source
sql is string=[
SELECT
max(pedido.id_empresa_pedido) as ultimo
from 
pedido
where 
pedido.id_empresa=#id_empresa#
]
    sql=Replace(sql,"#id_empresa#",recebe_id_empresa_gerar)
    HExecuteSQLQuery(dados,hQueryDefault,sql)
    proximo is int=dados.ultimo+1
    // Modificando Dados do pedido 
    pedido.id_empresa_pedido=proximo
    pedido.id_empresa=recebe_id_empresa_gerar
    pedido.data_emissao=DateSys()
    pedido.faturado=False 
    pedido.data_entregue=""
    HAdd(pedido)
    // pedido ja duplicado
    //itens do pedido 
    numero_novo_id_pedido is int=pedido.id_pedido
    itenspedido is array of 0 int 
    //Vamos ler as id do pedido iten do pedido que sera copiado e colocar no array
    
    FOR EACH pedido_iten where "pedido_iten.id_pedido="+recebe_id_pedido
    itenspedido.AddLine(pedido_iten.id_pedido_iten)
    END
    ArraySort(itenspedido)
    FOR x=1 TO ArrayCount(itenspedido)
        HReadSeekFirst(pedido_iten,id_pedido_iten,itenspedido[x])
        IF HFound(pedido_iten) THEN
        // estou com pedido iten na memoria 
        pedido_iten.Id_pedido=numero_novo_id_pedido
        pedido_iten.quantidade_entrega=0
        pedido_iten.quantidade_saldo=pedido_iten.quantidade
        HAdd(pedido_iten)
        END
    END    
    InfoWithTimeout(1000,"o Numero do novo pedido:"+proximo)
    
END


============== INDICE PERGUNTAS E RESPOSTA



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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html







Postado por às Nenhum comentário:
Marcadores:

segunda-feira, 5 de abril de 2021

DICAS 3300 - WINDEV WEBDEV MOBILE - Elgin - ImprimeXMLNFCe- CURSO_ELGIN_MINI_PDV_M8_PARTE_6




https://youtu.be/aJKN-FCeCM0




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 06/04/2021 

DICAS 3300 - WINDEV WEBDEV MOBILE - Elgin - ImprimeXMLNFCe- CURSO_ELGIN_MINI_PDV_M8_PARTE_6



Projeto windev mobile 26 esta no repositorio Windev 
e caso nao tenha os codigos estao no blog ou 
no proprio repositorio em um arquivo txt

assuntos 
Vamos fazer ImprimeXMLNFCe

================= Codigo Windev 

sConteudo_xml is string=[
Aqui dentro o conteudo do Xml
]
csc is string="5BB088D0-ED1F-432C-8FB4-E2F0FB5EF12D"
nId_csc is int=1
nParametro is int=0
Info(m8_ImprimeXMLNFCe(sConteudo_xml,nId_csc,csc,nParametro))


================= Codigo Java
// m8_ImprimeXMLNFCe

import com.elgin.e1.Impressora.Termica;
public static int m8_ImprimeXMLNFCe(String xml_conteudo,int id_csc, String csc,int parametro)
{
 int result = Termica.ImprimeXMLNFCe(xml_conteudo,id_csc,csc,parametro);
return result;
}



========= INDICE MINI CURSO ELGIN M8 


========= INDICE MOBILE


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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html




Postado por às Nenhum comentário:
Marcadores: ,

sábado, 3 de abril de 2021

DICAS 3299 - WINDEV WEBDEV MOBILE - Elgin - Avanco Papel e Imprime Qr Code - CURSO_ELGIN_MINI_PDV_M8_PARTE_5




https://youtu.be/I7kITGCxAG4




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as  06:00 do dia 05/04/2021 

DICAS 3299 - WINDEV WEBDEV MOBILE - Elgin - Avanco Papel e Imprime Qr Code - CURSO_ELGIN_MINI_PDV_M8_PARTE_5




Projeto windev mobile 26 esta no repositorio Windev 
e caso nao tenha os codigos estao no blog ou 
no proprio repositorio em um arquivo txt


assuntos 
Avanco Papel e Imprime Qr Code 

--------------------------------------------------------- 

//----------- Codigos e dicas para implantacao Mini Pdv m8-minipdv
// BTN_ABRE_IMPRESSORA -------------------------
EDT_Resposta=m8_abre()
// BTN_Imprime Texto -----------------------------
sTexto is string="Amaridlo teste de impressao"
EDT_Resposta=m8_imprime_texto(sTexto)
// BTN_Corte ------------------------
nQuantidade_linhas is int=3
EDT_Resposta=m8_corte(nQuantidade_linhas)

// BTN_Avanca_linha ---------------
quantidade_linhas is int=10
EDT_Resposta=m8_AvancaPapel(quantidade_linhas)
// BTN_QrCode ----------------------
qr_lista is string="Qr"
EDT_Resposta=m8_ImpressaoQRCode(qr_lista)

// BTN_fecha --------------------
EDT_Resposta=m8_fecha()
// Global procedure m8_abre em java ----------------------
import com.elgin.e1.Impressora.Termica;
import android.app.Activity;
public static int m8_abre()
{
    Activity obj = getCurrentActivity(); 
Termica.setContext(obj);
int result = Termica.AbreConexaoImpressora(6, "M8", "", 0);
return result;
}
// Global procedure m8_imprime_Texto - java -------------
import com.elgin.e1.Impressora.Termica;
public static int  m8_imprime_texto(String recebe_texto)
{
int result = Termica.ImpressaoTexto(recebe_texto,0,0,0);
return result;
}
// global procedure - java - m8_corte_papel -----------------
import com.elgin.e1.Impressora.Termica;
public static int m8_corte(int recebe_quantas_linhas)
{
int result = Termica.Corte(recebe_quantas_linhas);
return result;
}
// Avanca Papel ------------------------
import com.elgin.e1.Impressora.Termica;
public static int m8_AvancaPapel(int recebe_numero_linhas)
{
int result = Termica.AvancaPapel(recebe_numero_linhas);
return result;
}
//Impressao QrCode --------------------------
import com.elgin.e1.Impressora.Termica;
public static int m8_ImpressaoQRCode(String recebe_qr)
{
int result = Termica.ImpressaoQRCode(recebe_qr, 4, 1);
return result;
}
// Global procedure - java - m8_Fecha ------------
import com.elgin.e1.Impressora.Termica;
public static int m8_fecha()
{
int result = Termica.FechaConexaoImpressora();
return result;
}
----------------------------

========= INDICE MINI CURSO ELGIN M8 


========= INDICE MOBILE



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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



Postado por às Nenhum comentário:
Marcadores: ,

sexta-feira, 2 de abril de 2021

DICAS 3298 - WINDEV WEBDEV MOBILE - Elgin - Mini Pdv M8 - Testar Apk - CURSO_ELGIN_MINI_PDV_M8_PARTE_4







Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 03/04/2021 

DICAS 3298 - WINDEV WEBDEV MOBILE - Elgin - Mini Pdv M8 - Testar Apk - CURSO_ELGIN_MINI_PDV_M8_PARTE_4



Projeto windev mobile 26 esta no repositorio Windev 
e caso nao tenha os codigos estao no blog ou 
no proprio repositorio em um arquivo txt

assuntos 

Gerando o Apk 
Entrando no Diretorio onde esta o apk 
Explicando como sera mandado o apk 
entrar no skype e mandar o apk 
instalar o apk no mini pdv m8 e executar 


========= INDICE MINI CURSO ELGIN M8 


========= INDICE MOBILE




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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



Postado por às Nenhum comentário:
Marcadores: ,
Assinar: Postagens (Atom)

Teste

Teste
teste