- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
×
Linguagem de Programação ADVPL
Perguntas BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
- felipesilva
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25195
por felipesilva
BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA foi criado por felipesilva
Boa tarde, estou tentando criar um ponto de entrada que envolva duas tabelas, uma tabela ZZ1 contém o mês, ano e dias uteis desse mês e a outra tabela ZZ2 o campo aonde quero atualizar com a informação de dias uteis da tabela anterior. Caso precise envio o fonte.
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
- felipesilva
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25202
por felipesilva
Respondido por felipesilva no tópico BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
Bom dia segue fonte em anexo.
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25260
por admin
Respondido por admin no tópico BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
Bom dei uma olha no seu fonte, vou montar uma função rapida aqui veja se te ajuda:
em primeiro lugar na sua tabela ZZ1 Crie um campo como referente tipo Z1_REF C 6
aonde será gravado 201408 (Ano 2014 Mes Agosto)
e o campo Z1_DIASU N 2 aonde irá constar por exemplo 22
vamos là, na sua função iremos colocar o seguinte:
User Function BscDU(dData)
Local aArea := GetArea()
Local nDias := 0
If ZZ1->(dbSetOrder(1), dbSeek(xFilial("ZZ1")+Left(DtoS(dData),6)))
nDias := ZZ1->Z1_DIASU
Endif
RestArea(aArea)
Return nDias
Crie um Gatilho na Sua Tabela ZZ2 que após preencher algum campo Data ele execute esta funçao:
U_BscDU(M->ZZ2_DTREF)
O Retorno será o preenchimento do seu campo de dias uteis na ZZ2.
Espero Ter Ajudado.
em primeiro lugar na sua tabela ZZ1 Crie um campo como referente tipo Z1_REF C 6
aonde será gravado 201408 (Ano 2014 Mes Agosto)
e o campo Z1_DIASU N 2 aonde irá constar por exemplo 22
vamos là, na sua função iremos colocar o seguinte:
User Function BscDU(dData)
Local aArea := GetArea()
Local nDias := 0
If ZZ1->(dbSetOrder(1), dbSeek(xFilial("ZZ1")+Left(DtoS(dData),6)))
nDias := ZZ1->Z1_DIASU
Endif
RestArea(aArea)
Return nDias
Crie um Gatilho na Sua Tabela ZZ2 que após preencher algum campo Data ele execute esta funçao:
U_BscDU(M->ZZ2_DTREF)
O Retorno será o preenchimento do seu campo de dias uteis na ZZ2.
Espero Ter Ajudado.
Por favor Acessar ou Registrar para participar da conversa.
- felipesilva
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
10 anos 1 mês atrás #25276
por felipesilva
Respondido por felipesilva no tópico BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
Muito obrigado pela ajuda, fico imensamente grato por sua disposição em me ajudar, funcionou perfeitamente.
Mais uma vez muito obrigado.
Mais uma vez muito obrigado.
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 1 mês atrás #25287
por admin
Respondido por admin no tópico BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
Felipe que bom brother, apareça sempre que precisar, coloca uma foto sua ai pra gente te conhecer melhor e participe do forum.
Abraços.
Abraços.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- BUSCAR DIAS UTEIS ATRAVÉS DA DATA DO SISTEMA
Tempo para a criação da página:0.121 segundos