FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
Como espelhar registro de uma tabela TMP para uma tabela EFETIVA
Como espelhar registro de uma tabela TMP para uma tabela EFETIVA
Débuté par BOLLER, 16 jan. 2020 17:18 - 2 réponses
Connectez-vous…
BOLLER
#1
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 16 janvier 2020 - 17:18
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/
Message modifié, 16 janvier 2020 - 17:19
Signaler
0
0
BOLLER
#2
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 16 janvier 2020 - 18:15
//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/
Message modifié, 16 janvier 2020 - 18:21
Signaler
0
0
BOLLER
#3
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 16 janvier 2020 - 18:16
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/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte