- Para não ser necessário preencher manualmente todas as quantidades:
Será criado um botão Lib. Quantidade, que replica todas as quantidades para a coluna quantidade liberada
A) Ponto de Entrada para adicionar a opção:
|
1 2 3 4 5 6 |
User Function A410CONS() Local aButt := {} aadd(aButt, {"LIBERAQTD",{||U_AtuQtdLib()},"Liberando quantidades ...","Lib. Qtde"}) Return (aButt) |
B) Função que replica as quantidades:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
/*/{Protheus.doc} AtuQtdLib //TODO Botão no pedido de venda (ações rel) onde o usuario pode preencher automaticamente quantidades liberadas @author Fernando @since 02/02/2017 @version 1 @type function /*/ User Function AtuQtdLib() Local nI := 0 Local cNota := "" Local cCodUser := RetCodUsr() For nI := 1 to Len(aCols) cNota := Posicione("SC6",1,xFilial("SC6")+SC5->C5_NUM+aCols[nI, GdFieldPos("C6_ITEM",aHeader)]+aCols[nI, GdFieldPos("C6_PRODUTO",aHeader)],"C6_NOTA") If !(AllTrim(cCodUser)$GetMV("MV_X_LQTD")) Alert("Você não tem permissão para executar esta função") Return EndIf If !Empty(cNota) Alert("Pedido já está faturado") Return EndIf If aCols[nI, GdFieldPos("C6_QTDLIB",aHeader)] == 0 aCols[nI, GdFieldPos("C6_QTDLIB",aHeader)] := aCols[nI, GdFieldPos("C6_QTDVEN",aHeader)] EndIf Next nI Return |
Fernando Bueno
Consultor em FBSOLUTIONS
Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In