Árvore de páginas

Versões comparadas

Chave

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

...

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização

08. EXEMPLO

...

languagecpp
titleValidação Padrão
linenumberstrue
collapsetrue

...

------

#INCLUDE "PROTHEUS.CH"

...

Static cFilCarPE  := '' //Filial da carga

...


Static cCargaPE := ''   //Número da carga

...


Static cSeqCarPE := ''  //

...

Sequência da carga
Static cSeqEntPE := ''  //

...

Sequência de entrega
Static nQtdeLib := 0    //Qtde a ser liberada

...


Static aDAI := {}       //informações da DAI a ser excluída temporariamente

...

User Function OMSNEDAK()

...


Local nX := 0

...

  

cFilCarPE := ParamIXb[1]   

...

  
cCargaPE := ParamIXb[2]  

...

  
cSeqCarPE := ParamIXb[3]   

...

  
cSeqEntPE := ParamIXb[4]

...

  
nQtdeLib := ParamIxb[5]

...

 

For nX := 1 to DAI->(FCount())

...

      
            Aadd(aDAI, {

...

DAI→ (Field(nX)),

...

 DAI→ (FieldGet(nX))})

...

   

Next nX

Return .T.

...

//===========================================

...

User Function M440SC9I()

...


Local nX

...

Local cCampo := ''

...

   

If Len(aDAI) > 0 .And. !Empty(cFilCarPE).And. !Empty(cCargaPE) .And. !Empty(cSeqCarPE) .And. !Empty(cSeqEntPE)

...


       //Grava as informações da carga na liberação do pedido.

...


      SC9->C9_CARGA   := cCargaPE

...

      
      SC9->C9_SEQCAR  := cSeqCarPE

...

      
      SC9->C9_SEQENT  := cSeqEntPE

...

      
      nQtdeLib -= SC9->C9_

...

QTDLIB 

     //Inclui a DAI. A SC9 estará posicionada e a DAK já existirá.

...

      
     DAI→ (dbSetOrder(1)) //DAI_FILIAL+DAI_COD+DAI_SEQCAR+DAI_SEQUEN+DAI_PEDIDO

...


     If !DAI→ (dbSeek(cFilCarPE + cCargaPE + cSeqCarPE + cSeqEntPE + SC9->C9_PEDIDO))

...

 
             RecLock("DAI",.T.)

...

         
             For nX := 1 to len(aDAI)

...


                     cCampo := aDAI[nX,1]

...


                     DAI->&(cCampo) := aDAI[nX,2]

...


             
Next nX

             DAI->DAI_PESO   := 0

...


             DAI->DAI_CAPVOL := 0

...


             MsUnlock()
    EndIf

    //Atualiza os acumulados do DAI
    OsAvalDAI("DAI",1,,,,cFilCarPE)

...

    If  nQtdeLib == 0

...


        aSize(aDAI,0)

...


        cFilCarPE := ''

...


        CargaPE := ''

...


        cSeqCarPE := ''

...


        cSeqEntPE := '

...


   EndIf

       EndIf Return

------


Templatedocumentos


HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>