Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Emerson Grassi Rocha_

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Emerson Grassi Rocha_

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucoes_totvs_cross
SolucaoCrossTOTVS RH

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoRH

Módulo:

Modulos_cross_segmentos

Modulos_framework

Modulos_totvs_construcao

Modulos_totvs_juridico

Modulos_totvs_logistica

Modulos_totvs_manufatura

Modulos_totvs_rh
ModulosTOTVSRHTOTVS RH (Linha Protheus) - Arquitetura Organizacional (SIGAORG)

Modulos_totvs_saude

Modulos_totvs_prestadores_de_servicos

Função:

CSAA100.PRW

País:Brasil


02. DESCRIÇÃO

Este ponto de entrada recebe o KeyIni gerado pelo sistema padrão (Carga inicial) e permite que o usuário utilize o código gerado ou manipule os dados antes da gravação.

Ele é executado para cada registro da tabela SQB, ao acessar o Cadastro de departamentos (CSAA100).


Localização

CrgKeyIni() - Carga inicial do QB_KEYINI.

Parâmetro

Nome

Tipo

Descrição

PARAMIXBArray

Array com informações do processamento.

Nome

Tipo

Descrição

PARAMIXB[1]CaracterChave (KeyIni) gerado pelo sistema.
Retorno

Nil


03. DEMAIS INFORMAÇÕES


Exemplo de utilização:


#include “Protheus.ch"

User Function CSAALTKEY()


Local cGerKey  := Alltrim(PARAMIXB[1])

Local cAtuKey  := Alltrim(SQB->QB_KEYINI)

Local cNewKey := "000"

Local lOk         := ( Len(cGerKey) / 3 ) == ( Int(Len(cGerKey) / 3) )


If cAtuKey <> cGerKey

Reclock("SQB", .F.)

SQB->QB_KEYINI := Iif(lOk, cGerKey, cNewKey)

MsUnlock()

EndIf


Return


04. ASSUNTOS RELACIONADOS

  • Não há.



Templatedocumentos