- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- Incluir novo item automático na SC6
Perguntas Incluir novo item automático na SC6
- marcelo.silva
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 94
- Obrigados Recebidos: 0
7 anos 8 meses atrás #31928
por marcelo.silva
Incluir novo item automático na SC6 foi criado por marcelo.silva
Bom dia,
Preciso incluir um item automaticamente na SC6 vou utilizar o ponto de entrada M410LIOK. Nos pedidos sempre serão incluídos apenas dois itens, quando o usuário mudar para segunda linha quero que o produto e tes pegue de um valor fixo porque sempre serão os mesmos valores, o campo quantidade sera copiada da linha 1 e o valor unitário usuário vai digitar, alguém já fez essa customização pra dar um exemplo?
Obrigado
Preciso incluir um item automaticamente na SC6 vou utilizar o ponto de entrada M410LIOK. Nos pedidos sempre serão incluídos apenas dois itens, quando o usuário mudar para segunda linha quero que o produto e tes pegue de um valor fixo porque sempre serão os mesmos valores, o campo quantidade sera copiada da linha 1 e o valor unitário usuário vai digitar, alguém já fez essa customização pra dar um exemplo?
Obrigado
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
7 anos 8 meses atrás #31941
por admin
Respondido por admin no tópico Incluir novo item automático na SC6
Veja se te ajuda isso que fiz, ele repete a linha posicionada no acols e vai gerando novas copias.
User Function SIGAFAT() // habilita a tecla f11 para copiar acols na chamada do modulo faturamento
SetKey(VK_F11, {|| U_CopyAcols() }) // Funcao para Replicar linha do Acols
Return
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ CopyAcols ºAutor ³Luiz Alberto Data ³ 23/04/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Copia a Linha do aCols Acima º±±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function CopyAcols()
Local aArea := GetArea()
If n>0
aTemp := aClone(aCols)
aAdd(aCols, aTemp[n])
aCols[Len(aCols),1] := StrZero(Len(aCols),2)
// Caso seja Executado no Orçamento de Vendas, Limpa Campos Especificos
For nI := 1 To Len(aHeader)
If AllTrim(aHeader[nI,2])$'UB_XINIC,UB_XFIM,UB_XSTAND,UB_XEMBALA,UB_XVOLITE,UB_PEDCLI,UB_XAPLICA,UB_XPBITEM,UB_XPLITEM,UB_LOTECTL,UB_NUMOP'
aCols[Len(aCols),nI] := CriaVar(aHeader[nI,2])
ElseIf AllTrim(aHeader[nI,2])=='UB_ITEMOP'
aCols[Len(aCols),nI] := CriaVar(aHeader[nI,2])
ElseIf AllTrim(aHeader[nI,2])=='UB_ITEMCLI'
aCols[Len(aCols),nI] := CriaVar(aHeader[nI,2])
Endif
Next
Endif
RestArea(aArea)
Return .t.Por favor Acessar ou Registrar para participar da conversa.
- marcelo.silva
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 94
- Obrigados Recebidos: 0
7 anos 7 meses atrás #31973
por marcelo.silva
Respondido por marcelo.silva no tópico Incluir novo item automático na SC6
Muito Obrigado
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- Incluir novo item automático na SC6
Tempo para a criação da página:0.091 segundos