- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Replicar cadastros entre empresas
×
Linguagem de Programação ADVPL
Perguntas Replicar cadastros entre empresas
- rodrigo.simoes
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 48
- Obrigados Recebidos: 0
10 anos 2 semanas atrás #26070
por rodrigo.simoes
Replicar cadastros entre empresas foi criado por rodrigo.simoes
Pessoal, bom dia !
Estou com uma demanda na empresa, onde preciso replicar os cadastros entre duas empresas.
Por exemplo. Quando o usuário incluir um cliente na empresa 01, preciso que o sistema replique este cadastro para a empresa 05.
Alguém tem algo parecido com isso?
Obrigado.
Rodrigo Simões
Estou com uma demanda na empresa, onde preciso replicar os cadastros entre duas empresas.
Por exemplo. Quando o usuário incluir um cliente na empresa 01, preciso que o sistema replique este cadastro para a empresa 05.
Alguém tem algo parecido com isso?
Obrigado.
Rodrigo Simões
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
10 anos 2 semanas atrás #26074
por admin
Respondido por admin no tópico Replicar cadastros entre empresas
No Ponto de Entrada você poderá fazer o seguite após a inclusão:
MA030INC senão me engano.
// Joga todos os dados da Empresa atual no vetor a Dados
aDados := {}
For nI := 1 To SA1->(FCount())
AAdd(aDados, SA1->(FieldGet(nI)) )
Next
cModo := 'C'
EmpOpenFile("SA105","SA1",1,.T.,'05',@cModo)
If RecLock("SA105",.t.)
For nI := 1 To Len(aDados)
nPos := SA105->(FieldPos(aDados[nI,1])))
FieldPut(nPos,aDados[nI,2])
Next
SA105->(MsUnlock())
Endif
SA105->(dbCloseArea())
Não Testei.
MA030INC senão me engano.
// Joga todos os dados da Empresa atual no vetor a Dados
aDados := {}
For nI := 1 To SA1->(FCount())
AAdd(aDados, SA1->(FieldGet(nI)) )
Next
cModo := 'C'
EmpOpenFile("SA105","SA1",1,.T.,'05',@cModo)
If RecLock("SA105",.t.)
For nI := 1 To Len(aDados)
nPos := SA105->(FieldPos(aDados[nI,1])))
FieldPut(nPos,aDados[nI,2])
Next
SA105->(MsUnlock())
Endif
SA105->(dbCloseArea())
Não Testei.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Replicar cadastros entre empresas
Tempo para a criação da página:0.066 segundos