| ♥ 0 | Bom dia, Tenho um projeto que processa recibos de uma lista. No final de gerar o recibo gostaria de imprimir o mesmo. Nas Vendas existe a Função BSO.Vendas.Documentos.ImprimeDocumento(documento.Tipodoc, documento.Serie, documento.NumDoc, “000”);, como faço para imprimir nas Contas Correntes? Obrigado.
Marcado como spam |
1 respostas
| Resposta privada Olá @paulofaria, O seguinte exemplo é um excerto de código meu que exporta recibos para PDF, e com muito poucos ajustes pode ser usado para imprimir: ErpBS100.ErpBS _ERPBS;
// nesta linha foi omitida a abertura do motor, etc
_ERPBS.DSO.Plat.Mapas.Inicializar("CCT");
strSelFormula = "{Cabliq.NumDoc}=" + row["numdoc"].ToString() + " and ";
strSelFormula += "{Cabliq.TipoDoc}='" + row["tipodoc"].ToString() + "' and ";
strSelFormula += "{Cabliq.Serie}='" + row["serie"].ToString() + "'";
_ERPBS.DSO.Plat.Mapas.AddFormula("NomeLicenca", "'" + _ERPBS.Licenca.Nome + "'");
strFormula = "StringVar CapitalSocial:='" + _ERPBS.Contexto.ICCapitalSocial + "';";
strFormula += "StringVar Morada:='" + _ERPBS.Contexto.IDMorada + "';";
strFormula += "StringVar Localidade:='" + _ERPBS.Contexto.IDLocalidade + "';";
strFormula += "StringVar CodPostal:='" + _ERPBS.Contexto.IDCodPostal + "';";
strFormula += "StringVar Telefone:='" + _ERPBS.Contexto.IDTelefone + "';";
strFormula += "StringVar Contribuinte:='" + _ERPBS.Contexto.IFNIF + "';";
strFormula += "StringVar Conservatoria:='" + _ERPBS.Contexto.ICConservatoria + "';";
strFormula += "StringVar Matricula:='" + _ERPBS.Contexto.ICMatricula + "';";
strFormula += "StringVar MoedaCapitalSocial:='" + _ERPBS.Contexto.ICMoedaCapSocial + "';";
strFormula += "StringVar Nome:='" + _ERPBS.Contexto.IDNome + "'";
_ERPBS.DSO.Plat.Mapas.SetFormula("DadosEmpresa", strFormula);
_ERPBS.DSO.Plat.Mapas.SelectionFormula = strSelFormula;
// Destino para ficheiro PDF
_ERPBS.DSO.Plat.Mapas.Destino = StdBSTipos.CRPEExportDestino.edFicheiro;
_ERPBS.DSO.Plat.Mapas.TipoFolha = StdBSTipos.CRPETipoFolha.tfA4;
_ERPBS.DSO.Plat.Mapas.SetFileProp(StdBSTipos.CRPEExportFormat.efPdf, $"{item.nome}.pdf");
strReport = _ERPBS.Base.Series.DaConfig("M", item.Documento, item.Serie);
_ERPBS.DSO.Plat.Mapas.ImprimeListagem(strReport, "Recibo", "P", 1, "N", strSelFormula, blnModal:false);
dicas: Deve dar para chegar lá ;-) Espero que ajude! ---------- Marcado como spam Comentários Bom dia,
Desde já agradeço a sua resposta.
Testei a sua opção e imprimiu mas sem o QRcode e o Atcud,
Verifiquei que no FORUM já existam soluções mais simples para imprimir.
A função 'BSO.Base.FuncoesGlobais.ImprimeDocumento(ConstantesPrimavera100.Modulos.ContasCorrentes, tipodoc, serie, numdoc, "000"); ' permite imprimir os documentos CCT gerados pela integração, sendo mais simples e direta a sua implementação.
Obrigado Ok @paulofaria, é bom saber que há formas mais simples.
Obrigado. Olá @emiliosusavila obrigado pela asua resposta, estou tentando usar esta função para gerar PDF de facturas, a função executa sem algum erro mas não consigo encontrar ou definir o caminho/destino para o ficheiro. Podes me ajudar? Olá @heltonfurau ,
Na instrução SetFileProp, podes identificar o caminho completo com o nome do ficheiro, e grava onde quiseres.
Também aceita caminhos UNC, pelo que grava em unidades de rede. @emiliosusavila, muito obrigado!! Funcionou exactamente como esperado. @heltonfurau de nada! não esqueças de acrescentar o teu voto positivo à resposta... eu agradeço. @emiliosusavila, acrescentava +100 se pudesse rsrsrs, estou com esse problema há dias. Em todo caso já acrescentei, obrigado. |