quinta-feira, 23 de março de 2017

Aula 1100 - Windev - Dicas 027/... - Historico Erp 4/Final









Video no Youtube Se Gostou clique aqui para dar joinha





help1




Backup e Restore Projeto Windev - 001
Dicionario e Supecontrole - 002
Cd - CdEject CdList - Abre e Lista CD - 003
Dicionario e SuperControle - 004
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight - Pesquizar Palavras entre edts - 006
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue - Dicas - 008
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas
Pdf - Ler Pdf com Active X - 010
Baixar Titulos Contas Receber - Dica - 011 
Saldo Anterior Caixa - Como Calcular - Dica - 012
Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Clone Tabela - Meses com Varios Anos - Dicas - 015
Tecla Atalho - Control + Alt + Espaco - WinDev - dicas - 016/...
ControleCreate - Criar bloco Notas - Notes - WinDev - Dicas - 017/...
Alt - Static - Apertando Alt em Cima Static - Altera borda - Windev - Dicas 018/...
Guardar Valor - WinDev - Dicas 019/...
Pegar Quantidade/Valor/Codigo Cupom - WinDev - Dicas- 020
Consultar Alterar cliente e Procurar - WinDev - Dicas - 021Código - Consultar alterar Cliente e Procurar - WinDev dicas - 022
Grupos - Colocar Grupo e Deixar visivel ou Não - WinDev Dicas 023
Historio Erp 1/... - Analise- Segurança - WinDev Dicas 024
Historio Erp 2/... - Telas Iniciais - WinDev Dicas 025
Historio Erp 3/... - Analise- Alterações - WinDev Dicas 026
Historico Erp 4/Final - Empresa - Gravar Historioco - WinDev Dicas 027
Estilo Mudar Quando Chegar F2 - WinDev Dicas 028






//Abertura da window
//Gravar Historico Erp
//Save History
gs_EDT_Tipo_ambiente_nfe is string=""
gs_EDT_Tipo_ambiente_nfce is string=""
gs_motivo_alteracao_nfe is string=""
gs_motivo_alteracao_nfce is string=""
//Vou Criar 4 Variaveis que vou precisar usar
//I will create 4 variables that I will need to use
//Gravar Historico Erp




//Colocar informacoes
MyWindow..ReturnedValue = False
IF empresa_parametro_nfe..NewRecord = True THEN
    //Se for inclusão de um parametro
    //If a parameter is included
    dados_iniciais()
ELSE
    //Gravar Historico Erp
    //Save History
    gs_EDT_Tipo_ambiente_nfe=EDT_Tipo_ambiente_nfe
    gs_EDT_Tipo_ambiente_nfce=EDT_Tipo_ambiente_nfce
    //Salvar informações antes da alteração
    //Save information before change
END




//saida do edt tipo ambinente nfe

IF gs_EDT_Tipo_ambiente_nfe<>EDT_Tipo_ambiente_nfe THEN
    //Se foi modificado esse campo
    //If you have modified this field
    LOOP
        //vou fazer um loop
        //I'm going to do a loop
        Input("Digite o Motivo Para Alterar Tipo Ambiente Nfe:",gs_motivo_alteracao_nfe)
        //Tem de digitar o Motivo - obrigatório
        //You must enter Reason - required
        IF gs_motivo_alteracao_nfe="" THEN
            //se motivo estiver em branco, vou informar que é obrigatorio
            //If reason is blank, I will inform you that it is mandatory
            Info("Favor Digitar o Motivo,é obrigatório")
        ELSE
            //Senão
            BREAK   
            //sai do loop
            //Get out of the loop
        END
    END
   
END



//Saida tipo ambinente nfce
LOOP
    Input("Digite o Motivo Para Alterar Tipo Ambiente Nfce:",gs_EDT_Tipo_ambiente_nfce)
    IF gs_EDT_Tipo_ambiente_nfce="" THEN
        Info("Favor Digitar o Motivo,é obrigatório")
    ELSE
        BREAK   
    END
END






//Rotina Gravar Historico
//Routine Record History

//Nas Futuras Aulas Essa Rotina será transformada uma classe para ser reaproveitada por outros
//In the Future Classes This Routine will be transformed into a class to be reused by others

HReadSeekFirst(usuario_matos,nome,gs_usuario_nome)
//Lendo Usuario
//Reading User
b_grava_historico_Erp is boolean=False
//Criando uma variavel boolean para ver se é para gravar historico
//Creating a boolean variable to see if it is to record history
s_acao_feita is string=""
//Criando Variavel açao feita
//Creating Variable action done
IF gs_EDT_Tipo_ambiente_nfe<>EDT_Tipo_ambiente_nfe THEN
    //Se foi alterado entao o grava historico sera igual a verdadeiro
    //If it has been changed then the historical record will be equal to true
    b_grava_historico_Erp=True   
    s_acao_feita+="Alterado Tipo Ambiente Nfe Para["+EDT_Tipo_ambiente_nfe+"]"+CR
    s_acao_feita+=" Motivo["+gs_motivo_alteracao_nfe+"]"+CR   
    //Está sendo colocado acao feita e o sinal de +,pois estou acrescentando informação
    //The action is done and the + sign, because I am adding information
    //Estou Colocando Cr, pois vou fazer pular de linha
    //I'm putting Cr, because I'm going to make the line jump   
END
//Vou fazer o mesmo para nfce
//I'll do the same for you
IF gs_EDT_Tipo_ambiente_nfce<>EDT_Tipo_ambiente_nfce THEN
    b_grava_historico_Erp=True   
    s_acao_feita+="Alterado Tipo Ambiente Nfc-e Para["+EDT_Tipo_ambiente_nfce+"]"+CR
    s_acao_feita+=" Motivo["+gs_motivo_alteracao_nfce+"]"+CR   
END
IF b_grava_historico_Erp=True THEN
    //Se grava historico é igual a verdadeiro
    //If historical record is equal to true
    HReset(Historico_Erp)
    //Atribuir os valores padrão ao historico
    //Assign default values to history
    //https://doc.windev.com/en-US/?3044118&name=HReset
    _titulo is string="Parametros Nfe/Nfce"
    //Criando uma variavel titulo para parametro
    //Creating a Variable Title for Parameter
    HReadSeekFirst(Historico_Erp,titulo,_titulo)
    //Lendo Historio erp
    //Reading erp story
    IF HFound(Historico_Erp) THEN
        //Se encontrou historico erp
        //If you found historical erp
    ELSE
        //Se não existir vamos criar um novo historico erp
        //If it does not exist let's create a new erp history
        Historico_Erp.titulo=_titulo
        HAdd(Historico_Erp)
        //Gravando um registro novo historico erp
        //Recording a new historical record erp       
    END   
        HReset(historico_erp_itens)
        //Atribuir os valores padrão aos itens do historio itens
        //Assign Default Values to Items in History Items
        historico_erp_itens.Historico_ErpID=Historico_Erp.Historico_ErpID
        //Colocando erpid do historico erp no historio item erp
        //Put erpid of historical erp in history item erp
        historico_erp_itens.data=DateSys()
        //estou colocando a data atual
        //I'm putting the current date
        historico_erp_itens.hora_alteracao=Now()
        //estou colocando a hora atual
        //I am putting the current time
        historico_erp_itens.acao_feita=s_acao_feita
        historico_erp_itens.valor=0
        historico_erp_itens.id_empresa=gnEmpresaCodigo
        historico_erp_itens.id_usuario=usuario_matos.usuario_matosID
        historico_erp_itens.nome_usuario=gs_usuario_nome
        //acrescentando os outros dados
        //Adding the other data
        HAdd(historico_erp_itens)
        //Gravando um registro novo historico erp item
        //Recording a new historical record erp    item   
END






















Teste

Teste
teste