GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Como espelhar registro de uma tabela TMP para uma tabela EFETIVA
Como espelhar registro de uma tabela TMP para uma tabela EFETIVA
Iniciado por BOLLER, jan., 16 2020 5:18 PM - 2 respostas
Conecte-se…
BOLLER
#1
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 16 2020 - 5:18 PM
EX, DEVE TER OS MESMOS CAMPOS
//Espelhar registro!!!!
TAB_CAB_NOTA_EFETIVA
<
=
TAB_CAB_NOTA_EFETIVA_TEMP
HAdd
(
TAB_CAB_NOTA_EFETIVA
)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, janeiro, 16 2020 - 5:19 PM
Denunciar
0
0
BOLLER
#2
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 16 2020 - 6:15 PM
//OUTRO EXEMPLO COM <= E TRANSACTION PARA UMA OPERACAO COM VARIAS TABELAS EM UMA GRAVAÇÃO ATOMICA
Procedure
UI_Grava_nfe_Estoque
(
)
umavez
=
0
umavezCabecalho
=
False
IF
F007_APS_NFE_TEMP.F007_ID_NFE
=
0
OR
F007_APS_NFE_TEMP.F007_ID_NFE
=
""
THEN
Info
(
"Não foi informado o ID da NFe"
)
RETURN
END
IF
F007_APS_NFE_TEMP.F007_NUM_NFE
=
0
OR
F007_APS_NFE_TEMP.F007_NUM_NFE
=
""
THEN
Info
(
"Não foi informado o NUM NFe"
)
RETURN
END
IF
F007_APS_NFE_TEMP.F007_VLR_TOTAL_PROD
=
0
OR
F007_APS_NFE_TEMP.F007_VLR_TOTAL_PROD
=
""
THEN
Info
(
"Não foi informado o total da NFe"
)
RETURN
END
//1 : Sim
//2 : Não
SWITCH
Dialog
(
"Deseja gravar a Nota de Entrada?"
)
// Sim
CASE
1
ok
is boolean
=
False
HTransactionStart
(
CO
NN_INFOTST
,
"F007_APS_NFE,F007_APS_NFE_TEMP,F008_APS_NFE_ITENS,F008_APS_NFE_ITENS_TEMP"
)
IF
F007_APS_NFE_TEMP.F007_ID_NFE
>
0
AND
F007_APS_NFE_TEMP.F007_NUM_NFE
<
>
0
AND
F007_APS_NFE_TEMP.F007_NUM_NFE
<
>
""
AND
F007_APS_NFE_TEMP.F007_VLR_TOTAL_PROD
>
0
F007_APS_NFE_TEMP.F007_SALVA
=
"S"
IF
HModify
(
F007_APS_NFE_TEMP
,
hRecNumCurrent
) =
True
F007_APS_NFE
<
=
F007_APS_NFE_TEMP
//espelhar registro!!!!
IF
HAdd
(
F007_APS_NFE
) =
True
THEN
//GRANA OS ITENS DA NFE
FOR
E
ACH F008_APS_NFE_ITENS_TEMP
IF
F008_APS_NFE_ITENS_TEMP.F008_ID_NFE
=
E
DT_IDNfe
AND
F008_APS_NFE_ITENS_TEMP.F008_CODIGO_TISS
<
>
0
AND
F008_APS_NFE_ITENS_TEMP.F008_CODIGO_TISS
<
>
""
AND
F008_APS_NFE_ITENS_TEMP.F008_NOME_COMERCIAL
<
>
""
AND
HReset
(
F008_APS_NFE_ITENS
)
F008_APS_NFE_ITENS
<
=
F008_APS_NFE_ITENS_TEMP
IF
HAdd
(
F008_APS_NFE_ITENS
) =
True
THEN
ok
=
True
END
END
END
END
END
END
IF
ok
=
True
THEN
IF
HTransactionEnd
(
CO
NN_INFOTST
) =
True
Info
(
"Nfe gravada com sucesso!"
)
UI_LimpaCampos
(
)
UI_VerificaCabecalho
(
)
UI_HabilitaCamposProd
(
)
E
DT_NumNota
..
State
=
Active
E
DT_Serie
..
State
=
Active
BTN_
BuscaFornec
..
State
=
Active
E
DT_Danfe
..
State
=
Active
E
DT_EntradaEstoque
..
State
=
Active
E
DT_Emissao
..
State
=
Active
E
DT_Fornecedor_Razao_Social
..
State
=
DisplayOnly
END
ELSE
IF
HTransactionCancel
(
CO
NN_INFOTST
) =
True
THEN
Info
(
"Tente novamente, ocorreu um erro: "
+
ErrorInfo
(
)
)
END
END
// Não
CASE
2
RETURN
END
UI_Close
(
)
CASE EXCEPTION
:
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, janeiro, 16 2020 - 6:21 PM
Denunciar
0
0
BOLLER
#3
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 16 2020 - 6:16 PM
LEMBRETE:
SEMPRE QUE POSSIVEL USAR TRANSACTION
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto