Avalados por :
Caros,
Deixo-vos este código em Visual Basic.NET para que possam alterar o número de série de uma fatura que tenha sido atribuído por engano, ou porque saltaram um correlativo, etc.
Este método de modificação usando a DI API do SBO é legal, ao contrário da atualização pelo SQL.
Para utilizá-lo, sigam passos simples.
1) Baixem o Visual Basic, pode ser a versão EXPRESS, ou se já tiverem o Visual Studio, não o façam.
2) Iniciem um novo projeto do tipo CONSOLE
3) Na aba projeto --> adicionar referências --> COM --> SAP Business one DI API 8.81 (se tiverem 8.8 ou 2007, aparecerá a versão que tiverem)
4) Antes de colar o código, executem o projeto em branco, depois disso, colem o seguinte código
Module Modificar_folio
Sub main()
'Definir variáveis
Dim oCompany As SAPbobsCOM.Company
Dim lRetCode, ErrorCode As Long
Dim ErrorMessage As String
'Iniciar objeto da companhia
oCompany = New SAPbobsCOM.Company
'Definir dados da conexão
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2008 //Tipo de BD
oCompany.DbUserName = "sa"
oCompany.DbPassword = "*****" //Senha do usuário SA
oCompany.Server = "SERVIDOR" //IP ou servidor SQL
oCompany.CompanyDB = "SBODemoCL" //BANCO DE DADOS
oCompany.UserName = "gerente"
oCompany.Password = "******" //senha do usuário gerente
oCompany.language = SAPbobsCOM.BoSuppLangs.ln_English //idioma do SQL, se estiver em espanhol, use SAPbobsCOM.BoSuppLangs.ln_Spanish
oCompany.UseTrusted = False
'Conectar ao base de dados do SAP B1
lRetCode = oCompany.Connect()
Dim Retval As Long
Dim Documento As SAPbobsCOM.Documentos
Documento = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
If Documento.GetByKey(/*DocEntry do documento*/) = True Then
Documento.FolioNumber = /*Número de série a atribuir*/
Documento.FolioPrefixString = "/*Prefixo do número de série*/"
Retval = Documento.Update()
Else
MsgBox("Não foram encontrados registos")
End If
Chamar o
Nicolas, isso significa que há 246 faturas com números de série que não correspondem?
Nicolás,
Em que país você opera? Envie sua consulta ao parceiro para obter ajuda.
Saudações
Felipe, como posso anular folhas já atribuídas no SAP B1 9.1? Por engano, a fatura foi emitida 246 vezes e preciso reutilizar os folios...
Felipe, como devo cancelar o folio?
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute
