segunda-feira, 12 de junho de 2017

Aula 1179 WinDev Curso ErpAmarildo 036 - TABELA CUSTO - FINAL









TABELA AJUSTE FINAL - Video no Youtube Se Gostou clique aqui para dar joinha




HELP1





Lançamento Curso Iniciante ao Avancado - Windev/Mobile/Webdev 001/... Aula 1133
Criar Analise/Conexao e Tabela de Empresa - Curso 002/... Aula 1140
ErpAmarildo - Menu Principal - Curso 003/... Aula 1145
Menu Ribbon - Menu Principal - Curso 004/... Aula 1146
Botao Empresa - Menu Ribbon - Curso 005/... Aula 1147
Query Empresa - Cadastro Wdl - Curso 006/... Aula 1148
Tabela Empresa - Curso 007 - Aula 1149
Incluir - Botao Incluir Empresa Tabela Codigo - Curso 008 - Aula 1150
Icone Botao de Incluir - Brinde - Curso ErpAmarildo 9/... aula 1151
Icones Novos - Tabela - Curso ErpAmarldo 10/... Aula 1152
Codigos alteracao Tabela Empresa - Curso ErpAmarildo 11/... Aula 1153
Exclusão Codigos - Tabela Empresa - Curso ErpAmarildo 12/... Aula 1154
Procure - TableEnableFilter - Curso ErpAmarildo 13/... Aula 1155
Menu - Empresas - Chamar Wdl - Curso ErpAmarldo 14/... Aula 1156
Analise - Centro Custo - Niveis - Curso ErpAmarildo 15/... Aula 1157
Conexão Hyperfile - Curso ErpAmarildo 16/... Aula 1158
Tabela-Formulario Custos - Curso ErpAmarildo 17... Aula 1159
Menu Erp Custo - Curso ErpAmarildo 18.. Aula 1160
Tabela Seleciona Empresa - Curso Erp 19/... Aula 1162
CODIGO SELECIONA EMPRESA - CURSO ERP 20/... AULA 1163
ERP CHAMA SELECIONA EMPRESA - CURSO ERP 21/... AULA 1164
ERP AJUSTE -APARECER CODIGO E NOME EMPRESA - CURSO ERP22/... AULA 1165
ERP AJUSTE TELA - CURSO ERP23/... AULA 1166
CODIGO JANELA MDI - CURSO ERP 24/... AULA 1167
Conexao Duvida eRP 25/.. AULA 1168
EMPRESA AJUSTANDO - ERP 26/... AULA 1169
Formulario Custo Ajustando erp 27... aula 1170
Tabela Custo Ajustando erp 28 /... AULA 1171
Formulario Custos - Codigos - erp 29/... AULA 1172
x Nao Sair - Curso Erp 30/... AULA 1173
Tabela Custo - 2o Nivel - ERP 31/ AULA 1174
TABELA CUSTO - MESMO NIVEL - CODIGO - ERP32 / AULA 1175
TABELA CUSTO - NIVEL ABAIXO - CODIGO - ERP33/ AULA 1176
TABELA CUSTOS - LANCAMENTOS - CODIGO - ERP34 / AULAS 1177
FORMULARIO CUSTOS - CODIGO - ERP35 / AULA 1178
TABELA CUSTOS - AJUSTES FINAIS - ERP36 - AULA 1179





Nessa aula de hoje

VAMOS FINALIZAR A PARTE DA TABELA DE CUSTOS, VOU ARRUMAR A ORDEM,
VOU FAZER COM QUE A DESCRICAO, TENHA ESPACAMENTO CONFORME O NIVEL,
E COLOCAR UMA COR NO NIVEL 1, E TAMBEM FILTRAR OS CUSTOS POR EMPRESA

LET'S FINISH PART OF THE COST TABLE, I'LL TAKE THE ORDER,
I WILL MAKE THE DESCRIPTION, HAVE SPACES ACCORDING TO THE LEVEL,
AND PLACE A COLOR IN LEVEL 1, AND ALSO FILTER THE COSTS BY COMPANY


En esta clase de hoy

VAMOS FINALIZAR LA PARTE DE LA TABLA DE COSTOS, VOY ARRUMAR EL ORDEN,
VOY HACER CON QUE LA DESCRIPCIÓN, TIENE ESPACIO CONFORME A NIVEL,
Y COLOCAR UN COLOR EN EL NIVEL 1, Y TAMBIEN FILTRAR LOS COSTOS POR LA EMPRESA
 




// TABELA CUSTOS - CODIGOS

// DISPLAYING A ROW OF TABLE_CUSTOS

// VOU COLOCAR OS COMANDOS , DENTRO DE DISPLAYING A ROW OF TABLES CUSTOS
// I WILL PLACE THE COMMANDS, INSIDE OF DISPLAYING A ROW OF TABLES COSTS
// VOU COLOCAR OS COMANDOS, DENTRO DE DISPLAYING UNA FILA DE TABLAS CUSTOS

IF TABLE_CUSTOS.COL_NIVEL=1 THEN
   // SE O NIVEL FOR IGUAL A 1 ENTÃO
   // IF THE LEVEL IS EQUAL TO 1 THEN
   // SI EL NIVEL FOR IGUAL A 1 ENTONCES
  
   TABLE_CUSTOS[CurrentSubscript()]..Color = DarkGreen
   // ESTOU COLOCANDO A COR VERDE NA LINHA DOS NIVELS 1
   // I AM PUTTING GREEN COLOR IN LEVEL 1
   // ESTOY COLOCANDO EL COLOR VERDE EN LA LÍNEA DE LOS NIVELS 1

ELSE // SENAO
   TABLE_CUSTOS.COL_DESCRICAO=RepeatString(" ", TABLE_CUSTOS.COL_NIVEL * 2) + ...
                                                TABLE_CUSTOS.COL_DESCRICAO
   // ESTOU PEGANDO O NIVEL MULTIPLANDO POR 2 , QUE VAI DAR UMA QUANTIDADE DE ESPACOS, QUE
   //                  ESTOU ACRESCENTANDO NA DESCRICAO
   // I'M GETTING THE LEVEL MULTIPLING FOR 2, THAT WILL GIVE AN AMOUNT OF SPACES,
   // WHICH I'M ADDING IN THE DESCRIPTION
   //ESTOY PEGANDO EL NIVEL MULTIPLANDO POR 2, QUE VA DAR UNA CANTIDAD DE ESPACOS,
   //                    QUE ESTOY AÑADIR EN LA DESCRIPCIÓN
END




// INCLUI CONTA LANCAMENTO
// CONTA LANÇAMENTO
_nivel is int=0
_grupo is boolean=False
_centro_custo is string=""
IF TABLE_CUSTOS.COL_CONTA_GRUPO=True THEN
    _nivel=TABLE_CUSTOS.COL_NIVEL+1
    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
ELSE //senao
    _nivel=TABLE_CUSTOS.COL_NIVEL
    _posicao_final is int=(_nivel-1)*3
    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO[[1 TO _posicao_final]]
END
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)   
TableDisplay(TABLE_CUSTOS,taCurrentFirst)




//incluir_nivel_mesmo()
_nivel is int=0
_grupo is boolean=True
_centro_custo is string=""
IF TableSelect(TABLE_CUSTOS) = -1 THEN
    _nivel=1
    _centro_custo="01"
ELSE
    _nivel=TABLE_CUSTOS.COL_NIVEL
    _centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
    LOOP
        _centro_custo=StringIncrement(_centro_custo,FromEnd) 
        HReadSeekFirst(CUSTOS,chave_idempresa_centrocusto,[gn_retorna_id_empresa_codigo,_centro_custo])
        IF HFound(CUSTOS) THEN
        ELSE
            BREAK
        END       
    END  
   
END
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)   
TableDisplay(TABLE_CUSTOS,taCurrentRecord)





// incluir nivel abaixo // Include level below // Incluir el nivel abajo
_nivel is int=0
_grupo is boolean=True
_centro_custo is string=""
IF TableSelect(TABLE_CUSTOS) = -1 THEN
END   
_nivel=TABLE_CUSTOS.COL_NIVEL+1
_centro_custo=TABLE_CUSTOS.COL_CENTRO_CUSTO
n_CONTADOR is int=3
LOOP
    IF _centro_custo[[n_CONTADOR]]="" THEN
        _centro_custo=_centro_custo+".000"
        BREAK
    ELSE // SENAO
        n_CONTADOR+=1
    END   
END
_centro_custo=StringIncrement(_centro_custo,FromEnd)
HReset(CUSTOS)
Open(WIN_Form_CUSTOS,_nivel,_grupo,_centro_custo)   
TableDisplay(TABLE_CUSTOS,taCurrentFirst)



//FORMULARIO CUSTOS - CODIGOS

PROCEDURE WIN_Form_CUSTOS(_nivel,_grupo,_centro_custos)

//END OF INITIALIZATION OF WIN_FORM_CUSTOS
FileToScreen()
IF CUSTOS..NewRecord=True THEN
    EDT_EmpresaID=gn_retorna_id_empresa_codigo
    EDT_NIVEL=_nivel
    CBOX_CONTA_GRUPO=_grupo
    EDT_CENTRO_CUSTO=_centro_custos
    IF _grupo=True THEN
        EDT_DESCRICAO..Caption="NOME GRUPO"
    END
END

ReturnToCapture(EDT_DESCRICAO)

MyWindow..ReturnedValue = False




// BOTAO F2 - GRAVA CUSTOS

ScreenToFile()
IF CUSTOS..NewRecord THEN
    _data_source is Data Source
    _sql is string
    _sql = [
        SELECT
        Max(CUSTOS.id_empresa_custo) AS ultimo
        FROM
        CUSTOS
        where
        CUSTOS.empresaID=%1
    ]
    _sql = StringBuild(_sql,gn_retorna_id_empresa_codigo)
    IF HExecuteSQLQuery(_data_source,hQueryDefault,_sql) THEN
        HReadFirst(_data_source)
        CUSTOS.id_empresa_custo=_data_source.ultimo+1
    ELSE
        CUSTOS.id_empresa_custo=1
    END
    IF CUSTOS.CONTA_GRUPO=False THEN
        CUSTOS.CENTRO_CUSTO=CUSTOS.CENTRO_CUSTO+"."+NumToString(CUSTOS.id_empresa_custo,"03D")
    END
    HAdd(CUSTOS)
ELSE
    HModify(CUSTOS)
END
MyWindow..ReturnedValue = True
























Teste

Teste
teste