Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 95

changes.mady.by.user William Pianheri Batista Silva

Gravado em

comparado com

Nova versão 96

changes.mady.by.user William Pianheri Batista Silva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

ExpN1NuméricoNumero da opção selecionadaX

 

Exemplo:

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

Bloco de código
languagecpp
titleExemplo:
#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 := {}


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


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


		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 := {}


		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())



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


	//| Teste de alteracao |


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


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


	ConOut("Fim : "+Time())


	ConOut(Repl("-",80))



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


	//| Teste de Exclusao |


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


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


	ConOut("Inicio: "+Time())


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


	If !lMsErroAuto


		ConOut("Exclusao com sucesso! "+DA0->DA0_CODTAB)

Else

	Else
		ConOut("Erro na exclusao!")


	EndIf


	ConOut("Fim : "+Time())


	ConOut(Repl("-",80))


EndIf


Return