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)
};
}
}