Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 16

changes.mady.by.user Rafael dos Santos Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Delleon Fernandes Silva

Gravado em

Chave

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

...

NomeTipoDescriçãoDefaultObrigatórioReferência
aChaveArray of RecordChave da Nota Fiscal (Entrada ou Saída), Serie, Número do Documento ,Cliente ou Fornecedor, Loja



  • Retorno
    Não há.

04.

...

EXEMPLO DE UTILIZAÇÃO

...


Bloco de código
languagejava
themeMidnight
#Include 'Protheus.ch'

User Function MATUCOMP()
Local lExiste := .F.
Local cEntSai := ParamIXB[1]
Local cSerie  := ParamIXB[2]
Local cDoc    := ParamIXB[3]    
Local cCliefor:= ParamIXB[4]
Local cLoja   := ParamIXB[5]
     
    dbSelectArea("CD7")
    CD7->(dbSetOrder(1))
     
    lExiste := CD7->(dbSeek(xFilial("CD7")+cEntSai+cSerie+cDoc+cCliefor+cLoja))
    If lExiste
        RecLock(CD7,.F.)   
        Replace CD7->CD7_LOTE    With  "55555555"   
// _________________________________________________________________________________________________
//|Quando se referir aos complementos para geracao dos registros C110, C111, C112, C113, C114 e C115|
//|  a tabela CDT também deve ser alimentada, pois ela que efetua o relacionamentos com as outras   |
//|  conforme registro. C110 = Tab. CDT, C111 = Tab. CDG, , C112 = Tab. CDC, C113 = Tab. CDD,       |
//|  C114 = Tab. CDE e C115 = Tab. CDF                MsUnlock("CD7")  
    EndIf
     
Return  

05. EXEMPLO DE UTILIZAÇÃO - INCLUSÃO

Bloco de código
languagejava
themeMidnight
//---------------------------------------------------------------------------------------------------
//|Quando se referir aos complementos para geraçao dos registros C110, C111, C112, C113, C114 e C115|
//|  a tabela CDT também deve ser alimentada, pois ela que efetua o relacionamentos com as outras   |
//| Este conformePONTO registro.DE C110ENTRADA =é Tab.apenas CDT,um C111exemplo =de Tab.como CDG,pode , C112 = Tab. CDCser utilizado, C113deve =ser Tab. CDD,       |adequado conforme| 
//| a C114regra =de Tab.negócio CDEespecífica edo C115cliente = Tab. CDF                                                      |        |
//|_________________________________________________________________________________________________|*/
User Function MATUCOMP()
	
    Local lInclui  
 := .F.
	Local cEntSai   := ParamIXB[1]  
User Function MATUCOMP()
 // E=Entrada ou S=Saida
	Local cSerie   cEntSai := ParamIXB[12]
 // Serie do documento fiscal
	Local cDoc      := ParamIXB[23]
 // Numero do documento cSerie
	Local cCliefor  := ParamIXB[3]
4] // Cliente/Fornecedor
	Local cLoja     cCliefor:= ParamIXB[4]5] // Loja do Cliente/Fornecedor
    cLojaLocal lDeleta   := ParamIXB[5]
!Inclui .AND. !Altera

    // customizações do cliente, deve ser adequadas as regras do cliente
    If !lDeleta
    
     lExiste   lInclui := !CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
     
    If lExiste 
        RecLock("CDT",.F.lInclui)
    Else   
        RecLock("CDT",.T.)
        CDT->CDT_FILIAL  := xFilial("CDT")
  
          CDT->CDT_TPMOV   := cEntSai
 
           CDT->CDT_DOC    := cDoc
            CDT->CDT_SERIE   := cSerie
  
          CDT->CDT_CLIFOR  := cClieFor
            CDT->CDT_LOJA    := cLojaEndIf                           cLoja
       
        CDT->CDT_IFCOMP := "000001"
             CDT->(MsUnLock())

        FkCommit()
 lInclui := !CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
        
        RecLock("CDF",.T.lInclui)
            CDF->CDF_FILIAL  := xFilial("CDF")
            CDF->CDF_TPMOV   := cEntSai
            CDF->CDF_DOC    := cDoc
            CDF->CDF_SERIE  := cSerie
            CDF->CDF_CLIFOR  := cClieFor
            CDF->CDF_LOJA    := cLoja
            CDF->CDF_IFCOMP := "000001"
        CDF->(MsUnLock())
    Else
        
        If CDT->(dbSeek(xFilial("CDT")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
            RecLock("CDT",.F.)
            CDT->(DbDelete())
            CDT->(MsUnLock())
        EndIf
        
 
Return       If CDF->(dbSeek(xFilial("CDF")+cEntSai+cDoc+cSerie+cClieFor+cLoja))
            RecLock("CDF",.F.)
            CDF->(DbDelete())
            CDF->(MsUnLock())
        EndIf
        
    EndIf

Return