Tempo aproximado para leitura: 00:03:00 min
Dúvida
Para a rotina Baixas do CQ (MATA175) é possível utilizar EXECAUTO?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - Estoque/Custos - Todas as versões
Solução
Sim, é possível no link abaixo seguem as instruções e exemplos disponíveis. Verificar com seu Analista Desenvolvedor para criar conforme sua necessidade específica.
Documentação desenvolvimento: ExecAuto MATA175
#Include "protheus.ch"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function EXECMATA175()
Local dDataL:=DATE()
Local aLibera := {}
Local cNumCQ := "SK000C" // Numero do movimento criado anteriormente
Local cProd := "PATESTEEND "//+Space(14)
Local cLocal := "98"
PRIVATE lMsErroAuto := .F.
//------------------------//| Abertura do ambiente |//------------------------
PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" USER 'ADMIN' PASSWORD '' MODULO "EST" TABLES "SB1","SD7"
dDataL:= dDataBase
ConOut(Repl("-",80))
ConOut(PadC("Teste - Baixas do Controle de Qualidade (CQ)",80))
ConOut("Inicio: "+Time())
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
DbSelectArea("SD7")
DbGoTop()
DbSetOrder(1)
dbSeek(xFilial("SD7")+cNumCq+cProd+cLocal)
//If !Found() .Or. SD7->D7_TIPO != 0
// conOut("Não encontrado")
// Return
//Endif
aAdd(aLibera,{ {"D7_TIPO" ,1 ,Nil},; // 1=Libera o item do CQ / 2=Rejeita o item do CQ
{"D7_DATA" ,dDataL ,Nil},; //
{"D7_QTDE" ,50 ,Nil},;
{"D7_QTSEGUM" ,10 ,Nil},; //
{"D7_OBS" ,"" ,Nil},; //
{"D7_MOTREJE" ,"" ,Nil},; //
{"D7_LOCDEST" ,"01" ,Nil},; //
{"D7_SALDO" ,NIL ,Nil},; //
{"D7_SALDO2" ,NIL ,Nil},;//
{"D7_LOCALIZ" ,"END01" ,Nil},; //
{"D7_ESTORNO" ,NIL ,Nil}}) //
MSExecAuto({|x,y,z| MATA175(x,y)},aLibera,4)
If !lMsErroAuto
ConOut("Incluido com sucesso! ")
Else
MostraErro()
ConOut("Erro na inclusao!")
EndIf
ConOut("Fim : "+Time())
//RESET ENVIRONMENT
Return Nil
Veja o exemplo abaixo e também um vídeo anexo:
Saiba Mais:
SIGAEST - Rotina MATA175 - Instruções padrões sobre Controle de Qualidade no Estoque
Clique aqui e veja mais artigos sobre MOVIMENTAÇÕES no Estoque
0 Comentários