Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject WebService c/ExecAuto
Mensagem do Enviar e-mail Abrir o Perfil do usuário JLEEE JLEEE em 9/27/2018 as 15:25 hs
Local: MS   Registrada: 6/9/2005  Postagem: 105
caros, desenvolvi um WebService usando Json que deve chamar o ExecAuto MATA241 ou MATA240, o sistema não efetua a baixa retornado erro no processo.

Tabela SD3 27/09/18 14:10:45
- cDocumento :=A13132764
- cTM :=501 < -- Invalido
- cCC :=G0205
- dA241Data :=27/09/18
--------------------------------------------------------------------------------
Essa TM existe na tabela SF5, já tentei inciando o ambiente com

PREPARE ENVIRONMENT EMPRESA '01' FILIAL '01' MODULO "EST" TABLES "SD3","SB1","SB2"

já tentei com
Local aTables := {"SD3","SB2","SB1","SF5"}
RpcSetEnv( "01","01", "Administrador", " ", "EST", "MATA241", aTables, , , , )

e já tendei sem iniciar o ambiente.

NÃO é erro na rotina, pois se chamo o ExecAuto pelo sistema ele efetua a baixa corretamente.


Static function fProcBx(_nTipo, _dDTMMov, _cCodPro, _cUM, _cGrupo, _cTipo, _cLocOri, _nQtdBx, _cTPApli, _cDoc, _cCC , _cPReq, _cItem, _cUsuario, _cDEvento)

Local _lRet          := .T.
Local _cTM          := Iif(_nTipo == 1,"501","001") // Requisição - Entrada
Local _cCodMov     := Iif(_nTipo == 1,"07","01") // Requisição - Entrada
Local _cAplic     := "Integração SCTA"

Local aMata240     := {}
Local aTables := {"SD3","SB2","SB1","SF5"} //seta o ambiente com a empresa 99 filial 01 com os direitos do usuario administrador, módulo

Local _aCab1 := {}
Local _aItem := {}

Private lMsHelpAuto := .F.
Private lMsErroAuto := .F.

Private cPath       := GetSrvProfString("Startpath","")
Private     cDocumento     := _cDoc
Private __lWWebSrv     := .T. // Variável para verificar se processa a validação de usuário por Centro de Custo na Baixa.

//PREPARE ENVIRONMENT EMPRESA '01' FILIAL '01' MODULO "EST" TABLES "SD3","SB1","SB2"
//RpcSetEnv( "01","01", "Administrador", " ", "EST", "MATA241", aTables, , , , )


/*
aMata240 := {{"D3_FILIAL"      , xFilial("SD3")     , Nil},;
                {"D3_TM"         , _cTM                    , Nil},;
                {"D3_CC"         , _cCC                    , Nil},;
                {"D3_COD"         , _cCodPro               , Nil},;
                {"D3_UM"          , _cUM                     , Nil},;
                {"D3_LOCAL"      , _cLocOri               , Nil},;
                {"D3_EMISSAO"     , _dDTMMov               , Nil},;
                {"D3_GRUPO"     , _cGrupo               , Nil},;
                {"D3_TIPO"          , _cTipo               , Nil},;
                {"D3_QUANT"     , _nQtdBx               , Nil},;
                {"D3_DPRSCTA" , STOD(_cDEvento)     , Nil},;
                {"D3_NPRSCTA" , _cPReq               , Nil},;
                {"D3_IPRSCTA" , _cItem               , Nil},;
                {"D3_USUARIO" , _cUsuario               , Nil},;
                {"D3_CODMOV"     , _cCodMov               , Nil},;
                {"D3_ITEMCTA"     , _cTPApli               , Nil},;
                {"D3_OBSERV"     , _cAplic               , Nil}}
*/

_aCab1 := { {"D3_DOC"         , _cDoc                    , Nil},;
                {"D3_TM"         , _cTM                    , Nil},;
                {"D3_CC"         , _cCC                    , Nil},;
                {"D3_EMISSAO"     , _dDTMMov               , Nil}}

_aItem := { {"D3_COD"         , _cCodPro               , Nil},;
                {"D3_UM"          , _cUM                     , Nil},;
                {"D3_LOCAL"      , _cLocOri               , Nil},;
                {"D3_GRUPO"     , _cGrupo               , Nil},;
                {"D3_TIPO"          , _cTipo               , Nil},;
                {"D3_QUANT"     , _nQtdBx               , Nil},;
                {"D3_DPRSCTA" , STOD(_cDEvento)     , Nil},;
                {"D3_NPRSCTA" , _cPReq               , Nil},;
                {"D3_IPRSCTA" , _cItem               , Nil},;
                {"D3_USUARIO" , _cUsuario               , Nil},;
                {"D3_CODMOV"     , _cCodMov               , Nil},;
                {"D3_ITEMCTA"     , _cTPApli               , Nil},;
                {"D3_OBSERV"     , _cAplic               , Nil}}
*/

Begin Transaction

     
     AutoGrLog(FunName())
     AutoGrLog(__cUserID)

     MSExecAuto({|x,y,z| MATA241(x,y,z)}, _aCab1, {_aItem}, 3)
          
//     MSExecAuto({|x,y| mata240(x,y)},aMata240,3)
                                                       
     If lMsErroAuto
          _cMsgErro      := "Erro no MSExecAuto - Baixa"
          cNomArqErro := "IntSCTA"+ DTOS(dDataBase) + Left(Time(),2) + Right(time(),2) + ".LOG"
                                   
          MostraErro(cPath, cNomArqErro )

          _lRet := .F.                         
                         
     Endif
                              
End Transaction

//RpcClearEnv() //Limpa o ambiente, liberando a licença e fechando as conexões

Return(_lRet)

Mensagem do Enviar e-mail Abrir o Perfil do usuário MARIOZ MARIOZ em 9/27/2018 as 15:56 hs
Local: RS   Registrada: 9/29/2005  Postagem: 2
Pelo erro voce nao tem cadastrado o tipo de movimentação 501

- cTM :=501 < -- Invalido

att, Mário Zimmermann

Mensagem do Enviar e-mail Abrir o Perfil do usuário JLEEE JLEEE em 9/27/2018 as 15:58 hs
Local: MS   Registrada: 6/9/2005  Postagem: 105
Está cadastrado sim, e se eu chamo a função fProcBx fora do webservice ele roda o execauto. O erro so acontece via webservce,

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum