SUCURSALVAR004 Acepta la distribución por sucursal

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()
    Dim nCapturado 

    nCapturado = 0

    For n = 1 to fg.Rows - 1
        nCapturado = nCapturado + Val2( fg.TextMatrix( n, 3 ) )
    Next

    Ambiente.Connection.Execute "DELETE FROM compra2sucdis WHERE id_partida = " & nId

    For n = 1 to fg.Rows - 1
        AfectaSucDis Val2( fg.TextMatrix( n, 3 ) ), fg.TextMatrix( n, 1 ) 
    Next

End Sub




Public Sub AfectaSucDis( nCantidad, cClave )
    Dim rstPartida
    Dim rstCompra
    Dim MovInv
    Dim Query
    Dim n
    
    Set rstCompra = CreaRecordSet( "SELECT * FROM compra2 WHERE id = " & Compra, Ambiente.Connection )
    Set rstPartida = CreaRecordSet( "SELECT * FROM compra2part WHERE id = " & nId, Ambiente.Connection )

    if rstCompra.EOF Then
       Exit Sub
    end if   

    if rstPartida.EOF Then
       Exit Sub
    end if     

    Set Query = NewQuery()
    Set Query.Connection = Ambiente.Connection
    Query.strState = "INSERT"
    Query.AddField "compra2sucdis","id", TraeSiguiente( "compra2sucdis", Ambiente.Connection )
    Query.AddField "compra2sucdis","sucursal", Sucursal
    Query.AddField "compra2sucdis","variacion", cClave
    Query.AddField "compra2sucdis","id_partida", nId
    Query.AddField "compra2sucdis","cantidad", nCantidad    
    Query.CreateQuery
    Query.Execute

End Sub