Conforme o tipo de terceiro da ficha do cliente, a conta da contabilidade pode variar contudo não consigo fazer esta alteração antes de gravar só depois de gravar e nesta altura a conta já foi criada no plano da contabilidade. Existe forma de o fazer no evento antes de gravar para que a conta que sugiro seja automaticamente criada também no plano.
Agradecia a ajuda possível.
Private Sub FichaClientes_AntesDeGravar(Cancel As Boolean)
Dim sSQLUltNClienteCBL As String
Dim RessbUltNClienteCBL As Integer
Dim sSQLUltNUtenteCBL As String
Dim RessbUltNUtenteCBL As Integer
RessbUltNClienteCBL = 0
RessbUltNUtenteCBL = 0
BSO.Contabilidade.ConfiguracaoTabCBL.ActualizaValorAtributo 1, “2020”, “001”, Me.Cliente.Cliente, 1, “Conta”, “0”
If Me.Cliente.TipoTerceiro = “OUT” Then
sSQLUltNClienteCBL = (“SELECT TOP 1 (Conta) FROM CnfTabLigCBL WHERE Tabela=1 AND Plano=001 AND Ano= ‘” & BSO.Contabilidade.Parametros.DaValorAtributo(“AnoTrabalho”) & “‘ AND Conta < ‘20000’ ORDER BY Conta DESC”)
If Not BSO.Consulta(sSQLUltNClienteCBL).Vazia Then
RessbUltNClienteCBL = BSO.Consulta(sSQLUltNClienteCBL).Valor(0)
End If
RessbUltNClienteCBL = (RessbUltNClienteCBL + 1)
MsgBox (RessbUltNClienteCBL)
Me.Cliente.SegmentoTerceiro = “001”
BSO.Contabilidade.ConfiguracaoTabCBL.ActualizaValorAtributo 1, BSO.Contabilidade.Parametros.DaValorAtributo(“AnoTrabalho”), “001”, Me.Cliente.Cliente, 1, “Conta”, RessbUltNClienteCBL
Else
sSQLUltNUtenteCBL = (“SELECT TOP 1 (Conta) FROM CnfTabLigCBL WHERE Tabela=1 AND Plano=001 AND Ano= ‘” & BSO.Contabilidade.Parametros.DaValorAtributo(“AnoTrabalho”) & “‘ AND Conta > ‘20000’ ORDER BY Conta DESC”)
If Not BSO.Consulta(sSQLUltNUtenteCBL).Vazia Then
RessbUltNUtenteCBL = BSO.Consulta(sSQLUltNUtenteCBL).Valor(0)
End If
RessbUltNUtenteCBL = (RessbUltNUtenteCBL + 1)
MsgBox (RessbUltNUtenteCBL)
Me.Cliente.SegmentoTerceiro = “007”
BSO.Contabilidade.ConfiguracaoTabCBL.ActualizaValorAtributo 1, BSO.Contabilidade.Parametros.DaValorAtributo(“AnoTrabalho”), “001”, Me.Cliente.Cliente, 1, “Conta”, RessbUltNUtenteCBL
End If
