Boa tarde,
Estou a fazer um desenvolvimento para o ERP e sempre que tento fazer a impressão dos pendentes de um cliente dá o seguinte erro:
“Erro no arquivo pend0002 5768_18456_{781486E6-D669-44A4-BBD4-F32395ACB5E2}.rpt:
a tabela não foi localizada.”
Segue o código que estou a usar na impressão:
Dim formulasDoc As String = “{Clientes.Cliente}='” & TxtCodCliente.Text & “‘”
Dim dadosEmpresa = New StringBuilder()
dadosEmpresa.Append($”StringVar Nome:='{BSO.Contexto.IDNome}’;”)
dadosEmpresa.Append($”StringVar Morada:='{BSO.Contexto.IDMorada}’;”)
dadosEmpresa.Append($”StringVar Localidade:='{BSO.Contexto.IDLocalidade}’;”)
dadosEmpresa.Append($”StringVar CodPostal:='{BSO.Contexto.IDCodPostal} {BSO.Contexto.IDCodPostalLocal}’;”)
dadosEmpresa.Append($”StringVar Telefone:='{BSO.Contexto.IDTelefone}’;”)
dadosEmpresa.Append($”StringVar Fax:='{BSO.Contexto.IDFax}’;”)
dadosEmpresa.Append($”StringVar Contribuinte:='{BSO.Contexto.IFNIF}’;”)
dadosEmpresa.Append($”StringVar CapitalSocial:='{BSO.Contexto.ICCapitalSocial}’;”)
dadosEmpresa.Append($”StringVar Conservatoria:='{BSO.Contexto.ICConservatoria}’;”)
dadosEmpresa.Append($”StringVar Matricula:='{BSO.Contexto.ICMatricula}’;”)
dadosEmpresa.Append($”StringVar MoedaCapitalSocial:='{BSO.Contexto.ICMoedaCapSocial}’;”)
PSO.Mapas.Inicializar(“CCT”)
PSO.Mapas.AddFormula(“DadosEmpresa”, dadosEmpresa.ToString())
Dim Str As String = PSO.Mapas.GetMapaInfo(“CCT”, “pend0002”).ToString
Call Me.PSO.Mapas.ImprimeListagem(“pend0002”, “Listagem Pendentes”, “W”, 1, “N”, formulasDoc, bMapaSistema:=True)
