×
Linguagem de Programação ADVPL
Perguntas Ponto SF2460I
- Faccio
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 19
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11894
por Faccio
Ponto SF2460I foi criado por Faccio
Bom dia!!
Sou novato em ADVPL e nunca criei ou alterei um ponto de entrada.Porem estou precisando customizar este.
Tenho a seguinte situação: Criei um campo customizado na SC5, C5_CCUSTO fazendo o mesmo pesquisar da tabela CTT(centros de custo), agora preciso customizar o ponto de entrada SF2460I para gravar o que foi informado no C5_CCUSTO no campo D2_CUSTO.
Porem ele tem que obedecer a seguinte regra devido aos meus pedidos conterem produto e serviço no mesmo pedido:
Se for material obedecer o que foi informado no C5_CCUSTO e se for serviço (todos tem o Codigo iniciando por MOF...)obedecer o que tem no cadastro do produto.
Se alguém puder me ajudar fico muito agradecido e será de grande valia.
Att:Flávio
Sou novato em ADVPL e nunca criei ou alterei um ponto de entrada.Porem estou precisando customizar este.
Tenho a seguinte situação: Criei um campo customizado na SC5, C5_CCUSTO fazendo o mesmo pesquisar da tabela CTT(centros de custo), agora preciso customizar o ponto de entrada SF2460I para gravar o que foi informado no C5_CCUSTO no campo D2_CUSTO.
Porem ele tem que obedecer a seguinte regra devido aos meus pedidos conterem produto e serviço no mesmo pedido:
Se for material obedecer o que foi informado no C5_CCUSTO e se for serviço (todos tem o Codigo iniciando por MOF...)obedecer o que tem no cadastro do produto.
Se alguém puder me ajudar fico muito agradecido e será de grande valia.
Att:Flávio
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás - 11 anos 8 meses atrás #11903
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Ponto SF2460I
Ta ai brother prontinho !! rsrs coloca uma foto sua e divulgue o site aos amigos.
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³SF2460I ºAutor ³Luiz Alberto º Data ³ 15/03/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada apos a geração do Documento de Saida º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function SF2460I()
Local _aArea:=GetArea()
If SD2->(dbSetOrder( 8 ), dbSeek(xFilial("SD2")+SC5->C5_NUM))
While SD2->(!Eof()) .And. SD2->D2_FILIAL == xFilial("SD2") .And. SD2->D2_PEDIDO == SC5->C5_NUM
If Left(SD2->D2_COD,3) == "MOF"
If RecLock("SD2",.f.)
SD2->D2_CUSTO := SC5->C5_CCUSTO
MsUnlock()
Endif
Endif
SD2->(dbSkip(1))
Enddo
Endif
RestArea(_aArea)
Return
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³SF2460I ºAutor ³Luiz Alberto º Data ³ 15/03/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada apos a geração do Documento de Saida º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function SF2460I()
Local _aArea:=GetArea()
If SD2->(dbSetOrder( 8 ), dbSeek(xFilial("SD2")+SC5->C5_NUM))
While SD2->(!Eof()) .And. SD2->D2_FILIAL == xFilial("SD2") .And. SD2->D2_PEDIDO == SC5->C5_NUM
If Left(SD2->D2_COD,3) == "MOF"
If RecLock("SD2",.f.)
SD2->D2_CUSTO := SC5->C5_CCUSTO
MsUnlock()
Endif
Endif
SD2->(dbSkip(1))
Enddo
Endif
RestArea(_aArea)
Return
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 11 anos 8 meses atrás por lalberto.
Por favor Acessar ou Registrar para participar da conversa.
- Faccio
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 19
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11913
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Ponto SF2460I
blz Flavio, eu não testei a rotina mas creio que funcione de boa.
Seja bem vindo, e dá um gole desse whiskão ai
Seja bem vindo, e dá um gole desse whiskão ai
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13877
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico Ponto SF2460I
Boa tarde Luiz
Teria como mandar a descrição do produto para a D2? Por este P.E.!
Teria como mandar a descrição do produto para a D2? Por este P.E.!
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 6 meses atrás #13879
por kanaamlrr
Respondido por kanaamlrr no tópico Ponto SF2460I
Tem sim
acho que está certo, não testei
testa ai e diz pra gente se deu certo.
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³SF2460I ºAutor ³Luiz Alberto º Data ³ 15/03/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada apos a geração do Documento de Saida º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function SF2460I()
Local _aArea:=GetArea()
SB1->(dbSetOrder(1))
If SD2->(dbSetOrder( 8 ), dbSeek(xFilial("SD2")+SC5->C5_NUM))
While SD2->(!Eof()) .And. SD2->D2_FILIAL == xFilial("SD2") .And. SD2->D2_PEDIDO == SC5->C5_NUM
IF SB1->(dbSeek(XfILIAL("SB1")+SD2->D2_COD))
If RecLock("SD2",.f.)
SD2->D2_DESCRI := SB1->B1_DESC
MsUnlock()
Endif
Endif
SD2->(dbSkip(1))
Enddo
Endif
RestArea(_aArea)
Return acho que está certo, não testei
testa ai e diz pra gente se deu certo.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.141 segundos