Esempio n. 1
0
        /// <summary>
        ///     Print to PDF the invoice.
        /// </summary>
        /// <param name="pso">pso</param>
        /// <param name="bso">bso</param>
        /// <param name="reportPath">Where the will be printed.</param>
        /// <param name="DocType">The document type.</param>
        /// <param name="DocSeries">The document series.</param>
        /// <param name="DocNumber">The document number.</param>
        public static void PrintInvoice(StdBSInterfPub pso,
                                        ErpBS bso,
                                        string reportPath,
                                        string DocType,
                                        string DocSeries,
                                        int DocNumber)
        {
            var reportTemplate = "GCPVLS01";

            try
            {
                var strSelFormula = $"{{CabecDoc.TipoDoc}}=\'{DocType}\' and {{CabecDoc.Serie}} = \'{DocSeries}\' AND {{CabecDoc.NumDoc}}={Convert.ToString(DocNumber)}";

                pso.Mapas.Inicializar("VND");

                var strFormula = new StringBuilder();
                strFormula.Append($"StringVar Nome:='{bso.Contexto.IDNome}';");
                strFormula.Append($"StringVar Morada:='{bso.Contexto.IDMorada}';");
                strFormula.Append($"StringVar Localidade:='{bso.Contexto.IDLocalidade}';");
                strFormula.Append($"StringVar CodPostal:='{bso.Contexto.IDCodPostal} {bso.Contexto.IDCodPostalLocal}';");
                strFormula.Append($"StringVar Telefone:='{bso.Contexto.IDTelefone}';");
                strFormula.Append($"StringVar Fax:='{bso.Contexto.IDFax}';");
                strFormula.Append($"StringVar Contribuinte:='{bso.Contexto.IFNIF}';");
                strFormula.Append($"StringVar CapitalSocial:='{bso.Contexto.ICCapitalSocial}';");
                strFormula.Append($"StringVar Conservatoria:='{bso.Contexto.ICConservatoria}';");
                strFormula.Append($"StringVar Matricula:='{bso.Contexto.ICMatricula}';");
                strFormula.Append($"StringVar MoedaCapitalSocial:='{bso.Contexto.ICMoedaCapSocial}';");

                pso.Mapas.SetFormula("DadosEmpresa", strFormula.ToString());

                var strParametros = new StringBuilder();
                strParametros.Append("NumberVar TipoDesc;");
                strParametros.Append("NumberVar DecQde;");
                strParametros.Append("NumberVar DecPrecUnit;");
                strParametros.Append("StringVar MotivoIsencao;");
                strParametros.Append("BooleanVar UltimaPag;");
                strParametros.Append("StringVar PRI_TextoCertificacao;");
                strParametros.Append("TipoDesc:= 0;");
                strParametros.Append("DecQde:=3;");
                strParametros.Append($"DecPrecUnit:={pso.FuncoesGlobais.DaCasasDecimais("Moedas", "DecArredonda")};");
                strParametros.Append("UltimaPag:=False;");
                strParametros.Append($"PRI_TextoCertificacao:='{bso.Vendas.Documentos.DevolveTextoAssinaturaDoc(DocType, DocSeries, DocNumber, "000")}';");

                pso.Mapas.SetFormula("InicializaParametros", strParametros.ToString());
                pso.Mapas.Destino = 0;
                pso.Mapas.SetFileProp(StdBSTipos.CRPEExportFormat.efPdf, reportPath);

                pso.Mapas.MostraErros = true;
                pso.Mapas.ImprimeListagem(reportTemplate, "Invoice", "P", 1, "N", strSelFormula, 0, false, true);
            }
            catch (Exception ex)
            {
                throw new Exception("Error while printing the document. \n" + ex.Message);
            }
        }
Esempio n. 2
0
        internal static void DrillDownEntidade(StdBSInterfPub PSO, string categoria, string entidade)
        {
            StdBESqlCampoDrillDown campoDrillDown = new StdBESqlCampoDrillDown();
            StdBEValoresStr        param          = new StdBEValoresStr();

            campoDrillDown.ModuloNotificado = "GCP";
            campoDrillDown.Tipo             = StdBESqlTipos.EnumTipoDrillDownListas.tddlEventoAplicacao;
            campoDrillDown.Evento           = "GCP_MOSTRAMANUTENCAO";

            param.InsereNovo("Manutencao", categoria);
            param.InsereNovo("Chave", entidade);

            PSO.DrillDownLista(campoDrillDown, param);
        }
Esempio n. 3
0
        internal static void DrillDownDocumentoId(StdBSInterfPub PSO, string modulo, string id)
        {
            StdBESqlCampoDrillDown campoDrillDown = new StdBESqlCampoDrillDown();
            StdBEValoresStr        param          = new StdBEValoresStr();

            campoDrillDown.ModuloNotificado = "GCP";
            campoDrillDown.Tipo             = StdBESqlTipos.EnumTipoDrillDownListas.tddlEventoAplicacao;
            campoDrillDown.Evento           = "GCP_EditarDocumentoId";

            // "V" ' Vendas
            // "C" ' Compras
            // "N" ' Internos
            // "S" ' Stocks
            // "M" ' Contas Correntes
            // "B" ' Tesouraria

            param.InsereNovo("Modulo", modulo);
            param.InsereNovo("Id", id);

            PSO.DrillDownLista(campoDrillDown, param);
        }
Esempio n. 4
0
        internal static void DrillDownDocumento(StdBSInterfPub PSO, string modulo, string tipoDoc, int numDoc, string serie, string filial)
        {
            StdBESqlCampoDrillDown campoDrillDown = new StdBESqlCampoDrillDown();
            StdBEValoresStr        param          = new StdBEValoresStr();

            campoDrillDown.ModuloNotificado = "GCP";
            campoDrillDown.Tipo             = StdBESqlTipos.EnumTipoDrillDownListas.tddlEventoAplicacao;
            campoDrillDown.Evento           = "GCP_EditarDocumento";

            // "V" ' Vendas
            // "C" ' Compras
            // "N" ' Internos
            // "S" ' Stocks
            // "M" ' Contas Correntes
            // "B" ' Tesouraria

            param.InsereNovo("Modulo", modulo);
            param.InsereNovo("Filial", filial);
            param.InsereNovo("Tipodoc", tipoDoc);
            param.InsereNovo("Serie", serie);
            param.InsereNovo("NumDocInt", Convert.ToString(numDoc));

            PSO.DrillDownLista(campoDrillDown, param);
        }
Esempio n. 5
0
 /// <summary>
 /// Set the ERP context using the PSO and BSO objects already open
 /// </summary>
 /// <param name="mPSO">PSO from the PEX environment</param>
 /// <param name="mBSO">BSO from the PEX environment</param>
 public ERPContext(StdPlatBS100.StdBSInterfPub mPSO, ErpBS100.ErpBS mBSO)
 {
     BSO = mBSO;
     PSO = mPSO;
     InitializeSDKContext();
 }
Esempio n. 6
0
 public GestaoOrcamentos(object BSO, object plat) : base(BSO)
 {
     this.pso = (StdBSInterfPub)plat;
 }