Beispiel #1
0
        public PrimaveraResultStructure GravaDocumentoTesouraria(string DocumentoTesouraria, string ContaBancaria, string MovimentoBancario,
            string Rubrica, double Valor, DateTime Data, string FicheiroBMEPS, string RefATM)
        {
            string strSerieDocTes, strErro = "", strAvisos = "", strSQL = "";
            double dblValor;

            PrimaveraResultStructure result;

            GcpBEDocumentoTesouraria documentoTesouraria = new GcpBEDocumentoTesouraria();
            StdBELista lstLista;

            strSerieDocTes = _erpBs.Comercial.Series.DaSerieDefeito("B", DocumentoTesouraria);

            // VERIFICA SE AS TAXAS DO FICHEIRO JÁ FORAM INTEGRADAS
            strSQL = "SELECT TIPODOC, SERIE, NUMDOC, CONTAORIGEM FROM CabecTesouraria WHERE CDU_FicheiroBMEPS = '" + FicheiroBMEPS + "'";
            lstLista = _erpBs.Consulta(strSQL);

            //SE JÁ INTEGROU FICHEIRO, ENTÃO NÃO VOLTA A INTEGRAR
            if (lstLista.NumLinhas() > 0)
            {
                lstLista.Inicio();
                return new PrimaveraResultStructure
                {
                    codigo = 3,
                    descricao = "Aviso: Doc. Tesouraria com Taxas já existia (Conta: " + lstLista.Valor("CONTAORIGEM") + ") - " +
                        lstLista.Valor("TipoDoc") + " " + lstLista.Valor("SERIE") + "/" + lstLista.Valor("NUMDOC") + ""
                };
            }

            //SE NÃO EXISTE DOCUMENTO, ENTÃO CRIA NOVO DOCUMENTO

            documentoTesouraria.set_EmModoEdicao(false);
            documentoTesouraria.set_ModuloOrigem("B");
            documentoTesouraria.set_Filial("000");
            documentoTesouraria.set_TipoLancamento("000");
            documentoTesouraria.set_Tipodoc(DocumentoTesouraria);
            documentoTesouraria.set_Serie(strSerieDocTes);
            documentoTesouraria.set_Data(Data);

            documentoTesouraria.set_Moeda(_erpBs.Contexto.MoedaBase);
            documentoTesouraria.set_Cambio(_erpBs.Contexto.MBaseCambioCompra);
            documentoTesouraria.set_CambioMBase(_erpBs.Contexto.MBaseCambioCompra);
            documentoTesouraria.set_CambioMAlt(_erpBs.Contexto.MAltCambioCompra);
            documentoTesouraria.set_AgrupaMovimentos(false);
            documentoTesouraria.set_Observacoes("Criado na integração do Ficheiro BMEPS. " + Environment.NewLine + "Taxas do ficheiro '" + FicheiroBMEPS + "'.");
            documentoTesouraria.get_CamposUtil().get_Item("CDU_FicheiroBMEPS").Valor = FicheiroBMEPS;

            _erpBs.Comercial.Tesouraria.AdicionaLinha(documentoTesouraria, MovimentoBancario, ContaBancaria, documentoTesouraria.get_Moeda(), Valor, "", "", Rubrica);

            try
            {
                _erpBs.Comercial.Tesouraria.Actualiza(documentoTesouraria, strAvisos);

                return result = new PrimaveraResultStructure()
                {
                    codigo = 0,
                    descricao = string.Format("- Doc. Tesouraria criado com Sucesso (Taxas BMEPS) - {0} {1}/{2} {3}",
                        documentoTesouraria.get_Tipodoc(), documentoTesouraria.get_NumDoc(), documentoTesouraria.get_Serie(),
                        strAvisos == "" ? strAvisos : "-Aviso: " + strAvisos)
                };
            }
            catch (Exception ex)
            {
                return result = new PrimaveraResultStructure()
                {
                    codigo = 3,
                    descricao = string.Format("- Erro ao gravar documento tesouraria: {0}", ex.Message)
                };
            }



        }