'-- Cabeçalho
Set clsDoc = New CblBE900.CblBEDocumento
clsDoc.EmModoEdicao = False

clsDoc.DataDoc = "2018-12-31"
clsDoc.Mes = 12
clsDoc.Dia = 31
clsDoc.Ano = 2018
clsDoc.Modulo = "L"
clsDoc.Doc = "212"
clsDoc.NumDoc = -1

clsDoc.Serie = ""

clsDoc.Diario = "21"
clsDoc.NumDiario = -1
clsDoc.Moeda = "EUR"

clsDoc.Descricao = "Documento TESTE"

'-- Linha a debito
Set clsLinha = New CblBE900.CblBELinhaDocGeral
clsLinha.Conta = "1110000001"
clsLinha.Descricao = BSO.Contabilidade.PlanoContas.DaDescricao(clsDoc.Ano, clsLinha.Conta)
clsLinha.TipoEntidade = ""
clsLinha.Entidade = ""

clsLinha.Natureza = "D"
clsLinha.ValorOrigem = 50

clsLinha.TipoLinha = "F"
clsLinha.Moeda = "EUR"
clsLinha.Cambio = 1
clsLinha.CambioMAlt = 1
clsLinha.CambioOrigem = 1
clsLinha.ValorAlt = 50
clsLinha.Valor = 50

clsDoc.LinhasGeral.Insere clsLinha


'-- linha a credito
Set clsLinha = New CblBE900.CblBELinhaDocGeral
clsLinha.Conta = "2111100001"
clsLinha.Descricao = BSO.Contabilidade.PlanoContas.DaDescricao(clsDoc.Ano, clsLinha.Conta)
clsLinha.TipoEntidade = "C"
clsLinha.Entidade = "000001"

clsLinha.Natureza = "C"
clsLinha.ValorOrigem = 50

clsLinha.TipoLinha = "F"
clsLinha.Moeda = "EUR"
clsLinha.Cambio = 1
clsLinha.CambioMAlt = 1
clsLinha.CambioOrigem = 1


clsLinha.ValorAlt = 50
clsLinha.Valor = 50

clsDoc.LinhasGeral.Insere clsLinha

'-- Ligação a pendentes
Set clsContaCorrente = New BasBE900.BasBELinhaContaCorrente
clsContaCorrente.Ano = clsDoc.Ano
clsContaCorrente.Entidade = clsLinha.Entidade
clsContaCorrente.TipoEntidade = clsLinha.TipoEntidade
clsContaCorrente.Valor = clsLinha.Valor
clsContaCorrente.ValorAlt = clsLinha.Valor
clsContaCorrente.ValorBase = clsLinha.Valor
clsContaCorrente.ValorDoc = clsLinha.Valor
clsContaCorrente.ModuloOrigem = "L"
clsContaCorrente.ModuloDoc = "L"
clsContaCorrente.Moeda = "EUR"
clsContaCorrente.TipoDoc = "511"
clsContaCorrente.NumDoc = 147
clsContaCorrente.IdMovOrigemCBL = "BEFDFAE3-5C73-11E9-B21F-D8F2CAF15C74" ' ID da linha na tabela de Movimentos
clsContaCorrente.DataDoc = clsDoc.DataDoc
clsContaCorrente.IdDocOrigem = "BEFDFAE5-5C73-11E9-B21F-D8F2CAF15C74" ' ID do cabecmovCBL

clsContaCorrente.Mes = clsDoc.Mes
clsContaCorrente.Dia = clsDoc.Dia
clsContaCorrente.MoedaDoc = clsLinha.Moeda
clsContaCorrente.Natureza = "D"
clsContaCorrente.DescricaoDoc = clsLinha.Descricao
clsContaCorrente.Serie = clsDoc.Serie
clsContaCorrente.Filial = "000"

clsContaCorrente.NumLinha = clsLinha.Linha


clsDoc.LinhasCCorrente.Insere clsContaCorrente

BSO.Contabilidade.Documentos.Actualiza clsDoc, aviso

MsgBox "Documento Criado. Diário" & clsDoc.Diario & " " & clsDoc.NumDiario & "/" & clsDoc.Ano, vbInformation