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 ")



















Nenhum comentário:

Postar um comentário

Teste

Teste
teste