Existe alguma forma de no evento antes de imprimir no ERP Primavera abrir apenas uma pré-visualização do crystal de forma a posteriormente ter apenas um pedido no spool da impressora com as vias todas juntas, de outra forma foi detectado que ao imprimirem vários utilizadores em simultâneo as impressões ficavam baralhadas.
3 Respostas
Existe um modelo de impressão criado exatamente para esse efeito. Trata-se do "Doc. Venda - Impressão Agrupada de Vias" que, para além de efetuar a impressão numa instância única do motor do Crystal, é validado em termos fiscais e contempla algumas otimizações no espaço de impressão.
Espero ter ajudado.
Para chamarar a janela de preview através da API devem fazer conforme o código abaixo.
Public Function ImprimeDocPdf(TipoDoc As String, NumDoc As Long, Caminho As
String, SerieDoc As String)
'------------- Variaveis de configuração ----------
Dim strMapa As String
Dim StrSF As String
Dim strFormula As String
Dim strAssinatura As String
Dim strInicializaParametros As String
Dim Nome As String
Dim Morada As String
Dim Localidade As String
Dim CodPostal As String
Dim Telefone As String
Dim Fax As String
Dim Contribuinte As String
Dim CapitalSocial As String
Dim Conservatoria As String
Dim Matricula As String
Dim MoedaCapitalSocial As String
'------------------------------------------------------------------
strMapa = ""
StrSF = ""
'-----------------------------------------------------------------
'carrega dados
strMapa = BSO.Comercial.Series.DaConfig("V", TipoDoc, SerieDoc)
StrSF = "{CabecDoc.TipoDoc}='" & TipoDoc & "' AND {CabecDoc.Serie}='" & SerieDoc & "' AND {CabecDoc.NumDoc}=" & NumDoc
PSO.Mapas.Inicializar "GCP"
'------- Carrega dados vindos do priempre -------------------
Nome = BSO.Contexto.IDNome
Morada = BSO.Contexto.IDMorada
Localidade = BSO.Contexto.IDLocalidade
CodPostal = BSO.Contexto.IDCodPostal & " " & BSO.Contexto.IDCodPostalLocal
Telefone = BSO.Contexto.IDTelefone
Fax = BSO.Contexto.IDFax
Contribuinte = BSO.Contexto.IFNIF
CapitalSocial = BSO.Contexto.ICCapitalSocial
Conservatoria = BSO.Contexto.ICConservatoria
Matricula = BSO.Contexto.ICMatricula
MoedaCapitalSocial = BSO.Contexto.ICMoedaCapSocial
strFormula = "StringVar Nome:='" & Nome & "';" & _
"StringVar Morada:='" & Morada & "';" & _
"StringVar Localidade:='" & Localidade & "';" & _
"StringVar CodPostal:='" & CodPostal & "';" & _
"StringVar Telefone:='" & Telefone & "';" & _
"StringVar Fax:='" & Fax & "';" & _
"StringVar Contribuinte:='" & Contribuinte & "';" & _
"StringVar CapitalSocial:='" & CapitalSocial & "';" & _
"StringVar Conservatoria:='" & Conservatoria & "';" & _
"StringVar Matricula:='" & Matricula & "';" & _
"StringVar MoedaCapitalSocial:='" & MoedaCapitalSocial & "';"
strAssinatura = BSO.Comercial.Vendas.DevolveTextoAssinaturaDoc(TipoDoc, SerieDoc, NumDoc, "000")
strInicializaParametros = _
"NumberVar TipoDesc;" & _
"NumberVar DecQde;" & _
"NumberVar DecPrecUnit;" & _
"StringVar MotivoIsencao;" & _
"BooleanVar UltimaPag;" & _
"StringVar PRI_TextoCertificacao;" & _
"TipoDesc:= 0;" & _
"DecQde:=3;" & _
"DecPrecUnit:=" & PSO.FuncoesGlobais.DaCasasDecimais("Moedas", "DecArredonda") & ";" & _
"MotivoIsencao:='" & BSO.Contexto.IFMotivoIsencao & "';" & _
"UltimaPag := False;" & _
"PRI_TextoCertificacao:='" & strAssinatura & "';"
PSO.Mapas.SetFormula "DadosEmpresa", strFormula
PSO.Mapas.SetFormula "InicializaParametros", strInicializaParametros
PSO.Mapas.Destino = edNoExport
PSO.Mapas.SetFormula "DadosEmpresa", strFormula
PSO.Mapas.ImprimeListagem strMapa, "Impressão de documentos em PDF", "W", , "S", StrSF, , , , , True
PSO.Mapas.TerminaJanelas
Exit Function
Erro:
MsgBox "Erro: " & Err.Number & " - " & Err.Description
Set Emp = Nothing
End Function
-
Isto serve para chamar a janela de pré-visualizar no entanto continua a mostrar em separado o original, duplicado e triplicado tal como o comportamento normal, não é o que se pretende, pretendemos que apenas uma janela contenha as vias todas. – André Alves 3/05/18 às 15:07
-
Nesse caso não existe possibildiade porque o relatório está feito para ser unico. A alternativa é criar um outro report com este como sub report, mas se for um relatório legal não vai passar no validador. – Sérgio Sereno 3/05/18 às 16:00
-
-
O seguinte cenário acontece: o utilizador A imprime 3 vias o utilizador B imprime 3 vias ambos ao mesmo tempo mediante a velocidade do spooling de cada computador o resultado final a sair da impressora pode ser original A, duplicado A, original B, triplicado A, duplicado B e triplicado B. – André Alves 4/05/18 às 8:05
Existe uma alternativa pouco pragmática - pois só é possível nos editores que temos acesso e que possuem eventos AntesDeImprimir() - que é interpolar as chamadas de impressão do ERP cancelando-os, e chamando um método próprio que utiliza os motores para imprimir as respectivas vias para uma pasta, que posteriormente são utilizadas para criar um único ficheiro PDF. Assim, é possível efectuar uma chamada única no spooler de impressão evitando confusões de vários postos a enviarem diferentes chamadas por cada via.
-
Obrigado Nuno, realmente é uma hipótese no entanto não existe a possibilidade da pré-visualização! – André Alves 9/05/18 às 15:31