Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch"
USER FUNCTION FIN050EXC()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
DbSelectArea("SE2")
DbSetOrder(1)
DbSeek(xFilial("SE2")+"PAG"+"0001 "+" "+"NF") //Exclusão deve ter o registro SE2 posicionado
aArray := { { "E2_PREFIXO" , SE2->E2_PREFIXO , NIL },;
{ "E2_NUM" , SE2->E2_NUM , NIL } }
MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 5) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Exclusão do Título com sucesso!")
Endif
Return
|
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch"
USER FUNCTION FIN050VA()
LOCAL aArray := {}
LOCAL nOpc := 3 // 3-Inclusão, 4 Alteração
// Dados do valor acessório.
LOCAL aVAAut := {}
LOCAL cValAce1 := "000001" // Código do Va
LOCAL nValAce1 := 200 // Valor do Va
LOCAL cValAce2 := "000012"
LOCAL nValAce2 := 4
PRIVATE lMsErroAuto := .F.
aArray := { { "E2_PREFIXO" , "PAG" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "NF" , NIL },;
{ "E2_NATUREZ" , "001" , NIL },;
{ "E2_FORNECE" , "0001" , NIL },;
{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCREA" , CtoD("17/02/2012"), NIL },;
{ "E2_VALOR" , 5000 , NIL } }
// Array com valor acessório
aAdd(aVAAut, {cValAce1, nValAce1})
aAdd(aVAAut, {cValAce2, nValAce2})
MsExecAuto( { |a,b,c,d,e,f,g,h,i,j,k,l| FINA050(a, b, c, d, e, f, g, h, i, j, k, l)}, aArray,, nOpc,,,,,,,,, aVAAut)
If lMsErroAuto
MostraErro()
Else
If nOpc == 3
Alert("Título incluido com sucesso!")
Else
Alert("Título alterado com sucesso!")
EndIf
Endif
Return
|
04. DEMAIS INFORMAÇÕES
Não há.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas