quinta-feira, 15 de dezembro de 2016

Aula 999- Windev - Dicas - 011 - Baixar Titulos









Video no Youtube Se Gostou clique aqui para dar joinha



Nessa Aula vou dar uma Dica, de como Baixar Titulos No contas a
Receber, Automaticamente


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



Backup e Restore Projeto Windev - 001
Baixar Titulos Contas Receber - Dica - 011  
Cd - CdEject CdList - Abre e Lista CD - 003
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight Pesquizar Palavras entre edts 006
Dicionario e Supecontrole - 002
Dicionario e SuperControle - 004
Pdf - Ler Pdf com Active X - 010
Saldo Anterior Caixa - Como Calcular - Dica - 012 
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas 





PROCEDURE baixar_titulo()
IF YesNo("Deseja Baixar os titulos") THEN
    FOR EACH ROW OF TABLE_Retorno
        Message(TABLE_Retorno.COL_86_nosso_numero_banco)
        IF TABLE_Retorno.COL_109_cod_ocorrencia="06" THEN
            HReadSeekFirst(duplicata_receber,cobranca_numero_banco,TABLE_Retorno.COL_86_nosso_numero_banco)
            IF HFound(duplicata_receber) THEN
                IF duplicata_receber.data_pagamento="" THEN
                    duplicata_receber.data_pagamento=TABLE_Retorno.COL_296_data_credito
                    duplicata_receber.observacao_pagamento="Baixado Titulo Pelo Sistema Retorno "
                    HModify(duplicata_receber)
                ELSE
                    Info("Titulo Já tem data de Pagamento"+CR+duplicata_receber.titulo)
                END
            END
        END       
    END
END
Info("Finalizado ")



















Aula 998- Windev - Array - 009- SwapLine









Video no Youtube Se Gostou clique aqui para dar joinha




http://doc.windev.com/en-US/?1000020482&name=SwapLine



WinDev - Array - 001/... Adiciona/Classifica Ordem/Mostra
WinDev - Array - 002/... Quantas Ocorrencias Array
WinDev - Array - 003/... ArrayDeleteLine - Eliminha uma Linha do Array
WinDev - Array - 004/... ArrayToString - Leva Array Para String
WinDev - Array - 005/... Seek - Procura Por Valor
WinDev - Array - 006/... ArrayDeleteDuplicate - Elimina itens duplos
WinDev - Array - 007/... Delete - Elimina Uma Linha
WinDev - Array - 008/... DeleteAll - Limpa Array
WinDev - Array - 009/... SwapLine - Mover de Lugar
WinDev - Array - 010/... Sum - Somar Array



// Exemplo de Como Mover de Posiçao os dados do Array

tabListanumeros is array of 0 int
ArrayAddLine(tabListanumeros,10)
ArrayAddLine(tabListanumeros,5)
ArrayAddLine(tabListanumeros,3)
ArrayAddLine(tabListanumeros,1)

EDT_Texto = ArrayToString(tabListanumeros)

//http://doc.windev.com/en-US/?1000020482&name=SwapLine

SwapLine(tabListanumeros,EDT_Posicao_Original,EDT_Posicao_Destino)

EDT_Resultado = ArrayToString(tabListanumeros)






















Teste

Teste
teste