Tabela de Preço Via Execauto

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Faturamento

Rotina:

Rotina	Nome Técnico
OMSA010	Tabela de Preços

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

DA0 - Cabeçalho da tabela de preço

DA1 - Itens da tabela de preço

Sistema(s) Operacional(is):

Windows / Linux

Descrição

Executar a rotina automática de manutenção das tabelas de preço.

Tipo de execução para a rotina automática.
3 = "Incluir"
4 = "Alterar"
5 = "Excluir"

Execauto

Descrição:

Execauto de manutenção das tabelas de preço

Localização:

OMSA010.PRX

Eventos:

3 = "Incluir"
4 = "Alterar"
5 = "Excluir"

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
ExpA1	Array of Record	Array com lista de campos (DA0)	X
ExpA2	Array of Record	Array com lista de campos (DA1)	X
ExpN1	Numérico	Numero da opção selecionada	X

Exemplo:

//Obs: Este modelo de utilização é valido apenas para o release 11.8 e versões futuras.

Totvs custom tabs box

tabs	Exemplo Básico CRUD, Exemplo Alteração Detalhada
ids	CRUD,Alt_Detalhada

Totvs custom tabs box items

default	yes
referencia	CRUD

Bloco de código

language	cpp
title	Exemplo:

#include "totvs.ch"


#include "tbiconn.ch"

#include


#include "fwmvcdef.ch"



User Function MyOMSA010()



Local aCabec := {}


Local aItens := {}


Local aLinha := {}


Local nY := 0


Local lOk := .T.


PRIVATE lMsErroAuto := .F.



ConOut(Repl("-",80))

ConOut(PadC("Teste de Inclusao de 1 tabela de preco",80))



//????????????????????????????????


//| Verificacao do ambiente para teste |


//????????????????????????????????


dbSelectArea("SB1")


dbSetOrder(1)


If !SB1->(MsSeek(xFilial("SB1")+"PA001"))


	lOk := .F.


	ConOut("Cadastrar produto: PA001")


EndIf



If !SB1->(MsSeek(xFilial("SB1")+"PA002"))


	lOk := .F.


	ConOut("Cadastrar produto: PA002")


EndIf



If lOk


	ConOut("Inicio: "+Time())

For nY := 1 To 1
aCabec := {}
aItens := {}


	//????????????????????????????????
	//| Teste de Inclusao |
	//???????????????????????????????? 
	For nY := 1 To 1
		aCabec := {}
		aItens := {}
		aadd(aCabec,{"DA0_DESCRI" ,"TESTE DE TABELA",Nil})

//aadd(aCabec,{"DA0_CONDPG" ,"001",Nil})
aLinha := {}


		aLinha := {}
		aadd(aLinha,{"DA1_ITEM","0001"})


		aadd(aLinha,{"DA1_CODPRO","PA001"})


		aadd(aLinha,{"DA1_PRCVEN",10,Nil})


		aadd(aItens,aLinha)


		aLinha := {}


		aadd(aLinha,{"DA1_ITEM","0002"})


		aadd(aLinha,{"DA1_CODPRO","PA002"})


		aadd(aLinha,{"DA1_PRCVEN",10,Nil})


		aadd(aItens,aLinha)

//????????????????????????????????
//| Teste de Inclusao |
//????????????????????????????????



		MSExecAuto({|x,y,z| Omsa010(x,y,z)},aCabec,aItens,3)


		If !lMsErroAuto


			ConOut("Incluido com sucesso! ")

Else


		Else
			ConOut("Erro na inclusao!")

EndIf
Next nY


		EndIf
	Next nY
	ConOut("Fim : "+Time())



	//????????????????????????????????


	//| Teste de alteracao |


	//????????????????????????????????


	aCabec := {}


	aItens := {}


	For nY := 1 To 1


		aCabec := {}


		aItens := {}


		aadd(aCabec,{"DA0_CODTAB" ,DA0->DA0_CODTAB,Nil})


		aadd(aCabec,{"DA0_DESCRI" ,"TESTE DE TABELA",Nil})

//aadd(aCabec,{"DA0_CONDPG" ,"001",Nil})
aLinha := {}


		aLinha := {}
		aadd(aLinha,{"LINPOS","DA1_ITEM","0001"})


		aadd(aLinha,{"AUTDELETA","N",Nil})


		aadd(aLinha,{"DA1_CODPRO","PA001"})


		aadd(aLinha,{"DA1_PRCVEN",11,Nil})


		aadd(aItens,aLinha)


		aLinha := {}


		aadd(aLinha,{"LINPOS","DA1_ITEM","0002"})


		aadd(aLinha,{"AUTDELETA","N",Nil})


		aadd(aLinha,{"DA1_CODPRO","PA002"})


		aadd(aLinha,{"DA1_PRCVEN",11,Nil})


		aadd(aItens,aLinha)


	Next nY


	ConOut(PadC("Teste de alteracao",80))


	ConOut("Inicio: "+Time())

	MSExecAuto({|x,y,z| Omsa010(x,y,z)},aCabec,aItens,4)
	ConOut("Fim : "+Time())


	ConOut(Repl("-",80))

	//????????????????????????????????


	//| Teste de

alteracao |

 Exclusao |
	//????????????????????????????????


	ConOut(PadC("Teste de exclusao",80))
	ConOut("Inicio: "+Time())
	MSExecAuto({|x,y,z| Omsa010(x,y,z)},aCabec,aItens,

4)

5)
	If !lMsErroAuto
		ConOut("Exclusao com sucesso! "+DA0->DA0_CODTAB)
	Else
		ConOut("Erro na exclusao!")
	EndIf
	ConOut("Fim : "+Time())
	ConOut(Repl("-",80))
EndIf

Return

Totvs custom tabs box items

default	no
referencia	Alt_Detalhada

Bloco de código

language	cpp
title	Exemplo:

#include "totvs.ch"
#include "tbiconn.ch"
#include "fwmvcdef.ch"

User Function MyOMSA010()

Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nY := 0
Local lOk := .T.
PRIVATE lMsErroAuto := .F.

ConOut(Repl("-",80))
ConOut(PadC("Teste de Alteração de 1 tabela de preco",80

))

))

//????????????????????????????????
//| Verificacao do ambiente para teste |
//????????????????????????????????
dbSelectArea("SB1")
dbSetOrder(1)
If !SB1->(MsSeek(xFilial("SB1")+"PA001"))
	lOk := .F.
	ConOut("Cadastrar produto: PA001")
EndIf

If !SB1->(MsSeek(xFilial("SB1")+"PA002"))
	lOk := .F.
	ConOut("Cadastrar produto: PA002")
EndIf

If !SB1->(MsSeek(xFilial("SB1")+"PA003"))
	lOk := .F.
	ConOut("Cadastrar produto: PA003")
EndIf  

If lOk

	ConOut("Inicio: "+Time())

	//????????????????????????????????


	//| Teste

de Exclusao |

 de alteracao
	//| Neste exemplo serão realizadas três mudanças:
	//| - Incluindo condição de pagamento no cabeçalho
 	//| - Mudando Valor do item 0001
 	//| - Deletando o item 0002
	//????????????????????????????????


	aCabec := {}
	aItens := {}
	For nY := 1 To 1
		aCabec := {}
		aItens := {}
		aadd(aCabec,{"DA0_CODTAB" ,DA0->DA0_CODTAB,Nil})
		aadd(aCabec,{"DA0_DESCRI" ,"TESTE DE TABELA",Nil})
		aadd(aCabec,{"DA0_CONDPG" ,"001",Nil}) //Incluindo condição de pagamento no cabeçalho
		aLinha := {}
		aadd(aLinha,{"LINPOS","DA1_ITEM","0001"})
		aadd(aLinha,{"AUTDELETA","N",Nil})
		aadd(aLinha,{"DA1_CODPRO","PA001"})
		aadd(aLinha,{"DA1_PRCVEN",50,Nil}) //Atribuindo o valor 50 para este item
		aadd(aItens,aLinha)
		aLinha := {}
		aadd(aLinha,{"LINPOS","DA1_ITEM","0002"})
		aadd(aLinha,{"AUTDELETA","S",Nil}) //Deletando o item 0002
		aadd(aItens,aLinha)
	Next nY
	ConOut(PadC("Teste de

exclusao

 alteracao",80))


	ConOut("Inicio: "+Time())



	MSExecAuto({|x,y,z| Omsa010(x,y,z)},aCabec,aItens,

5)
If !lMsErroAuto

4)
	ConOut("

Exclusao com sucesso! "+

Fim : "+Time())
	ConOut(Repl("-",80))

	//????????????????????????????????
	//| Teste de alteracao 
 	//| - Incluindo um novo item em uma tabela
	//????????????????????????????????
	aCabec := {}
	aItens := {}
	For nY := 1 To 1
		aCabec := {}
		aItens := {}
		aadd(aCabec,{"DA0_CODTAB" ,DA0->DA0_CODTAB

)
Else
ConOut("Erro na exclusao!")
EndIf
ConOut("Fim :

,Nil})
		aadd(aCabec,{"DA0_DESCRI" ,"TESTE DE TABELA",Nil})
		aLinha := {}
  		aadd(aLinha,{"LINPOS","DA1_ITEM","0001"}) //Caso não seja informado o LINPOS o item será sobreposto.
        aadd(aItens,aLinha)
        aLinha := {}
        aadd(aLinha,{"LINPOS","DA1_ITEM","0002"})
        aadd(aItens,aLinha)
        aLinha := {}
		aadd(aLinha,{"DA1_ITEM","0003",Nil}) //Incluindo o item 0003 sem que os itens 0001 e 0002 sejam afetados.
        aadd(aLinha,{"DA1_CODPRO","PA003"})
        aadd(aLinha,{"DA1_PRCVEN",100,Nil})     
		aadd(aItens,aLinha)
	Next nY
	ConOut(PadC("Teste de alteracao",80))
	ConOut("Inicio: "+Time())

	MSExecAuto({|x,y,z| Omsa010(x,y,z)},aCabec,aItens,4)
	ConOut("Fim : "+Time())
	ConOut(Repl("-",80))   ConOut("Fim : "+Time())


	ConOut(Repl("-",80))


EndIf



Return

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 107

Chave

Tabela de Preço Via Execauto

Características do Requisito

Descrição

Execauto

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 3

Nova versão 107

Chave

Tabela de Preço Via Execauto

Características do Requisito

Descrição

Execauto