Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 8

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

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

...

             

04. PARÂMETROS

  

Nome

Tipo

Descrição

Default

Obrigatório

Referência

cFilUse
              ParamIxb[2]             
CaractereRetorna a Filial corrente
que esta sendo utlizado no momento
.


cNumDoc
CaractereRetorna o numero do pedido que deverá ser enviado para integração EAI.
 ParamIxb[3]



cSitDocCaractereRetorna a situação atual do
pedido 
pedido.



05. RETORNO

RetornoTipoDescriçãoObrigatório
cRetCaracterRetorno do Ponto de entrada deverá ser do tipo caractere e não poderá ser vazio, caso isso não seja atendido o retorno do ponto de entrada será descartado e vai prevalecer as informações que foram definidas pelo sistema padrãoDescritivo da situação do pedido.Sim 

05. EXEMPLO

Bloco de código
languagecpp
titleExemplo
#INCLUDE 'TOTVS.CH'    

User Function A410BSIT()

Local cFilUse  := ParamIxb[1]  //filial que esta em uso
Local cNumDoc  := PadR(ParamIxb[2],TamSx3("C5_NUM")[1])   // Numero do pedido
Local cSitDoc  := ParamIxb[3]  // Situação do documento
Local cRet     := ""           // Retorno do ponto de entrada 
Local aArea    := GetArea()
Local aArSC6   := SC6->(GetArea())
Local cChave   := ""
Local nValDoc  := 0

If cFilUse == "D MG 01 "
    If !"Transmitida" $ cSitDoc
        cChave := xFilial("SC6SC5") + cNumDoc
        DbSelectArea("SC6")
        DbSetorder(1) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO
        DbSeek(cChave )
       
        While !Eof() .And. cChave == SC6->C6_FILIAL + SC6->C6_NUM 
            
            nValDoc += SC6->C6_VALOR

            SC6->(DbSkip())
        End

        If nValDoc > 1000
            cRet := "Autorização da Gerencia Financeira"
        Else 
            cRet := cSitDoc
        EndIf

    EndIf 

EndIf 

Restarea(aArSC6)
RestArea(aArea)

Return cRet

...