Comando que conta quantos registros existem na tabela ou query.
Exemplo da Rotina:
1 | Count to [nVariavel] |
Exemplo 1- Contando os registros de uma tabela:
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 | //Bibliotecas#Include "Protheus.ch"/*/{Protheus.doc} zTesteFunção de Teste@type function@author Terminal de Informação@since 13/11/2016@version 1.0 @example u_zTeste()/*/User Function zTeste() Local aArea := GetArea() Local nTotal := 0 DbSelectArea('SB1') //Contando os registros e voltando ao topo da tabela Count To nTotal SB1->(DbGoTop()) MsgInfo("Total de Registros: "+cValToChar(nTotal), "Atenção") RestArea(aArea)Return |
Exemplo 2- Contando os registros de uma query:
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 30 31 | //Bibliotecas#Include "Protheus.ch"#Include "TopConn.ch"/*/{Protheus.doc} zTesteFunção de Teste@type function@author Terminal de Informação@since 13/11/2016@version 1.0 @example u_zTeste()/*/User Function zTeste() Local aArea := GetArea() Local nTotal := 0 //Monta e executa a consulta sql cQuery := " SELECT * FROM "+RetSQLName('SA1')+" SA1 WHERE SA1.D_E_L_E_T_ = ' ' " TCQuery cQuery New Alias "QRY_SA1" //Contando os registros e voltando ao topo da query Count To nTotal QRY_SA1->(DbGoTop()) MsgInfo("Total de Registros na Query: "+cValToChar(nTotal), "Atenção") QRY_SA1->(DbCloseArea()) RestArea(aArea)Return |
Exemplo em Vídeo:
Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;