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