Histórico da Página

...

Totvs custom tabs box

tabs	Remito de Entrada, Factura de Entrada, Nota de Débito Proveedor, Nota de Crédito Interna
ids	passo1,passo2,passo3,passo4

Totvs custom tabs box items

default	yes
referencia	passo1

Bloco de código

language	java
firstline	1
title	Ejemplo completo:Inclusión de Remito
linenumbers	true
collapse	true

Static Function LOCX60AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000001"
Local cLoja     := "01"
Local cDoc      := "090420240001"
Local cSerie    := "R"
      
    SetFunName("COMA221")
 
    // Se define el modelo LOCX60  
    oMdlTab  := FwLoadModel("LOCX60")
   
    // Se define la operación INSERT en el modelo
    oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" ,   cFornece )
    oMdlTab:SetValue('SF1_MASTER', "F1_LOJA"    ,   cLoja )
    oMdlTab:SetValue('SF1_MASTER', "F1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SF1_MASTER', "F1_SERIE"   ,   cSerie)
    oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" ,   dDataBase)
    oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA"   ,   1)
    oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
    oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"   ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )
	
 	//Detalle Items - SD1
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "001")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "001")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    //Se ejecuta el commit
    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:CommitData()
    Endif

    // Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Ejemplo completo:Borrado Remito
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

Totvs custom tabs box items

default	no
referencia	passo2

a

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

UserFunction LOCX10AUTO  

User Function LOCX60AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "RegistradoRegistro borrado con éxito."

Local cFornece  := SetFunName("000025COMA221")
Local cLoja     
    oMdlTab := FwLoadModel("01LOCX60")
Local  cDoc  DbSelectArea("SF1")
    := "090420240002"
Local cSerieSF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO     := "A"
      
    SetFunName("COMA222")
 
    // Se define el modelo LOCX10  
    oMdlTab  := FwLoadModel("LOCX10")
   
    // Se define la operación INSERT en el modelo
    oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
   
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" ,   cFornece )
    oMdlTab:SetValue('SF1_MASTER', "F1_LOJA"    ,   cLoja )
    oMdlTab:SetValue('SF1_MASTER', "F1_DOC"     ,   cDoc)
     oMdlTab:SetValue('SF1_MASTER', "F1_SERIE"   ,   cSerie)
    oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" ,   dDataBase)
    oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA"   ,   1)
    oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
    oMdlTab:SetValue('SF1_MASTER', "F1_COND"    ,   "001" )
    oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"        ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )


    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL" 
  ,  If SF1->(MsSeek(xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0001" )
 + "090420240001" + "R  " + "000001" + "01" + "N",.T.))
        oMdlTab:SetValueSetOperation('SD1_DETAIL', "D1_COD"MODEL_OPERATION_DELETE)
     ,   "000001" oMdlTab:Activate()
        If oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"VldData()
     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"CommitData()
       , Endif  1)
     oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"EndIf
 
    ,aError   1000:= oMdlTab:GetErrorMessage()
    If oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"alltrim(aError[6]) <> ""
   ,   1000)
   cMsj oMdlTab:SetValue('SD1_DETAIL', "D1_TES":= aError[6]
    Endif
 ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

CONOUT("Mensaje de proceso: "+cMsj) 
     
    oMdlTab:GetModel('SD1_DETAIL' ):AddLineDeActivate()
 
Return

Informações

title	Personalizaciones

Para los países de México, Colombia, Paraguay y Perú se debe considerar el nombre que actualmente se tiene en el menú "Movimientos": Remisión, para EUA y Republica Dominicana: Conduce, para el país de Chile : Guía de Despacho, para el país de Ecuador: Form. de Recepción y para el resto debe ser Remito de Entrada.

Totvs custom tabs box items

default	no
referencia	passo2

Bloco de código

language	java
firstline	1
title	Inclusión de Factura (Moneda 1)
linenumbers	true
collapse	true

UserFunction LOCX10AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240002"
Local cSerie    := "A"
      
    SetFunName("COMA222")
 
    // Se define el modelo LOCX10  
    oMdlTab  := FwLoadModel("LOCX10")
   
    // Se define la operación INSERT en el modelo    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF" SetOperation(MODEL_OPERATION_INSERT)
  
    // ,Se activa el "112")
modelo
    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_ITEMFORNECE"    ,   "0003"cFornece )
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_CODLOJA"     ,   "000003"cLoja )
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_QUANTSERIE"   ,   1cSerie)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_VUNITEMISSAO"   ,   1000dDataBase)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_TOTALMOEDA"   ,   10001)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_TESPROVENT"     ,   "175BA" )
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_CFCOND"      ,   "112001")

    //Se ejecuta el commit )
    If oMdlTab:VldData() // Se detonan las validaciones del modeloSetValue('SF1_MASTER', "F1_FRETE"   ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " , // Si pasa200 las)
 validaciones, se ejecutara el CommitData del modelo para guardar los datos.
     oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:CommitData()
SetValue('SF1_MASTER', "F1_DESCONT" ,   200 Endif)

    	//Detalle SeItems obtienen los errores del modelo
  - SD1
  aError := oMdlTab:GetErrorMessage()
SetValue('SD1_DETAIL', "D1_FILIAL"  ,  If alltrim(aError[6]) <> ""xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"   cMsj := aError[6]
 ,   "0001" Endif)
    ConOut("Mensaje de proceso: " + cMsj)
     oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000001" )
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

Static Function LOCX10AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240003"
Local cSerie    := "A"
      
    SetFunName("COMA222")
 
    // Se define el modelo LOCX10  
    oMdlTab  := FwLoadModel("LOCX10")
   
    // Se define la operación INSERT en el modeloSetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetOperationSetValue(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo'SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:Activate()
SetValue('SD1_DETAIL', "D1_COD"   
  ,  //Encabezado - SF1 "000002" )
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_FILIALDOC"     ,   xFilial("SF1")cDoc)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_FORNECEQUANT"   ,   cFornece 1)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_LOJAVUNIT"    ,   cLoja 1000)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_DOCTOTAL"     ,   cDoc1000)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_SERIETES"     ,   cSerie"175")
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_EMISSAOCF"      ,   dDataBase"112")

    oMdlTab:SetValueGetModel('SF1SD1_MASTERDETAIL', "F1_MOEDA"   ,   2)
 ):AddLine()

    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_TXMOEDAFILIAL"  ,   10xFilial("SF1"))
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_PROVENTITEM"    ,   "BA0003" )
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_CONDCOD"     ,   "001000003" )
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_FRETEDOC"     ,   100 cDoc)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_SEGUROQUANT"  " ,   200 1)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT"VUNIT"   ,   200 1000)


    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIALTOTAL"   ,   xFilial("SF1")1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEMTES"     ,   "0001175" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_CODCF"      ,   "000001112" )

    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"  //Se ejecuta el commit
   ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")CommitData()
    Endif

    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
// Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Inclusión de Factura (Moneda 2)
linenumbers	true
collapse	true

Static Function LOCX10AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240003"
Local cSerie    := "A"
      
    SetFunName("COMA222")
 
    // Se define el modelo LOCX10  
    oMdlTab  := FwLoadModel("LOCX10")
   
    // Se define la operación INSERT en el modeloSetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"Activate()
   
    //Encabezado ,   "0003" )- SF1
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_CODFILIAL"     ,   xFilial("000003SF1" ))
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_DOCFORNECE" ,    ,cFornece   cDoc)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_QUANTLOJA"    ,   cLoja 1)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_VUNITDOC"     ,   1000cDoc)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_TOTALSERIE"   ,   1000cSerie)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_TESEMISSAO"     ,   "175"dDataBase)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_CFMOEDA"      ,   "112"2)

    oMdlTab:SetValue('SF1_MASTER',  //Se ejecuta el commit
 "F1_TXMOEDA" ,   10)
   If oMdlTab:VldData() // Se detonan las validaciones del modeloSetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.oMdlTab:SetValue('SF1_MASTER', "F1_COND"    ,   "001" )
        oMdlTab:CommitData()
    Endif

oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"   ,   100 //)
 Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage( oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    If alltrim(aError[6]) <> ""
 oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
   cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )

 	//Detalle Items - SD1
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0001" )
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

Totvs custom tabs box items

default	no
referencia	passo3

a

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

UserFunction LOCX09AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240004"
Local cSerie    := "A"
      
    SetFunName("COMA223")
 
    // Se define el modelo LOCX09  
    oMdlTab  := FwLoadModel("LOCX09")
   
    // Se define la operación INSERT en el modeloSetValue('SD1_DETAIL', "D1_COD"     ,   "000001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:SetOperationGetModel(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1'SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_FORNECEITEM"    ,   cFornece"0002" )
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_LOJACOD"     ,   cLoja"000002" )
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_SERIEQUANT"   ,   cSerie1)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_EMISSAOVUNIT"   ,   dDataBase1000)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_MOEDATOTAL"   ,   11000)
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_PROVENTTES"     ,   "BA175" )
    oMdlTab:SetValue('SF1SD1_MASTERDETAIL', "F1D1_CONDCF"      ,   "001112" )

    oMdlTab:SetValueGetModel('SF1SD1_MASTERDETAIL', "F1_FRETE" ):AddLine()

   ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )


    oMdlTab oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "00010003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000001000003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

     oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

//Se ejecuta el commit
    If oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )
VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"CommitData()
    Endif

  ,  // cDoc)
Se obtienen los  oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"errores del modelo
   , aError  1:= oMdlTab:GetErrorMessage()
    If oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"alltrim(aError[6]) <> ""
   ,   1000)
  cMsj  oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL":= aError[6]
   ,   1000)Endif
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")
DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Borrado de Factura
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'  
User Function LOCX10AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."

    SetFunName("COMA222")
     
    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()
 := FwLoadModel("LOCX10")
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"DbSelectArea("SF1")
    SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO                       ,   "000003" )
       oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"        ,   "112")

    //Se ejecuta el commit
    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:CommitData()
    Endif

    // Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

User Function LOCX09AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local  cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240005"
Local cSerie    := "A"
      
    SetFunName("COMA223")
 
    // Se define el modelo LOCX09  
    oMdlTab  := FwLoadModel("LOCX09")
   
    // Se define la operación INSERT en el modelo
    oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" ,   cFornece )If SF1->(MsSeek(xFilial("SF1") + "090420240002" + "A  " + "000025" + "01" + "N",.T.))
        oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
        oMdlTab:Activate()
        If oMdlTab:VldData()
            oMdlTab:CommitData()
        Endif  
    EndIf
 
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    CONOUT("Mensaje de proceso: "+cMsj) 
     
    oMdlTab:SetValue('SF1_MASTER', "F1_LOJA"    ,   cLoja DeActivate()
 
Return

Totvs custom tabs box items

default	no
referencia	passo3

Bloco de código

language	java
firstline	1
title	Inclusión de Nota Débito Proveedor (Moneda 1)
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

UserFunction LOCX09AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240004"
Local cSerie    := "A"
      
    SetFunName("COMA223")
 
    // Se define el modelo LOCX09  
    oMdlTab  := FwLoadModel("LOCX09")
   
    // Se define la operación INSERT en el modelo   oMdlTab:SetValue('SF1_MASTER', "F1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SF1_MASTER', "F1_SERIE"   ,   cSerie)
    oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" ,   dDataBase)
    oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA"   ,   2)
    oMdlTab:SetValue('SF1_MASTER', "F1_TXMOEDA" ,   10)
    oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
    oMdlTab:SetValue('SF1_MASTER', "F1_COND"    ,   "001" )
    oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"   ,   100 )SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGUROFILIAL" " ,   200 xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESAFORNECE" ,   300cFornece )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONTLOJA"    ,   200cLoja )


    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_FILIALDOC"     ,   xFilial("SF1"cDoc))
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_ITEMSERIE"    ,   "0001" cSerie)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_CODEMISSAO"     ,   "000001" dDataBase)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_DOCMOEDA"     ,   cDoc1)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_QUANTPROVENT" ,  ,  "BA" 1)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_VUNITCOND"    ,   "001" 1000)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_TOTALFRETE"   ,   100 1000)
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_TESSEGURO " ,    ,   "175"200 )
    oMdlTab:SetValue('SD1SF1_DETAILMASTER', "D1F1_CFDESPESA" ,     ,   "112")
300 )
    oMdlTab:GetModelSetValue('SD1SF1_DETAIL' ):AddLine()
MASTER', "F1_DESCONT" ,   200 )

 	//Detalle Items - SD1
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "00020001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002000001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "00030002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000003000002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    //Se ejecuta el commitoMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
    SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000003" )
    oMdlTab:CommitData()
 SetValue('SD1_DETAIL', "D1_DOC"   Endif

  ,  // SecDoc)
 obtienen los errores del modelo
 oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   , aError := oMdlTab:GetErrorMessage( 1)
    If alltrim(aError[6]) <> ""
oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
  cMsj  := aError[6]
oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   , Endif
  1000)
  ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    //Se ejecuta el commit
    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:CommitData()
    Endif

    // Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Inclusión de Nota DébitoProveedor (Moneda 2)
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

User Function LOCX09AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000025"
Local cLoja     := "01"
Local cDoc      := "090420240005"
Local cSerie    := "A"
      
    SetFunName("COMA223")
 
    // Se define el modelo LOCX09  
    oMdlTab  := FwLoadModel("LOCX09")
   
    // Se define la operación INSERT en el modelo
    oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" ,   cFornece )
    oMdlTab:SetValue('SF1_MASTER', "F1_LOJA"    ,   cLoja )
    oMdlTab:SetValue('SF1_MASTER', "F1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SF1_MASTER', "F1_SERIE"   ,   cSerie)
    oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" ,   dDataBase)
    oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA"   ,   2)
    oMdlTab:SetValue('SF1_MASTER', "F1_TXMOEDA" ,   10)
    oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
    oMdlTab:SetValue('SF1_MASTER', "F1_COND"    ,   "001" )
    oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"   ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )

 	//Detalle Items - SD1
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    //Se ejecuta el commit
    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:CommitData()
    Endif

    // Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Borrado Nota Débito Proveedor
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

User Function LOCX09AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."

    SetFunName("COMA223")
     
    oMdlTab := FwLoadModel("LOCX09")
    DbSelectArea("SF1")
    SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO                                                                                                                                                                                                                                       
    If SF1->(MsSeek(xFilial("SF1") + "090420240004" + "A  " + "000025" + "01" + "C",.T.))
        oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
        oMdlTab:Activate()
        If oMdlTab:VldData()
            oMdlTab:CommitData()
        Endif  
    EndIf
 
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    CONOUT("Mensaje de proceso: "+cMsj) 
     
    oMdlTab:DeActivate()
 
Return

Totvs custom tabs box items

default	no
referencia	passo4

Bloco de código

language	java
firstline	1
title	Inclusión de Nota Crédito Interna (Moneda 1)
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

User Function LOCX08AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000001"
Local cLoja     := "01"
Local cDoc      := "000100000250"
Local cSerie    := "A"
      
    SetFunName("COMA224")
 
    // Se define el modelo LOCX08  
    oMdlTab  := FwLoadModel("LOCX08")
   
    // Se define la operación INSERT en el modelo
    oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_PV"      ,   "0001" ) //Campo para Argentina, este campo debe ser informado antes de los demás.
    oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" ,   cFornece )
    oMdlTab:SetValue('SF1_MASTER', "F1_LOJA"    ,   cLoja )
    oMdlTab:SetValue('SF1_MASTER', "F1_SERIE"   ,   cSerie)
    oMdlTab:SetValue('SF1_MASTER', "F1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" ,   dDataBase)
    oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA"   ,   1)
    oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
    oMdlTab:SetValue('SF1_MASTER', "F1_TPVENT"  ,   "B" )
    oMdlTab:SetValue('SF1_MASTER', "F1_COND"    ,   "001" )
    oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"   ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )

 	//Detalle Items - SD1
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    //Se ejecuta el commit
    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:CommitData()
    Endif

    // Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Inclusión de Nota Crédito Interna (Moneda 2)
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

User Function LOCX08AUTO()
Local oMdlTab
Local aError    := {}
Local cMsj      := "Registrado con éxito."
Local cFornece  := "000001"
Local cLoja     := "01"
Local cDoc      := "000100000251"
Local cSerie    := "A"
      
    SetFunName("COMA224")
 
    // Se define el modelo LOCX08  
    oMdlTab  := FwLoadModel("LOCX08")
   
    // Se define la operación INSERT en el modelo
    oMdlTab:SetOperation(MODEL_OPERATION_INSERT)
  
    // Se activa el modelo
    oMdlTab:Activate()
   
    //Encabezado - SF1
    oMdlTab:SetValue('SF1_MASTER', "F1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SF1_MASTER', "F1_PV"      ,   "0001" ) //Campo para Argentina, este campo debe ser informado antes de los demás.
    oMdlTab:SetValue('SF1_MASTER', "F1_FORNECE" ,   cFornece )
    oMdlTab:SetValue('SF1_MASTER', "F1_LOJA"    ,   cLoja )
    oMdlTab:SetValue('SF1_MASTER', "F1_SERIE"   ,   cSerie)
    oMdlTab:SetValue('SF1_MASTER', "F1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SF1_MASTER', "F1_EMISSAO" ,   dDataBase)
    oMdlTab:SetValue('SF1_MASTER', "F1_MOEDA"   ,   2)
    oMdlTab:SetValue('SF1_MASTER', "F1_TXMOEDA" ,   10)
    oMdlTab:SetValue('SF1_MASTER', "F1_PROVENT" ,   "BA" )
    oMdlTab:SetValue('SF1_MASTER', "F1_TPVENT"  ,   "B" )
    oMdlTab:SetValue('SF1_MASTER', "F1_COND"    ,   "001" )
    oMdlTab:SetValue('SF1_MASTER', "F1_FRETE"   ,   100 )
    oMdlTab:SetValue('SF1_MASTER', "F1_SEGURO " ,   200 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESPESA" ,   300 )
    oMdlTab:SetValue('SF1_MASTER', "F1_DESCONT" ,   200 )

 	//Detalle Items - SD1
    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000001" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000002" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    oMdlTab:GetModel('SD1_DETAIL' ):AddLine()

    oMdlTab:SetValue('SD1_DETAIL', "D1_FILIAL"  ,   xFilial("SF1"))
    oMdlTab:SetValue('SD1_DETAIL', "D1_ITEM"    ,   "0003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_COD"     ,   "000003" )
    oMdlTab:SetValue('SD1_DETAIL', "D1_DOC"     ,   cDoc)
    oMdlTab:SetValue('SD1_DETAIL', "D1_QUANT"   ,   1)
    oMdlTab:SetValue('SD1_DETAIL', "D1_VUNIT"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TOTAL"   ,   1000)
    oMdlTab:SetValue('SD1_DETAIL', "D1_TES"     ,   "175")
    oMdlTab:SetValue('SD1_DETAIL', "D1_CF"      ,   "112")

    //Se ejecuta el commit
    If oMdlTab:VldData() // Se detonan las validaciones del modelo
        // Si pasa las validaciones, se ejecutara el CommitData del modelo para guardar los datos.
        oMdlTab:CommitData()
    Endif

    // Se obtienen los errores del modelo
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    ConOut("Mensaje de proceso: " + cMsj)
     
    oMdlTab:DeActivate()
Return

Bloco de código

language	java
firstline	1
title	Borrado Nota Crédito Interna
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

User Function LOCX08AUTO()
Local oMdlTab
Local cMsj := "Registro borrado con éxito."

    SetFunName("COMA224")
     
    oMdlTab := FwLoadModel("LOCX08")
    DbSelectArea("SF1")
    SF1->(DbSetOrder(1)) //F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO                                                                                                                                                                                                                                       
    If SF1->(MsSeek(xFilial("SF1") + "000100000250" + "A  " + "000001" + "01" + "C",.T.))
        oMdlTab:SetOperation(MODEL_OPERATION_DELETE)
        oMdlTab:Activate()
        If oMdlTab:VldData()
            oMdlTab:CommitData()
        Endif  
    EndIf
 
    aError := oMdlTab:GetErrorMessage()
    If alltrim(aError[6]) <> ""
        cMsj := aError[6]
    Endif
    CONOUT("Mensaje de proceso: "+cMsj) 
     
    oMdlTab:DeActivate()
 
Return

Totvs custom tabs box items

default	no
referencia	passo2

a

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

Bloco de código

language	java
firstline	1
title	Ejemplo completo:
linenumbers	true
collapse	true

#INCLUDE 'protheus.ch'

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave