Softshop > NFe: Liberar Registro Faturado (Liberar Forms)

Software: SOFTSHOP | Grupo: SOFTSHOP > ANALISE > NFe

Solução

Causa:

Necessita liberar a tela de venda, ou nota fiscal ou outra tela para editar alguma informação, forma de pagamento, vendedor ou mercadoria

Solução:

1.0. Abrir o Softshop na estrutura, ir em Formulários>e procurar o Entrada Atendente.

1.2. Loga normal no sistema, vai na tela que deseja liberar e Pressiona CTRL+G

1.3. Ao pressionar CTRL+G ele vai abrir o VBA do Access.

1.4. Apague o que já tem na linha, e cole o seguinte código.

1.5. Após colar o código pressione F5 ou clique em Executar no símbolo de Play

Código:

Option Compare Database

Function LiberarAll()

On Error Resume Next

Dim lngLoop As Long

Dim FormlngLoop As Variant

For lngLoop = (Forms.Count - 1) To 1 Step -1

Debug.Print Forms(lngLoop).name

With Forms(lngLoop)

.Enabled = True

.Locked = False

.AllowEdits = True

.AllowAdditions = True

.AllowDeletions = True

.Modal = False

For Each FrmCtr In Forms(lngLoop).Controls

With FrmCtr

.Enabled = True

.Locked = False

.AllowEdits = True

.AllowAdditions = True

.AllowDeletions = True

.Modal = False

End With

Next FrmCtr

End With

Next lngLoop

MsgBox "Liberado!"

End Function

---

Tags: liberarpedido, liberar pedido, liberar, faturado